~

基础资料维护(BaseInfo.dll)/U_DataLink.pas

@@ -4,7 +4,21 @@ interface
 
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue;
 var
    DConString:String;   {全局连接字符串}
    server, dtbase, user, pswd: String;  {数据库连接参数}

基础资料维护(BaseInfo.dll)/U_GetDllForm.pas

@@ -82,6 +82,7 @@ begin
   // DParameters1:='1';              
  //  DataBase:='¼Ó¹¤³§';
   //DataBase:='¹ð»ª·ÄÖ¯';
+//  DParameters4:='µÍȨÏÞ';
    if not ConnData() then
    begin
      result:=0;
@@ -114,6 +115,7 @@ begin
            caption:=Trim(Title);
            fkhType:=trim(DataBase);
            canshu1:=trim(DParameters1);
+           FParameters4:=trim(DParameters4);
            FormStyle := mstyle ;
            windowState := mstate ;
            BorderStyle := mborderstyle;

基础资料维护(BaseInfo.dll)/U_ZdyAttInput.dfm

@@ -1,6 +1,6 @@
 object frmZdyAttInput: TfrmZdyAttInput
-  Left = -8
+  Left = 269
-  Top = -8
+  Top = 229
   Width = 1382
   Height = 754
   Caption = #23458#25143#36164#26009#24405#20837
@@ -53,13 +53,13 @@ object frmZdyAttInput: TfrmZdyAttInput
     Left = 0
     Top = 31
     Width = 1366
-    Height = 685
+    Height = 684
     Align = alClient
     TabOrder = 1
     object Tv2: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
-      NavigatorButtons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Enabled = False
-      NavigatorButtons.Delete.Visible = False
+      Navigator.Buttons.Delete.Visible = False
       DataController.DataSource = DS_HZ
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <>

基础资料维护(BaseInfo.dll)/U_ZdyAttInput.pas

@@ -5,14 +5,27 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
-  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
-  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
   cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
   cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
-  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
-  cxButtonEdit, cxTextEdit;
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
+  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
+  dxSkinscxPCPainter, cxNavigator;
 
 type
   TfrmZdyAttInput = class(TForm)
