unit U_mlkc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinOffice2013White, // Plus, dxSkinWXI, dxScrollbarAnnotations; type Tfrmmlkc = class(TfrmBaseList) ToolBar1: TToolBar; TBRafresh: TToolButton; TBFind: TToolButton; TBExport: TToolButton; TBClose: TToolButton; Panel1: TPanel; ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; DataSource1: TDataSource; cxGridPopupMenu1: TcxGridPopupMenu; Label1: TLabel; Label2: TLabel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; CDS_Main: TClientDataSet; TBDel: TToolButton; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; TBAdd: TToolButton; TBEdit: TToolButton; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label8: TLabel; Label12: TLabel; C_name: TEdit; FromCoName: TEdit; BCIOID: TEdit; C_spec: TEdit; IOType: TComboBox; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; v1Column6: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1Column4: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v2Column1: TcxGridDBColumn; v1Column8: TcxGridDBColumn; v2Column6: TcxGridDBColumn; v1Column3: TcxGridDBColumn; v1Column5: TcxGridDBColumn; v1Column12: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; v1Column10: TcxGridDBColumn; Label10: TLabel; BatchNo: TEdit; v1Column11: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column15: TcxGridDBColumn; v1Column19: TcxGridDBColumn; v1Column20: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; ToolButton1: TToolButton; Tv1Column1: TcxGridDBColumn; ToolButton2: TToolButton; Tv1Column2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Label6: TLabel; Label7: TLabel; Label9: TLabel; FromC_ConNo: TEdit; FromcontractNO: TEdit; FromoperationNO: TEdit; Label11: TLabel; Edit1: TEdit; Tv1Column18: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn; Label13: TLabel; C_goods: TEdit; Tv1Column20: TcxGridDBColumn; TV2: TcxGridDBTableView; cxGrid2Level1: TcxGridLevel; cxGrid2: TcxGrid; DataSource2: TDataSource; CDS_sub: TClientDataSet; TV2Column1: TcxGridDBColumn; TV2Column2: TcxGridDBColumn; TV2Column3: TcxGridDBColumn; TV2Column4: TcxGridDBColumn; ADOQuerysub: TADOQuery; Tv1Column21: TcxGridDBColumn; Label14: TLabel; C_Color: TEdit; Tv1Column22: TcxGridDBColumn; Tv1Column23: TcxGridDBColumn; Tv1Column24: TcxGridDBColumn; Tv1Column25: TcxGridDBColumn; Tv1Column26: TcxGridDBColumn; Tv1Column27: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure ConNoMChange(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBExportClick(Sender: TObject); procedure TBFindClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBAddClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure BCIOIDChange(Sender: TObject); procedure C_specChange(Sender: TObject); procedure FromCoNameChange(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); private canshu1, canshu2, canshu3: string; procedure InitGrid(); procedure setStatus(); { Private declarations } public FSTKName: string; { Public declarations } end; implementation uses U_DataLink, U_RTFun, U_LabelPrint, U_TradeFinishClothInEdit; {$R *.dfm} procedure Tfrmmlkc.setStatus(); begin end; procedure Tfrmmlkc.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caFree; end; procedure Tfrmmlkc.FormCreate(Sender: TObject); begin inherited; EndDate.DateTime := SGetServerDate(ADOQueryTemp); BegDate.DateTime := EndDate.DateTime - 30; canshu1 := Trim(self.fParameters1); canshu2 := Trim(self.fParameters2); canshu3 := Trim(self.fParameters3); end; procedure Tfrmmlkc.InitGrid(); begin try ADOQuerysub.DisableControls; with ADOQuerysub do begin Filtered := False; Close; //and isnull(C.C_Color,'''')=isnull(A.C_Color,'''') sql.Clear; sql.Add('select * from('); sql.Add(' select DISTINCT A.C_goods ,A.C_Color,A.STKName '); sql.Add(' ,ZPS=isnull((select count(B.mjxh) from WFB_MJJY B where B.BCIOID in (select BCIOID from BS_Cloth_IO C where C.C_goods=A.C_goods and isnull(C.C_Color,'''')=isnull(A.C_Color,'''')) and B.CKflag=''入库''),0)'); sql.Add(' + isnull((select sum(KCPS) from BS_Cloth_IO C where C.C_goods=A.C_goods and isnull(C.C_Color,'''')=isnull(A.C_Color,'''') and C.CHIOType=''整出''),0)'); sql.Add(' ,ZMS=isnull((select sum(B.MJLen) from WFB_MJJY B where B.BCIOID in (select BCIOID from BS_Cloth_IO C where C.C_goods=A.C_goods and isnull(C.C_Color,'''')=isnull(A.C_Color,'''')) and B.CKflag=''入库''),0)'); sql.Add(' + isnull((select sum(KCSL) from BS_Cloth_IO C where C.C_goods=A.C_goods and isnull(C.C_Color,'''')=isnull(A.C_Color,'''') and C.CHIOType=''整出''),0)'); sql.Add(' from BS_Cloth_IO A'); SQL.Add(')AA'); // SQL.Add('where ZPS>0'); SQL.Add('where STKName=''贸易待检布'''); // SQL.Add(' order by IOTime desc'); // showmessage(sql.text); Open; end; // SDofilter(ADOQuerysub, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQuerysub, CDS_sub); SInitCDSData(ADOQuerysub, CDS_sub); finally ADOQuerysub.EnableControls; end; // try // ADOQueryMain.DisableControls; // with ADOQueryMain do // begin // Filtered := False; // Close; // sql.Clear; // sql.Add('select * from('); // sql.Add(' select A.* '); // sql.Add(' ,KCROLL=(select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); // sql.Add(' ,KCMS=(select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); // sql.Add(' ,KCMZ=(select sum(B.MJMaoZ) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); // sql.Add(' from BS_Cloth_IO A'); // sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); // sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); // sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''); // SQL.Add(' and IOFlag=''入库'' '); // SQL.Add(')AA'); // SQL.Add('where KCROLL>0'); // SQL.Add(' order by IOTime desc'); //// showmessage(sql.text); // Open; // end; // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); // SCreateCDS(ADOQueryMain, CDS_Main); // SInitCDSData(ADOQueryMain, CDS_Main); // finally // ADOQueryMain.EnableControls; // end; end; procedure Tfrmmlkc.TBRafreshClick(Sender: TObject); begin // BegDate.SetFocus; InitGrid(); end; procedure Tfrmmlkc.ToolButton1Click(Sender: TObject); begin WriteCxGrid(Self.Caption, Tv1, '贸易汇总仓库'); WriteCxGrid(Self.Caption, Tv2, '贸易汇总仓库1'); end; procedure Tfrmmlkc.ToolButton2Click(Sender: TObject); var MBCIOID: string; begin if CDS_Main.IsEmpty then Exit; if CDS_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; MBCIOID := ''; CDS_Main.DisableControls; with CDS_Main do begin First; while CDS_Main.Locate('SSel', True, []) do begin MBCIOID := MBCIOID + ',' + QuotedStr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)); Edit; FieldByName('SSel').Value := False; Post; end; end; CDS_Main.EnableControls; try frmLabelPrint := TfrmLabelPrint.Create(Application); with frmLabelPrint do begin FLMType := 'TradeFinishClothInPrt1'; FFiltration1 := MBCIOID; if ShowModal = 1 then begin // Self.InitGrid(); end; end; finally frmLabelPrint.Free; end; end; procedure Tfrmmlkc.TV2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin // inherited; try ADOQueryMain.DisableControls; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; sql.Add('select AA.*'); sql.Add('FROM '); sql.Add('(SELECT DISTINCT isnull(C.BuyConNo,'''') as BuyConNo,A.*,C.CKTime ,isnull(C.IoType,'''') as IoType1 '); // sql.Add(',BuyConNo=(select DISTINCT isnull(BuyConNo,'''') from WFB_MJJY B where B.BCIOID=A.BCIOID and B.BuyConNo=C.BuyConNo) '); sql.Add(',KCROLL= isnull((select sum(KCPS) from BS_Cloth_IO B where B.BCIOID=A.BCIOID and B.CHIOType=''整出''),0) '); sql.Add(',KCMS= isnull((select sum(KCSL) from BS_Cloth_IO B where B.BCIOID=A.BCIOID and B.CHIOType=''整出''),0) '); sql.Add(',CKROLL= isnull((select sum(MJXH) from WFB_MJJY B where B.BCIOID=A.BCIOID and A.CHIOType=''整出'' and B.BuyConNo=C.BuyConNo and B.CKTime=C.CKTime and B.IoType=C.IoType),0) '); sql.Add(',CKMS=isnull((select sum(MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and A.CHIOType=''整出''and B.BuyConNo=C.BuyConNo and B.CKTime=C.CKTime and B.IoType=C.IoType),0) '); sql.Add('from BS_Cloth_IO A'); sql.Add('left JOIN WFB_MJJY C on A.BCIOID=C.BCIOID'); // sql.Add('where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); // sql.Add('and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add('where isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''); sql.Add('and IOFlag=''入库'' '); sql.Add('and CHIOType=''整出'' '); sql.Add('UNION alL'); sql.Add('select DISTINCT isnull(C.BuyConNo,'''') as BuyConNo,A.*,C.CKTime ,isnull(C.IoType,'''') as IoType1 '); // sql.Add(',BuyConNo=(select DISTINCT isnull(BuyConNo,'''') from WFB_MJJY B where B.BCIOID=A.BCIOID ) '); // sql.Add(',BuyConNo=(select DISTINCT isnull(B.BuyConNo,'''') from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.BuyConNo=C.BuyConNo ) '); sql.Add(',KCROLL=isnull((select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库''),0) '); sql.Add(',KCMS= isnull((select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'' ),0) '); sql.Add(',CKROLL= isnull((select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''出库'' and B.BuyConNo=C.BuyConNo and B.CKTime=C.CKTime and B.IoType=C.IoType),0) '); sql.Add(',CKMS= isnull((select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''出库'' and B.BuyConNo=C.BuyConNo and B.CKTime=C.CKTime and B.IoType=C.IoType),0 ) '); // sql.Add(',BuyConNo=(select DISTINCT isnull(B.BuyConNo,'''') from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.BuyConNo=C.BuyConNo ) '); // sql.Add(',KCROLL=(select count(B.mjxh) from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.CKflag=''入库'' and B.BuyConNo=C.BuyConNo) '); // sql.Add(',KCMS= (select sum(B.MJLen) from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.CKflag=''入库'' and B.BuyConNo=C.BuyConNo) '); // sql.Add(',CKROLL= (select count(B.mjxh) from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.CKflag=''出库'' and B.BuyConNo=C.BuyConNo ) '); // sql.Add(',CKMS= (select sum(B.MJLen) from WFB_MJJY B left JOIN WFB_MJJY C on B.BCIOID=C.BCIOID where B.BCIOID=A.BCIOID and B.CKflag=''出库'' and B.BuyConNo=C.BuyConNo) '); sql.Add('from BS_Cloth_IO A'); sql.Add('left JOIN WFB_MJJY C on A.BCIOID=C.BCIOID'); // sql.Add('where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); // sql.Add('and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add('where isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''); sql.Add('and IOFlag=''入库'' '); sql.Add('and CHIOType=''明细'''); sql.Add(')AA'); SQL.Add('where isnull(AA.C_goods,'''')=' + quotedstr(Trim(CDS_sub.fieldbyname('C_goods').AsString))); SQL.Add('and isnull(AA.C_Color,'''')=' + quotedstr(Trim(CDS_sub.fieldbyname('C_Color').AsString))); SQL.Add('order by IOTime desc'); // showmessage(sql.text); // sql.Add('select * from('); // sql.Add(' select A.* '); // sql.Add(' , BuyConNo=(select DISTINCT isnull(BuyConNo,'''') from WFB_MJJY B where B.BCIOID=A.BCIOID and B.BuyConNo=C.BuyConNo) '); //// sql.Add(' ,KCROLL=(select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); //// sql.Add(' ,KCMS=(select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); //// sql.Add(' ,KCMZ=(select sum(B.MJMaoZ) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') '); // sql.Add(' ,KCROLL=case when CHIOType=''整出'' then (select sum(KCPS) from BS_Cloth_IO B where B.BCIOID=A.BCIOID and B.CHIOType=''整出'') else (select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') end '); // sql.Add(' ,KCMS=case when CHIOType=''整出'' then (select sum(KCSL) from BS_Cloth_IO B where B.BCIOID=A.BCIOID and B.CHIOType=''整出'') else (select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''入库'') end '); // sql.Add(' ,CKROLL=case when CHIOType=''整出'' then (select MJXH from WFB_MJJY B where B.BCIOID=A.BCIOID and A.CHIOType=''整出'' and B.BuyConNo=C.BuyConNo ) else (select count(B.mjxh) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''出库'') end '); // sql.Add(' ,CKMS=case when CHIOType=''整出'' then (select MJLen from WFB_MJJY B where B.BCIOID=A.BCIOID and A.CHIOType=''整出''and B.BuyConNo=C.BuyConNo) else (select sum(B.MJLen) from WFB_MJJY B where B.BCIOID=A.BCIOID and B.CKflag=''出库'') end '); // sql.Add(' from BS_Cloth_IO A'); // sql.Add(' INNER JOIN WFB_MJJY C on A.BCIOID=C.BCIOID'); // sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); // sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); // sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''); // SQL.Add(' and IOFlag=''入库'' '); // SQL.Add(')AA'); //// SQL.Add('where KCROLL>0'); // SQL.Add('where isnull(AA.C_goods,'''')=' + quotedstr(Trim(CDS_sub.fieldbyname('C_goods').AsString))); // SQL.Add('and isnull(AA.C_Color,'''')=' + quotedstr(Trim(CDS_sub.fieldbyname('C_Color').AsString))); // SQL.Add(' order by IOTime desc'); // showmessage(sql.text); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, CDS_Main); SInitCDSData(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; end; procedure Tfrmmlkc.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then begin SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); end; end; procedure Tfrmmlkc.TBCloseClick(Sender: TObject); begin Close; end; procedure Tfrmmlkc.FormShow(Sender: TObject); begin inherited; ReadCxGrid(Self.Caption, Tv1, '贸易汇总仓库'); ReadCxGrid(Self.Caption, Tv2, '贸易汇总仓库1'); setStatus(); InitGrid(); end; procedure Tfrmmlkc.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; TcxGridToExcel(FSTKName + '入库列表', cxGrid1); end; procedure Tfrmmlkc.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active then begin SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQueryMain, CDS_Main); SInitCDSData(ADOQueryMain, CDS_Main); end; end; procedure Tfrmmlkc.N1Click(Sender: TObject); begin SelOKNo(CDS_Main, True); end; procedure Tfrmmlkc.N2Click(Sender: TObject); begin SelOKNo(CDS_Main, False); end; procedure Tfrmmlkc.TBDelClick(Sender: TObject); var MBCIOID: string; begin if CDS_Main.IsEmpty then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then Exit; if CDS_Main.IsEmpty then Exit; if CDS_Main.Locate('SSel', True, []) = False then begin Application.MessageBox('没有选择数据!', '提示', 0); Exit; end; MBCIOID := ''; CDS_Main.DisableControls; with CDS_Main do begin First; while CDS_Main.Locate('SSel', True, []) do begin MBCIOID := MBCIOID + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString); CDS_Main.Delete; end; end; CDS_Main.EnableControls; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('exec P_Fin_Flow_Judge '); Sql.Add(' @FFIDS=' + quotedstr(MBCIOID)); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); Open; end; if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then begin Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0); exit; end; try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; Sql.Clear; sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('values(''贸易待检布入库'' '); sql.Add(',' + quotedstr(MBCIOID)); sql.Add(',''删除'' '); sql.Add(',' + quotedstr(DName)); sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(MBCIOID)); sql.Add(') '); Sql.Add('exec P_BS_Cloth_In_Del '); Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID)); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); Open; end; if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); ADOQueryCmd.Connection.CommitTrans; // CDS_Main.Delete; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); InitGrid(); end; end; procedure Tfrmmlkc.TBAddClick(Sender: TObject); begin try frmTradeFinishClothInEdit := TfrmTradeFinishClothInEdit.Create(Application); with frmTradeFinishClothInEdit do begin FBCId := ''; frmTradeFinishClothInEdit.canshu3 := Trim(Self.canshu3); FSTKName := Self.FSTKName; if ShowModal = 1 then begin Self.InitGrid(); end; end; finally frmTradeFinishClothInEdit.Free; end; end; procedure Tfrmmlkc.TBEditClick(Sender: TObject); begin if CDS_Main.IsEmpty then Exit; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('exec P_Fin_Flow_Judge '); Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); Open; end; if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then begin Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0); exit; end; with ADOQueryTemp do begin Close; Sql.Clear; Sql.Add('exec P_BS_Cloth_In_Edit '); Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); Open; end; if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then begin Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0); exit; end; try frmTradeFinishClothInEdit := TfrmTradeFinishClothInEdit.Create(Application); with frmTradeFinishClothInEdit do begin FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString); TBDel.Visible := False; TBAdd.Visible := False; FSTKName := Self.FSTKName; if ShowModal = 1 then begin Self.InitGrid(); end; end; finally frmTradeFinishClothInEdit.Free; end; end; procedure Tfrmmlkc.BCIOIDChange(Sender: TObject); begin if Length(Trim(BCIOID.Text)) < 4 then begin if Trim(BCIOID.Text) <> '' then Exit; end; TBFind.Click; end; procedure Tfrmmlkc.C_specChange(Sender: TObject); begin TBFind.Click; end; procedure Tfrmmlkc.FromCoNameChange(Sender: TObject); begin // TBFind.Click; if ADOQuerysub.Active then begin SDofilter(ADOQuerysub, SGetFilters(Panel1, 1, 2)); SCreateCDS(ADOQuerysub, CDS_sub); SInitCDSData(ADOQuerysub, CDS_sub); end; end; procedure Tfrmmlkc.cxTabControl1Change(Sender: TObject); begin InitGrid(); end; end.