unit U_MLManage_LRRS_BF; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, StdCtrls, ExtCtrls, BtnEdit, cxButtonEdit,jpeg,U_SLT,Math, Menus, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset; type TfrmMLManage_LRRS_BF = class(TForm) CDS_Sub: TClientDataSet; ADOQueryMain: TADOQuery; DataSource2: TDataSource; ADOQueryCmd: TADOQuery; ADOQueryTemp: TADOQuery; cxGridPopupMenu1: TcxGridPopupMenu; Panel1: TPanel; cxGridPopupMenu2: TcxGridPopupMenu; Order_GX: TClientDataSet; DataSource1: TDataSource; Panel4: TPanel; ML_Col: TClientDataSet; DataSource3: TDataSource; cxGridPopupMenu3: TcxGridPopupMenu; GSNo: TLabel; MLNo: TLabel; Ord_HX: TClientDataSet; DataSource4: TDataSource; cxGridPopupMenu4: TcxGridPopupMenu; GYName: TLabel; Panel9: TPanel; Label2: TLabel; MLName: TEdit; MLMF: TEdit; MLKZ: TEdit; GYLX: TLabel; GYLXName: TLabel; Label1: TLabel; Label3: TLabel; Label4: TLabel; Label9: TLabel; Label10: TLabel; Label8: TLabel; Button2: TButton; MLCF: TEdit; Button1: TButton; ScrollBox2: TScrollBox; adoqueryPicture: TADOQuery; Panel7: TPanel; Panel3: TPanel; Label11: TLabel; BPCode: TLabel; BPName: TLabel; BPJS: TLabel; BPMF: TLabel; BPKZ: TLabel; BPMiDu: TLabel; BPCF: TLabel; CPMiDu: TLabel; ToolBar3: TToolBar; ToolButton2: TToolButton; ToolButton3: TToolButton; Panel5: TPanel; Label5: TLabel; cxGrid1: TcxGrid; TV1: TcxGridDBTableView; V1Ssel: TcxGridDBColumn; V1BPCode: TcxGridDBColumn; V1BPName: TcxGridDBColumn; V1BPMF: TcxGridDBColumn; V1BPKZ: TcxGridDBColumn; V1BPJS: TcxGridDBColumn; v1BPMiDu: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; Panel2: TPanel; ToolBar2: TToolBar; TAdd: TToolButton; ToolButton5: TToolButton; Panel6: TPanel; Label6: TLabel; cxGrid2: TcxGrid; TV2: TcxGridDBTableView; V2XHNo: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn; TVBPName: TcxGridDBColumn; V2BPMF: TcxGridDBColumn; V2BPKZ: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; Panel8: TPanel; ScrollBox1: TScrollBox; Button4: TButton; RMDB_Main: TRMDBDataSet; RM1: TRMGridReport; ADOQueryPrint: TADOQuery; CDS_Print: TClientDataSet; Panel42: TPanel; Label79: TLabel; Label80: TLabel; Panel43: TPanel; Label81: TLabel; Label82: TLabel; Panel44: TPanel; Label83: TLabel; Label84: TLabel; Panel45: TPanel; Label85: TLabel; Label86: TLabel; Panel46: TPanel; Label87: TLabel; Label88: TLabel; Panel47: TPanel; Label89: TLabel; Label90: TLabel; Panel48: TPanel; Label91: TLabel; Label92: TLabel; Panel49: TPanel; Label93: TLabel; Label94: TLabel; Panel50: TPanel; Label95: TLabel; Label96: TLabel; Panel51: TPanel; Label97: TLabel; Label98: TLabel; Panel52: TPanel; Label99: TLabel; Label100: TLabel; Panel53: TPanel; Label101: TLabel; Label102: TLabel; Panel54: TPanel; Label103: TLabel; Label104: TLabel; Panel55: TPanel; Label105: TLabel; Label106: TLabel; Panel56: TPanel; Label107: TLabel; Label108: TLabel; Panel57: TPanel; Label109: TLabel; Label110: TLabel; Panel58: TPanel; Label111: TLabel; Label112: TLabel; Panel59: TPanel; Label113: TLabel; Label114: TLabel; Panel60: TPanel; Label115: TLabel; Label116: TLabel; Panel61: TPanel; Label117: TLabel; Label118: TLabel; Panel62: TPanel; Label119: TLabel; Label120: TLabel; Panel63: TPanel; Label121: TLabel; Label122: TLabel; Panel64: TPanel; Label123: TLabel; Label124: TLabel; Panel65: TPanel; Label125: TLabel; Label126: TLabel; Panel66: TPanel; Label127: TLabel; Label128: TLabel; Panel67: TPanel; Label129: TLabel; Label130: TLabel; Panel68: TPanel; Label131: TLabel; Label132: TLabel; Panel69: TPanel; Label133: TLabel; Label134: TLabel; Panel70: TPanel; Label135: TLabel; Label136: TLabel; Panel71: TPanel; Label137: TLabel; Label138: TLabel; Panel72: TPanel; Label139: TLabel; Label140: TLabel; Panel73: TPanel; Label141: TLabel; Label142: TLabel; Panel74: TPanel; Label143: TLabel; Label144: TLabel; Panel75: TPanel; Label145: TLabel; Label146: TLabel; Panel76: TPanel; Label147: TLabel; Label148: TLabel; Panel77: TPanel; Label149: TLabel; Label150: TLabel; Panel78: TPanel; Label151: TLabel; Label152: TLabel; Panel79: TPanel; Label153: TLabel; Label154: TLabel; Panel80: TPanel; Label155: TLabel; Label156: TLabel; Panel81: TPanel; Label157: TLabel; Label158: TLabel; procedure FormShow(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject); procedure TAddClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure MLNameChange(Sender: TObject); procedure MLMFChange(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Fint:Integer; procedure InitSubGrid(); function SaveData():Boolean; procedure BHCZhu(); procedure SavePrint(var CP,TP:string); { Private declarations } public FCYID,FCYCode,FCPID,FCPNO,FBPID,FGYName,FML,FGYLX,FGSNo,FHXBPID,FGSName,FSKID:String; FGYLXName,FBPIDSH:string; viewFlag:Boolean; procedure initimageSH(); procedure initimage(); procedure imagePL(FFF:Integer); { Public declarations } end; var frmMLManage_LRRS_BF: TfrmMLManage_LRRS_BF; Mach1: array of TfrmSlt; Mach: array of TfrmSlt; implementation uses U_DataLink,U_Fun,U_BPZdy_LR,U_BPZdy_SH,U_MLMange_ADDCX, U_BPZdy_HXK,U_BPZdy_LRPB,U_BPZdy_LRGX, U_BPZdy_PanelCX; {$R *.dfm} procedure TfrmMLManage_LRRS_BF.SavePrint(var CP,TP:string); var maxno,MaxSub:string; fPrintFile,Txt,fImagePath:string; Porderno:string; i,j:Integer; Moudle: THandle; Makebar:TMakebar; Mixtext:TMixtext; begin with ADOQueryCmd do begin close; sql.Clear; SQL.Add('select * from BP_DY '); sql.Add('where MLID='''+trim(CP)+''''); sql.Add(' and TFID='''+trim(TP)+''''); Open; end; if ADOQueryCmd.IsEmpty then begin if GetLSNo(ADOQueryTemp,maxno,'DY','BP_DY',3,1)=False then begin Application.MessageBox('取最大号失败!','提示',0); Exit; end; end else begin maxno:=Trim(ADOQueryCmd.fieldbyname('DYID').AsString); end; with ADOQueryCmd do begin if IsEmpty then begin Append; FieldByName('filler').Value:=Trim(DName); FieldByName('DYID').Value:=Trim(maxno); end else begin edit; FieldByName('laster').Value:=Trim(DName); FieldByName('lasttime').Value:=SGetServerDate(ADOQueryTemp); end; FieldByName('MLID').Value:=Trim(CP); FieldByName('TFID').Value:=Trim(TP); post; end; //////////记录 if GetLSNo(ADOQueryTemp,MaxSub,'JL','BP_DY_JL',3,1)=False then begin Application.MessageBox('取最大号失败!','提示',0); Exit; end; with ADOQueryCmd do begin close; sql.Clear; SQL.Add('select * from BP_DY_JL '); sql.Add('where 1=2'); Open; end; with ADOQueryCmd do begin Append; FieldByName('filler').Value:=Trim(DName); FieldByName('JLID').Value:=Trim(MaxSub); FieldByName('DYID').Value:=Trim(maxno); FieldByName('MLID').Value:=Trim(CP); FieldByName('TFID').Value:=Trim(TP); post; end; //打印 fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\单面料标签染色.rmf'; with ADOQueryPrint do begin Close; sql.Clear; sql.Add('select A.*,B.*,C.DYID from BP_DY C '); sql.Add('inner join ML_Manage A on A.MLID=C.MLID '); sql.Add('inner join XD_File D on D.XFID=C.TFID '); sql.Add('inner join SH_Base B on B.WBID=D.CYID '); sql.Add(' Where C.DYID='''+Trim(maxno)+''''); Open; end; SCreateCDS20(ADOQueryPrint,CDS_Print); SInitCDSData20(ADOQueryPrint,CDS_Print); try Moudle:=LoadLibrary('MakeQRBarcode.dll'); @Makebar:=GetProcAddress(Moudle,'Make'); @Mixtext:=GetProcAddress(Moudle,'MixText'); Txt:=Trim(CDS_Print.fieldbyname('DYID').AsString); fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp'; if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); if FileExists(fImagePath) then DeleteFile(fImagePath); Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); except application.MessageBox('条形码生成失败！','提示信息',MB_ICONERROR); exit; end; if FileExists(fPrintFile) then begin RMVariables['QRBARCODE']:=fImagePath; RM1.LoadFromFile(fPrintFile); //RM1.ShowReport; RM1.PrintReport; end else begin Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\单面料标签染色.rmf'),'提示',0); exit; end; end; procedure TfrmMLManage_LRRS_BF.InitSubGrid(); begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; SQL.Clear; SQL.Add('select * from ML_Manage where MLID='''+trim(FCYID)+''''); Open; end; if ADOQueryMain.IsEmpty=false then begin GSNo.Caption:=Trim(ADOQueryMain.FieldByName('GSNo').asstring); GYName.Caption:=Trim(ADOQueryMain.FieldByName('GYName').asstring); MLNo.Caption:=Trim(ADOQueryMain.FieldByName('MLNo').asstring); GYLX.Caption:=Trim(ADOQueryMain.FieldByName('GYLX').asstring); GYLXName.Caption:=Trim(ADOQueryMain.FieldByName('GYLXName').asstring); //MLDLNo.Caption:=Trim(ADOQueryMain.FieldByName('MLDLNo').asstring); SCSHDataNew(ADOQueryMain,Panel9,2); FBPID:=Trim(ADOQueryMain.FieldByName('MBPID').Value); FSKID:=Trim(ADOQueryMain.FieldByName('MLDLNo').AsString); end; with ADOQueryMain do begin Close; SQL.Clear; sql.Add(' select A.*,isnull(B.BPCode,C.MLNo) BPCode,isnull(B.BPName,C.MLName) BPName'); sql.Add(' ,isnull(B.BPMF,C.MLMF) BPMF,isnull(B.BPKZ,C.MLKZ) BPKZ'); sql.Add(',B.BPJS,B.BPWS,B.BPMiDu,B.BPUnit,B.BPCF,B.CPMiDu'); SQL.Add(' from ML_Manage_PB A left join BP_ZDY B on B.BPID=A.BPID '); sql.Add(' left join ML_Manage C on C.MLID=A.BPID'); sql.Add('where A.MLID='''+Trim(FCYID)+''''); Open; end; SCreateCDS20(ADOQueryMain,CDS_Sub); SInitCDSData20(ADOQueryMain,CDS_Sub); BPCode.caption:=Trim(CDS_Sub.fieldbyname('BPCode').AsString); BPName.caption:=Trim(CDS_Sub.fieldbyname('BPName').AsString); BPMF.Caption:=Trim(CDS_Sub.fieldbyname('BPMF').AsString); BPKZ.Caption:=Trim(CDS_Sub.fieldbyname('BPKZ').AsString); BPCF.Caption:=Trim(CDS_Sub.fieldbyname('BPCF').AsString); BPJS.Caption:=Trim(CDS_Sub.fieldbyname('BPJS').AsString); BPMiDu.Caption:=Trim(CDS_Sub.fieldbyname('BPMiDu').AsString); CPMiDu.Caption:=Trim(CDS_Sub.fieldbyname('CPMiDu').AsString); with ADOQueryMain do begin Close; SQL.Clear; sql.Add(' select A.*,B.* from ML_Manage_GX A '); SQL.Add('inner join BP_ZDY B on B.BPID=A.BPID '); sql.Add('where A.MLID='''+Trim(FCYID)+''''); Open; end; SCreateCDS20(ADOQueryMain,Order_GX); SInitCDSData20(ADOQueryMain,Order_GX); if FCYID='' then begin with ADOQueryMain do begin Close; SQL.Clear; sql.Add('select * from BP_ZDY '); sql.Add('where BPName='''+Trim(FGYName)+''' and BPflag=''GXName'''); Open; end; MLNo.Caption:=ADOQueryMain.fieldbyname('BPCode').AsString; FML:=ADOQueryMain.fieldbyname('BPCode').AsString; end else begin with ADOQueryMain do begin Close; SQL.Clear; sql.Add('select * from BP_ZDY '); sql.Add('where BPName='''+Trim(FGYName)+''' and BPflag=''GXName'''); Open; end; FML:=ADOQueryMain.fieldbyname('BPCode').AsString; end; finally ADOQueryMain.EnableControls; end; end; procedure TfrmMLManage_LRRS_BF.FormShow(Sender: TObject); var fsj:String; begin ReadCxGrid('面料管理1',Tv1,'样品管理'); ReadCxGrid('面料管理2',Tv2,'样品管理'); InitSubGrid(); initimageSH(); initimage(); Button1.Caption:='保存'; if viewFlag=True then begin ToolButton2.Visible:=False; ToolButton3.Visible:=False; TAdd.Visible:=False; ToolButton5.Visible:=False; Button1.Visible:=False; end; end; function TfrmMLManage_LRRS_BF.SaveData():Boolean; var maxId,maxno:String; begin try ADOQueryCmd.Connection.BeginTrans; if FCYID='' then begin if GetLSNo(ADOQueryCmd,maxno,'ML','ML_Manage',3,1)=False then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('取最大号失败!','提示',0); Exit; end; end else begin maxno:=Trim(FCYID); end; with ADOQueryCmd do begin Close; sql.Clear; SQL.Add('select * from ML_Manage where MLID='''+Trim(FCYID)+''''); Open; end; with ADOQueryCmd do begin if isempty then begin Append; fieldbyname('GYType').Value:=Trim(FGYName); FieldByName('GYTypeJC').Value:=Trim(FML); end else begin Edit; end; //ShowMessage(FBPID); FieldByName('MLID').Value:=Trim(maxno); FieldByName('MBPID').Value:=Trim(FBPID); FieldByName('MLType').Value:='单面料'; FieldByName('GSNo').Value:=Trim(GSNo.Caption); FieldByName('GYName').Value:=Trim(GYName.Caption); FieldByName('MLNo').Value:=Trim(MLNo.Caption); FieldByName('GYLX').Value:=Trim(GYLX.Caption); FieldByName('GYLXName').Value:=Trim(GYLXName.Caption); //SSetsaveSqlNew(ADOQueryCmd,'ML_Manage',panel9,2); RTSetsavedata(ADOQueryCmd,'ML_Manage',panel9,2); FieldByName('MLJWMD').Value:=Trim(CPMiDu.Caption); FieldByName('MLDLNo').Value:=Trim(FSKID); Post; end; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('select * from ML_Manage where GSNo='''+Trim(GSNo.Caption)+''''); 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 ML_Manage where MLNo='''+Trim(MLNo.Caption)+''''); sql.add(' and GYLX='''+trim(GYLX.Caption)+''''); Open; end; if ADOQueryCmd.RecordCount>1 then begin ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('产品编号+工艺路线重复!','提示',0); Exit; end; FCYID:=Trim(maxno); CDS_Sub.DisableControls; with CDS_Sub do begin First; while not Eof do begin if Trim(CDS_Sub.fieldbyname('MPID').AsString)='' then begin if GetLSNo(ADOQueryCmd,maxId,'MP','ML_Manage_PB',4,1)=False then begin Result:=False; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('区最大号失败！','提示',0); Exit; end; end else begin maxId:=Trim(CDS_Sub.fieldbyname('MPID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from ML_Manage_PB where MPID='''+Trim(maxId)+''''); Open; end; with ADOQueryCmd do begin if isempty then begin Append; end else begin Edit; end; FieldByName('MPID').Value:=Trim(maxId); FieldByName('MLID').Value:=Trim(FCYID); FieldByName('BPID').Value:=Trim(CDS_Sub.fieldbyname('BPID').AsString); Post; end; Next; end; end; CDS_Sub.EnableControls; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('delete ML_Manage_GX where MLID='''+Trim(FCYID)+''''); ExecSQL; end; Order_GX.DisableControls; with Order_GX do begin First; while not Eof do begin if Trim(Order_GX.fieldbyname('GXID').AsString)='' then begin if GetLSNo(ADOQueryCmd,maxId,'GX','ML_Manage_GX',4,1)=False then begin Result:=False; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('区最大号失败！','提示',0); Exit; end; end else begin maxId:=Trim(Order_GX.fieldbyname('GXID').AsString); end; with ADOQueryCmd do begin Close; SQL.Clear; sql.Add('select * from ML_Manage_GX where GXID='''+Trim(maxId)+''''); Open; end; with ADOQueryCmd do begin if isempty then begin Append; end else begin Edit; end; FieldByName('GXID').Value:=Trim(maxId); FieldByName('MLID').Value:=Trim(FCYID); fieldbyname('XHNo').Value:=Order_GX.fieldbyname('XHNo').Value; FieldByName('BPID').Value:=Trim(Order_GX.fieldbyname('BPID').AsString); Post; end; Next; end; end; Order_GX.EnableControls; with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update BP_ZDY Set BPCF='''+Trim(MLCF.Text)+''''); sql.Add(' where isnull(BPCode,'''')='''+Trim(BPCode.Caption)+''''); sql.Add(' and isnull(BPType,'''')=''坯布'' '); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; Result:=True; except; Result:=True; ADOQueryCmd.Connection.RollbackTrans; Application.MessageBox('保存失败!','提示',0); end; end; procedure TfrmMLManage_LRRS_BF.BHCZhu(); var FBH,FCP,FLX,FLL:string; FBHName,FLXName,FLLName:string; begin CDS_Sub.DisableControls; with CDS_Sub do begin First; while not eof do begin FBH:=FBH+trim(CDS_Sub.fieldbyname('BPCode').AsString); FBHName:=FBHName+trim(CDS_Sub.fieldbyname('BPName').AsString); Next; end; end; CDS_Sub.EnableControls; FCP:=FML+FBH; Order_GX.DisableControls; with Order_GX do begin First; while not eof do begin FLL:=FLL+trim(Order_GX.fieldbyname('BPMF').AsString); FLLName:=FLLName+trim(Order_GX.fieldbyname('BPKZ').AsString); if FLX='' then FLX:=trim(Order_GX.fieldbyname('BPMF').AsString) else FLX:=FLX+'+'+trim(Order_GX.fieldbyname('BPMF').AsString); if FLXName='' then FLXName:=trim(Order_GX.fieldbyname('BPKZ').AsString) else FLXName:=FLXName+'+'+trim(Order_GX.fieldbyname('BPKZ').AsString); Next; end; end; Order_GX.EnableControls; GSNo.Caption:=FBH+Trim(FLL); GYName.Caption:=FBHName+Trim(FLLName); MLNo.Caption:=Trim(FCP); if FLX<>'' then begin if FGYLX='' then GYLX.Caption:=Trim(FLX) else GYLX.Caption:=FGYLX+'+'+Trim(FLX); end else begin GYLX.Caption:=FGYLX; end; if FLXName<>'' then begin if FGYLXName='' then GYLXName.Caption:=Trim(FLXName) else GYLXName.Caption:=FGYLXName+'+'+Trim(FLXName); end else begin GYLXName.Caption:=FGYLXName; end; end; procedure TfrmMLManage_LRRS_BF.initimageSH(); var i,j,p,x:integer; jpg:TJpegImage; myStream: TADOBlobStream; FZGao:string; begin j:=length(Mach1); if j>0 then begin for i:=0 to j-1 do begin Mach1[i].free; end; //Finalize(Mach1); end; SetLength(Mach1, 0); IF Self.FBPID='' then exit; try with adoqueryPicture do begin close; sql.Clear; sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.IFXS,B.FileName,C.*,D.* from BP_ZDY C '); sql.Add(' inner join XD_File B on C.SKID =B.SKID'); SQL.Add(' inner join TP_File A on B.XFID=A.TFID '); sql.Add(' left join SH_Base D on A.WBID=D.WBID '); sql.Add(' where C.BPID='+quotedstr(trim(Self.FBPID))); sql.Add(' order by D.ColorNo'); //ShowMessage(sql.Text); open; end; j:=adoqueryPicture.RecordCount; if j<1 then exit; FSKID:=Trim(adoqueryPicture.Fieldbyname('SKID').AsString); adoqueryPicture.DisableControls; adoqueryPicture.First; SetLength(Mach1, j); with adoqueryPicture do begin First; i:=0; x:=0; p:=0; while not eof do begin jpg:=TJpegImage.Create(); myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread); jpg.LoadFromStream(myStream); if i<3*(p+1) then begin end else begin p:=p+1; end; Mach1[i] := TfrmSLT.Create(Self); Mach1[i].Name:=trim(adoqueryPicture.fieldbyname('TFID').AsString); Mach1[i].Parent := ScrollBox2; Mach1[I].Left:=0+(x-3*p)*185; Mach1[I].Top:=p*143; Mach1[i].Formid:='1'; if adoqueryPicture.FieldByName('IFXS').AsInteger<>1 then begin Mach1[i].Visible:=false; end; if adoqueryPicture.fieldbyname('SHID').AsString='' then begin Mach1[I].ColorNo.Text:=inttostr(i+1); Mach1[i].WBID.Text:=trim(adoqueryPicture.fieldbyname('WBID').AsString); end else begin SCSHDataNew(adoqueryPicture,Mach1[I].Panel1,2); end; Mach1[I].Visible:=false; Mach1[I].N1.Visible:=false; Mach1[I].N2.Visible:=false; Mach1[I].SH.Caption:=Trim(adoqueryPicture.fieldbyname('ColorNo').AsString); Mach1[I].ZW.Caption:=Trim(adoqueryPicture.fieldbyname('ColorName').AsString); Mach1[I].YW.Caption:=Trim(adoqueryPicture.fieldbyname('ColorNameEng').AsString); if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then begin Mach1[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg); end; i:=i+1; x:=x+1; Next; end; end; adoqueryPicture.EnableControls; finally jpg.free; //application.ProcessMessages; end; end; procedure TfrmMLManage_LRRS_BF.imagePL(FFF:Integer); var i,j,x,p,x1,p1:Integer; begin x:=0; p:=0; x1:=0; p1:=0; ScrollBox1.Refresh; ScrollBox2.Refresh; if FFF=1 then begin with ScrollBox1 do begin for i:=0 to ScrollBox1.ControlCount-1 do begin if Controls[i].Visible=True then begin if Controls[i] is TfrmSLT then begin if x<4*(p+1) then begin end else begin p:=p+1; end; TfrmSLT(Controls[i]).Left:=0+(x-4*p)*185; TfrmSLT(Controls[i]).Top:=p*143; x:=x+1; end; end else begin with ScrollBox2 do begin Controls[i].Visible:=True; if Controls[i] is TfrmSLT then begin if x1<3*(p1+1) then begin end else begin p1:=p1+1; end; TfrmSLT(Controls[i]).Left:=0+(x1-3*p1)*185; TfrmSLT(Controls[i]).Top:=p1*143; x1:=x1+1; end; end; end; end; end; end; if FFF=2 then BEGIN x:=0; p:=0; x1:=0; p1:=0; with ScrollBox2 do begin for i:=0 to ScrollBox2.ControlCount-1 do begin if Controls[i].Visible=True then begin if Controls[i] is TfrmSLT then begin if x1<3*(p1+1) then begin end else begin p1:=p1+1; end; TfrmSLT(Controls[i]).Left:=0+(x1-3*p1)*185; TfrmSLT(Controls[i]).Top:=p1*143; x1:=x1+1; end; end else begin with ScrollBox1 do begin Controls[i].Visible:=True; if Controls[i] is TfrmSLT then begin if x<4*(p+1) then begin end else begin p:=p+1; end; TfrmSLT(Controls[i]).Left:=0+(x-4*p)*185; TfrmSLT(Controls[i]).Top:=p*143; x:=x+1; end; end; end; end; end; end; end; procedure TfrmMLManage_LRRS_BF.initimage(); var i,j,p,x:integer; jpg:TJpegImage; myStream: TADOBlobStream; FZGao:string; begin j:=length(Mach); if j>0 then begin for i:=0 to j-1 do begin Mach[i].free; end; //Finalize(Mach); end; SetLength(Mach, 0); IF Self.FBPID='' then exit; try with adoqueryPicture do begin close; sql.Clear; sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName,C.*,D.* from BP_ZDY C '); sql.Add(' inner join XD_File B on C.SKID =B.SKID'); SQL.Add(' inner join TP_File A on B.XFID=A.TFID '); sql.Add(' left join SH_Base D on A.WBID=D.WBID '); sql.Add(' where C.BPID='+quotedstr(trim(Self.FBPID))); sql.Add(' order by D.ColorNo'); //ShowMessage(sql.Text); open; end; j:=adoqueryPicture.RecordCount; if j<1 then exit; FSKID:=Trim(adoqueryPicture.Fieldbyname('SKID').AsString); adoqueryPicture.DisableControls; adoqueryPicture.First; SetLength(Mach, j); with adoqueryPicture do begin First; i:=0; x:=0; p:=0; while not eof do begin jpg:=TJpegImage.Create(); myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread); jpg.LoadFromStream(myStream); if i<4*(p+1) then begin end else begin p:=p+1; end; Mach[i] := TfrmSLT.Create(Self); Mach[i].Name:=trim(adoqueryPicture.fieldbyname('TFID').AsString)+'1'; Mach[i].FXFID:=trim(adoqueryPicture.fieldbyname('TFID').AsString); Mach[i].Formid:='1'; Mach[i].Parent := ScrollBox1; Mach[I].Left:=0+(x-4*p)*185; Mach[I].Top:=p*143; if adoqueryPicture.fieldbyname('SHID').AsString='' then begin Mach[I].ColorNo.Text:=inttostr(i+1); Mach[i].WBID.Text:=trim(adoqueryPicture.fieldbyname('WBID').AsString); end else begin SCSHDataNew(adoqueryPicture,Mach[I].Panel1,2); end; Mach[I].N1.Visible:=false; Mach[I].N2.Visible:=false; Mach[I].SH.Caption:=Trim(adoqueryPicture.fieldbyname('ColorNo').AsString); Mach[I].ZW.Caption:=Trim(adoqueryPicture.fieldbyname('ColorName').AsString); Mach[I].YW.Caption:=Trim(adoqueryPicture.fieldbyname('ColorNameEng').AsString); if triM(adoqueryPicture.fieldbyname('TFID').AsString)<>'' then begin Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg); end; i:=i+1; x:=x+1; Next; end; end; adoqueryPicture.EnableControls; finally jpg.free; //application.ProcessMessages; end; end; procedure TfrmMLManage_LRRS_BF.ToolButton2Click(Sender: TObject); begin if CDS_Sub.IsEmpty=false then begin CDS_Sub.Delete; //Application.MessageBox('已存在坯布信息','提示'); // exit; end; frmBPZDY_LRPB:=TfrmBPZDY_LRPB.create(self); with frmBPZDY_LRPB do begin flag:='PBName'; flagName:='坯布'; ViewFlag:=true; Panel4.Align:=alClient; ToolBar3.Visible:=false; Button1.Visible:=False; if ShowModal=1 then begin with CDS_Sub do begin append; FieldByName('BPCode').Value:=Trim(ClientDataSet1.fieldbyname('BPCode').AsString); FieldByName('BPID').Value:=Trim(ClientDataSet1.fieldbyname('BPID').AsString); FieldByName('BPName').Value:=Trim(ClientDataSet1.fieldbyname('BPName').AsString); FieldByName('BPMF').Value:=Trim(ClientDataSet1.fieldbyname('BPMF').AsString); FieldByName('BPKZ').Value:=Trim(ClientDataSet1.fieldbyname('BPKZ').AsString); FieldByName('BPCF').Value:=Trim(ClientDataSet1.fieldbyname('BPCF').AsString); FieldByName('BPJS').Value:=Trim(ClientDataSet1.fieldbyname('BPJS').AsString); FieldByName('BPWS').Value:=Trim(ClientDataSet1.fieldbyname('BPWS').AsString); FieldByName('BPMiDu').Value:=Trim(ClientDataSet1.fieldbyname('BPMiDu').AsString); FieldByName('CPMiDu').Value:=Trim(ClientDataSet1.fieldbyname('CPMiDu').AsString); FieldByName('SKID').Value:=trim(ClientDataSet1.fieldbyname('SKID').AsString); post; end; self.BPCode.caption:=Trim(ClientDataSet1.fieldbyname('BPCode').AsString); Self.BPName.caption:=Trim(ClientDataSet1.fieldbyname('BPName').AsString); Self.MLName.Text:=Trim(ClientDataSet1.fieldbyname('BPName').AsString); Self.MLCF.Text:=Trim(ClientDataSet1.fieldbyname('BPCF').AsString); Self.BPMF.Caption:=Trim(ClientDataSet1.fieldbyname('BPMF').AsString); Self.BPKZ.Caption:=Trim(ClientDataSet1.fieldbyname('BPKZ').AsString); Self.BPCF.Caption:=Trim(ClientDataSet1.fieldbyname('BPCF').AsString); Self.BPJS.Caption:=Trim(ClientDataSet1.fieldbyname('BPJS').AsString); Self.BPMiDu.Caption:=Trim(ClientDataSet1.fieldbyname('BPMiDu').AsString); Self.CPMiDu.Caption:=Trim(ClientDataSet1.fieldbyname('CPMiDu').AsString); Self.FBPID:=Trim(ClientDataSet1.fieldbyname('BPID').AsString); self.FBPIDSH:=Trim(ClientDataSet1.fieldbyname('SKID').AsString); BHCZhu(); initimageSH(); initimage(); end; free; end; end; procedure TfrmMLManage_LRRS_BF.ToolButton3Click(Sender: TObject); begin if CDS_Sub.IsEmpty then exit; if CDS_Sub.fieldbyname('MPID').AsString<>'' then begin if Application.MessageBox('确定要删除数据吗','提示',1)=2 then exit; with ADOQueryCmd do begin close; sql.Clear; sql.Add('delete from ML_Manage_PB where MPID='''+trim(CDS_Sub.fieldbyname('MPID').AsString)+''''); ExecSQL; end; end; CDS_Sub.Delete; BHCZhu(); end; procedure TfrmMLManage_LRRS_BF.ToolButton5Click(Sender: TObject); var FGYName:string; begin if Order_GX.IsEmpty then exit; if Order_GX.fieldbyname('GXID').AsString<>'' then begin if Application.MessageBox('确定要删除数据吗','提示',1)=2 then exit; with ADOQueryCmd do begin close; sql.Clear; sql.Add('delete from ML_Manage_GX where GXID='''+trim(Order_GX.fieldbyname('GXID').AsString)+''''); ExecSQL; end; end; Order_GX.Delete; BHCZhu(); end; procedure TfrmMLManage_LRRS_BF.TAddClick(Sender: TObject); var FGYLX,FGSNo:string; begin frmBPZDY_LRGX:=TfrmBPZDY_LRGX.create(self); with frmBPZDY_LRGX do begin flag:='GXName'; flagName:='染色'; ViewFlag:=true; frmBPZDY_LRGX.FGYName:=Self.FGYName; Label12.Visible:=true; DASH.Visible:=true; cxGrid3.Align:=alClient; Panel2.Visible:=false; Panel4.Visible:=false; with ADOQueryMain do begin Close; sql.Clear; sql.Add('select A.* from BP_ZDY A where 1=2'); Open; end; SCreateCDS20(ADOQueryMain,ML_GX); Order_GX.DisableControls; with Order_GX do begin First; while not Eof do begin with ML_GX do begin Append; FieldByName('BPMiDu').Value:=Order_GX.fieldbyname('XHNo').Value; FieldByName('BPCode').Value:=Trim(Order_GX.fieldbyname('BPCode').AsString); FieldByName('BPName').Value:=Trim(Order_GX.fieldbyname('BPName').AsString); FieldByName('BPMF').Value:=Trim(Order_GX.fieldbyname('BPMF').AsString); FieldByName('BPKZ').Value:=Trim(Order_GX.fieldbyname('BPKZ').AsString); FieldByName('BPID').Value:=Trim(Order_GX.fieldbyname('BPID').AsString); Post; end; Next; end; end; Order_GX.EnableControls; if ShowModal=1 then begin with ADOQueryMain do begin Close; SQL.Clear; sql.Add(' select A.*,B.* from ML_Manage_GX A '); SQL.Add('inner join BP_ZDY B on B.BPID=A.BPID '); sql.Add('where 1=2 '); Open; end; SCreateCDS20(ADOQueryMain,Order_GX); SInitCDSData20(ADOQueryMain,Order_GX); ML_GX.DisableControls; with ML_GX do begin first; while not eof do begin with Order_GX do begin append; FieldByName('XHNo').Value:=ML_GX.fieldbyname('BPMiDu').Value; FieldByName('BPCode').Value:=Trim(ML_GX.fieldbyname('BPCode').AsString); FieldByName('BPName').Value:=Trim(ML_GX.fieldbyname('BPName').AsString); FieldByName('BPMF').Value:=Trim(ML_GX.fieldbyname('BPMF').AsString); FieldByName('BPKZ').Value:=Trim(ML_GX.fieldbyname('BPKZ').AsString); FieldByName('BPID').Value:=Trim(ML_GX.fieldbyname('BPID').AsString); //FieldByName('BPSubID').Value:=Trim(ML_GX.fieldbyname('BPSubID').AsString); post; end; Next; end; end; ML_GX.EnableControls; //FBPID:=Trim(DASH.TxtCode); BHCZhu(); end; free; end; end; procedure TfrmMLManage_LRRS_BF.ToolButton4Click(Sender: TObject); begin if CDS_Sub.IsEmpty=false then begin Application.MessageBox('已存在面料信息','提示'); exit; end; frmMLMange_ADDCX:=TfrmMLMange_ADDCX.Create(self); with frmMLMange_ADDCX do begin if ShowModal=1 then begin with CDS_Sub do begin Append; FieldByName('BPCode').Value:=CDS_Main.fieldbyname('MLNo').AsString; FieldByName('BPID').Value:=Trim(CDS_Main.fieldbyname('MLID').AsString); FieldByName('BPName').Value:=CDS_Main.fieldbyname('MLName').AsString; FieldByName('BPMF').Value:=CDS_Main.fieldbyname('MLMF').AsString; FieldByName('BPKZ').Value:=CDS_Main.fieldbyname('MLKZ').AsString; post; end; GYLX.Caption:=CDS_Main.fieldbyname('GYLX').AsString; FGYLX:=CDS_Main.fieldbyname('GYLX').AsString; GSNo.Caption:=CDS_Main.fieldbyname('GSNo').AsString; FGSNo:=CDS_Main.fieldbyname('GSNo').AsString; FGYLXName:=CDS_Main.fieldbyname('GYLXName').AsString; FGSName:=CDS_Main.fieldbyname('GYName').AsString; BHCZhu(); end; free; end; end; procedure TfrmMLManage_LRRS_BF.Button1Click(Sender: TObject); var FBH:string; begin if CDS_Sub.IsEmpty then begin application.MessageBox('请选择坯布信息','提示'); exit; end; if Trim(MLName.Text)='' then begin Application.MessageBox('品名不能为空!','提示',0); Exit; end; if Trim(MLKZ.Text)='' then begin Application.MessageBox('克重不能为空!','提示',0); Exit; end; if SaveData() then begin Application.MessageBox('保存成功！','提示',0); Finalize(Mach1); Finalize(Mach); ModalResult:=1; end; end; procedure TfrmMLManage_LRRS_BF.Button2Click(Sender: TObject); begin WriteCxGrid('面料管理1',Tv1,'样品管理'); WriteCxGrid('面料管理2',Tv2,'样品管理'); close; end; procedure TfrmMLManage_LRRS_BF.MLNameChange(Sender: TObject); begin if Trim(FCYID)<>'' then begin Button1.Caption:='保存改'; end; end; procedure TfrmMLManage_LRRS_BF.MLMFChange(Sender: TObject); begin if Trim(FCYID)<>'' then begin Button1.Caption:='保存改'; end; end; procedure TfrmMLManage_LRRS_BF.FormClose(Sender: TObject; var Action: TCloseAction); begin Finalize(Mach1); Finalize(Mach); end; end.