diff --git a/A00标签打印/U_ClientPrintRmf.dfm b/A00标签打印/U_ClientPrintRmf.dfm index 873097a..4351035 100644 --- a/A00标签打印/U_ClientPrintRmf.dfm +++ b/A00标签打印/U_ClientPrintRmf.dfm @@ -16,7 +16,6 @@ object frmClientPrintRmf: TfrmClientPrintRmf OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - OnStartDock = FormStartDock PixelsPerInch = 96 TextHeight = 11 object ADOQueryTemp: TADOQuery @@ -3871,7 +3870,6 @@ object frmClientPrintRmf: TfrmClientPrintRmf Top = 153 end object ADOQueryReport: TADOQuery - Connection = DataLink_MYSC.ADOLink Parameters = <> Left = 183 Top = 65503 diff --git a/A00标签打印/U_ClientPrintRmf.pas b/A00标签打印/U_ClientPrintRmf.pas index d1777f2..71ad8c9 100644 --- a/A00标签打印/U_ClientPrintRmf.pas +++ b/A00标签打印/U_ClientPrintRmf.pas @@ -42,7 +42,6 @@ type procedure FormShow(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure TV1DblClick(Sender: TObject); - procedure FormStartDock(Sender: TObject; var DragObject: TDragDockObject); private IsDebug, FPreviewPrint, fIsPreview: Boolean; FLMType, FLBName: string; @@ -53,7 +52,7 @@ type procedure PrintReport(); procedure ExportReport(); procedure InitAdo(Ado: TADOQuery; SqlStr: string); - procedure TfrmClientPrintRmf.GetQrCode(); + procedure GetQrCode(Txt: string); procedure InitArgs(); { Private declarations } public @@ -79,31 +78,31 @@ begin FPrintJson := JsonArgs; end; -procedure TfrmClientPrintRmf.GetQrCode(Txt: string; ); +procedure TfrmClientPrintRmf.GetQrCode(Txt: string); var fPrintFile: string; fImagePath: string; Moudle: THandle; - Makebar: TMakebar; - Mixtext: TMixtext; +// Makebar: TMakebar; +// Mixtext: TMixtext; CurRow: Integer; begin - try - Moudle := LoadLibrary('MakeQRBarcode.dll'); - @Makebar := GetProcAddress(Moudle, 'Make'); - @Mixtext := GetProcAddress(Moudle, 'MixText'); - Txt := Trim(ADOQueryPrint.fieldbyname('MXID').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); - Order_Main.EnableControls; - exit; - end; +// try +// Moudle := LoadLibrary('MakeQRBarcode.dll'); +// @Makebar := GetProcAddress(Moudle, 'Make'); +// @Mixtext := GetProcAddress(Moudle, 'MixText'); +// Txt := Trim(ADOQueryPrint.fieldbyname('MXID').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); +// Order_Main.EnableControls; +// exit; +// end; end; @@ -311,10 +310,5 @@ begin frmClientPrintRmf := nil; end; -procedure TfrmClientPrintRmf.FormStartDock(Sender: TObject; var DragObject: TDragDockObject); -begin - -end; - end. diff --git a/云翔一码通/U_YMTRKInPut.dfm b/云翔一码通/U_YMTRKInPut.dfm index 4e0d32d..4fada7d 100644 --- a/云翔一码通/U_YMTRKInPut.dfm +++ b/云翔一码通/U_YMTRKInPut.dfm @@ -306,14 +306,8 @@ object frmYMTRKInPut: TfrmYMTRKInPut ImageIndex = 15 OnClick = TBSaveClick end - object ToolButton1: TToolButton - Left = 63 - Top = 0 - Caption = #22810#34892#26032#22686 - ImageIndex = 22 - end object TBAdd: TToolButton - Left = 146 + Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 @@ -321,7 +315,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut OnClick = TBAddClick end object TBDel: TToolButton - Left = 209 + Left = 126 Top = 0 AutoSize = True Caption = #21024#38500 @@ -329,14 +323,14 @@ object frmYMTRKInPut: TfrmYMTRKInPut OnClick = TBDelClick end object ToolButton2: TToolButton - Left = 272 + Left = 189 Top = 0 Caption = #19968#38190#26367#25442 ImageIndex = 22 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 355 + Left = 272 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/云翔一码通/U_YMTRKInPut.pas b/云翔一码通/U_YMTRKInPut.pas index 40661cf..0eca6f2 100644 --- a/云翔一码通/U_YMTRKInPut.pas +++ b/云翔一码通/U_YMTRKInPut.pas @@ -59,7 +59,6 @@ type v1Column17: TcxGridDBColumn; v1Column18: TcxGridDBColumn; v1Column19: TcxGridDBColumn; - ToolButton1: TToolButton; v1Column20: TcxGridDBColumn; v1Column21: TcxGridDBColumn; ToolButton2: TToolButton; diff --git a/云翔生产管理(MYSC.dll)/U_GYSList.dfm b/云翔生产管理(MYSC.dll)/U_GYSList.dfm index b2065ca..bd5eab6 100644 --- a/云翔生产管理(MYSC.dll)/U_GYSList.dfm +++ b/云翔生产管理(MYSC.dll)/U_GYSList.dfm @@ -194,7 +194,7 @@ object frmGYSList: TfrmGYSList Left = 294 Top = 11 Width = 125 - Height = 23 + Height = 20 TabOrder = 0 OnChange = CustomerNoNameChange end @@ -203,7 +203,7 @@ object frmGYSList: TfrmGYSList Left = 86 Top = 11 Width = 125 - Height = 23 + Height = 20 TabOrder = 1 OnChange = CustomerNoNameChange end @@ -212,7 +212,7 @@ object frmGYSList: TfrmGYSList Left = 510 Top = 11 Width = 121 - Height = 23 + Height = 20 ReadOnly = True TabOrder = 2 OnBtnUpClick = KHTypeBtnUpClick diff --git a/云翔生产管理(MYSC.dll)/U_GYSList.pas b/云翔生产管理(MYSC.dll)/U_GYSList.pas index 7008a22..e8292fc 100644 --- a/云翔生产管理(MYSC.dll)/U_GYSList.pas +++ b/云翔生产管理(MYSC.dll)/U_GYSList.pas @@ -6,25 +6,24 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, - Menus, cxButtonEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, - cxLookAndFeelPainters, cxNavigator, dxSkinsCore, - dxSkinDarkRoom, - - - - - - - - dxSkinOffice2013White, - dxSkinSharpPlus, - dxSkinSpringTime, - dxSkinsDefaultPainters, - dxSkinscxPCPainter; + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, + cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinSpringTime, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, + dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue; type TfrmGYSList = class(TForm) @@ -79,14 +78,14 @@ type procedure KHTypeBtnDnClick(Sender: TObject); procedure KHTypeBtnUpClick(Sender: TObject); private - DQdate:TDateTime; - XZKHTYpe,canshu1:string; + DQdate: TDateTime; + XZKHTYpe, canshu1: string; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; + function DelData(): Boolean; { Private declarations } public - FFInt,FCloth:Integer; + FFInt, FCloth: Integer; { Public declarations } end; @@ -95,32 +94,32 @@ var frmGYSList: TfrmGYSList; implementation + uses - U_DataLink,U_RTFun,U_ZDYHelp,U_SCPerson,U_PBGYSInPutMain; + U_DataLink, U_RTFun, U_ZDYHelp, U_SCPerson, U_PBGYSInPutMain; {$R *.dfm} procedure TfrmGYSList.FormDestroy(Sender: TObject); begin - frmGYSList:=nil; + frmGYSList := nil; end; -procedure TfrmGYSList.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmGYSList.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmGYSList.FormCreate(Sender: TObject); begin - cxgrid1.Align:=alClient; + cxgrid1.Align := alClient; end; procedure TfrmGYSList.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid('Ӧ̵Ǽ',Tv1,'Ӧ̹'); + WriteCxGrid('Ӧ̵Ǽ', Tv1, 'Ӧ̹'); end; @@ -130,7 +129,7 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select *,zjm=dbo.getpinyin(KHName) '); @@ -142,46 +141,47 @@ begin end;} Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); TBFind.Click; finally ADOQueryMain.EnableControls; end; end; - procedure TfrmGYSList.InitForm(); begin - ReadCxGrid(self.Caption,Tv1,'ó'); - KHType.Visible:=true; - label34.Visible:=true; - ToolButton1.Visible:=true; - canshu1:=Trim(DParameters1); - if Trim(canshu1)<>'Ȩ' then + ReadCxGrid(self.Caption, Tv1, 'ó'); + KHType.Visible := true; + label34.Visible := true; + ToolButton1.Visible := true; + canshu1 := Trim(DParameters1); + if Trim(canshu1) <> 'Ȩ' then begin - ToolButton1.Visible:=false; + ToolButton1.Visible := false; end; InitGrid(); - + end; procedure TfrmGYSList.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmGYSList.TBEditClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if Trim(canshu1)='' then + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) = '' then begin - if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!','ʾ',0); + Application.MessageBox('ܲ˵!', 'ʾ', 0); Exit; end; end; @@ -189,38 +189,40 @@ end; procedure TfrmGYSList.TBDelClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if Trim(Order_Main.fieldbyname('Filler').AsString)<>Trim(DName) then + if Order_Main.IsEmpty then + Exit; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then begin - Application.MessageBox('ܲ˵!','ʾ',0); + Application.MessageBox('ܲ˵!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin Order_Main.Delete; end; end; -function TfrmGYSList.DelData():Boolean; +function TfrmGYSList.DelData(): Boolean; begin try - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId='''+Trim(Order_Main.fieldbyname('ZKId').AsString)+''''); + sql.Add('Update ZH_KH_Info Set Valid=''N'' where ZKId=''' + Trim(Order_Main.fieldbyname('ZKId').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except ADOQueryCmd.Connection.RollbackTrans; - Result:=False; - Application.MessageBox('ɾ쳣','ʾ',0); + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; @@ -246,65 +248,70 @@ end; procedure TfrmGYSList.N1Click(Sender: TObject); var - fPrintFile:string; - Porderno:string; + fPrintFile: string; + Porderno: string; begin - if Order_Main.IsEmpty then Exit; - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf' ; - SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf'; + SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + ''''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ10.rmf'),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ10.rmf'), 'ʾ', 0); end; - SDofilter(ADOQueryMain,''); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - Order_Main.Locate('ordernoM',Porderno,[]); + SDofilter(ADOQueryMain, ''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Order_Main.Locate('ordernoM', Porderno, []); end; procedure TfrmGYSList.N2Click(Sender: TObject); var - fPrintFile:string; - Porderno:string; + fPrintFile: string; + Porderno: string; begin - if Order_Main.IsEmpty then Exit; - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf' ; - SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+''''); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString); + if Order_Main.IsEmpty then + Exit; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'; + SDofilter(ADOQueryMain, ' OrderNoM=''' + Trim(Order_Main.fieldbyname('OrderNoM').AsString) + ''''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Porderno := Trim(Order_Main.fieldbyname('OrderNoM').AsString); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\ָʾ.rmf'),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\ָʾ.rmf'), 'ʾ', 0); end; - SDofilter(ADOQueryMain,''); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - Order_Main.Locate('ordernoM',Porderno,[]); + SDofilter(ADOQueryMain, ''); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + Order_Main.Locate('ordernoM', Porderno, []); end; procedure TfrmGYSList.ToolButton3Click(Sender: TObject); begin - ModalResult:=1; + ModalResult := 1; end; procedure TfrmGYSList.CustomerNoNameChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmGYSList.Tv1DblClick(Sender: TObject); @@ -315,32 +322,33 @@ end; procedure TfrmGYSList.ToolButton1Click(Sender: TObject); begin try - frmSCPerson:=TfrmSCPerson.Create(Application); + frmSCPerson := TfrmSCPerson.Create(Application); with frmSCPerson do begin - FlagStr:='GYSType'; - if ShowModal=1 then + FlagStr := 'GYSType'; + if ShowModal = 1 then begin - XZKHTYpe:=Trim(FSDPerson); + XZKHTYpe := Trim(FSDPerson); end; end; finally frmSCPerson.Free; end; - if Trim(XZKHTYpe)='' then Exit; + if Trim(XZKHTYpe) = '' then + Exit; try - frmPBGYSInPutMain:=TfrmPBGYSInPutMain.Create(Application); + frmPBGYSInPutMain := TfrmPBGYSInPutMain.Create(Application); with frmPBGYSInPutMain do begin - FKHMainid:=''; - FKHFlag:='GYS'; - frmPBGYSInPutMain.KHType.Text:=Trim(XZKHTYpe); - frmPBGYSInPutMain.KHType.Enabled:=False; - frmPBGYSInPutMain.KHType.Color:=clMenu; - if ShowModal=1 then + FKHMainid := ''; + FKHFlag := 'GYS'; + frmPBGYSInPutMain.KHType.Text := Trim(XZKHTYpe); + frmPBGYSInPutMain.KHType.Enabled := False; + frmPBGYSInPutMain.KHType.Color := clMenu; + if ShowModal = 1 then begin TBRafresh.Click; - Order_Main.Locate('KHMainId',FKHMainid,[]); + Order_Main.Locate('KHMainId', FKHMainid, []); end; end; finally @@ -350,21 +358,21 @@ end; procedure TfrmGYSList.KHTypeBtnDnClick(Sender: TObject); begin - KHType.Text:=''; - KHType.TxtCode:=''; + KHType.Text := ''; + KHType.TxtCode := ''; end; procedure TfrmGYSList.KHTypeBtnUpClick(Sender: TObject); begin try - frmSCPerson:=TfrmSCPerson.Create(Application); + frmSCPerson := TfrmSCPerson.Create(Application); with frmSCPerson do begin - FlagStr:='GYSType'; - if ShowModal=1 then + FlagStr := 'GYSType'; + if ShowModal = 1 then begin - Self.KHType.Text:=Trim(FSDPerson); - Self.KHType.TxtCode:=Trim(FSDPerson); + Self.KHType.Text := Trim(FSDPerson); + Self.KHType.TxtCode := Trim(FSDPerson); end; end; finally @@ -374,3 +382,4 @@ begin end; end. + diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm index b4c3184..d107e5f 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.dfm @@ -1,8 +1,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG - Left = 783 - Top = 287 - Width = 1332 - Height = 641 + Left = 194 + Top = 317 + Width = 1391 + Height = 583 Caption = #22383#24067#37319#36141#20837#24211#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -20,7 +20,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1324 + Width = 1383 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -99,8 +99,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel3: TPanel Left = 0 Top = 30 - Width = 1324 - Height = 580 + Width = 1383 + Height = 522 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -108,7 +108,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel4: TPanel Left = 2 Top = 2 - Width = 1320 + Width = 1379 Height = 64 Align = alTop BevelInner = bvRaised @@ -172,28 +172,15 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel15: TPanel Left = 2 Top = 30 - Width = 1316 + Width = 1375 Height = 32 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 - object Label22: TLabel - Left = 35 - Top = 9 - Width = 85 - Height = 16 - Caption = #22383#24067#21697#21517#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label53: TLabel - Left = 554 - Top = 9 + Left = 34 + Top = 6 Width = 68 Height = 16 Caption = #37319#36141#20154#65306 @@ -205,8 +192,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label34: TLabel - Left = 774 - Top = 9 + Left = 254 + Top = 6 Width = 85 Height = 16 Caption = #35745#21010#21333#21495#65306 @@ -217,40 +204,9 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ParentFont = False end - object MYCode: TEdit - Tag = 2 - Left = 456 - Top = 6 - Width = 77 - Height = 24 - Color = clScrollBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 2 - end - object MYName: TBtnEditA - Tag = 2 - Left = 111 - Top = 5 - Width = 345 - Height = 25 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnBtnClick = MYNameBtnClick - end object CGName: TComboBox - Left = 632 - Top = 6 + Left = 112 + Top = 3 Width = 119 Height = 24 Font.Charset = GB2312_CHARSET @@ -260,12 +216,12 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ItemHeight = 16 ParentFont = False - TabOrder = 1 + TabOrder = 0 end object JHOrdNo: TEdit Tag = 2 - Left = 853 - Top = 6 + Left = 333 + Top = 3 Width = 104 Height = 24 Font.Charset = GB2312_CHARSET @@ -274,7 +230,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 3 + TabOrder = 1 end end object RKNo: TEdit @@ -328,65 +284,13 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG object Panel5: TPanel Left = 2 Top = 66 - Width = 1320 - Height = 512 + Width = 1379 + Height = 454 Align = alClient TabOrder = 1 - object Label12: TLabel - Left = 276 - Top = 13 - Width = 58 - Height = 13 - Caption = #20811' '#37325#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label14: TLabel - Left = 166 - Top = 13 - Width = 58 - Height = 13 - Caption = #38376' '#24133#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label15: TLabel - Left = 256 - Top = 13 - Width = 16 - Height = 13 - Caption = 'CM' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label16: TLabel - Left = 371 - Top = 13 - Width = 30 - Height = 13 - Caption = 'g/'#13217 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label31: TLabel - Left = 412 - Top = 9 + Left = 516 + Top = 13 Width = 84 Height = 26 Caption = #30721#21333#24635#25968#37327#65306#13#10' ('#24405#20837')' @@ -398,8 +302,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label32: TLabel - Left = 547 - Top = 10 + Left = 651 + Top = 14 Width = 14 Height = 13 Caption = #21305 @@ -411,8 +315,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label4: TLabel - Left = 426 - Top = 45 + Left = 530 + Top = 49 Width = 70 Height = 13 Caption = #26680#23545#25968#37327#65306 @@ -424,8 +328,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label5: TLabel - Left = 547 - Top = 45 + Left = 651 + Top = 49 Width = 14 Height = 13 Caption = #21305 @@ -437,8 +341,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label9: TLabel - Left = 426 - Top = 78 + Left = 530 + Top = 82 Width = 70 Height = 13 Caption = #25968#37327#23545#27604#65306 @@ -450,8 +354,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label10: TLabel - Left = 547 - Top = 78 + Left = 651 + Top = 82 Width = 14 Height = 13 Caption = #21305 @@ -463,8 +367,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label17: TLabel - Left = 656 - Top = 78 + Left = 760 + Top = 82 Width = 14 Height = 13 Caption = #31859 @@ -476,8 +380,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label18: TLabel - Left = 758 - Top = 78 + Left = 862 + Top = 82 Width = 28 Height = 13 Caption = #20844#26020 @@ -488,45 +392,6 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ParentFont = False end - object Label2: TLabel - Left = 11 - Top = 44 - Width = 58 - Height = 13 - Caption = #25104' '#20221#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label3: TLabel - Left = 13 - Top = 77 - Width = 56 - Height = 13 - Caption = #32463#32428#32433#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label11: TLabel - Left = 173 - Top = 44 - Width = 70 - Height = 13 - Caption = #22383#24067#23494#24230#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end object Label23: TLabel Left = 225 Top = 381 @@ -556,8 +421,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Visible = False end object Label28: TLabel - Left = 798 - Top = 10 + Left = 902 + Top = 14 Width = 42 Height = 13 Caption = #37329#39069#65306 @@ -569,8 +434,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label29: TLabel - Left = 798 - Top = 45 + Left = 902 + Top = 49 Width = 42 Height = 13 Caption = #37329#39069#65306 @@ -582,8 +447,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label44: TLabel - Left = 656 - Top = 45 + Left = 760 + Top = 49 Width = 14 Height = 13 Caption = #31859 @@ -595,8 +460,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label45: TLabel - Left = 656 - Top = 10 + Left = 760 + Top = 14 Width = 14 Height = 13 Caption = #31859 @@ -608,8 +473,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label49: TLabel - Left = 758 - Top = 45 + Left = 862 + Top = 49 Width = 28 Height = 13 Caption = #20844#26020 @@ -621,8 +486,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label50: TLabel - Left = 758 - Top = 10 + Left = 862 + Top = 14 Width = 28 Height = 13 Caption = #20844#26020 @@ -634,8 +499,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label6: TLabel - Left = 798 - Top = 78 + Left = 342 + Top = 378 Width = 42 Height = 13 Caption = #37329#39069#65306 @@ -645,6 +510,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + Visible = False end object Label1: TLabel Left = 36 @@ -673,8 +539,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label25: TLabel - Left = 426 - Top = 121 + Left = 538 + Top = 117 Width = 96 Height = 15 Caption = #22383#24067#32852#31995#21495#65306 @@ -686,8 +552,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label30: TLabel - Left = 768 - Top = 120 + Left = 880 + Top = 116 Width = 80 Height = 15 Caption = #39044#20272#25439#32791#65306 @@ -699,8 +565,8 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False end object Label35: TLabel - Left = 904 - Top = 119 + Left = 1016 + Top = 116 Width = 8 Height = 13 Caption = '%' @@ -711,51 +577,10 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ParentFont = False end - object Label36: TLabel - Left = -1 - Top = 13 - Width = 70 - Height = 13 - Caption = #24037#21378#21697#21517#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object MYKZ: TEdit - Tag = 2 - Left = 332 - Top = 7 - Width = 37 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - end - object MYMF: TEdit - Tag = 2 - Left = 220 - Top = 7 - Width = 33 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - end object PS: TEdit Tag = 2 - Left = 492 - Top = 8 + Left = 596 + Top = 12 Width = 51 Height = 21 Font.Charset = GB2312_CHARSET @@ -764,13 +589,13 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 3 + TabOrder = 1 OnChange = PSChange end object Qty: TEdit Tag = 2 - Left = 577 - Top = 7 + Left = 681 + Top = 11 Width = 74 Height = 21 Font.Charset = GB2312_CHARSET @@ -779,13 +604,13 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 4 + TabOrder = 2 OnChange = QtyChange end object KgQty: TEdit Tag = 2 - Left = 682 - Top = 8 + Left = 786 + Top = 12 Width = 72 Height = 21 Font.Charset = GB2312_CHARSET @@ -794,13 +619,60 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 5 + TabOrder = 3 OnChange = QtyChange end object MXHZPS: TEdit Tag = 2 - Left = 492 - Top = 41 + Left = 596 + Top = 45 + Width = 51 + Height = 21 + Color = clMenuBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object MXHZQty: TEdit + Left = 681 + Top = 45 + Width = 75 + Height = 21 + Color = clMenuBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + OnChange = MXHZQtyChange + end + object MXHZKgQty: TEdit + Left = 786 + Top = 45 + Width = 72 + Height = 21 + Color = clMenuBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + OnChange = MXHZKgQtyChange + end + object PSChaE: TEdit + Left = 596 + Top = 78 Width = 51 Height = 21 Color = clMenuBar @@ -812,10 +684,11 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False ReadOnly = True TabOrder = 8 + OnChange = PSChaEChange end - object MXHZQty: TEdit - Left = 577 - Top = 41 + object QtyChaE: TEdit + Left = 681 + Top = 78 Width = 75 Height = 21 Color = clMenuBar @@ -827,11 +700,11 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False ReadOnly = True TabOrder = 9 - OnChange = MXHZQtyChange + OnChange = QtyChaEChange end - object MXHZKgQty: TEdit - Left = 682 - Top = 41 + object KgQtyChaE: TEdit + Left = 786 + Top = 78 Width = 72 Height = 21 Color = clMenuBar @@ -843,54 +716,6 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG ParentFont = False ReadOnly = True TabOrder = 10 - OnChange = MXHZKgQtyChange - end - object PSChaE: TEdit - Left = 492 - Top = 74 - Width = 51 - Height = 21 - Color = clMenuBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 13 - OnChange = PSChaEChange - end - object QtyChaE: TEdit - Left = 577 - Top = 74 - Width = 75 - Height = 21 - Color = clMenuBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 14 - OnChange = QtyChaEChange - end - object KgQtyChaE: TEdit - Left = 682 - Top = 74 - Width = 72 - Height = 21 - Color = clMenuBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 15 OnChange = KgQtyChaEChange end object Panel7: TPanel @@ -900,7 +725,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Height = 181 BevelInner = bvRaised BevelOuter = bvLowered - TabOrder = 19 + TabOrder = 13 Visible = False object Panel1: TPanel Left = 9 @@ -938,51 +763,9 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ParentFont = False ReadOnly = True - TabOrder = 21 + TabOrder = 15 Visible = False end - object MYCF: TEdit - Tag = 2 - Left = 65 - Top = 40 - Width = 100 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 6 - end - object MYJWS: TEdit - Tag = 2 - Left = 65 - Top = 73 - Width = 268 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 12 - end - object MYMD: TEdit - Tag = 2 - Left = 242 - Top = 40 - Width = 92 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - end object MYPrice: TEdit Tag = 2 Left = 268 @@ -995,13 +778,13 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 20 + TabOrder = 14 Visible = False end object MYMDMoney: TEdit Tag = 2 - Left = 838 - Top = 7 + Left = 942 + Top = 11 Width = 75 Height = 21 Font.Charset = GB2312_CHARSET @@ -1014,8 +797,22 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG end object MYHDMoney: TEdit Tag = 2 - Left = 838 - Top = 41 + Left = 942 + Top = 45 + Width = 75 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + end + object MoneyChaE: TEdit + Tag = 2 + Left = 382 + Top = 374 Width = 75 Height = 21 Font.Charset = GB2312_CHARSET @@ -1025,10 +822,358 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Style = [fsBold] ParentFont = False TabOrder = 11 + Visible = False + OnChange = MoneyChaEChange + end + object Note: TEdit + Tag = 2 + Left = 111 + Top = 155 + Width = 768 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + end + object JCDanWei: TBtnEditA + Tag = 2 + Left = 355 + Top = 189 + Width = 420 + Height = 29 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 16 + OnBtnClick = JCDanWeiBtnClick + end + object JCNo: TEdit + Tag = 2 + Left = 775 + Top = 190 + Width = 104 + Height = 28 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 17 + end + object Panel17: TPanel + Left = 444 + Top = 231 + Width = 164 + Height = 90 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 18 + object Panel18: TPanel + Left = 6 + Top = 6 + Width = 152 + Height = 75 + BevelInner = bvRaised + TabOrder = 0 + OnClick = Panel1Click + object Label39: TLabel + Left = 12 + Top = 27 + Width = 132 + Height = 21 + Caption = #26126#32454#30721#21333#24405#20837 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = Panel1Click + end + end + end + object PBBatchNo: TEdit + Tag = 2 + Left = 616 + Top = 114 + Width = 252 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 19 + end + object YGSunHao: TEdit + Tag = 2 + Left = 950 + Top = 112 + Width = 62 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 20 + end + object Panel6: TPanel + Left = 8 + Top = 10 + Width = 505 + Height = 129 + TabOrder = 21 + object Label22: TLabel + Left = 11 + Top = 9 + Width = 85 + Height = 16 + Caption = #22383#24067#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 313 + Top = 40 + Width = 58 + Height = 13 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 203 + Top = 40 + Width = 58 + Height = 13 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 293 + Top = 40 + Width = 16 + Height = 13 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 408 + Top = 40 + Width = 30 + Height = 13 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 48 + Top = 71 + Width = 58 + Height = 13 + Caption = #25104' '#20221#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 50 + Top = 104 + Width = 56 + Height = 13 + Caption = #32463#32428#32433#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 210 + Top = 71 + Width = 70 + Height = 13 + Caption = #22383#24067#23494#24230#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label36: TLabel + Left = 36 + Top = 40 + Width = 70 + Height = 13 + Caption = #24037#21378#21697#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object MYCode: TEdit + Tag = 2 + Left = 404 + Top = 6 + Width = 77 + Height = 24 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object MYName: TBtnEditA + Tag = 2 + Left = 88 + Top = 5 + Width = 313 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnBtnClick = MYNameBtnClick + end + object MYKZ: TEdit + Tag = 2 + Left = 369 + Top = 34 + Width = 37 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object MYMF: TEdit + Tag = 2 + Left = 257 + Top = 34 + Width = 33 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + object MYCF: TEdit + Tag = 2 + Left = 102 + Top = 67 + Width = 100 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object MYJWS: TEdit + Tag = 2 + Left = 102 + Top = 100 + Width = 268 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object MYMD: TEdit + Tag = 2 + Left = 279 + Top = 67 + Width = 92 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + end + object GCCodeName: TEdit + Tag = 2 + Left = 103 + Top = 34 + Width = 100 + Height = 21 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + end end object Panel14: TPanel - Left = 32 - Top = 99 + Left = 1024 + Top = 16 Width = 341 Height = 50 BevelInner = bvRaised @@ -1039,7 +1184,7 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 17 + TabOrder = 22 object Label51: TLabel Left = 205 Top = 7 @@ -1145,142 +1290,6 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG OnClick = BHSFlagClick end end - object MoneyChaE: TEdit - Tag = 2 - Left = 838 - Top = 74 - Width = 75 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 16 - OnChange = MoneyChaEChange - end - object Note: TEdit - Tag = 2 - Left = 111 - Top = 155 - Width = 768 - Height = 28 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 18 - end - object JCDanWei: TBtnEditA - Tag = 2 - Left = 355 - Top = 189 - Width = 420 - Height = 29 - Color = clScrollBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 22 - OnBtnClick = JCDanWeiBtnClick - end - object JCNo: TEdit - Tag = 2 - Left = 775 - Top = 190 - Width = 104 - Height = 28 - Color = clScrollBar - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 23 - end - object Panel17: TPanel - Left = 444 - Top = 231 - Width = 164 - Height = 90 - BevelInner = bvRaised - BevelOuter = bvLowered - TabOrder = 24 - object Panel18: TPanel - Left = 6 - Top = 6 - Width = 152 - Height = 75 - BevelInner = bvRaised - TabOrder = 0 - OnClick = Panel1Click - object Label39: TLabel - Left = 12 - Top = 27 - Width = 132 - Height = 21 - Caption = #26126#32454#30721#21333#24405#20837 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - OnClick = Panel1Click - end - end - end - object PBBatchNo: TEdit - Tag = 2 - Left = 504 - Top = 118 - Width = 252 - Height = 23 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -15 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 25 - end - object YGSunHao: TEdit - Tag = 2 - Left = 838 - Top = 116 - Width = 62 - Height = 23 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -15 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 26 - end - object GCCodeName: TEdit - Tag = 2 - Left = 66 - Top = 7 - Width = 100 - Height = 21 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 27 - end end object cxGroupBox2: TcxGroupBox Left = 36 @@ -1499,42 +1508,42 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 846 - Top = 717 + Left = 648 + Top = 253 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 830 - Top = 695 + Left = 572 + Top = 215 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 898 - Top = 700 + Left = 610 + Top = 215 end object DataSource1: TDataSource DataSet = ClientDataSet1 - Left = 898 - Top = 719 + Left = 686 + Top = 291 end object ClientDataSet1: TClientDataSet Aggregates = <> Params = <> - Left = 871 - Top = 693 + Left = 724 + Top = 253 end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> - Left = 798 - Top = 714 + Left = 572 + Top = 291 end object CDS_Print: TClientDataSet Aggregates = <> Params = <> - Left = 926 - Top = 720 + Left = 686 + Top = 253 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -1552,53 +1561,53 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 876 - Top = 725 + Left = 572 + Top = 367 ReportData = {} end object ODPat: TOpenDialog Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] - Left = 927 - Top = 695 + Left = 648 + Top = 329 end object IdFTP1: TIdFTP MaxLineAction = maException ReadTimeout = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 - Left = 980 - Top = 476 + Left = 572 + Top = 329 end object SaveDialog1: TSaveDialog - Left = 801 - Top = 702 + Left = 610 + Top = 367 end object adoqueryPicture: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 850 - Top = 702 + Left = 724 + Top = 215 end object PopupMenu1: TPopupMenu - Left = 918 - Top = 476 + Left = 686 + Top = 329 object N7: TMenuItem Caption = #20462#25913 end end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> - Left = 1012 - Top = 476 + Left = 610 + Top = 291 end object DataSource2: TDataSource DataSet = ClientDataSet1 - Left = 886 - Top = 476 + Left = 724 + Top = 291 end object PopupMenu2: TPopupMenu - Left = 238 - Top = 792 + Left = 724 + Top = 329 object MenuItem1: TMenuItem Caption = #19978#20256 OnClick = MenuItem1Click @@ -1620,34 +1629,36 @@ object frmLLRKInPutMH_PBCG: TfrmLLRKInPutMH_PBCG Height = 32 ShareImages = True Width = 32 - Left = 170 - Top = 799 + Left = 610 + Top = 329 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 285 - Top = 793 + Left = 686 + Top = 215 end object ADOQueryTmp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 110 - Top = 784 + Left = 610 + Top = 253 end object ADOQuery2: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 949 - Top = 476 + Left = 648 + Top = 215 end object ADOQueryTemp: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 1042 - Top = 476 + Left = 572 + Top = 253 end object cxStyleRepository1: TcxStyleRepository + Left = 648 + Top = 291 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas index 2f247d8..12d34e8 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_PBCG.pas @@ -51,14 +51,8 @@ type Label13: TLabel; CRTime: TDateTimePicker; Panel5: TPanel; - Label12: TLabel; - Label14: TLabel; - Label15: TLabel; - Label16: TLabel; Label31: TLabel; Label32: TLabel; - MYKZ: TEdit; - MYMF: TEdit; PS: TEdit; Qty: TEdit; KgQty: TEdit; @@ -82,12 +76,6 @@ type IdFTP1: TIdFTP; SaveDialog1: TSaveDialog; adoqueryPicture: TADOQuery; - Label2: TLabel; - MYCF: TEdit; - Label3: TLabel; - MYJWS: TEdit; - Label11: TLabel; - MYMD: TEdit; Label23: TLabel; MYPrice: TEdit; Label24: TLabel; @@ -123,23 +111,12 @@ type Label45: TLabel; Label49: TLabel; Label50: TLabel; - Panel14: TPanel; - Label51: TLabel; - MYMDPrice: TEdit; - Label43: TLabel; - MDMFlag: TCheckBox; - MDKGFlag: TCheckBox; Panel15: TPanel; - Label22: TLabel; - MYCode: TEdit; - MYName: TBtnEditA; Panel2: TPanel; Label6: TLabel; MoneyChaE: TEdit; Label1: TLabel; Note: TEdit; - HSFlag: TCheckBox; - BHSFlag: TCheckBox; ADOQueryTemp: TADOQuery; Label7: TLabel; RKNo: TEdit; @@ -163,8 +140,32 @@ type Label30: TLabel; YGSunHao: TEdit; Label35: TLabel; + Panel6: TPanel; + Label22: TLabel; + MYCode: TEdit; + MYName: TBtnEditA; + Label12: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + Label2: TLabel; + Label3: TLabel; + Label11: TLabel; Label36: TLabel; + MYKZ: TEdit; + MYMF: TEdit; + MYCF: TEdit; + MYJWS: TEdit; + MYMD: TEdit; GCCodeName: TEdit; + Panel14: TPanel; + Label51: TLabel; + Label43: TLabel; + MYMDPrice: TEdit; + MDMFlag: TCheckBox; + MDKGFlag: TCheckBox; + HSFlag: TCheckBox; + BHSFlag: TCheckBox; procedure liClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -897,6 +898,9 @@ begin if ShowModal = 1 then begin InitData(); + Self.MXHZPS.Text := frmLLRKMXInPutMH_PBMX.MXHZPS.Text; + Self.MXHZKGQty.Text := frmLLRKMXInPutMH_PBMX.MXHZKGQty.Text; + Self.MXHZQty.Text := frmLLRKMXInPutMH_PBMX.MXHZQty.Text; end; end; finally diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.dfm b/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.dfm index d62dfa4..5d9d184 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.dfm @@ -1,25 +1,25 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX - Left = 189 - Top = 135 + Left = 1038 + Top = 596 Width = 1120 Height = 654 Caption = #22383#24067#26126#32454#30721#21333#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 19 + PixelsPerInch = 96 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1102 + Width = 1112 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -57,18 +57,19 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX Top = 0 Caption = #20445#23384 ImageIndex = 5 + Wrap = True OnClick = TBSaveClick end - object Label19: TLabel - Left = 115 - Top = 0 - Width = 384 + object Label21: TLabel + Left = 0 + Top = 30 + Width = 432 Height = 30 - Caption = ' ' + Caption = ' ' end object labMYType: TLabel - Left = 499 - Top = 0 + Left = 432 + Top = 30 Width = 180 Height = 30 Caption = #22383#24067#26126#32454#30721#21333 @@ -79,16 +80,16 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX Font.Style = [fsBold] ParentFont = False end - object Label21: TLabel - Left = 679 - Top = 0 - Width = 432 + object Label19: TLabel + Left = 612 + Top = 30 + Width = 384 Height = 30 - Caption = ' ' + Caption = ' ' end object TBClose: TToolButton - Left = 1111 - Top = 0 + Left = 996 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 21 @@ -96,16 +97,16 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end end object Panel16: TPanel - Left = 568 - Top = 292 - Width = 315 - Height = 38 + Left = 448 + Top = 231 + Width = 249 + Height = 30 BevelOuter = bvNone Caption = #27491#22312#20445#23384#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -115,151 +116,21 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX object Panel6: TPanel Left = 0 Top = 30 - Width = 1102 - Height = 579 + Width = 1112 + Height = 593 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 - object Panel8: TPanel - Left = 2 - Top = 2 - Width = 1098 - Height = 46 - Align = alTop - BevelInner = bvRaised - BevelOuter = bvLowered - Color = clSkyBlue - TabOrder = 0 - object Label25: TLabel - Left = 424 - Top = 9 - Width = 71 - Height = 27 - Caption = #25968#37327':' - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -27 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label30: TLabel - Left = 547 - Top = 9 - Width = 28 - Height = 27 - Caption = #31859 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -27 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label35: TLabel - Left = 656 - Top = 9 - Width = 56 - Height = 27 - Caption = #20844#26020 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -27 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object BtnDel: TButton - Left = 282 - Top = 3 - Width = 82 - Height = 42 - Caption = #21024#38500 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -25 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = BtnDelClick - end - object Button1: TButton - Left = 158 - Top = 3 - Width = 83 - Height = 41 - Caption = #22686#34892 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -25 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = Button1Click - end - object Button5: TButton - Left = 655 - Top = 64 - Width = 84 - Height = 42 - Caption = #20445#23384 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -18 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - Visible = False - OnClick = Button5Click - end - object UnitM: TEdit - Left = 495 - Top = 4 - Width = 45 - Height = 32 - Color = clMenuBar - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -27 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 3 - OnChange = UnitMChange - OnClick = UnitMClick - end - object UnitKg: TEdit - Left = 605 - Top = 4 - Width = 44 - Height = 32 - Color = clMenuBar - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -27 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 4 - OnChange = UnitKgChange - OnClick = UnitKgClick - end - end object cxGrid1: TcxGrid Left = 2 - Top = 48 - Width = 1098 - Height = 486 + Top = 38 + Width = 1108 + Height = 519 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -660,246 +531,376 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX GridView = TV1 end end + object Panel8: TPanel + Left = 2 + Top = 2 + Width = 1108 + Height = 36 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 0 + object Label25: TLabel + Left = 335 + Top = 7 + Width = 56 + Height = 21 + Caption = #25968#37327':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label30: TLabel + Left = 432 + Top = 7 + Width = 22 + Height = 21 + Caption = #31859 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label35: TLabel + Left = 518 + Top = 7 + Width = 44 + Height = 21 + Caption = #20844#26020 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnDel: TButton + Left = 223 + Top = 2 + Width = 64 + Height = 34 + Caption = #21024#38500 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = BtnDelClick + end + object Button1: TButton + Left = 125 + Top = 2 + Width = 65 + Height = 33 + Caption = #22686#34892 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button1Click + end + object Button5: TButton + Left = 517 + Top = 51 + Width = 66 + Height = 33 + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + Visible = False + OnClick = Button5Click + end + object UnitM: TEdit + Left = 391 + Top = 3 + Width = 35 + Height = 35 + Color = clMenuBar + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + OnChange = UnitMChange + OnClick = UnitMClick + end + object UnitKg: TEdit + Left = 478 + Top = 3 + Width = 34 + Height = 35 + Color = clMenuBar + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + OnChange = UnitKgChange + OnClick = UnitKgClick + end + end object Panel10: TPanel Left = 2 - Top = 534 - Width = 1098 - Height = 43 + Top = 557 + Width = 1108 + Height = 34 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label41: TLabel - Left = 18 - Top = 12 - Width = 105 - Height = 20 + Left = 14 + Top = 9 + Width = 85 + Height = 16 Caption = #20844#26020#25968#22343#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -20 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label42: TLabel - Left = 222 - Top = 12 - Width = 84 - Height = 20 + Left = 175 + Top = 9 + Width = 68 + Height = 16 Caption = #31859#25968#22343#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -20 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 466 - Top = 61 - Width = 90 - Height = 17 + Left = 368 + Top = 48 + Width = 70 + Height = 13 Caption = #26680#23545#25968#37327#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 619 - Top = 61 - Width = 18 - Height = 17 + Left = 489 + Top = 48 + Width = 14 + Height = 13 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label29: TLabel - Left = 938 - Top = 61 - Width = 54 - Height = 17 + Left = 741 + Top = 48 + Width = 42 + Height = 13 Caption = #37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label44: TLabel - Left = 757 - Top = 61 - Width = 18 - Height = 17 + Left = 598 + Top = 48 + Width = 14 + Height = 13 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label49: TLabel - Left = 887 - Top = 61 - Width = 36 - Height = 17 + Left = 700 + Top = 48 + Width = 28 + Height = 13 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 466 - Top = 80 - Width = 90 - Height = 17 + Left = 368 + Top = 63 + Width = 70 + Height = 13 Caption = #25968#37327#23545#27604#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel - Left = 619 - Top = 80 - Width = 18 - Height = 17 + Left = 489 + Top = 63 + Width = 14 + Height = 13 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label17: TLabel - Left = 757 - Top = 80 - Width = 18 - Height = 17 + Left = 598 + Top = 63 + Width = 14 + Height = 13 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label18: TLabel - Left = 887 - Top = 80 - Width = 36 - Height = 17 + Left = 700 + Top = 63 + Width = 28 + Height = 13 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 938 - Top = 80 - Width = 54 - Height = 17 + Left = 741 + Top = 63 + Width = 42 + Height = 13 Caption = #37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label31: TLabel - Left = 448 - Top = 91 - Width = 108 - Height = 34 + Left = 354 + Top = 72 + Width = 84 + Height = 26 Caption = #30721#21333#24635#25968#37327#65306#13#10' ('#24405#20837')' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label32: TLabel - Left = 619 - Top = 93 - Width = 18 - Height = 17 + Left = 489 + Top = 73 + Width = 14 + Height = 13 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label28: TLabel - Left = 938 - Top = 93 - Width = 54 - Height = 17 + Left = 741 + Top = 73 + Width = 42 + Height = 13 Caption = #37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label45: TLabel - Left = 757 - Top = 93 - Width = 18 - Height = 17 + Left = 598 + Top = 73 + Width = 14 + Height = 13 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label50: TLabel - Left = 887 - Top = 93 - Width = 36 - Height = 17 + Left = 700 + Top = 73 + Width = 28 + Height = 13 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button10: TButton - Left = 655 - Top = 64 - Width = 84 - Height = 42 + Left = 517 + Top = 51 + Width = 66 + Height = 33 Caption = #20445#23384 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -908,14 +909,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object KgQtyAvg: TEdit Tag = 99 - Left = 127 - Top = 8 - Width = 69 - Height = 23 + Left = 100 + Top = 6 + Width = 55 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -924,14 +925,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object QtyAvg: TEdit Tag = 99 - Left = 312 - Top = 10 - Width = 66 - Height = 23 + Left = 246 + Top = 8 + Width = 52 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -940,14 +941,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object MXHZPS: TEdit Tag = 2 - Left = 550 - Top = 53 - Width = 65 - Height = 23 + Left = 434 + Top = 42 + Width = 52 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -955,14 +956,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX TabOrder = 3 end object MXHZQty: TEdit - Left = 658 - Top = 53 - Width = 94 - Height = 23 + Left = 519 + Top = 42 + Width = 75 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -970,14 +971,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX TabOrder = 4 end object MXHZKgQty: TEdit - Left = 790 - Top = 53 - Width = 92 - Height = 23 + Left = 624 + Top = 42 + Width = 72 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -986,27 +987,27 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object MYHDMoney: TEdit Tag = 2 - Left = 988 - Top = 53 - Width = 95 - Height = 23 + Left = 780 + Top = 42 + Width = 75 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 end object PSChaE: TEdit - Left = 550 - Top = 72 - Width = 65 - Height = 23 + Left = 434 + Top = 57 + Width = 52 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1014,14 +1015,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX TabOrder = 7 end object QtyChaE: TEdit - Left = 658 - Top = 72 - Width = 94 - Height = 23 + Left = 519 + Top = 57 + Width = 75 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1029,14 +1030,14 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX TabOrder = 8 end object KgQtyChaE: TEdit - Left = 790 - Top = 72 - Width = 92 - Height = 23 + Left = 624 + Top = 57 + Width = 72 + Height = 25 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1045,13 +1046,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object MoneyChaE: TEdit Tag = 2 - Left = 988 - Top = 72 - Width = 95 - Height = 23 + Left = 780 + Top = 57 + Width = 75 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1059,13 +1060,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object PS: TEdit Tag = 2 - Left = 550 - Top = 89 - Width = 64 - Height = 23 + Left = 434 + Top = 70 + Width = 51 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1073,13 +1074,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object Qty: TEdit Tag = 2 - Left = 657 - Top = 88 - Width = 94 - Height = 23 + Left = 519 + Top = 69 + Width = 74 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1087,13 +1088,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object KgQty: TEdit Tag = 2 - Left = 790 - Top = 89 - Width = 92 - Height = 23 + Left = 624 + Top = 70 + Width = 72 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1101,13 +1102,13 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end object MYMDMoney: TEdit Tag = 2 - Left = 988 - Top = 88 - Width = 95 - Height = 23 + Left = 780 + Top = 69 + Width = 75 + Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1196,7 +1197,7 @@ object frmLLRKMXInPutMH_PBMX: TfrmLLRKMXInPutMH_PBMX end end object cxStyleRepository1: TcxStyleRepository - PixelsPerInch = 120 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.pas b/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.pas index b5f6e02..f7cb93e 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPutMH_PBMX.pas @@ -14,7 +14,20 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus, cxGridBandedTableView, cxGridDBBandedTableView, 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 TfrmLLRKMXInPutMH_PBMX = class(TForm) @@ -265,6 +278,7 @@ begin sql.Add('select * from CK_MYSC_CR_MX where MXID='''+Trim(maxmxno)+''''); Open; end; + with ADOCmd do begin Append; @@ -277,6 +291,7 @@ begin FieldByName('FillerCode').Value:=Trim(DCode); Post; end; + with ADOCmd do begin Close; @@ -285,6 +300,7 @@ begin Parameters.ParamByName('MYID').Value:=Trim(FMainId); ExecSQL; end; + with ADOCmd do begin Close; @@ -304,6 +320,7 @@ begin end; end; ClientDataSet1.EnableControls; + with ADOCmd do begin Close; diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm index 9e3644b..4727c9b 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm @@ -295,10 +295,11 @@ object frmPBCGRKList: TfrmPBCGRKList Color = clSkyBlue TabOrder = 1 object Label34: TLabel - Left = 239 + Left = 15 Top = 13 - Width = 80 + Width = 96 Height = 15 + Alignment = taRightJustify Caption = #20379#24212#21830#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -308,8 +309,8 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label2: TLabel - Left = 36 - Top = 13 + Left = 360 + Top = 45 Width = 32 Height = 15 Caption = #21697#21517 @@ -321,10 +322,11 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label1: TLabel - Left = 36 - Top = 40 - Width = 32 + Left = 700 + Top = 45 + Width = 80 Height = 15 + Alignment = taRightJustify Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -334,8 +336,8 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label3: TLabel - Left = 239 - Top = 40 + Left = 15 + Top = 45 Width = 96 Height = 15 Caption = #36827#20179#21333#20301#31616#31216 @@ -347,7 +349,7 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label4: TLabel - Left = 583 + Left = 550 Top = 13 Width = 48 Height = 15 @@ -360,8 +362,8 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label5: TLabel - Left = 583 - Top = 40 + Left = 550 + Top = 45 Width = 48 Height = 15 Caption = #37319#36141#20154 @@ -373,8 +375,8 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label6: TLabel - Left = 733 - Top = 40 + Left = 700 + Top = 13 Width = 80 Height = 15 Caption = #22383#24067#32852#31995#21495 @@ -386,7 +388,7 @@ object frmPBCGRKList: TfrmPBCGRKList ParentFont = False end object Label7: TLabel - Left = 775 + Left = 360 Top = 13 Width = 32 Height = 15 @@ -426,13 +428,13 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 8 + TabOrder = 6 end object Note: TEdit Tag = 2 - Left = 70 - Top = 36 - Width = 141 + Left = 789 + Top = 41 + Width = 140 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -440,7 +442,7 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 4 + TabOrder = 3 OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox @@ -460,33 +462,9 @@ object frmPBCGRKList: TfrmPBCGRKList TabOrder = 2 OnClick = CheckBox1Click end - object JCDanWeiJC: TEdit - Tag = 2 - Left = 339 - Top = 36 - Width = 118 - Height = 23 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -15 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 5 - OnChange = CustomerNoNameChange - end - object Button1: TButton - Left = 458 - Top = 35 - Width = 27 - Height = 24 - Caption = '...' - TabOrder = 3 - OnClick = Button1Click - end object filler: TEdit Tag = 2 - Left = 635 + Left = 607 Top = 9 Width = 84 Height = 23 @@ -501,8 +479,8 @@ object frmPBCGRKList: TfrmPBCGRKList end object JCKHNo: TEdit Tag = 2 - Left = 485 - Top = 36 + Left = 269 + Top = 41 Width = 82 Height = 23 Font.Charset = GB2312_CHARSET @@ -511,13 +489,13 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 6 + TabOrder = 4 OnChange = CustomerNoNameChange end object CGName: TEdit Tag = 2 - Left = 635 - Top = 36 + Left = 607 + Top = 41 Width = 84 Height = 23 Font.Charset = GB2312_CHARSET @@ -526,29 +504,29 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + TabOrder = 5 + OnChange = CustomerNoNameChange + end + object PBBatchNo: TEdit + Tag = 2 + Left = 789 + Top = 9 + Width = 140 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False TabOrder = 7 OnChange = CustomerNoNameChange end - object PBBatchNo: TEdit - Tag = 2 - Left = 808 - Top = 36 - Width = 122 - Height = 23 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -15 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 9 - OnChange = CustomerNoNameChange - end object MYCode: TEdit Tag = 2 - Left = 808 + Left = 401 Top = 9 - Width = 121 + Width = 140 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -556,13 +534,13 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 10 + TabOrder = 8 OnChange = CustomerNoNameChange end object MYName: TComboBox Tag = 2 - Left = 72 - Top = 6 + Left = 401 + Top = 41 Width = 140 Height = 23 Color = clScrollBar @@ -573,13 +551,13 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Style = [fsBold] ItemHeight = 15 ParentFont = False - TabOrder = 11 + TabOrder = 9 OnChange = CustomerNoNameChange end object KHNameJC: TComboBox Tag = 2 - Left = 340 - Top = 6 + Left = 120 + Top = 9 Width = 140 Height = 23 Color = clScrollBar @@ -590,13 +568,13 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Style = [fsBold] ItemHeight = 15 ParentFont = False - TabOrder = 12 + TabOrder = 10 OnChange = KHNameJCChange end object KHNo: TEdit Tag = 2 - Left = 486 - Top = 8 + Left = 269 + Top = 9 Width = 82 Height = 23 Font.Charset = GB2312_CHARSET @@ -605,9 +583,26 @@ object frmPBCGRKList: TfrmPBCGRKList Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - TabOrder = 13 + TabOrder = 11 OnChange = CustomerNoNameChange end + object JCDanWeiJC: TBtnEditA + Tag = 2 + Left = 120 + Top = 40 + Width = 140 + Height = 25 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnChange = CustomerNoNameChange + OnBtnClick = JCDanWeiJCBtnClick + end end object Panel3: TPanel Left = 687 diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas b/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas index d4044f2..ed21abf 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas @@ -73,8 +73,6 @@ type v1MYMDMoney: TcxGridDBColumn; v1JCDanWeiJC: TcxGridDBColumn; Label3: TLabel; - JCDanWeiJC: TEdit; - Button1: TButton; v1filler: TcxGridDBColumn; Label4: TLabel; filler: TEdit; @@ -139,6 +137,7 @@ type ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; KHNo: TEdit; + JCDanWeiJC: TBtnEditA; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -167,6 +166,7 @@ type procedure ToRCNameBtnClick(Sender: TObject); procedure N5Click(Sender: TObject); procedure KHNameJCChange(Sender: TObject); + procedure JCDanWeiJCBtnClick(Sender: TObject); private canshu1: string; DQdate: TDateTime; @@ -768,6 +768,7 @@ begin if ShowModal = 1 then begin Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + Self.JCKHNo.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString); TBFind.Click; end; end; @@ -1348,5 +1349,25 @@ begin KHNo.Text := Trim(ADOQuery2.fieldbyname('KHNo').AsString); end; +procedure TfrmPBCGRKList.JCDanWeiJCBtnClick(Sender: TObject); +begin + try + frmGYSList := TfrmGYSList.Create(Application); + with frmGYSList do + begin + KHType.Text := 'Ⱦ'; + KHType.TxtCode := 'Ⱦ'; + if ShowModal = 1 then + begin + Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + Self.JCKHNo.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString); + TBFind.Click; + end; + end; + finally + frmGYSList.Free; + end; +end; + end. diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm index 14a04b2..7ca7707 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm @@ -675,6 +675,161 @@ object frmZHCPInPut: TfrmZHCPInPut Visible = False OnDblClick = Image2DblClick end + object Panel12: TPanel + Left = 22 + Top = 55 + Width = 201 + Height = 88 + TabOrder = 0 + Visible = False + object Label32: TLabel + Left = 8 + Top = 31 + Width = 52 + Height = 12 + Caption = #25991#20214#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object btn1: TButton + Left = 9 + Top = 55 + Width = 51 + Height = 26 + Caption = #26159 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button2Click + end + object Panel13: TPanel + Left = 1 + Top = 1 + Width = 199 + Height = 20 + Align = alTop + Alignment = taLeftJustify + BevelOuter = bvNone + Caption = ' '#26159#21542#26356#25913#25991#20214#21517#31216'?' + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + object img1: TImage + Left = 175 + Top = 2 + Width = 22 + Height = 18 + ParentShowHint = False + Picture.Data = { + 07544269746D617076040000424D760400000000000036000000280000001500 + 0000110000000100180000000000400400000000000000000000000000000000 + 0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6 + F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040 + 404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080 + 808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000 + 000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000 + 000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4 + C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4 + C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4 + C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF + FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FF00} + ShowHint = True + Transparent = True + end + end + object WJName: TEdit + Left = 61 + Top = 28 + Width = 134 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object btn2: TButton + Left = 141 + Top = 55 + Width = 49 + Height = 25 + Caption = #21542 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + end + object WJPach: TEdit + Left = 83 + Top = 185 + Width = 285 + Height = 28 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + end + object btn3: TButton + Left = 76 + Top = 55 + Width = 50 + Height = 25 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end end object Panel2: TPanel Left = 258 @@ -1006,26 +1161,26 @@ object frmZHCPInPut: TfrmZHCPInPut Connection = DataLink_MYSC.ADOLink LockType = ltReadOnly Parameters = <> - Left = 584 - Top = 5 + Left = 773 + Top = 317 end object ADOCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 552 - Top = 5 + Left = 621 + Top = 317 end object ADOQuery1: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 728 - Top = 5 + Left = 659 + Top = 317 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> - Left = 700 - Top = 6 + Left = 621 + Top = 355 end object RM1: TRMGridReport ThreadPrepareReport = True @@ -1044,43 +1199,43 @@ object frmZHCPInPut: TfrmZHCPInPut CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 757 - Top = 5 + Left = 773 + Top = 355 ReportData = {} end object ODPat: TOpenDialog Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] - Left = 484 - Top = 5 + Left = 697 + Top = 355 end object IdFTP1: TIdFTP MaxLineAction = maException ReadTimeout = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 - Left = 517 - Top = 4 + Left = 659 + Top = 355 end object SaveDialog1: TSaveDialog - Left = 457 - Top = 5 + Left = 621 + Top = 393 end object adoqueryPicture: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 615 - Top = 5 + Left = 735 + Top = 317 end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT - Left = 657 - Top = 5 + Left = 735 + Top = 355 end object ADOQueryCmd: TADOQuery Connection = DataLink_MYSC.ADOLink Parameters = <> - Left = 208 - Top = 208 + Left = 697 + Top = 317 end end diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas index 820aa00..331a6fe 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas @@ -104,6 +104,15 @@ type TSHGYCB: TEdit; Label31: TLabel; CPSSL: TEdit; + Panel12: TPanel; + Label32: TLabel; + btn1: TButton; + Panel13: TPanel; + img1: TImage; + WJName: TEdit; + btn2: TButton; + WJPach: TEdit; + btn3: TButton; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject);