unit U_PBGYSInPutZhu; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, 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, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxPC; type TfrmPBGYSInPutZhu = class(TForm) ADOQueryTemp: TADOQuery; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; cxGridPopupMenu1: TcxGridPopupMenu; DS_HZ2: TDataSource; CDS_HZ2: TClientDataSet; cxGridPopupMenu3: TcxGridPopupMenu; DS_HZ3: TDataSource; CDS_HZ3: TClientDataSet; Label9: TLabel; Panel7: TPanel; Label15: TLabel; Label16: TLabel; Label13: TLabel; Label17: TLabel; Label18: TLabel; Label19: TLabel; Label20: TLabel; Label22: TLabel; KHAddMX: TMemo; KHSJAddMX: TMemo; KHLXR: TEdit; KHTel: TEdit; KHName: TEdit; KHNameJCMX: TEdit; KHSHMX: TEdit; KHNoteMX: TEdit; Label1: TLabel; KHWX: TEdit; Label2: TLabel; KHYouXiang: TEdit; Label3: TLabel; KHJYFanWei: TEdit; ToolBar4: TToolBar; ToolButton2: TToolButton; ToolButton4: TToolButton; ToolButton8: TToolButton; ToolButton1: TToolButton; cxGrid3: TcxGrid; TV3: TcxGridDBTableView; V3Column1: TcxGridDBColumn; V3Column2: TcxGridDBColumn; cxGridDBBankName: TcxGridDBColumn; cxGridLevel3: TcxGridLevel; Label5: TLabel; Label6: TLabel; BankNo: TEdit; BankName: TEdit; Label7: TLabel; HangNo: TEdit; Button3: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure TV2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ToolButton1Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject); procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton4Click(Sender: TObject); procedure TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Button3Click(Sender: TObject); procedure TV3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TV3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); private { Private declarations } procedure InitGrid(); procedure InitGridBank(); function SaveData():Boolean; function SaveDataBank():Boolean; public { Public declarations } FKHMainid,SJFlagTv2,SJFlagTv3,CKFlag:string; end; var frmPBGYSInPutZhu: TfrmPBGYSInPutZhu; implementation uses U_DataLink,U_Fun,U_ZDYHelp,U_FjList_RZ; {$R *.dfm} procedure TfrmPBGYSInPutZhu.InitGrid(); begin with ADOQueryTemp do begin Close; SQL.Clear; sql.Add(' select * from KH_Sub where KHMainid='''+Trim(FKHMainid)+''' and Valid=''Y'' '); sql.Add(' order by XHNO'); Open; end; SCreateCDS20(ADOQueryTemp,CDS_HZ2); SInitCDSData20(ADOQueryTemp,CDS_HZ2); end; procedure TfrmPBGYSInPutZhu.InitGridBank(); begin with ADOQueryTemp do begin Close; SQL.Clear; if CDS_HZ2.IsEmpty=False then begin sql.Add(' select * from KH_Sub_Bank where KHSubid='''+Trim(CDS_HZ2.fieldbyname('KHSubid').AsString)+''''); end else begin sql.Add(' select * from KH_Sub_Bank where 1=2'); end; Open; end; SCreateCDS20(ADOQueryTemp,CDS_HZ3); SInitCDSData20(ADOQueryTemp,CDS_HZ3); end; procedure TfrmPBGYSInPutZhu.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TfrmPBGYSInPutZhu.TBCloseClick(Sender: TObject); begin WriteCxGrid('坯布供应商资料录入1',Tv2,'客户自定义'); WriteCxGrid('坯布供应商资料录入2',Tv3,'客户自定义'); Close; end; procedure TfrmPBGYSInPutZhu.FormShow(Sender: TObject); begin ReadCxGrid('坯布供应商1',Tv2,'客户自定义'); ReadCxGrid('坯布供应商2',Tv3,'客户自定义'); InitGrid(); Panel9.Align:=alClient; if CKFlag='99' then begin ToolButton1.Visible:=False; ToolButton2.Visible:=False; ToolButton4.Visible:=False; ToolButton9.Visible:=False; end; end; procedure TfrmPBGYSInPutZhu.TBRafreshClick(Sender: TObject); begin InitGrid(); end; function TfrmPBGYSInPutZhu.SaveData():Boolean; var maxno:String; begin result:=false; try ADOQueryCmd.Connection.BeginTrans; if Trim(Button1.Caption)='新增保存' then begin if GetLSNo(ADOQueryCmd,maxno,'KS','KH_Sub',4,1)=False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('付款单位最大ID失败!','提示',0); Exit; end; end else if Trim(Button1.Caption)='修改保存' then begin maxno:=Trim(CDS_HZ2.FieldByName('KHSubid').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from KH_Sub where KHSubid='''+Trim(maxno)+''''); Open; end; with ADOQueryCmd do begin if Trim(Button1.Caption)='新增保存' then begin Append; FieldByName('Filler').Value:=Trim(DName); FieldByName('FillerCode').Value:=Trim(DCode); FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); FieldByName('Valid').Value:='Y'; end else if Trim(Button1.Caption)='修改保存' then begin Edit; FieldByName('Editer').Value:=Trim(DName); FieldByName('EditerCode').Value:=Trim(DCode); FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); end; FieldByName('KHMainId').Value:=Trim(FKHMainid); FieldByName('KHSubId').Value:=Trim(maxno); RTSetsavedata(ADOQueryCmd,'KH_Sub',Panel7,2); Post; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('UPdate KH_Sub Set XHNO=(select Max(XHNO)+1 from KH_Sub A where A.KHMainId=KH_Sub.KHMainId)'); sql.Add(' where KHSubId='''+Trim(maxno)+''''); ExecSQL; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from KH_Sub where KHNameMX='''+Trim(KHNameMX.Text)+''''); sql.Add(' and KHMainId='''+Trim(FKHMainid)+''' and valid=''Y'' '); Open; end; if ADOQueryCmd.RecordCount>1 then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('应付单位(个人)重复!','提示',0); Exit; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from KH_Sub where KHNameJCMX='''+Trim(KHNameJCMX.Text)+''''); sql.Add(' and KHMainId='''+Trim(FKHMainid)+''' and valid=''Y'' '); Open; end; if ADOQueryCmd.RecordCount>1 then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('简称重复!','提示',0); Exit; end; ADOQueryCmd.Connection.CommitTrans; with CDS_HZ2 do begin if Button1.Caption='新增保存' then begin Append; end else if Button1.Caption='修改保存' then begin edit; end; FieldByName('KHSubId').Value:=maxno; FieldByName('KHNameMX').Value:=Trim(KHNameMX.Text); FieldByName('KHNameJCMX').Value:=Trim(KHNameJCMX.Text); FieldByName('KHSHMX').Value:=Trim(KHSHMX.Text); FieldByName('KHTelMX').Value:=Trim(KHTelMX.Text); FieldByName('KHLXRMX').Value:=Trim(KHLXRMX.Text); FieldByName('KHNoteMX').Value:=Trim(KHNoteMX.Text); Post; end; result:=true; except ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('数据保存失败!','提示',0); end; end; function TfrmPBGYSInPutZhu.SaveDataBank():Boolean; var maxno:String; begin result:=false; try ADOQueryCmd.Connection.BeginTrans; if Trim(Button3.Caption)='新增保存' then begin if GetLSNo(ADOQueryCmd,maxno,'BK','KH_Sub_Bank',4,1)=False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('开户行最大ID失败!','提示',0); Exit; end; end else if Trim(Button3.Caption)='修改保存' then begin maxno:=Trim(CDS_HZ3.FieldByName('BKID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from KH_Sub_Bank where BKID='''+Trim(maxno)+''''); Open; end; with ADOQueryCmd do begin if Trim(Button3.Caption)='新增保存' then begin Append; FieldByName('Filler').Value:=Trim(DName); FieldByName('FillerCode').Value:=Trim(DCode); FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTemp); FieldByName('Valid').Value:='Y'; end else if Trim(Button3.Caption)='修改保存' then begin Edit; FieldByName('Editer').Value:=Trim(DName); FieldByName('EditerCode').Value:=Trim(DCode); FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp); end; FieldByName('KHMainId').Value:=Trim(FKHMainid); FieldByName('KHSubId').Value:=Trim(CDS_HZ2.fieldbyname('KHSubId').AsString); FieldByName('BKID').Value:=Trim(maxno); RTSetsavedata(ADOQueryCmd,'KH_Sub_Bank',Panel2,2); Post; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from KH_Sub_Bank where BankName='''+Trim(BankName.Text)+''''); sql.Add(' and KHSubId='''+Trim(maxno)+''' and valid=''Y'' '); Open; end; if ADOQueryCmd.RecordCount>1 then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('开户行重复!','提示',0); Exit; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from KH_Sub_Bank where BankNo='''+Trim(BankNo.Text)+''''); sql.Add(' and KHSubId='''+Trim(maxno)+''' and valid=''Y'' '); Open; end; if ADOQueryCmd.RecordCount>1 then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('账号重复!','提示',0); Exit; end; ADOQueryCmd.Connection.CommitTrans; with CDS_HZ3 do begin if Button3.Caption='新增保存' then begin Append; end else if Button3.Caption='修改保存' then begin edit; end; FieldByName('KHSubId').Value:=Trim(CDS_HZ2.fieldbyname('KHSubId').AsString);; FieldByName('BKId').Value:=maxno; FieldByName('BankName').Value:=Trim(BankName.Text); FieldByName('BankNo').Value:=Trim(BankNo.Text); FieldByName('Valid').Value:='Y'; Post; end; result:=true; except ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('数据保存失败!','提示',0); end; end; procedure TfrmPBGYSInPutZhu.TV2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Panel3.Visible:=True; Panel9.Align:=alTop; Panel9.Height:=245; InitGridBank(); Panel2.Visible:=False; if Panel7.Visible=True then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from KH_Sub where KHSubId='''+Trim(CDS_HZ2.fieldbyname('KHSubId').AsString)+''''); Open; end; SCSHDataNew(ADOQueryTemp,Panel7,2); if SJFlagTv2<>'99' then begin Button1.Visible:=False; end else begin Button1.Visible:=True; end; if Trim(CDS_HZ2.fieldbyname('DataType').AsString)='主' then begin KHNameMX.Color:=clMenuBar; KHNameMX.ReadOnly:=True; KHNameJCMX.Color:=clMenuBar; KHNameJCMX.ReadOnly:=True; KHLXRMX.Color:=clMenuBar; KHLXRMX.ReadOnly:=True; KHTelMX.Color:=clMenuBar; KHTelMX.ReadOnly:=True; end else begin KHNameMX.Color:=clWindow; KHNameMX.ReadOnly:=False; KHNameJCMX.Color:=clWindow; KHNameJCMX.ReadOnly:=False; KHLXRMX.Color:=clWindow; KHLXRMX.ReadOnly:=False; KHTelMX.Color:=clWindow; KHTelMX.ReadOnly:=False; end; end; if CKFlag='99' then begin Button1.Visible:=False; end; end; procedure TfrmPBGYSInPutZhu.ToolButton1Click(Sender: TObject); begin Panel7.SetFocus; if Trim(KHNameMX.Text)='' then begin application.MessageBox('应付款单位(个人)不能为空','提示'); exit; end; if Trim(KHNameJCMX.Text)='' then begin application.MessageBox('简称不能为空','提示'); exit; end; if Button1.Caption='新增确定' then begin if CDS_HZ2.Locate('KHMXName',KHNameMX.Text,[])=True then begin Application.MessageBox('应付款单位(个人)已存在','提示'); exit; end; if CDS_HZ2.Locate('KHNameJCMX',KHNameJCMX.Text,[])=True then begin Application.MessageBox('简称已存在','提示'); exit; end; end; if SaveData() then begin Application.MessageBox('保存成功!','提示',0); Button1.Visible:=False; SJFlagTv2:=''; Exit; end; end; procedure TfrmPBGYSInPutZhu.ToolButton8Click(Sender: TObject); begin WriteCxGrid('坯布供应商1',Tv2,'客户自定义'); WriteCxGrid('坯布供应商2',Tv3,'客户自定义'); Close; end; procedure TfrmPBGYSInPutZhu.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin Panel7.Visible:=True; SJFlagTv2:='99'; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from KH_Sub where KHSubId='''+Trim(CDS_HZ2.fieldbyname('KHSubId').AsString)+''''); Open; end; SCSHDataNew(ADOQueryTemp,Panel7,2); if CKFlag<>'99' then begin Button1.Visible:=True; Button1.Caption:='修改保存'; end; end; procedure TfrmPBGYSInPutZhu.ToolButton4Click(Sender: TObject); begin IF CDS_HZ3.IsEmpty then exit; if Application.MessageBox('确定要删除开户行数据吗？','提示',32+4)<>IDYES then Exit; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('Update KH_Sub_Bank Set Valid=''N'',DelTime=getdate(),Deler='''+Trim(DName)+''',DelerCode='''+Trim(DCode)+''''); sql.add('where BKID='''+Trim(CDS_HZ3.fieldbyname('BKID').AsString)+''''); ExecSQL; end; CDS_HZ3.Delete; //Panel2.Visible:=False; end; procedure TfrmPBGYSInPutZhu.TV3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin if CDS_HZ3.IsEmpty then begin Panel2.Visible:=False; Exit; end; Panel2.Visible:=True; SJFlagTv3:='99'; BankName.Text:=Trim(CDS_HZ3.fieldbyname('BankName').AsString); BankNo.Text:=Trim(CDS_HZ3.fieldbyname('BankNo').AsString); if CKFlag<>'99' then begin Button3.Visible:=True; Button3.Caption:='修改保存'; end; end; procedure TfrmPBGYSInPutZhu.Button3Click(Sender: TObject); begin if Trim(BankName.Text)='' then begin application.MessageBox('开户行不能为空','提示'); exit; end; if Trim(BankNo.Text)='' then begin application.MessageBox('账号不能为空','提示'); exit; end; if Button3.Caption='新增确定' then begin if CDS_HZ3.Locate('BankName',BankName.Text,[])=True then begin Application.MessageBox('开户行已存在','提示'); exit; end; if CDS_HZ3.Locate('BankNo',BankNo.Text,[])=True then begin Application.MessageBox('账号已存在','提示'); exit; end; end; if SaveDataBank() then begin Application.MessageBox('保存成功!','提示',0); Button3.Visible:=False; SJFlagTv3:=''; Exit; end; end; procedure TfrmPBGYSInPutZhu.TV3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Panel2.Visible=true then begin if CDS_HZ3.IsEmpty=False then begin BankName.Text:=Trim(CDS_HZ3.fieldbyname('BankName').AsString); BankNo.Text:=Trim(CDS_HZ3.fieldbyname('BankNo').AsString); if SJFlagTv3<>'99' then begin Button3.Visible:=False; end else begin Button3.Visible:=True; end; end else begin BankName.Text:=''; BankNo.Text:=''; end; if CKFlag='99' then begin Button3.Visible:=False; end; LabKHMXName.Caption:=Trim(CDS_HZ2.fieldbyname('KHNameMX').AsString) end; end; procedure TfrmPBGYSInPutZhu.TV2FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin SJFlagTv2:=''; end; procedure TfrmPBGYSInPutZhu.TV3FocusedRecordChanged( Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin SJFlagTv3:=''; end; end.