@@ -54,31 +67,28 @@ type
     procedure FormShow(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
-    procedure v2Column14PropertiesButtonClick(Sender: TObject;
+    procedure v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
   private
     { Private declarations }
     procedure InitGrid();
     function SaveData(): Boolean;
-
   public
     fkhType: string;
     { Public declarations }
-    RKFlag,FCYID:String;
+    RKFlag, FCYID: string;
-
+    canshu1, canshu2,FParameters4: string;
   end;
 
 var
   frmZdyAttInput: TfrmZdyAttInput;
 
 implementation
+
 uses
   U_DataLink, U_Fun, U_ZDYHelp, U_WeiXinHelp;
 
 {$R *.dfm}
 
-
-
 procedure TfrmZdyAttInput.InitGrid();
 begin
   try
@@ -99,7 +109,6 @@ begin
   end;
 end;
 
-
 procedure TfrmZdyAttInput.FormDestroy(Sender: TObject);
 begin
   //frmZdyAttInput:=nil;
@@ -115,6 +124,7 @@ begin
   WriteCxGrid('客户资料录入1', Tv2, '客户自定义');
   Close;
 end;
+
 procedure TfrmZdyAttInput.FormShow(Sender: TObject);
 begin
   ReadCxGrid('客户资料录入1', Tv2, '客户自定义');
@@ -122,6 +132,11 @@ begin
   if Trim(FCYID) = '' then
   begin
     CDS_HZ.Append;
+    if trim(FParameters4) = '低权限' then
+    begin
+      CDS_HZ.FieldByName('DEFstr5').Value := Trim(DName);
+
+    end;
     CDS_HZ.Post;
   end;
 end;
@@ -133,7 +148,7 @@ end;
 
 function TfrmZdyAttInput.SaveData(): Boolean;
 var
-  maxId,CRID:String;
+  maxId, CRID: string;
   fzdyCode: string;
 begin
   try
@@ -147,7 +162,7 @@ begin
         Application.MessageBox('取最大号失败！', '提示', 0);
         Exit;
       end;
-      IF trim(fkhType)='广东客户' then
+      if trim(fkhType) = '广东客户' then
       begin
         if GetLSNo(ADOQueryCmd, fzdyCode, 'KH', 'KH_Zdy_Attachment', 4, 0) = False then
         begin
@@ -157,8 +172,7 @@ begin
           Exit;
         end;
       end
-      else
+      else if trim(fkhType) = '湖州客户' then
-      IF trim(fkhType)='湖州客户' then
       begin
         if GetLSNo(ADOQueryCmd, fzdyCode, 'HZ', 'KH_Zdy_Attachment', 4, 0) = False then
         begin
@@ -198,7 +212,8 @@ begin
         Append;
         FieldByName('Filler').Value := Trim(DName);
         FieldByName('zdyCode').Value := Trim(fzdyCode);
-      end else
+      end
+      else
       begin
         Edit;
         FieldByName('Editer').Value := Trim(DName);
@@ -225,7 +240,8 @@ begin
       if Trim(FCYID) = '' then
       begin
         Append;
-      end else
+      end
+      else
       begin
         Edit;
       end;
@@ -288,7 +304,8 @@ begin
     Application.MessageBox('客户名称不能为空!', '提示', 0);
     Exit;
   end;
-  if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;  
+  if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
 
   if SaveData() then
   begin
@@ -297,9 +314,7 @@ begin
   end;
 end;
 
-
+procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-procedure TfrmZdyAttInput.v2Column14PropertiesButtonClick(Sender: TObject;
-  AButtonIndex: Integer);
 begin
   frmWeiXinHelp := TfrmWeiXinHelp.create(self);
   with frmWeiXinHelp do
@@ -317,3 +332,4 @@ begin
 end;
 
 end.
+

基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas

@@ -13,7 +13,20 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxDropDownEdit, strutils, cxCurrencyEdit, cxLookAndFeels,
-  cxLookAndFeelPainters, cxNavigator;
+  cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
+  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
+  dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
+  dxSkinscxPCPainter;
 
 type
   TfrmZdyAttInputCP = class(TForm)
@@ -392,7 +405,7 @@ begin
   begin
     mvalue := trim(mvalue) + '#';
   end;
-
+//  mvalue := trim(mvalue);
   with CDS_HZ do
   begin
     Edit;
@@ -440,7 +453,7 @@ begin
   begin
     mvalue := trim(mvalue) + '#';
   end;
-
+//   mvalue := trim(mvalue) ;
   with CDS_HZ do
   begin
     Edit;

基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.dfm

@@ -11,6 +11,7 @@ object frmZdyAttInputGYS: TfrmZdyAttInputGYS
   Font.Name = #23435#20307
   Font.Style = []
   OldCreateOrder = False
+  Position = poScreenCenter
   OnClose = FormClose
   OnDestroy = FormDestroy
   OnShow = FormShow

基础资料维护(BaseInfo.dll)/U_ZdyAttInputGYS.pas

@@ -12,7 +12,21 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
-  cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+  cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmZdyAttInputGYS = class(TForm)

基础资料维护(BaseInfo.dll)/U_ZdyAttachment.dfm

@@ -1,6 +1,6 @@
 object frmZdyAttachment: TfrmZdyAttachment
-  Left = -8
+  Left = 293
-  Top = 0
+  Top = 214
   Width = 1378
   Height = 754
   Caption = #23458#25143#36164#26009#31649#29702
@@ -167,13 +167,13 @@ object frmZdyAttachment: TfrmZdyAttachment
     Left = 0
     Top = 70
     Width = 1362
-    Height = 646
+    Height = 645
     Align = alClient
     TabOrder = 2
     object Tv2: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
-      NavigatorButtons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Enabled = False
-      NavigatorButtons.Delete.Visible = False
+      Navigator.Buttons.Delete.Visible = False
       DataController.DataSource = DS_HZ
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <

基础资料维护(BaseInfo.dll)/U_ZdyAttachment.pas

@@ -5,14 +5,27 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
-  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
-  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
   cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
   cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
-  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
-  cxButtonEdit, cxTextEdit, cxDBLookupComboBox;
+  cxTextEdit, cxDBLookupComboBox, cxLookAndFeels, cxLookAndFeelPainters,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator;
 
 type
   TfrmZdyAttachment = class(TForm)
@@ -78,23 +91,21 @@ type
 
     { Private declarations }
     procedure InitGrid();
-
   public
     fkhType: string;
-    canshu1,canshu2:string;
+    canshu1, canshu2,FParameters4: string;
   end;
 
 var
   frmZdyAttachment: TfrmZdyAttachment;
 
 implementation
+
 uses
   U_DataLink, U_Fun, U_ZDYHelp, U_ZdyAttInput, U_ZdyInput;
 
 {$R *.dfm}
 
-
-
 procedure TfrmZdyAttachment.InitGrid();
 begin
   try
@@ -116,7 +127,6 @@ begin
   end;
 end;
 
-
 procedure TfrmZdyAttachment.FormDestroy(Sender: TObject);
 begin
   frmZdyAttachment := nil;
@@ -132,10 +142,13 @@ begin
   WriteCxGrid('客户资料', Tv2, '客户自定义');
   Close;
 end;
+
 procedure TfrmZdyAttachment.TDelClick(Sender: TObject);
 begin
-  if CDS_HZ.IsEmpty then Exit;
+  if CDS_HZ.IsEmpty then
-  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    Exit;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
   if Trim(CDS_HZ.fieldbyname('ATID').AsString) <> '' then
   begin
     with ADOQueryCmd do
@@ -153,12 +166,14 @@ end;
 procedure TfrmZdyAttachment.FormShow(Sender: TObject);
 begin
   ReadCxGrid('客户资料', Tv2, '客户自定义');
+//  DParameters4:=Trim(DParameters4);
   if trim(canshu1) = '查询' then
   begin
     Tadd.Visible := false;
     tedit.Visible := false;
     tdel.Visible := false;
   end;
+
   InitGrid();
 end;
 
@@ -182,16 +197,25 @@ begin
   ToolButton2.Click;
 end;
 
-
 procedure TfrmZdyAttachment.ToolButton1Click(Sender: TObject);
 begin
-  if ADOQueryMain.IsEmpty then Exit;
+  if ADOQueryMain.IsEmpty then
+    Exit;
   TcxGridToExcel(self.Caption, cxgrid2);
  // SelExportData(Tv2,ADOQueryMain,'客户资料列表');
 end;
 
 procedure TfrmZdyAttachment.TeditClick(Sender: TObject);
 begin
+  if trim(DParameters4) = '低权限' then
+  begin
+    if Trim(CDS_HZ.fieldbyname('Filler').AsString) <> Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人的数据!', '提示', 0);
+      Exit;
+    end;
+  end;
+
   try
     frmZdyAttInput := TfrmZdyAttInput.Create(Application);
     with frmZdyAttInput do
@@ -215,6 +239,8 @@ begin
     with frmZdyAttInput do
     begin
       fkhType := self.fkhType;
+      canshu1 := self.canshu1;
+      FParameters4:=Self.FParameters4;
       FCYID := '';
       if ShowModal = 1 then
       begin
@@ -229,4 +255,3 @@ end;
 
 end.
 
-

应收应付/U_SKCR.dfm

@@ -1,6 +1,6 @@
 object frmSKCR: TfrmSKCR
-  Left = 212
+  Left = 442
-  Top = 205
+  Top = 301
   Width = 1382
   Height = 754
   Caption = #25910#27454#31649#29702

应收应付/U_SKCR.pas

@@ -5,28 +5,27 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
-  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
-  StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
   cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
   cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
-  IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
-  cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
-  cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
-  dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
-  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
-  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
-  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
-  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
-  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
-  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmSKCR = class(TForm)
@@ -100,27 +99,21 @@ type
     procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
     procedure cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
-    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
+    procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
+    procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-    procedure cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
+    procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
-    procedure v2Column3PropertiesButtonClick(Sender: TObject;
-      AButtonIndex: Integer);
     procedure ToolButton1Click(Sender: TObject);
     procedure v2Column4PropertiesEditValueChanged(Sender: TObject);
-    procedure v2Column1PropertiesButtonClick(Sender: TObject;
+    procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
     procedure VBBPropertiesEditValueChanged(Sender: TObject);
     procedure OrderNoChange(Sender: TObject);
     procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
     procedure v2DerateMoneyPropertiesEditValueChanged(Sender: TObject);
-    procedure v2SYRNamePropertiesButtonClick(Sender: TObject;
+    procedure v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
     procedure TsaveClick(Sender: TObject);
     procedure Panel2DblClick(Sender: TObject);
     procedure JZdateChange(Sender: TObject);
-    procedure v2Column4PropertiesButtonClick(Sender: TObject;
+    procedure v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-      AButtonIndex: Integer);
     procedure ToolButton4Click(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
   private
@@ -129,7 +122,7 @@ type
     procedure InitGrid();
     function SaveData(): Boolean;
     procedure SetStatus();
-    Procedure JsYe();
+    procedure JsYe();
     procedure geteditRzhi();
     function SaveZL(): Boolean;
   public
@@ -137,13 +130,11 @@ type
     fSYRName: string;
     fstr2: string;
     { Public declarations }
-    RKFlag,FCYID:String;
+    RKFlag, FCYID: string;
-
   end;
 
-
-
 implementation
+
 uses
   U_DataLink, U_Fun, U_ZDYHelp, U_ProductOrderList, U_ProductOrderNewList,
   U_ZdyAttachment, U_SysLogHelp;
@@ -160,19 +151,19 @@ begin
 //    showmessage(SQL.text);
     open;
   end;
-  IF not ADOQueryTemp.IsEmpty then
+  if not ADOQueryTemp.IsEmpty then
   begin
 
-      IF formatdateTime('yyyy-MM-dd',CDS_HZ.fieldbyname('CRTime').AsDateTime)<> formatdateTime('yyyy-MM-dd',ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then
+    if formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime) <> formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) then
       fopevent := fopevent + ' 日期:' + formatdateTime('yyyy-MM-dd', ADOQueryTemp.fieldbyName('CRTime').AsDateTime) + '->' + formatdateTime('yyyy-MM-dd', CDS_HZ.fieldbyname('CRTime').AsDateTime);
 
-      IF CDS_HZ.fieldbyname('BBMoney').AsFloat<> ADOQueryTemp.fieldbyName('inMoney').AsFloat then
+    if CDS_HZ.fieldbyname('BBMoney').AsFloat <> ADOQueryTemp.fieldbyName('inMoney').AsFloat then
       fopevent := fopevent + ' 金额:' + ADOQueryTemp.fieldbyName('inMoney').AsString + '->' + CDS_HZ.fieldbyname('BBMoney').AsString;
 
-      IF trim(CDS_HZ.fieldbyname('bankNo').AsString)<> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then
+    if trim(CDS_HZ.fieldbyname('bankNo').AsString) <> trim(ADOQueryTemp.fieldbyName('factoryName').AsString) then
       fopevent := fopevent + ' 账户:' + trim(ADOQueryTemp.fieldbyName('factoryName').AsString) + '->' + trim(CDS_HZ.fieldbyname('bankNo').AsString);
 
-      IF fopevent<>'' then
+    if fopevent <> '' then
       fopevent := '对方单位:' + Trim(CDS_HZ.fieldbyname('factoryName').AsString) + fopevent;
   end;
 end;
@@ -189,7 +180,7 @@ begin
     sql.Add('select * from YF_Money_CR where YFID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' ');
     open;
   end;
-  IF ADOQueryTemp.IsEmpty then
+  if ADOQueryTemp.IsEmpty then
   begin
     ADOQueryCMD.Connection.RollbackTrans;
     exit;
@@ -231,7 +222,7 @@ begin
       Post;
     end;
 
-    IF trim(fopevent)<>'' then
+    if trim(fopevent) <> '' then
     begin
       with ADOQueryCmd do
       begin
@@ -253,7 +244,7 @@ begin
   end;
 end;
 
-Procedure TfrmSKCR.JsYe();
+procedure TfrmSKCR.JsYe();
 begin
   with ADOQueryTemp do
   begin
@@ -274,15 +265,15 @@ begin
   end;
 
 end;
+
 procedure TfrmSKCR.SetStatus();
 begin
   TBDel.Visible := true;
-  IF trim(fDParameters1)='管理' then
+  if trim(fDParameters1) = '管理' then
   begin
     TBDel.Visible := true;
   end
-  else
+  else if trim(fDParameters1) = '查询' then
-  IF trim(fDParameters1)='查询' then
   begin
     tv2.OptionsData.Editing := false;
     TBDel.Visible := false;
@@ -295,9 +286,6 @@ begin
  // IF trim(fSYRName)<>'龙运纺织' then Tsave.Visible:=false;
 end;
 
-
-
-
 procedure TfrmSKCR.InitGrid();
 begin
   try
@@ -314,11 +302,17 @@ begin
       sql.Add('where A.CRTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
       sql.Add(' and CRTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
       sql.Add(' and A.CRType=''收款登记''  ');
-      IF trim(fSYRName)<>'' then
+      if trim(fSYRName) <> '' then
         sql.Add(' and A.SYRName=' + quotedstr(trim(fSyrName)));
-      IF trim(FactoryName.Text)<>'' then
+      if trim(FactoryName.Text) <> '' then
         sql.Add(' and A.FactoryName like ' + quotedstr('%' + trim(FactoryName.Text) + '%'));
       sql.Add(' and isnull(A.fstr2,'''')=' + quotedstr(trim(fstr2)));
+      if trim(fDParameters1) = '低权限' then
+      begin
+        sql.Add(' and isnull(A.Filler,'''')=' + quotedstr(trim(Dname)));
+      end;
+
+
 //        ShowMessage(SQL.text);
       Open;                                         
     end;
@@ -347,12 +341,15 @@ begin
   end;}
   Close;
 end;
+
 procedure TfrmSKCR.TBDelClick(Sender: TObject);
 var
   FBBMoney, CRID: string;
 begin
-  if CDS_HZ.IsEmpty then Exit;
+  if CDS_HZ.IsEmpty then
-  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    Exit;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
   if Trim(CDS_HZ.fieldbyname('YFID').AsString) <> '' then
   begin
     try
@@ -405,7 +402,7 @@ begin
     VYB.Visible := False;
     VBB.Caption := '实收金额';
   end;
-  IF trim(fDParameters3)<>'' then
+  if trim(fDParameters3) <> '' then
   begin
     factoryName.Text := trim(fDParameters3);
     factoryName.Enabled := false;
@@ -436,8 +433,10 @@ end;
 
 procedure TfrmSKCR.Button2Click(Sender: TObject);
 begin
-  if CDS_HZ.IsEmpty then Exit;
+  if CDS_HZ.IsEmpty then
-  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    Exit;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
   if Trim(CDS_HZ.fieldbyname('SubID').AsString) <> '' then
   begin
     with ADOQueryCmd do
@@ -453,7 +452,7 @@ end;
 
 function TfrmSKCR.SaveData(): Boolean;
 var
-  maxId,CRID:String;
+  maxId, CRID: string;
 begin
   try
     ADOQueryCmd.Connection.BeginTrans;
@@ -474,7 +473,8 @@ begin
     if ADOQueryCmd.IsEmpty = False then
     begin
       CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
-    end else
+    end
+    else
     begin
       with ADOQueryCmd do
       begin
@@ -541,10 +541,9 @@ begin
   end;
 end;
 
-procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(
+procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender: TObject);
-  Sender: TObject);
 var
-  mvalue,FFieldName:String;
+  mvalue, FFieldName: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
   FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
@@ -562,7 +561,8 @@ begin
     if Trim(mvalue) <> '' then
     begin
       sql.Add(' Set ' + FFieldName + '=''' + Trim(mvalue) + '''');
-    end else
+    end
+    else
     begin
       sql.Add(' Set ' + FFieldName + '=NULL');
     end;
@@ -573,10 +573,9 @@ begin
   end;
 end;
 
-procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(
+procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
-  Sender: TObject);
 var
-  mvalue,FQty,FPrice,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String;
+  mvalue, FQty, FPrice, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
   if Trim(mvalue) = '' then
@@ -600,18 +599,23 @@ begin
   FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
 
   FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
-  if Trim(FQty)='' then FQty:='0';
+  if Trim(FQty) = '' then
+    FQty := '0';
 
   FPrice := Trim(CDS_HZ.fieldbyname('Price').AsString);
-  if Trim(FPrice)='' then FPrice:='0';
+  if Trim(FPrice) = '' then
+    FPrice := '0';
   FQty := Trim(CDS_HZ.fieldbyname('Qty').AsString);
-  if Trim(FQty)='' then FQty:='0';
+  if Trim(FQty) = '' then
+    FQty := '0';
 
   FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString);
-  if Trim(FMoney)='' then FMoney:='0';
+  if Trim(FMoney) = '' then
+    FMoney := '0';
 
   FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString);
-  if Trim(FHuiLv)='' then FHuiLv:='0';
+  if Trim(FHuiLv) = '' then
+    FHuiLv := '0';
 
   {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString);
   if Trim(FBBMoney)='' then FBBMoney:='0'; }
@@ -622,12 +626,14 @@ begin
     begin
       FBBMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice) * StrToFloat(FHuiLv));
       FMoney := FloatToStr(StrToFloat(FQty) * StrToFloat(FPrice));
-    end else
+    end
+    else
     begin
       FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv));
     end;
 
-  end else
+  end
+  else
   begin
     FBBMoney := FloatToStr(StrToFloat(FMoney) * StrToFloat(FHuiLv));
   end;
@@ -660,10 +666,9 @@ begin
   end; }
 end;
 
-procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(
+procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender: TObject);
-  Sender: TObject);
 var
-  mvalue,FFieldName:String;
+  mvalue, FFieldName: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
   FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
@@ -734,7 +739,7 @@ begin
           Post;
         end;
         Self.SaveData();
-        IF fsyrName='龙运纺织' then
+        if fsyrName = '龙运纺织' then
         begin
           edit1.Text := Self.CDS_HZ.fieldbyname('FactoryName').AsString;
           JZdate.DateTime := Self.CDS_HZ.fieldbyname('CRTime').AsDateTime;
@@ -748,8 +753,7 @@ begin
   end;
 end;
 
-procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -786,8 +790,7 @@ begin
   end;
 end;
 
-procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -817,8 +820,7 @@ begin
   end;
 end;
 
-procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -850,13 +852,14 @@ end;
 
 procedure TfrmSKCR.ToolButton1Click(Sender: TObject);
 begin
-  if ADOQueryMain.IsEmpty then Exit;
+  if ADOQueryMain.IsEmpty then
+    Exit;
   SelExportData(Tv2, ADOQueryMain, '付款列表');
 end;
 
 procedure TfrmSKCR.v2Column4PropertiesEditValueChanged(Sender: TObject);
 var
-  mvalue,FMoney,FHuiLv,FBBMoney,FKCBB,FFieldName:String;
+  mvalue, FMoney, FHuiLv, FBBMoney, FKCBB, FFieldName: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
   if Trim(mvalue) = '' then
@@ -880,10 +883,12 @@ begin
   FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
 
   FMoney := Trim(CDS_HZ.fieldbyname('Money').AsString);
-  if Trim(FMoney)='' then FMoney:='0';
+  if Trim(FMoney) = '' then
+    FMoney := '0';
 
   FHuiLv := Trim(CDS_HZ.fieldbyname('HuiLv').AsString);
-  if Trim(FHuiLv)='' then FHuiLv:='0';
+  if Trim(FHuiLv) = '' then
+    FHuiLv := '0';
 
   {FBBMoney:=Trim(CDS_HZ.fieldbyname('BBMoney').AsString);
   if Trim(FBBMoney)='' then FBBMoney:='0'; }
@@ -935,8 +940,7 @@ begin
   end;}
 end;
 
-procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmProductOrderNewList := TfrmProductOrderNewList.Create(Application);
@@ -985,7 +989,8 @@ begin
     Open;
   end;
   FKCBB := ADOQueryTemp.fieldbyname('BBMoney').AsString;
-  if Trim(mvalue)='' then mvalue:='0';
+  if Trim(mvalue) = '' then
+    mvalue := '0';
   with CDS_HZ do
   begin
     Edit;
@@ -1032,13 +1037,14 @@ end;
 
 procedure TfrmSKCR.OrderNoChange(Sender: TObject);
 begin
-  if Length(Trim(OrderNo.Text))<3 then Exit;
+  if Length(Trim(OrderNo.Text)) < 3 then
+    Exit;
   ToolButton2.Click;
 end;
 
 procedure TfrmSKCR.v2Column1PropertiesEditValueChanged(Sender: TObject);
 var
-  mvalue,FFieldName:String;
+  mvalue, FFieldName: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
   FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
@@ -1058,14 +1064,15 @@ begin
     ExecSQL;
   end; }
 end;
-procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(
+
-  Sender: TObject);
+procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(Sender: TObject);
 var
   mvalue: string;
 begin
   mvalue := TcxTextEdit(Sender).EditingText;
 
-  if Trim(mvalue)='' then mvalue:='0';
+  if Trim(mvalue) = '' then
+    mvalue := '0';
   with CDS_HZ do
   begin
     Edit;
@@ -1086,8 +1093,7 @@ begin
   end; }
 end;
 
-procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.v2SYRNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1120,7 +1126,8 @@ end;
 
 procedure TfrmSKCR.TsaveClick(Sender: TObject);
 begin
-  IF CDS_HZ.IsEmpty then exit;
+  if CDS_HZ.IsEmpty then
+    exit;
   begdate.SetFocus;
   if CDS_HZ.Locate('ssel', true, []) = false then
   begin
@@ -1136,7 +1143,7 @@ begin
       First;
       while not eof do
       begin
-        IF Fieldbyname('ssel').AsBoolean then
+        if Fieldbyname('ssel').AsBoolean then
         begin
         {  IF trim(fieldbyName('bankNo').AsString)='' then
           begin
@@ -1166,7 +1173,7 @@ begin
           end;
           try
             geteditRzhi();
-            IF trim(fieldbyName('bankNo').AsString)<>'' then
+            if trim(fieldbyName('bankNo').AsString) <> '' then
             begin
               with ADOqueryCmd do
               begin
@@ -1175,10 +1182,9 @@ begin
                 SQL.Add('delete from YF_Money_LL where fromMainID=''' + Trim(CDS_HZ.fieldbyname('YFID').AsString) + ''' ');
                 execsql;
               end;
-              IF (CDS_HZ.FieldByName('BBMoney').AsFloat<>0) and
+              if (CDS_HZ.FieldByName('BBMoney').AsFloat <> 0) and (trim(CDS_HZ.fieldbyname('bankNo').AsString) <> '') then
-               (trim(CDS_HZ.fieldbyname('bankNo').AsString)<>'') then
               begin
-                IF not saveZL() then
+                if not saveZL() then
                 begin
                   application.MessageBox('生成账户流水信息失败', '提示信息', 0);
                 end;
@@ -1221,8 +1227,7 @@ begin
   jsYe();
 end;
 
-procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject;
+procedure TfrmSKCR.v2Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-  AButtonIndex: Integer);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1287,7 +1292,8 @@ end;
 
 procedure TfrmSKCR.CheckBox1Click(Sender: TObject);
 begin
- IF  CDS_HZ.IsEmpty then exit;
+  if CDS_HZ.IsEmpty then
+    exit;
   with CDS_HZ do
   begin
     DisableControls;
@@ -1305,3 +1311,4 @@ begin
 end;
 
 end.
+

桂华管理系统/U_ClothContractInPut.dfm

@@ -1,6 +1,6 @@
 object frmClothContractInPut: TfrmClothContractInPut
-  Left = 213
+  Left = 404
-  Top = 163
+  Top = 253
   Width = 1046
   Height = 541
   Caption = #22383#24067#21040#36135
@@ -588,6 +588,16 @@ object frmClothContractInPut: TfrmClothContractInPut
         HeaderAlignmentHorz = taCenter
         Width = 118
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #24211#23384#35843#25972#21305#25968
+        DataBinding.FieldName = 'kctzps'
+        Width = 90
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #24211#23384#35843#25972#25968#37327
+        DataBinding.FieldName = 'kctzsl'
+        Width = 90
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

桂华管理系统/U_ClothContractInPut.pas

@@ -10,7 +10,21 @@ uses
   cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer,
    cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB,
   ExtCtrls, BtnEdit, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
-  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmClothContractInPut = class(TForm)
@@ -78,6 +92,8 @@ type
     Panel1: TPanel;
     Label11: TLabel;
     Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
       ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;