From 25211fde5317622d1d72e2aeac15e7d2aa50b617 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 5 Jul 2025 15:14:36 +0800 Subject: [PATCH] 1 --- 云翔生产管理(MYSC.dll)/MYSC.dpr | 4 +- 云翔生产管理(MYSC.dll)/U_GetDllForm.pas | 51 +- 云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm | 1039 ++++++++++++++++ 云翔生产管理(MYSC.dll)/U_LLCKInPut.pas | 883 +++++++++++++ 云翔生产管理(MYSC.dll)/U_LLCKList.dfm | 757 ++++++++++++ 云翔生产管理(MYSC.dll)/U_LLCKList.pas | 503 ++++++++ 云翔生产管理(MYSC.dll)/U_LLKCList.dfm | 1429 ++++++++++++++++++++++ 云翔生产管理(MYSC.dll)/U_LLKCList.pas | 1202 ++++++++++++++++++ 云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm | 578 ++++----- 云翔生产管理(MYSC.dll)/U_LLRKList.dfm | 12 +- 云翔生产管理(MYSC.dll)/U_LLRKList.pas | 16 +- 云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm | 534 ++++---- 云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas | 17 +- 云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm | 8 +- 云翔生产管理(MYSC.dll)/U_PBCGRKList.pas | 15 +- 15 files changed, 6471 insertions(+), 577 deletions(-) create mode 100644 云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm create mode 100644 云翔生产管理(MYSC.dll)/U_LLCKInPut.pas create mode 100644 云翔生产管理(MYSC.dll)/U_LLCKList.dfm create mode 100644 云翔生产管理(MYSC.dll)/U_LLCKList.pas create mode 100644 云翔生产管理(MYSC.dll)/U_LLKCList.dfm create mode 100644 云翔生产管理(MYSC.dll)/U_LLKCList.pas diff --git a/云翔生产管理(MYSC.dll)/MYSC.dpr b/云翔生产管理(MYSC.dll)/MYSC.dpr index daa5fc4..18aa5aa 100644 --- a/云翔生产管理(MYSC.dll)/MYSC.dpr +++ b/云翔生产管理(MYSC.dll)/MYSC.dpr @@ -47,8 +47,8 @@ uses U_ZSDSelist in 'U_ZSDSelist.pas' {frmZSDSelist}, U_PBKCList in 'U_PBKCList.pas' {frmPBKCList}, U_JGCKListSel in 'U_JGCKListSel.pas' {frmJJGCKListSel}, - U_JGCKInPut in 'U_JGCKInPut.pas' {frmJGCKInPut}, - U_JGCKList in 'U_JGCKList.pas' {frmJGCKList}, + U_LLCKInPut in 'U_LLCKInPut.pas' {frmLLCKInPut}, + U_LLCKList in 'U_LLCKList.pas' {frmLLCKList}, U_MLSCDXZ in 'U_MLSCDXZ.pas' {frmmlscdxz}, U_ZSDXZ in 'U_ZSDXZ.pas' {frmzsdxz}; diff --git a/云翔生产管理(MYSC.dll)/U_GetDllForm.pas b/云翔生产管理(MYSC.dll)/U_GetDllForm.pas index 6ad4c4a..189d490 100644 --- a/云翔生产管理(MYSC.dll)/U_GetDllForm.pas +++ b/云翔生产管理(MYSC.dll)/U_GetDllForm.pas @@ -26,7 +26,7 @@ uses U_MJManageNewFDNew_New, U_JYJT_New, U_MainWFBCKList, U_MianWFBKCList, U_MPDRKList, U_PBKCList, U_JGCKList, U_PBRKMX, U_MCGCKList, U_MCGKCList, U_CGCX, U_MLSC, U_MLX, U_MCP, U_MCGKCListNew, U_MPZKCListNew, U_MPDRKListNew, - U_MPDCKListNew, U_NameDY; + U_MPDCKListNew, U_NameDY, U_LLCKList, U_LLKCList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -46,7 +46,6 @@ var frmMCGRKListOld, frmMCGRKListNew: TfrmMCGRKList; frmMCPGL, frmMCPLR: TfrmMCP; - function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; var i: Integer; @@ -83,7 +82,7 @@ begin //ֵַ SetLength(server, 255); SetLength(dtbase, 255); - SetLength(user, 255); + SetLength(user, 255); SetLength(pswd, 255); server := '106.14.113.234,7781'; @@ -357,7 +356,7 @@ begin //if frmBaoGuanListBGZL=nil then begin frmZHCPDJListDJGQX := TfrmZHCPDJList.Create(application.MainForm); - with frmZHCPDJListDJGQX do + with frmZHCPDJListDJGQX do begin Title := '۵Ǽ(Ȩ)*'; caption := Trim(Title); @@ -513,6 +512,46 @@ begin mnewHandle := frmLLRKList.Handle; end; + 23: //ͻϳ + begin + if frmLLCKList = nil then + begin + frmLLCKList := TfrmLLCKList.Create(application.MainForm); + with frmLLCKList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmLLCKList.BringToFront; + // + mnewHandle := frmLLCKList.Handle; + end; + + 24: //ͻϿ + begin + if frmLLKCList = nil then + begin + frmLLKCList := TfrmLLKCList.Create(application.MainForm); + with frmLLKCList do + begin + caption := Trim(Title); + FormStyle := mstyle; + windowState := mstate; + BorderStyle := mborderstyle; + //show; + end; + end + else + frmLLKCList.BringToFront; + // + mnewHandle := frmLLKCList.Handle; + end; + 21: //ӹ begin if frmLLRKList_WJG = nil then @@ -576,9 +615,9 @@ begin 3101: //ӹ뵥Ǽ* begin bFound := FALSE; - for i := (App.MainForm.MDIChildCount - 1) downto 0 do + for i := (App.MainForm.MDIChildCount - 1) downto 0 do begin - if App.MainForm.MDIChildren[i].Caption = 'ӹ뵥Ǽ*' then + if App.MainForm.MDIChildren[i].Caption = 'ӹ뵥Ǽ*' then begin BringWindowToTop(frmPBCGRKList_RCDJLR.Handle); bFound := TRUE; diff --git a/云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm b/云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm new file mode 100644 index 0000000..16bcf0f --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLCKInPut.dfm @@ -0,0 +1,1039 @@ +object frmLLCKInPut: TfrmLLCKInPut + Left = 531 + Top = 184 + Width = 1172 + Height = 835 + Caption = #21152#24037#20986#24211 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 15 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1164 + Height = 30 + ButtonHeight = 30 + ButtonWidth = 123 + Caption = 'ToolBar1' + Color = clBtnFace + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + Images = DataLink_MYSC.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object Label26: TLabel + Left = 0 + Top = 0 + Width = 36 + Height = 30 + Caption = ' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object TBSave: TToolButton + Left = 36 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 5 + OnClick = TBSaveClick + end + object ToolButton1: TToolButton + Left = 119 + Top = 0 + Caption = #36873#25321#25968#25454 + ImageIndex = 22 + OnClick = ToolButton1Click + end + object Panel2: TPanel + Left = 242 + Top = 0 + Width = 185 + Height = 30 + BevelOuter = bvNone + TabOrder = 0 + end + object labMYType: TLabel + Left = 427 + Top = 0 + Width = 240 + Height = 30 + Caption = ' ' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Panel6: TPanel + Left = 667 + Top = 0 + Width = 185 + Height = 30 + BevelOuter = bvNone + TabOrder = 1 + end + object TBClose: TToolButton + Left = 852 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + end + object Panel3: TPanel + Left = 0 + Top = 30 + Width = 1164 + Height = 774 + Align = alClient + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 1 + object Panel4: TPanel + Left = 2 + Top = 2 + Width = 1160 + Height = 246 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 0 + object Label13: TLabel + Left = 412 + Top = 15 + Width = 74 + Height = 17 + Caption = #26085' '#26399#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label33: TLabel + Left = 35 + Top = 15 + Width = 92 + Height = 17 + Caption = #21152' '#24037' '#21378#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 33 + Top = 57 + Width = 94 + Height = 17 + Caption = #21697' '#21517#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label12: TLabel + Left = 646 + Top = 109 + Width = 94 + Height = 17 + Caption = #20811' '#37325#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 412 + Top = 109 + Width = 74 + Height = 17 + Caption = #38376' '#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 596 + Top = 109 + Width = 20 + Height = 17 + Caption = 'CM' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 836 + Top = 109 + Width = 38 + Height = 17 + Caption = 'g/'#13217 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 646 + Top = 15 + Width = 94 + Height = 17 + Caption = #33457' '#22411#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label11: TLabel + Left = 412 + Top = 57 + Width = 74 + Height = 17 + Caption = #39068' '#33394#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 646 + Top = 57 + Width = 94 + Height = 17 + Caption = #33394' '#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 35 + Top = 205 + Width = 94 + Height = 17 + Caption = #22791' '#27880#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 414 + Top = 205 + Width = 90 + Height = 17 + Caption = #25910#36135#21333#20301#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 35 + Top = 158 + Width = 84 + Height = 17 + Caption = #23458' '#25143#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 412 + Top = 160 + Width = 72 + Height = 17 + Caption = #21512#21516#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 646 + Top = 160 + Width = 90 + Height = 17 + Caption = #25351#31034#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 33 + Top = 109 + Width = 108 + Height = 17 + Caption = #22383#24067#32852#31995#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object CRTime: TDateTimePicker + Tag = 2 + Left = 473 + Top = 12 + Width = 144 + Height = 25 + Date = 42459.000000000000000000 + Time = 42459.000000000000000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object GYSName: TBtnEditA + Tag = 2 + Left = 112 + Top = 13 + Width = 273 + Height = 31 + Hint = 'GYSNo' + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 1 + OnBtnClick = GYSNameBtnClick + end + object MYName: TEdit + Tag = 2 + Left = 113 + Top = 57 + Width = 268 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 2 + end + object MYKZ: TEdit + Tag = 2 + Left = 722 + Top = 108 + Width = 111 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 3 + end + object MYMF: TEdit + Tag = 2 + Left = 473 + Top = 108 + Width = 113 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 4 + end + object MYHX: TEdit + Tag = 2 + Left = 722 + Top = 14 + Width = 138 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + end + object MYColor: TEdit + Tag = 2 + Left = 473 + Top = 56 + Width = 140 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 6 + end + object MYColorNo: TEdit + Tag = 2 + Left = 722 + Top = 56 + Width = 140 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 7 + end + object Note: TEdit + Tag = 2 + Left = 113 + Top = 202 + Width = 273 + Height = 31 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + end + object ToGYSName: TBtnEditA + Tag = 2 + Left = 491 + Top = 201 + Width = 372 + Height = 31 + Hint = 'ToGYSNo' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 9 + OnBtnClick = ToGYSNameBtnClick + end + object KHNameJC: TBtnEditA + Left = 112 + Top = 156 + Width = 273 + Height = 31 + Hint = 'ToGYSNo' + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 10 + OnBtnClick = KHNameJCBtnClick + end + object MLConNo: TEdit + Left = 473 + Top = 157 + Width = 140 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 11 + end + object PBBatchNo: TEdit + Tag = 2 + Left = 136 + Top = 107 + Width = 245 + Height = 30 + Color = clScrollBar + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 12 + end + object MLOrderNo: TcxButtonEdit + Left = 722 + Top = 157 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = MLOrderNoPropertiesButtonClick + Style.Color = clScrollBar + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -17 + Style.Font.Name = #23435#20307 + Style.Font.Style = [fsBold] + Style.IsFontAssigned = True + TabOrder = 13 + Width = 141 + end + end + object Panel5: TPanel + Left = 2 + Top = 248 + Width = 1160 + Height = 61 + Align = alTop + TabOrder = 1 + object Label31: TLabel + Left = 251 + Top = 23 + Width = 90 + Height = 17 + Caption = #20986#24211#24635#25968#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label32: TLabel + Left = 380 + Top = 23 + Width = 18 + Height = 17 + Caption = #21305 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label23: TLabel + Left = 225 + Top = 381 + Width = 48 + Height = 15 + Caption = #21333#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label24: TLabel + Left = 1094 + Top = -16 + Width = 48 + Height = 15 + Caption = #21333#20215#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label45: TLabel + Left = 488 + Top = 23 + Width = 18 + Height = 17 + Caption = #31859 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label50: TLabel + Left = 592 + Top = 23 + Width = 36 + Height = 17 + Caption = #20844#26020 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label43: TLabel + Left = 36 + Top = 23 + Width = 82 + Height = 17 + Caption = #35745#20215#26041#24335':' + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PS: TEdit + Tag = 2 + Left = 325 + Top = 22 + Width = 50 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + end + object Qty: TEdit + Tag = 2 + Left = 410 + Top = 22 + Width = 74 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + object KgQty: TEdit + Tag = 2 + Left = 515 + Top = 22 + Width = 72 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object Panel7: TPanel + Left = 1218 + Top = 201 + Width = 99 + Height = 181 + BevelInner = bvRaised + BevelOuter = bvLowered + TabOrder = 3 + Visible = False + object Panel1: TPanel + Left = 9 + Top = 9 + Width = 81 + Height = 160 + BevelInner = bvRaised + TabOrder = 0 + object Label20: TLabel + Left = 27 + Top = 17 + Width = 22 + Height = 126 + Caption = #26126#13#10#32454#13#10#30721#13#10#21333#13#10#24405#13#10#20837 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + end + object PTID: TEdit + Tag = 2 + Left = 1301 + Top = 259 + Width = 72 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + ReadOnly = True + TabOrder = 5 + Visible = False + end + object MYPrice: TEdit + Tag = 2 + Left = 267 + Top = 379 + Width = 42 + Height = 25 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + Visible = False + end + object MDMFlag: TCheckBox + Left = 114 + Top = 18 + Width = 51 + Height = 26 + Caption = #31859 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 6 + OnClick = MDMFlagClick + end + object MDKGFlag: TCheckBox + Left = 173 + Top = 18 + Width = 69 + Height = 26 + Caption = #20844#26020 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -17 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = MDKGFlagClick + end + end + object Panel8: TPanel + Left = 2 + Top = 309 + Width = 1160 + Height = 463 + Align = alClient + Caption = 'Panel8' + TabOrder = 2 + object Panel9: TPanel + Left = 1 + Top = 1 + Width = 316 + Height = 461 + Align = alLeft + TabOrder = 0 + object Label18: TLabel + Left = 25 + Top = 19 + Width = 189 + Height = 20 + Caption = #27880#65306#36755#20837#25968#37327#25970#22238#36710 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 25 + Top = 76 + Width = 105 + Height = 20 + Caption = #26126#32454#25968#37327#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit1: TEdit + Left = 120 + Top = 72 + Width = 96 + Height = 35 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnKeyPress = Edit1KeyPress + end + end + object cxGrid1: TcxGrid + Left = 317 + Top = 1 + Width = 842 + Height = 461 + Align = alClient + TabOrder = 1 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCellDblClick = Tv1CellDblClick + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #20010#25968':##' + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column11 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column2 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object v1Column11: TcxGridDBColumn + Caption = #26126#32454#25968#37327#65288#31859#65289 + DataBinding.FieldName = 'MQty' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle1 + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 247 + end + object Tv1Column1: TcxGridDBColumn + Caption = #26126#32454#25968#37327#65288#20844#26020#65289 + DataBinding.FieldName = 'KgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle1 + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 181 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26680#31639#25968#37327 + DataBinding.FieldName = 'HSQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = cxStyle1 + Styles.Footer = cxStyle1 + Styles.Header = cxStyle1 + Width = 161 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + end + object ADOTemp: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 766 + Top = 493 + end + object ADOCmd: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 726 + Top = 487 + end + object ADOQuery1: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 730 + Top = 532 + end + object DataSource1: TDataSource + DataSet = ClientDataSet1 + Left = 802 + Top = 527 + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 839 + Top = 493 + end + object PopupMenu2: TPopupMenu + Left = 238 + Top = 792 + object MenuItem1: TMenuItem + Caption = #19978#20256 + end + object N3: TMenuItem + Caption = #21024#38500 + end + object MenuItem2: TMenuItem + Caption = #37325#21629#21517 + end + object N4: TMenuItem + Caption = #21478#23384#20026 + end + end + object ImageList1: TImageList + Height = 32 + ShareImages = True + Width = 32 + Left = 170 + Top = 799 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 285 + Top = 793 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 110 + Top = 784 + end + object ADOQuery2: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 765 + Top = 532 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 810 + Top = 492 + end + object cxStyleRepository1: TcxStyleRepository + Left = 368 + Top = 8 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svFont] + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -18 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + end +end diff --git a/云翔生产管理(MYSC.dll)/U_LLCKInPut.pas b/云翔生产管理(MYSC.dll)/U_LLCKInPut.pas new file mode 100644 index 0000000..375dea1 --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLCKInPut.pas @@ -0,0 +1,883 @@ +unit U_LLCKInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView, + cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, + cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, + StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, + cxDropDownEdit, jpeg, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, + cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, + IniFiles, Menus, ImgList, ShellAPI, cxGridBandedTableView, + cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter; + +type + TfrmLLCKInPut = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOTemp: TADOQuery; + ADOCmd: TADOQuery; + ADOQuery1: TADOQuery; + TBSave: TToolButton; + DataSource1: TDataSource; + ClientDataSet1: TClientDataSet; + Label26: TLabel; + Panel3: TPanel; + labMYType: TLabel; + Panel4: TPanel; + Label13: TLabel; + CRTime: TDateTimePicker; + Panel5: TPanel; + Label31: TLabel; + Label32: TLabel; + PS: TEdit; + Qty: TEdit; + KgQty: TEdit; + Panel7: TPanel; + Panel1: TPanel; + Label20: TLabel; + PTID: TEdit; + Label23: TLabel; + MYPrice: TEdit; + Label24: TLabel; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + N3: TMenuItem; + MenuItem2: TMenuItem; + N4: TMenuItem; + ImageList1: TImageList; + ADOQueryCmd: TADOQuery; + ADOQueryTmp: TADOQuery; + ADOQuery2: TADOQuery; + Label45: TLabel; + Label50: TLabel; + ADOQueryTemp: TADOQuery; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + Label33: TLabel; + GYSName: TBtnEditA; + Label22: TLabel; + MYName: TEdit; + Label12: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + MYKZ: TEdit; + MYMF: TEdit; + Label2: TLabel; + Label11: TLabel; + MYHX: TEdit; + MYColor: TEdit; + Label4: TLabel; + MYColorNo: TEdit; + Label43: TLabel; + MDMFlag: TCheckBox; + MDKGFlag: TCheckBox; + Label1: TLabel; + Note: TEdit; + Label3: TLabel; + ToGYSName: TBtnEditA; + Panel2: TPanel; + Panel6: TPanel; + Label5: TLabel; + KHNameJC: TBtnEditA; + Label8: TLabel; + MLConNo: TEdit; + Label10: TLabel; + Label17: TLabel; + PBBatchNo: TEdit; + MLOrderNo: TcxButtonEdit; + Panel8: TPanel; + Panel9: TPanel; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column11: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Label18: TLabel; + Label19: TLabel; + Edit1: TEdit; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + ToolButton1: TToolButton; + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure MDMFlagClick(Sender: TObject); + procedure MDKGFlagClick(Sender: TObject); + procedure GYSNameBtnClick(Sender: TObject); + procedure ToGYSNameBtnClick(Sender: TObject); + procedure KHNameJCBtnClick(Sender: TObject); + procedure MLOrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Edit1KeyPress(Sender: TObject; var Key: Char); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure ToolButton1Click(Sender: TObject); + private + procedure InitData(); + function SaveData(): Boolean; + function YFData(): Boolean; + procedure InitDataSel(FFMYID: string); + { Private declarations } + public + canshu1: string; + PState, CopyInt: Integer; + FMainId: string; + FRead: string; + FMYType, FMYTypeFlag, FML, FNewMainId, FNewSubid: string; + { Public declarations } + end; + +var + frmLLCKInPut: TfrmLLCKInPut; + +implementation + +uses + U_DataLink, U_ZDYHelp, U_RTFun, U_GYSList, U_OrderListSel, U_PBCGRKListSel, + U_OrderMXSelist, U_JGCKListSel; + +{$R *.dfm} +function TfrmLLCKInPut.YFData(): Boolean; +var + CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName, FFactoryNo: string; +begin + Result := False; + FFactoryName := Trim(GYSName.Text); + FFactoryNo := Trim(GYSName.TxtCode); + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('select * from YS_Money_KC where FactoryNo=' + quotedstr(Trim(FFactoryNo))); + sql.Add(' and KCType=''GYS'' '); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + CRID := ADOQueryTemp.fieldbyname('CRID').AsString; + end + else + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CRID'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YS_Money_CRID set CRID=CRID+1'); + sql.Add('select * from YS_Money_CRID '); + Open; + end; + end + else + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into YS_Money_CRID select 0 '); + sql.Add('select * from YS_Money_CRID '); + Open; + end; + end; + + CRID := ADOQueryCmd.fieldbyname('CRID').AsString; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from YS_Money_KC where 1=2'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('FactoryName').Value := Trim(FFactoryName); + FieldByName('FactoryNo').Value := Trim(FFactoryNo); + FieldByName('ZdyStr1').Value := 'Ӧ'; + FieldByName('KCType').Value := 'GYS'; + Post; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CR where FactoryNo=' + quotedstr(Trim(FFactoryNo))); + sql.Add(' and YFTypeId=''' + Trim(FMainId) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + if GetLSNo(ADOQueryCmd, YFID, 'JG', 'YS_Money_CR', 4, 1) = False then + begin + Application.MessageBox('ȡӦʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CR where YFID=''' + Trim(YFID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if ADOQueryTemp.IsEmpty then + begin + Append; + FieldByName('SCQty').Value := strtofloatdef(Qty.text, 0); + FieldByName('SCPS').Value := strtofloatdef(PS.text, 0); + end + else + Edit; + FieldByName('YFID').Value := Trim(YFID); + FieldByName('YFTypeId').Value := Trim(FMainid); + FieldByName('CRID').Value := StrToInt(CRID); + FieldByName('YFName').Value := 'ӹ'; + FieldByName('Filler').Value := Trim(DName); + FieldByName('CRType').Value := 'ӦǼ'; + FieldByName('CRFlag').Value := 'Ӧ'; + FieldByName('ChkStatusP').Value := 'δ'; + FieldByName('ChkStatusQ').Value := 'δ'; + FieldByName('QtyFlag').Value := 1; + FieldByName('FactoryName').Value := Trim(FFactoryName); + FieldByName('FactoryNo').Value := Trim(FFactoryNo); + FieldByName('CRTime').Value := CRTime.Date; + if MDMFlag.Checked = True then + begin + FieldByName('Qty').Value := Strtofloatdef(Qty.text, 0); + FieldByName('QtyUnit').Value := 'M'; + end + else + begin + FieldByName('Qty').Value := Strtofloatdef(KGQty.text, 0); + FieldByName('QtyUnit').Value := 'KG'; + end; + FieldByName('PS').Value := Strtofloatdef(PS.text, 0); + FieldByName('YFType').Value := 'Զ'; + + FieldByName('CKNO').Value := trim(FMainid); + FieldByName('SJQty').Value := Strtofloatdef(Qty.text, 0); + FieldByName('MiQty').Value := Strtofloatdef(Qty.text, 0); + FieldByName('KGQty').Value := Strtofloatdef(KGQty.text, 0); + FieldByName('P_CodeName').Value := Trim(MYName.text); + FieldByName('P_MF').Value := Trim(MYMF.text); + FieldByName('P_KZ').Value := Trim(MYKZ.Text); + FieldByName('P_Color').Value := Trim(MYColor.Text); + FieldByName('P_ColorNo').Value := Trim(MYColorNo.Text); + FieldByName('P_HX').Value := Trim(MYHX.Text); + FieldByName('BZType').Value := ''; + FieldByName('status').Value := '0'; + Post; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update YS_Money_KC Set KCMoney=(select isnull(Sum(HSMoney*QtyFlag),0) from YS_Money_CR A where A.CRID=YS_Money_KC.CRID)'); + sql.Add(' where CRID=' + CRID); + ExecSQL; + end; + Result := True; +end; + +procedure TfrmLLCKInPut.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmLLCKInPut.InitData(); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,KM.KHNameJC,B.MLConNo,B.MLOrderNo '); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where MYID=''' + Trim(FMainId) + ''''); + Open; + end; + SCSHDataNew(ADOQuery1, Panel4, 2); + SCSHDataNew(ADOQuery1, Panel5, 2); + SCSHDataNew(ADOQuery1, Panel4, 0); + MDMFlag.Checked := ADOQuery1.FieldByName('MDMflag').AsBoolean; + MDKGFlag.Checked := ADOQuery1.FieldByName('MDKGFlag').AsBoolean; + FNewMainId := Trim(ADOQuery1.fieldbyname('MainId').AsString); + FNewSubid := Trim(ADOQuery1.fieldbyname('SubId').AsString); + if PState = 0 then + begin + CRTime.Date := SGetServerDate(ADOTemp); + end; + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(FMainId) + ''''); + open; + end; + SCreateCDS20(ADOQuery1, ClientDataSet1); + SInitCDSData20(ADOQuery1, ClientDataSet1); +end; + +procedure TfrmLLCKInPut.InitDataSel(FFMYID: string); +begin + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add(' select A.*,KM.KHNameJC,B.MLConNo,B.MLOrderNo '); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where MYID=''' + Trim(FFMYID) + ''''); + Open; + end; + SCSHDataNew(ADOQuery1, Panel4, 2); + SCSHDataNew(ADOQuery1, Panel5, 2); + SCSHDataNew(ADOQuery1, Panel4, 0); + MDMFlag.Checked := ADOQuery1.FieldByName('MDMflag').AsBoolean; + MDKGFlag.Checked := ADOQuery1.FieldByName('MDKGFlag').AsBoolean; + FNewMainId := Trim(ADOQuery1.fieldbyname('MainId').AsString); + FNewSubid := Trim(ADOQuery1.fieldbyname('SubId').AsString); + CRTime.Date := SGetServerDate(ADOTemp); + with ADOQuery1 do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where MYID=''' + Trim(FFMYID) + ''''); + open; + end; + SCreateCDS20(ADOQuery1, ClientDataSet1); + SInitCDSData20(ADOQuery1, ClientDataSet1); + with ClientDataSet1 do + begin + First; + while not Eof do + begin + edit; + FieldByName('MYID').Value := Null; + FieldByName('MXID').Value := Null; + Post; + Next; + end; + end; + ToGYSName.Text := ''; + ToGYSName.TxtCode := ''; +end; + +procedure TfrmLLCKInPut.FormShow(Sender: TObject); +begin + InitData(); + +end; + +function TfrmLLCKInPut.SaveData(): Boolean; +var + maxno, maxmxno, maxnoflag, fsj, FMXID: string; +begin + Result := False; + try + ADOCmd.Connection.BeginTrans; + /// + if Trim(FMainId) = '' then + begin + if GetLSNo(ADOCmd, maxno, 'JG', 'CK_MYSC_CR', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + end + else + begin + maxno := Trim(FMainId); + end; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.Add('select * from CK_MYSC_CR where MYId=''' + Trim(maxno) + ''''); + Open; + end; + with ADOCmd do + begin + if isempty then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillerCode').Value := Trim(DCode); + end + else + begin + Edit; + end; + FieldByName('MYId').Value := Trim(maxno); + FieldByName('CRType').Value := 'ӹ뵥'; + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + if Trim(FMainId) = '' then + begin + + end + else + begin + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditerCode').Value := Trim(DCode); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + end; + RTSetsavedata(ADOCmd, 'CK_MYSC_CR', Panel4, 2); + RTSetsavedata(ADOCmd, 'CK_MYSC_CR', Panel5, 2); + FieldByName('MDMflag').Value := MDMFlag.Checked; + FieldByName('MDKGflag').Value := MDKGflag.Checked; + FieldByName('MYType').Value := 'ӹ'; + FieldByName('MYTypeFlag').Value := Trim(FMYTypeFlag); + FieldByName('MainId').Value := Trim(FNewMainId); + FieldByName('SubId').Value := Trim(FNewSubid); + Post; + end; + FMainId := Trim(maxno); + YFData(); + ClientDataSet1.DisableControls; + with ClientDataSet1 do + begin + First; + while not Eof do + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); + Open; + end; + FMXID := Trim(ADOCmd.fieldbyname('MXID').AsString); + if Trim(FMXID) = '' then + begin + if GetLSNo(ADOCmd, maxmxno, 'MX', 'CK_MYSC_CR_MX', 4, 1) = False then + begin + ClientDataSet1.EnableControls; + Application.MessageBox('ȡӹ뵥ϸʧ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxmxno := Trim(FMXID); + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(maxmxno) + ''''); + Open; + end; + with ADOCmd do + begin + if Trim(FMXID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp); + FieldByName('Editer').Value := Trim(DName); + end; + FieldByName('MYID').Value := Trim(FMainId); + FieldByName('MXID').Value := Trim(maxmxno); + RTSetSaveDataCDS(ADOCmd, Tv1, ClientDataSet1, 'CK_MYSC_CR_MX', 0); + Post; + end; + Edit; + FieldByName('MYID').Value := Trim(FMainId); + FieldByName('MXID').Value := Trim(maxmxno); + Post; + Next; + end; + end; + ClientDataSet1.EnableControls; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' where MYID=''' + Trim(FMainId) + ''''); + sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) '); + sql.Add(' where MYID=''' + Trim(FMainId) + ''''); + ExecSQL; + end; + if Trim(ToGYSName.Text) = 'ֿ' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' UPdate ML_OrderSubidNew Set HCPS=(select sum(PS) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) '); + if MDMFlag.Checked then + begin + sql.Add(' ,HCQty=(select sum(Qty) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) '); + end; + if MDKGFlag.Checked then + begin + sql.Add(' ,HCQty=(select sum(KgQty) from CK_MYSC_CR A where A.SubID=ML_OrderSubidNew.NewSubid) '); + end; + sql.Add(' where NewSubid=''' + Trim(FNewSubid) + ''''); + ExecSQL; + end; + end; + if Trim(FMYType) = 'Ⱦɫ' then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add(' exec P_Update_PBKC :PBBatchNo,:JGCNO'); + Parameters.ParamByName('PBBatchNo').Value := Trim(PBBatchNo.Text); + Parameters.ParamByName('JGCNO').Value := Trim(GYSName.TxtCode); + ExecSQL; + end; + end; + ADOCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ClientDataSet1.EnableControls; + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ʧܣ', 'ʾ', 0); + end; +end; + +procedure TfrmLLCKInPut.TBSaveClick(Sender: TObject); +var + FReal: Double; + FInt: Integer; +begin + ToolBar1.SetFocus; + if Trim(GYSName.Text) = '' then + begin + Application.MessageBox('Ӧ̲Ϊ!', 'ʾ', 0); + Exit; + end; + if Trim(MYName.Text) = '' then + begin + Application.MessageBox('ƷΪ!', 'ʾ', 0); + Exit; + end; + if (MDMFlag.Checked = False) and (MDKGFlag.Checked = False) then + begin + Application.MessageBox('ѡƼ۷ʽ', 'ʾ', 0); + Exit; + end; + if MDMFlag.Checked then + begin + if Trim(Qty.Text) = '' then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + end; + if MDKGFlag.Checked then + begin + if Trim(KgQty.Text) = '' then + begin + Application.MessageBox('Ϊ!', 'ʾ', 0); + Exit; + end; + end; + + if Trim(PS.Text) = '' then + begin + Application.MessageBox('ƥΪ!', 'ʾ', 0); + Exit; + end; + if TryStrToInt(PS.Text, FInt) = False then + begin + Application.MessageBox('ƥǷ!', 'ʾ', 0); + exit; + end; + if (Trim(Qty.Text) = '') and (Trim(KgQty.text) = '') then + begin + Application.MessageBox('͹ͬʱΪ!', 'ʾ', 0); + exit; + end; + if Trim(Qty.Text) <> '' then + begin + if TryStrToFloat(Qty.Text, FReal) = False then + begin + Application.MessageBox('Ƿ!', 'ʾ', 0); + exit; + end; + end; + if Trim(KgQty.Text) <> '' then + begin + if TryStrToFloat(KgQty.Text, FReal) = False then + begin + Application.MessageBox('Ƿ!', 'ʾ', 0); + exit; + end; + end; + if Trim(PBBatchNo.Text) = '' then + begin + Application.MessageBox('ϵŲΪ!', 'ʾ', 0); + Exit; + end; + if ClientDataSet1.IsEmpty then + begin + Application.MessageBox('ϸΪ!', 'ʾ', 0); + Exit; + end; + if SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmLLCKInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + ModalResult := 1; +end; + +procedure TfrmLLCKInPut.MDMFlagClick(Sender: TObject); +begin + + if MDMFlag.Checked = true then + begin + if MDKGFlag.Checked = true then + MDKGFlag.Checked := false; + end + else + begin + if MDKGFlag.Checked = false then + MDKGFlag.Checked := true; + end; + +end; + +procedure TfrmLLCKInPut.MDKGFlagClick(Sender: TObject); +begin + + if MDKGFlag.Checked = true then + begin + if MDMFlag.Checked = true then + MDMFlag.Checked := false; + end + else + begin + if MDMFlag.Checked = false then + MDMFlag.Checked := true; + end; +end; + +procedure TfrmLLCKInPut.GYSNameBtnClick(Sender: TObject); +begin + { if Trim(FMYType)='Ⱦɫ' then + begin + try + frmPBCGRKListSel:=TfrmPBCGRKListSel.Create(Application); + with frmPBCGRKListSel do + begin + if ShowModal=1 then + begin + Self.GYSName.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('JCDanWeiJC').AsString); + Self.GYSName.TxtCode:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('JCKHNo').AsString); + Self.MYName.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('MYName').AsString); + Self.PBBatchNo.Text:=Trim(frmPBCGRKListSel.Order_Main.fieldbyname('PBBatchNo').AsString); + end; + end; + finally + frmPBCGRKListSel.Free; + end; + end else + begin + try + frmGYSList:=TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal=1 then + begin + Self.GYSName.Text:=Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + Self.GYSName.TxtCode:=Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString); + end; + end; + finally + frmGYSList.Free; + end; + end; } + +end; + +procedure TfrmLLCKInPut.ToGYSNameBtnClick(Sender: TObject); +begin + try + frmGYSList := TfrmGYSList.Create(Application); + with frmGYSList do + begin + if ShowModal = 1 then + begin + Self.ToGYSName.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString); + Self.ToGYSName.TxtCode := Trim(frmGYSList.Order_Main.fieldbyname('KHNo').AsString); + end; + end; + finally + frmGYSList.Free; + end; +end; + +procedure TfrmLLCKInPut.KHNameJCBtnClick(Sender: TObject); +begin + {try + frmOrderListSel:=TfrmOrderListSel.Create(Application); + with frmOrderListSel do + begin + if ShowModal=1 then + begin + FNewMainId:=Trim(frmOrderListSel.Order_Main.fieldbyname('NewMLID').AsString); + Self.MLConNo.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('MLConNo').AsString); + Self.MLOrderNo.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('MLOrderNo').AsString); + Self.KHNameJC.Text:=Trim(frmOrderListSel.Order_Main.fieldbyname('KHNameJC').AsString); + end; + end; + finally + frmOrderListSel.Free; + end; } +end; + +procedure TfrmLLCKInPut.MLOrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + {try + frmOrderMXSelist:=TfrmOrderMXSelist.Create(Application); + with frmOrderMXSelist do + begin + if ShowModal=1 then + begin + Self.MLOrderNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLOrderNo').AsString); + Self.MLConNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLConNo').AsString); + Self.MYColor.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLColor').AsString); + Self.MYColorNo.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLColorNo').AsString); + Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString); + Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString); + Self.MYHX.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('MLHX').AsString); + Self.KHNameJC.Text:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('KHNameJC').AsString); + Self.FNewMainId:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('NewMLID').AsString); + Self.FNewSubid:=Trim(frmOrderMXSelist.Order_Main.fieldbyname('NewSubid').AsString); + end; + end; + finally + frmOrderMXSelist.Free; + end; } +end; + +procedure TfrmLLCKInPut.Edit1KeyPress(Sender: TObject; var Key: Char); +var + Freal: Double; +begin + if Key = #13 then + begin + if Trim(Edit1.Text) <> '' then + begin + if TryStrToFloat(Edit1.Text, Freal) = False then + begin + Application.MessageBox('ϸǷ!', 'ʾ', 0); + Exit; + end; + with ClientDataSet1 do + begin + Append; + FieldByName('HSQty').Value := Trim(Edit1.Text); + if MDMFlag.Checked then + begin + FieldByName('MQty').Value := Trim(Edit1.Text); + end; + if MDKGFlag.Checked then + begin + FieldByName('KgQty').Value := Trim(Edit1.Text); + end; + Post; + end; + Edit1.Text := ''; + end; + end; +end; + +procedure TfrmLLCKInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + if ClientDataSet1.IsEmpty then + Exit; + if Trim(ClientDataSet1.fieldbyname('MXID').AsString) = '' then + begin + ClientDataSet1.Delete; + Exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete CK_MYSC_CR_MX where MXID=''' + Trim(ClientDataSet1.fieldbyname('MXID').AsString) + ''''); + sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); + sql.Add(' where MYID=''' + Trim(FMainId) + ''''); + ExecSQL; + end; + ClientDataSet1.Delete; + end; +end; + +procedure TfrmLLCKInPut.ToolButton1Click(Sender: TObject); +begin + try + frmJJGCKListSel := TfrmJJGCKListSel.Create(Application); + with frmJJGCKListSel do + begin + if ShowModal = 1 then + begin + InitDataSel(frmJJGCKListSel.Order_Main.fieldbyname('MYID').AsString); + end; + end; + finally + frmJJGCKListSel.Free; + end; +end; + +end. + diff --git a/云翔生产管理(MYSC.dll)/U_LLCKList.dfm b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm new file mode 100644 index 0000000..de4132a --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLCKList.dfm @@ -0,0 +1,757 @@ +object frmLLCKList: TfrmLLCKList + Left = 389 + Top = 267 + Width = 1662 + Height = 825 + Caption = #21152#24037#30721#21333#30331#35760 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1654 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 65 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_MYSC.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 69 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + Visible = False + OnClick = TBFindClick + end + object TBAdd: TToolButton + Left = 138 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + OnClick = TBAddClick + end + object TBExport: TToolButton + Left = 207 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 276 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + Visible = False + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 345 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object labMYType: TLabel + Left = 414 + Top = 0 + Width = 264 + Height = 30 + Caption = ' '#21152#24037#20986#24211' ' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 98 + Width = 1654 + Height = 696 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column1 + end + item + Kind = skSum + Column = v1Column17 + end + item + Kind = skSum + Column = v1Column3 + end + item + Format = #20010#25968':##' + Kind = skCount + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object v1Column11: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 148 + end + object v1Column13: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHNOKH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 126 + end + object v1Column12: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHNameJCZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 177 + end + object v1Column9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 127 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 160 + end + object Tv1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYTypeFlag' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 176 + end + object v1Column10: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Width = 95 + end + object v1Column7: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25910#33719#21333#20301#32534#21495 + DataBinding.FieldName = 'ToGYSNo' + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v1JCDanWeiJC: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v1filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'PS' + OnCustomDrawCell = v1Column1CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 68 + end + object v1Column17: TcxGridDBColumn + Caption = #20844#26020#25968 + DataBinding.FieldName = 'KgQty' + OnCustomDrawCell = v1Column17CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Qty' + OnCustomDrawCell = v1Column3CustomDrawCell + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Footer = DataLink_MYSC.Default10 + Width = 78 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26126#32454#21305#25968 + DataBinding.FieldName = 'MXHZPS' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object Tv1Column4: TcxGridDBColumn + Caption = #26126#32454#20844#26020#25968 + DataBinding.FieldName = 'MXHZKgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column3: TcxGridDBColumn + Caption = #26126#32454#31859#25968 + DataBinding.FieldName = 'MXHZQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 261 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1654 + Height = 66 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label34: TLabel + Left = 207 + Top = 13 + Width = 66 + Height = 15 + Caption = #21152' '#24037' '#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 15 + Top = 13 + Width = 32 + Height = 15 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 15 + Top = 40 + Width = 32 + Height = 15 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 207 + Top = 40 + Width = 64 + Height = 15 + Caption = #25910#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 451 + Top = 13 + Width = 48 + Height = 15 + Caption = #21046#20316#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 451 + Top = 40 + Width = 50 + Height = 15 + Caption = #31867' '#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 626 + Top = 13 + Width = 64 + Height = 15 + Caption = #25351#31034#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 626 + Top = 40 + Width = 68 + Height = 15 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 806 + Top = 40 + Width = 80 + Height = 15 + Caption = #22383#24067#32852#31995#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 806 + Top = 11 + Width = 77 + Height = 15 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameHZ: TEdit + Tag = 2 + Left = 275 + Top = 9 + Width = 158 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object BegDate: TDateTimePicker + Left = 1085 + Top = 9 + Width = 127 + Height = 23 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + object EndDate: TDateTimePicker + Left = 1085 + Top = 36 + Width = 127 + Height = 23 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + end + object MYName: TEdit + Tag = 2 + Left = 49 + Top = 9 + Width = 141 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object Note: TEdit + Tag = 2 + Left = 49 + Top = 36 + Width = 141 + 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 CheckBox1: TCheckBox + Left = 999 + Top = 12 + Width = 82 + Height = 16 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 4 + OnClick = CheckBox1Click + end + object JCDanWeiJC: TEdit + Tag = 2 + Left = 275 + Top = 36 + Width = 158 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object filler: TEdit + Tag = 2 + Left = 503 + Top = 9 + Width = 103 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object MYTypeFlag: TComboBox + Tag = 1 + Left = 504 + Top = 36 + Width = 104 + Height = 23 + Style = csDropDownList + DropDownCount = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 8 + OnChange = CustomerNoNameChange + end + object MLOrderNo: TEdit + Tag = 2 + Left = 691 + Top = 8 + Width = 95 + 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 KHNameHZZ: TEdit + Tag = 2 + Left = 691 + Top = 36 + Width = 95 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnChange = CustomerNoNameChange + end + object PBBatchNo: TEdit + Tag = 2 + Left = 883 + Top = 36 + Width = 110 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnChange = CustomerNoNameChange + end + object MYColor: TEdit + Tag = 2 + Left = 883 + Top = 7 + Width = 109 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnChange = CustomerNoNameChange + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 165 + Top = 148 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 205 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 205 + Top = 178 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 206 + Top = 149 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 164 + Top = 210 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 165 + Top = 179 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 1048 + Top = 8 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 1016 + Top = 8 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1108 + Top = 8 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 1080 + Top = 8 + end + object PopupMenu1: TPopupMenu + Left = 164 + Top = 240 + object N1: TMenuItem + Caption = #20462#25913 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#38500 + OnClick = N2Click + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 259 + end +end diff --git a/云翔生产管理(MYSC.dll)/U_LLCKList.pas b/云翔生产管理(MYSC.dll)/U_LLCKList.pas new file mode 100644 index 0000000..083c0cd --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLCKList.pas @@ -0,0 +1,503 @@ +unit U_LLCKList; + +interface + +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, cxPC, Buttons, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; + +type + TfrmLLCKList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + v1Column1: TcxGridDBColumn; + Label34: TLabel; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + KHNameHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport2: TRMXLSExport; + CDS_PRT: TClientDataSet; + v1Column17: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Label2: TLabel; + MYName: TEdit; + v1Column3: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + Label1: TLabel; + Note: TEdit; + labMYType: TLabel; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + CheckBox1: TCheckBox; + v1JCDanWeiJC: TcxGridDBColumn; + Label3: TLabel; + JCDanWeiJC: TEdit; + v1filler: TcxGridDBColumn; + Label4: TLabel; + filler: TEdit; + ClientDataSet1: TClientDataSet; + v1Column4: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label5: TLabel; + MYTypeFlag: TComboBox; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label6: TLabel; + MLOrderNo: TEdit; + Label7: TLabel; + KHNameHZZ: TEdit; + v1Column13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Label8: TLabel; + PBBatchNo: TEdit; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Label9: TLabel; + MYColor: TEdit; + Tv1Column6: TcxGridDBColumn; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ZJStatusChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + private + FGXName: string; + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1: string; + + { Public declarations } + end; + +var + frmLLCKList: TfrmLLCKList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LLCKInPut; + +{$R *.dfm} + +procedure TfrmLLCKList.FormDestroy(Sender: TObject); +begin + frmLLCKList := nil; +end; + +procedure TfrmLLCKList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmLLCKList.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; + canshu1 := Trim(DParameters1); +end; + +procedure TfrmLLCKList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('ӹ뵥CK', Tv1, 'ó'); + Close; +end; + +procedure TfrmLLCKList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select AA.* '); + sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); + sql.Add('from('); + sql.Add(' select A.* '); + sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); + sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)'); + sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); + sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where 1=1 '); + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(CRType,'''')='''' '); + if canshu1 <> 'Ȩ' then + begin + sql.add(' and A.filler=''' + trim(DName) + ''''); + end; + sql.Add(')AA'); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmLLCKList.InitForm(); +var + fsj: string; +begin + BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); + EndDate.Date := SGetServerDate(ADOQueryTemp); + ReadCxGrid('ӹ뵥', Tv1, 'ó'); + fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; + SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj); + InitGrid(); +end; + +procedure TfrmLLCKList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +function TfrmLLCKList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + //First; + // while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YS_Money_CR where YFTypeId=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' insert into CK_MYSC_CR_Log '); + sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + ''''); + sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR where MYId=''' + Trim(Order_Main.fieldbyname('MYId').AsString) + ''''); + sql.Add(' delete from TP_File where WBID=''' + trim(Order_Main.fieldbyname('MYId').AsString) + ''' '); + sql.Add(' and TFType=''ӹ뵥'''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmLLCKList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmLLCKList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + TBFind.Click; +end; + +procedure TfrmLLCKList.TBAddClick(Sender: TObject); +begin + try + frmLLCKInPut := TfrmLLCKInPut.Create(Application); + with frmLLCKInPut do + begin + PState := 0; + FMainId := ''; + if ShowModal = 1 then + begin + InitGrid(); + end; + end; + finally + frmLLCKInPut.Free; + end; +end; + +procedure TfrmLLCKList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmLLCKList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmLLCKList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmLLCKList.ToolButton1Click(Sender: TObject); +var + FFMYType: string; +begin + {FFMYType:=Trim(Order_Main.fieldbyname('MYType').AsString); + try + frmLLRKInPutMH_RCCG:=TfrmLLRKInPutMH_RCCG.Create(Application); + with frmLLRKInPutMH_RCCG do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MYId').AsString); + FMYType:=Trim(Self.Order_Main.fieldbyname('MYType').AsString); + FMYTypeFlag:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + labMYType.Caption:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + if ShowModal=1 then + begin + + end; + end; + finally + frmLLRKInPutMH_RCCG.Free; + end; } +end; + +procedure TfrmLLCKList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmLLCKList.N2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then + begin + if Order_Main.FieldByName('filltime').AsDateTime + 1 < Now then + begin + application.MessageBox('һ첻ɾ', 'ʾ'); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CR where YFTypeId=''' + Trim(Self.Order_Main.fieldbyname('MYId').AsString) + ''''); + sql.Add(' and ChkStatusP='''''); + Open; + end; + if ADOQueryTemp.IsEmpty = false then + begin + Application.MessageBox('Ӧ˲ܲ', 'ʾ'); + exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CR where YFTypeId=''' + trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' and (isnull(ChkerP,'''')<>'''' '); + sql.Add(' or isnull(ChkerQ,'''')<>'''') '); + Open; + end; + if ADOQueryTemp.IsEmpty = false then + begin + Application.MessageBox('Ӧ,ɾ', 'ʾ'); + exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + + end; +end; + +procedure TfrmLLCKList.N1Click(Sender: TObject); +var + FFMYType: string; +begin + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then + begin + if Order_Main.FieldByName('filltime').AsDateTime + 1 < Now then + begin + application.MessageBox('һ첻޸', 'ʾ'); + Exit; + end; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from YS_Money_CR where YFTypeId=''' + Trim(Self.Order_Main.fieldbyname('MYId').AsString) + ''''); + sql.Add(' and ChkStatusP='''''); + Open; + end; + if ADOQueryTemp.IsEmpty = false then + begin + Application.MessageBox('Ӧ˲ܲ', 'ʾ'); + exit; + end; + { FFMYType:=Trim(Order_Main.fieldbyname('MYType').AsString); //ƲChkerP='''' + try + frmLLRKInPutMH_RCCG:=TfrmLLRKInPutMH_RCCG.Create(Application); + with frmLLRKInPutMH_RCCG do + begin + PState:=1; + FMainId:=Trim(Self.Order_Main.fieldbyname('MYId').AsString); + FMYType:=Trim(Self.Order_Main.fieldbyname('MYType').AsString); + FMYTypeFlag:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + labMYType.Caption:=Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString)+'ӹ뵥'; + if ShowModal=1 then + begin + InitGrid(); + end; + end; + finally + frmLLRKInPutMH_RCCG.Free; + end; } +end; + +procedure TfrmLLCKList.cxTabControl1Change(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmLLCKList.ZJStatusChange(Sender: TObject); +begin + TBFind.Click; +end; + +procedure TfrmLLCKList.Tv1DblClick(Sender: TObject); +begin + ToolButton1.Click; +end; + +procedure TfrmLLCKList.v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id, Id10: Integer; +begin + Id := TV1.GetColumnByFieldName('PS').Index; + Id10 := TV1.GetColumnByFieldName('MXHZPS').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmLLCKList.v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id, Id10: Integer; +begin + Id := TV1.GetColumnByFieldName('KgQty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZKgQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmLLCKList.v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id, Id10: Integer; +begin + Id := TV1.GetColumnByFieldName('Qty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +end. + diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.dfm b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm new file mode 100644 index 0000000..114b899 --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.dfm @@ -0,0 +1,1429 @@ +object frmLLKCList: TfrmLLKCList + Left = 291 + Top = 163 + Width = 1556 + Height = 781 + Caption = #24211#23384 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1548 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_MYSC.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 0 + OnClick = TBRafreshClick + end + object TBFind: TToolButton + Left = 69 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 20 + Visible = False + OnClick = TBFindClick + end + object ToolButton3: TToolButton + Left = 138 + Top = 0 + AutoSize = True + Caption = #20986#24211 + ImageIndex = 7 + OnClick = ToolButton3Click + end + object ToolButton7: TToolButton + Left = 207 + Top = 0 + AutoSize = True + Caption = #25764#38144#20986#24211 + ImageIndex = 6 + OnClick = ToolButton7Click + end + object ToolButton4: TToolButton + Left = 306 + Top = 0 + AutoSize = True + Caption = #26631#31614#25171#21360 + ImageIndex = 4 + OnClick = ToolButton4Click + end + object ToolButton6: TToolButton + Left = 405 + Top = 0 + AutoSize = True + Caption = #25286#21305 + ImageIndex = 11 + OnClick = ToolButton6Click + end + object ToolButton5: TToolButton + Left = 474 + Top = 0 + AutoSize = True + Caption = #25764#38144#25286#21305 + ImageIndex = 47 + OnClick = ToolButton5Click + end + object ToolButton8: TToolButton + Left = 573 + Top = 0 + AutoSize = True + Caption = #24211#20301#35774#32622 + ImageIndex = 22 + OnClick = ToolButton8Click + end + object TBAdd: TToolButton + Left = 672 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 1 + Visible = False + OnClick = TBAddClick + end + object TBExport: TToolButton + Left = 741 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 97 + Visible = False + OnClick = TBExportClick + end + object ToolButton1: TToolButton + Left = 810 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 55 + Visible = False + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 879 + Top = 0 + AutoSize = True + Caption = #31867#22411 + ImageIndex = 62 + Visible = False + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 948 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 21 + OnClick = TBCloseClick + end + object labMYType: TLabel + Left = 1017 + Top = 0 + Width = 264 + Height = 30 + Caption = ' '#21152#24037#30721#21333' ' + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -29 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 121 + Width = 1548 + Height = 629 + Align = alClient + PopupMenu = PopupMenu2 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DataSource1 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #20010#25968':##' + Kind = skCount + Column = v1Column9 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column3 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + Styles.Content = DataLink_MYSC.Default10 + Styles.Footer = DataLink_MYSC.Default10 + Styles.Header = DataLink_MYSC.Default10 + object Tv1Column7: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + HeaderAlignmentHorz = taCenter + Width = 65 + end + object v1Column11: TcxGridDBColumn + Caption = #25351#31034#21333#21495 + DataBinding.FieldName = 'MLOrderNo' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 148 + end + object v1Column13: TcxGridDBColumn + Caption = #23458#25143#32534#21495 + DataBinding.FieldName = 'KHNOKH' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 110 + end + object v1Column12: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'KHNameJCZ' + PropertiesClassName = 'TcxTextEditProperties' + Properties.ReadOnly = True + HeaderAlignmentHorz = taCenter + Width = 177 + end + object v1Column9: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'CRTime' + PropertiesClassName = 'TcxDateEditProperties' + Properties.SaveTime = False + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 127 + end + object Tv1Column1: TcxGridDBColumn + Caption = #22383#24067#32852#31995#21495 + DataBinding.FieldName = 'PBBatchNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 176 + end + object v1Column10: TcxGridDBColumn + Caption = #21152#24037#21378#32534#21495 + DataBinding.FieldName = 'GYSNo' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object v1Column7: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'KHNameJC' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 129 + end + object v1JCDanWeiJC: TcxGridDBColumn + Caption = #25910#36135#21333#20301 + DataBinding.FieldName = 'KHNameJCDH' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object v1Column4: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'MYTypeFlag' + HeaderAlignmentHorz = taCenter + Width = 81 + end + object v1Column5: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MYName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 160 + end + object Tv1Column5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'MYColor' + HeaderAlignmentHorz = taCenter + Width = 96 + end + object v1filler: TcxGridDBColumn + Caption = #21046#20316#20154 + DataBinding.FieldName = 'filler' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'JH' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv1Column4: TcxGridDBColumn + Caption = #26126#32454#20844#26020#25968 + DataBinding.FieldName = 'mxKgQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object Tv1Column3: TcxGridDBColumn + Caption = #26126#32454#31859#25968 + DataBinding.FieldName = 'mxMQty' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 89 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + HeaderAlignmentHorz = taCenter + Width = 261 + end + object Tv1Column6: TcxGridDBColumn + Caption = #26579#21378#39068#33394 + DataBinding.FieldName = 'RCColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #29366#24577 + DataBinding.FieldName = 'ZKZT' + HeaderAlignmentHorz = taCenter + Width = 65 + end + object Tv1Column9: TcxGridDBColumn + Caption = #20986#21040#25351#31034#21333 + DataBinding.FieldName = 'CDZSD' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column10: TcxGridDBColumn + Caption = #24211#20301 + DataBinding.FieldName = 'KW' + HeaderAlignmentHorz = taCenter + Width = 65 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1548 + Height = 66 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label34: TLabel + Left = 207 + Top = 13 + Width = 66 + Height = 15 + Caption = #21152' '#24037' '#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 15 + Top = 13 + Width = 32 + Height = 15 + Caption = #21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label1: TLabel + Left = 15 + Top = 40 + Width = 32 + Height = 15 + Caption = #22791#27880 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 207 + Top = 40 + Width = 64 + Height = 15 + Caption = #25910#36135#21333#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 451 + Top = 13 + Width = 48 + Height = 15 + Caption = #21046#20316#20154 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 451 + Top = 40 + Width = 50 + Height = 15 + Caption = #31867' '#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 626 + Top = 13 + Width = 64 + Height = 15 + Caption = #25351#31034#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 626 + Top = 40 + Width = 68 + Height = 15 + Caption = #23458' '#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 806 + Top = 40 + Width = 80 + Height = 15 + Caption = #22383#24067#32852#31995#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 806 + Top = 11 + Width = 77 + Height = 15 + Caption = #39068' '#33394 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object KHNameHZ: TEdit + Tag = 2 + Left = 275 + Top = 9 + Width = 158 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnChange = CustomerNoNameChange + end + object BegDate: TDateTimePicker + Left = 1085 + Top = 9 + Width = 127 + Height = 23 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + object EndDate: TDateTimePicker + Left = 1085 + Top = 36 + Width = 127 + Height = 23 + Date = 40768.458268587970000000 + Time = 40768.458268587970000000 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + end + object MYName: TEdit + Tag = 2 + Left = 49 + Top = 9 + Width = 141 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnChange = CustomerNoNameChange + end + object Note: TEdit + Tag = 2 + Left = 49 + Top = 36 + Width = 141 + 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 CheckBox1: TCheckBox + Left = 999 + Top = 12 + Width = 82 + Height = 16 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 4 + OnClick = CheckBox1Click + end + object JCDanWeiJC: TEdit + Tag = 2 + Left = 275 + Top = 36 + Width = 158 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnChange = CustomerNoNameChange + end + object filler: TEdit + Tag = 2 + Left = 503 + Top = 9 + Width = 103 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnChange = CustomerNoNameChange + end + object MYTypeFlag: TComboBox + Tag = 1 + Left = 504 + Top = 36 + Width = 104 + Height = 23 + Style = csDropDownList + DropDownCount = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 15 + ParentFont = False + TabOrder = 8 + OnChange = CustomerNoNameChange + end + object MLOrderNo: TEdit + Tag = 2 + Left = 691 + Top = 8 + Width = 95 + 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 KHNameHZZ: TEdit + Tag = 2 + Left = 691 + Top = 36 + Width = 95 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnChange = CustomerNoNameChange + end + object PBBatchNo: TEdit + Tag = 2 + Left = 883 + Top = 36 + Width = 110 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnChange = CustomerNoNameChange + end + object MYColor: TEdit + Tag = 2 + Left = 883 + Top = 7 + Width = 109 + Height = 23 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -15 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnChange = CustomerNoNameChange + end + end + object Panel2: TPanel + Left = 276 + Top = 126 + Width = 509 + Height = 379 + Color = clSkyBlue + TabOrder = 3 + Visible = False + object SpeedButton1: TSpeedButton + Left = 36 + Top = 22 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 196 + Top = 22 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 372 + Top = 22 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 36 + Top = 94 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 196 + Top = 94 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 372 + Top = 94 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 36 + Top = 166 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 196 + Top = 166 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 372 + Top = 166 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 36 + Top = 238 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Left = 196 + Top = 238 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 372 + Top = 238 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton13: TSpeedButton + Left = 36 + Top = 310 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton14: TSpeedButton + Left = 196 + Top = 310 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object SpeedButton15: TSpeedButton + Left = 372 + Top = 310 + Width = 100 + Height = 53 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + OnClick = SpeedButton1Click + end + object Image2: TImage + Left = 487 + Top = 3 + Width = 22 + Height = 16 + 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 + OnClick = Image2Click + end + end + object Panel3: TPanel + Left = 848 + Top = 200 + Width = 409 + Height = 201 + Color = clSkyBlue + TabOrder = 4 + Visible = False + object Label10: TLabel + Left = 16 + Top = 24 + Width = 124 + Height = 21 + Caption = #24067' '#21305' '#31867' '#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label11: TLabel + Left = 32 + Top = 56 + Width = 110 + Height = 21 + Caption = #20986#21040#25351#31034#21333 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label14: TLabel + Left = 15 + Top = 97 + Width = 124 + Height = 21 + Caption = #20986' '#24211' '#31867' '#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object ComboBox1: TComboBox + Left = 144 + Top = 16 + Width = 241 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ItemHeight = 21 + ItemIndex = 0 + ParentFont = False + TabOrder = 0 + Visible = False + Items.Strings = ( + '' + #38754#24067 + #24213#24067) + end + object CDZSD: TBtnEditC + Tag = 2 + Left = 146 + Top = 50 + Width = 239 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnBtnUpClick = CDZSDBtnUpClick + OnBtnDnClick = CDZSDBtnDnClick + end + object Button1: TButton + Left = 64 + Top = 144 + Width = 97 + Height = 33 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button1Click + end + object Button2: TButton + Left = 248 + Top = 144 + Width = 97 + Height = 33 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button2Click + end + object ZKZT: TBtnEditC + Tag = 2 + Left = 146 + Top = 91 + Width = 239 + Height = 30 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnBtnUpClick = ZKZTBtnUpClick + OnBtnDnClick = ZKZTBtnDnClick + end + end + object Panel4: TPanel + Left = 368 + Top = 240 + Width = 409 + Height = 209 + Color = clSkyBlue + TabOrder = 5 + Visible = False + object Label12: TLabel + Left = 40 + Top = 56 + Width = 110 + Height = 21 + Caption = #26126#32454#20844#26020#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label13: TLabel + Left = 48 + Top = 96 + Width = 88 + Height = 21 + Caption = #26126#32454#31859#25968 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button3: TButton + Left = 64 + Top = 152 + Width = 97 + Height = 33 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button3Click + end + object Button4: TButton + Left = 248 + Top = 152 + Width = 97 + Height = 33 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button4Click + end + object GJ: TEdit + Left = 176 + Top = 53 + Width = 153 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + object MS: TEdit + Left = 176 + Top = 93 + Width = 153 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + end + end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 98 + Width = 1548 + Height = 23 + Align = alTop + TabOrder = 6 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #22312#24211 + #20986#24211) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1548 + ClientRectTop = 19 + end + object Panel5: TPanel + Left = 800 + Top = 408 + Width = 409 + Height = 153 + Color = clSkyBlue + TabOrder = 7 + Visible = False + object Label15: TLabel + Left = 40 + Top = 40 + Width = 92 + Height = 21 + Caption = #24211' '#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Button5: TButton + Left = 56 + Top = 88 + Width = 97 + Height = 33 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button5Click + end + object Button6: TButton + Left = 248 + Top = 88 + Width = 97 + Height = 33 + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button6Click + end + object KW: TEdit + Left = 152 + Top = 37 + Width = 201 + Height = 29 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + end + end + object cxGridPopupMenu1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 165 + Top = 148 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_MYSC.ADOLink + Parameters = <> + Left = 205 + Top = 209 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 205 + Top = 178 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 206 + Top = 149 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 164 + Top = 210 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 165 + Top = 179 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBMain + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 1048 + Top = 8 + ReportData = {} + end + object RMDBMain: TRMDBDataSet + Visible = True + DataSet = CDS_PRT + Left = 1016 + Top = 8 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = False + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1108 + Top = 8 + end + object CDS_PRT: TClientDataSet + Aggregates = <> + Params = <> + Left = 1080 + Top = 8 + end + object PopupMenu1: TPopupMenu + Left = 164 + Top = 240 + object N1: TMenuItem + Caption = #20462#25913 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #21024#38500 + OnClick = N2Click + end + end + object ClientDataSet1: TClientDataSet + Aggregates = <> + Params = <> + Left = 773 + Top = 259 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_MYSC.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 280 + Top = 544 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 344 + Top = 568 + ReportData = {} + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 320 + Top = 528 + end + object PopupMenu2: TPopupMenu + Left = 172 + Top = 392 + object MenuItem1: TMenuItem + Caption = #20840#36873 + OnClick = MenuItem1Click + end + object MenuItem2: TMenuItem + Caption = #20840#24323 + OnClick = MenuItem2Click + end + end +end diff --git a/云翔生产管理(MYSC.dll)/U_LLKCList.pas b/云翔生产管理(MYSC.dll)/U_LLKCList.pas new file mode 100644 index 0000000..0da2e9e --- /dev/null +++ b/云翔生产管理(MYSC.dll)/U_LLKCList.pas @@ -0,0 +1,1202 @@ +unit U_LLKCList; + +interface + +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, cxPC, Buttons, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter, BtnEdit, dxBarBuiltInMenu; + +type + TfrmLLKCList = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBFind: TToolButton; + TBAdd: TToolButton; + TBClose: TToolButton; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + cxGrid1: TcxGrid; + cxGridPopupMenu1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DataSource1: TDataSource; + TBExport: TToolButton; + Order_Main: TClientDataSet; + ToolButton1: TToolButton; + Panel1: TPanel; + Label34: TLabel; + v1Column7: TcxGridDBColumn; + v1Column9: TcxGridDBColumn; + KHNameHZ: TEdit; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + RM1: TRMGridReport; + RMDBMain: TRMDBDataSet; + RMXLSExport2: TRMXLSExport; + CDS_PRT: TClientDataSet; + v1Column5: TcxGridDBColumn; + Label2: TLabel; + MYName: TEdit; + v1Column2: TcxGridDBColumn; + Label1: TLabel; + Note: TEdit; + labMYType: TLabel; + Panel2: TPanel; + SpeedButton1: TSpeedButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + CheckBox1: TCheckBox; + v1JCDanWeiJC: TcxGridDBColumn; + Label3: TLabel; + JCDanWeiJC: TEdit; + v1filler: TcxGridDBColumn; + Label4: TLabel; + filler: TEdit; + ToolButton2: TToolButton; + ClientDataSet1: TClientDataSet; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton13: TSpeedButton; + SpeedButton14: TSpeedButton; + SpeedButton15: TSpeedButton; + Image2: TImage; + v1Column4: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + Label5: TLabel; + MYTypeFlag: TComboBox; + v1Column11: TcxGridDBColumn; + v1Column12: TcxGridDBColumn; + Label6: TLabel; + MLOrderNo: TEdit; + Label7: TLabel; + KHNameHZZ: TEdit; + v1Column13: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Label8: TLabel; + PBBatchNo: TEdit; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Label9: TLabel; + MYColor: TEdit; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + ToolButton3: TToolButton; + Panel3: TPanel; + Label10: TLabel; + ComboBox1: TComboBox; + Label11: TLabel; + CDZSD: TBtnEditC; + Button1: TButton; + Button2: TButton; + Tv1Column9: TcxGridDBColumn; + ToolButton4: TToolButton; + ADOQueryPrint: TADOQuery; + RM2: TRMGridReport; + RMDB_Main: TRMDBDataSet; + Panel4: TPanel; + Label12: TLabel; + Label13: TLabel; + Button3: TButton; + Button4: TButton; + GJ: TEdit; + MS: TEdit; + ToolButton6: TToolButton; + ToolButton5: TToolButton; + ZKZT: TBtnEditC; + Label14: TLabel; + Tv1Column2: TcxGridDBColumn; + cxTabControl1: TcxTabControl; + ToolButton7: TToolButton; + PopupMenu2: TPopupMenu; + MenuItem1: TMenuItem; + MenuItem2: TMenuItem; + Tv1Column10: TcxGridDBColumn; + ToolButton8: TToolButton; + Panel5: TPanel; + Label15: TLabel; + Button5: TButton; + Button6: TButton; + KW: TEdit; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBFindClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TBAddClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure CheckBox1Click(Sender: TObject); + procedure CheckBox2Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure CustomerNoNameChange(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure ZJStatusChange(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure Image2Click(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure v1Column1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure ToolButton3Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + procedure CDZSDBtnDnClick(Sender: TObject); + procedure CDZSDBtnUpClick(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); +// procedure ToolButton5Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ZKZTBtnDnClick(Sender: TObject); + procedure ZKZTBtnUpClick(Sender: TObject); + procedure ToolButton7Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure MenuItem2Click(Sender: TObject); + procedure ToolButton8Click(Sender: TObject); + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + private + FGXName: string; + DQdate: TDateTime; + procedure InitGrid(); + procedure InitForm(); + function DelData(): Boolean; + procedure initGX(); + procedure SetStatus(); + { Private declarations } + public + FFInt, FCloth: Integer; + canshu1: string; + + { Public declarations } + end; + +var + frmLLKCList: TfrmLLKCList; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_LLRKInPutMH_RCCG, U_ZSDXZ; + +{$R *.dfm} +procedure TfrmLLKCList.SetStatus(); +begin + ToolButton3.Visible := false; + ToolButton7.Visible := false; + ToolButton5.Visible := false; + ToolButton6.Visible := false; + case cxTabControl1.TabIndex of + 0: + begin + ToolButton3.Visible := true; + ToolButton5.Visible := true; + ToolButton6.Visible := true; + end; + 1: + begin + ToolButton7.Visible := true; + end; + end; +end; + +procedure TfrmLLKCList.FormDestroy(Sender: TObject); +begin + frmLLKCList := nil; +end; + +procedure TfrmLLKCList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmLLKCList.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; + canshu1 := Trim(DParameters1); +end; + +procedure TfrmLLKCList.TBCloseClick(Sender: TObject); +begin + WriteCxGrid('', Tv1, 'ó'); + Close; +end; + +procedure TfrmLLKCList.InitGrid(); +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select AA.* '); + sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); + sql.Add('from('); + sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.Fsubid,D.CMXID,D.ZKZT,D.JH,D.KW'); + sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); + sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)'); + sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); + sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID'); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where 1=1 '); + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(CRType,'''')='''' '); + if cxTabControl1.TabIndex = 0 then + begin + sql.Add(' and isnull(D.ZKZT,'''')=''ڿ'' '); + end + else + begin + sql.Add(' and (isnull(D.ZKZT,'''')<> ''ڿ'' and isnull(D.ZKZT,'''')<> '''' ) '); + end; +// if canshu1<>'Ȩ' then +// begin +// sql.add(' and A.filler='''+trim(DName)+''''); +// end; + sql.Add(')AA'); +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmLLKCList.InitForm(); +var + fsj: string; +begin + BegDate.Date := StrToDate(formatdatetime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01'); + EndDate.Date := SGetServerDate(ADOQueryTemp); + ReadCxGrid('', Tv1, 'ó'); + fsj := 'select Name=ZDYName,Code=Null from KH_Zdy where Type=''JGGongXu'' '; + SInitComBoxBySql(ADOQueryTemp, MYTypeFlag, False, fsj); + SetStatus(); + InitGrid(); +end; + +procedure TfrmLLKCList.TBFindClick(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +function TfrmLLKCList.DelData(): Boolean; +begin + try + Result := false; + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + //First; + // while Order_Main.Locate('SSel',True,[]) do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete YS_Money_CR where YFTypeId=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' insert into CK_MYSC_CR_Log '); + sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + ''''); + sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + sql.Add(' Delete CK_MYSC_CR where MYId=''' + Trim(Order_Main.fieldbyname('MYId').AsString) + ''''); + sql.Add(' delete from TP_File where WBID=''' + trim(Order_Main.fieldbyname('MYId').AsString) + ''' '); + sql.Add(' and TFType='''''); + ExecSQL; + end; + Order_Main.Delete; + end; + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + ADOQueryCmd.Connection.RollbackTrans; + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmLLKCList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmLLKCList.TBRafreshClick(Sender: TObject); +begin + InitGrid(); + TBFind.Click; +end; + +procedure TfrmLLKCList.TBAddClick(Sender: TObject); +begin + Panel2.Visible := True; + initGX(); +end; + +procedure TfrmLLKCList.initGX(); +var + BB: array[0..100] of string; + i, j: Integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select ZDYName from KH_Zdy where Type=''JGGongXu'' '); //order by ZDYName + Open; + end; + if ADOQueryTemp.IsEmpty then + begin + Application.MessageBox('ûжݣ', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + First; + i := 0; + while not Eof do + begin + BB[i] := Trim(fieldbyname('ZDYName').AsString); + i := i + 1; + Next; + end; + end; + i := i - 1; + if i > 14 then + begin + i := 14; + end; + for j := 0 to i do + begin + with Panel2 do + begin + TSpeedButton(Controls[j]).Visible := True; + TSpeedButton(Controls[j]).Caption := BB[j]; + end; + end; +end; + +procedure TfrmLLKCList.FormShow(Sender: TObject); +begin + InitForm(); +end; + +procedure TfrmLLKCList.CheckBox1Click(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmLLKCList.CheckBox2Click(Sender: TObject); +begin + TBRafresh.Click; +end; + +procedure TfrmLLKCList.ToolButton1Click(Sender: TObject); +var + FFMYType: string; +begin + FFMYType := Trim(Order_Main.fieldbyname('MYType').AsString); + try + frmLLRKInPutMH_RCCG := TfrmLLRKInPutMH_RCCG.Create(Application); + with frmLLRKInPutMH_RCCG do + begin + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MYId').AsString); + FMYType := Trim(Self.Order_Main.fieldbyname('MYType').AsString); + FMYTypeFlag := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + labMYType.Caption := Trim(Self.Order_Main.fieldbyname('MYTypeFlag').AsString); + if ShowModal = 1 then + begin + + end; + end; + finally + frmLLRKInPutMH_RCCG.Free; + end; +end; + +procedure TfrmLLKCList.CustomerNoNameChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); +end; + +procedure TfrmLLKCList.N2Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then + begin +// if Order_Main.FieldByName('filltime').AsDateTime+1'''' '); + sql.Add(' or isnull(ChkerQ,'''')<>'''') '); + Open; + end; + if ADOQueryTemp.IsEmpty = false then + begin + Application.MessageBox('Ӧ,ɾ', 'ʾ'); + exit; + end; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + if DelData() then + begin + + end; +end; + +procedure TfrmLLKCList.N1Click(Sender: TObject); +var + FFMYType: string; +begin + if Order_Main.IsEmpty then + Exit; + if Trim(canshu1) <> 'Ȩ' then + begin +// if Order_Main.FieldByName('filltime').AsDateTime+1 (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmLLKCList.v1Column17CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id, Id10: Integer; +begin + Id := TV1.GetColumnByFieldName('KgQty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZKgQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmLLKCList.v1Column3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +var + Id, Id10: Integer; +begin + Id := TV1.GetColumnByFieldName('Qty').Index; + Id10 := TV1.GetColumnByFieldName('MXHZQty').Index; + if (AViewInfo.GridRecord.Values[Id]) <> (AViewInfo.GridRecord.Values[Id10]) then + begin + ACanvas.Brush.Color := clRed; + end; +end; + +procedure TfrmLLKCList.ToolButton3Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + Panel3.Left := (self.Width - Panel3.Width) div 2; + Panel3.Visible := true; +end; + +procedure TfrmLLKCList.Button2Click(Sender: TObject); +begin + Panel3.Visible := False; +end; + +procedure TfrmLLKCList.CDZSDBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmLLKCList.CDZSDBtnUpClick(Sender: TObject); +begin + try + frmzsdxz := Tfrmzsdxz.Create(Application); + with frmzsdxz do + begin + + if ShowModal = 1 then + begin + Self.CDZSD.Text := Trim(frmzsdxz.Order_Main.fieldbyname('MLOrderNo').AsString); + Self.CDZSD.TxtCode := Trim(frmzsdxz.Order_Main.fieldbyname('NewSubid').AsString); + end; + end; + finally + frmzsdxz.Free; + end; +end; + +procedure TfrmLLKCList.Button1Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; +// if Trim(ComboBox1.text) = '' then +// begin +// Application.MessageBox('ƥͲΪ!', 'ʾ', 0); +// Exit; +// end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; +// sql.Add('Update CK_MYSC_CR_MX Set BPLX=''' + trim(ComboBox1.Text) + ''' '); + sql.Add('Update CK_MYSC_CR_MX Set '); + sql.Add('CDZSD=''' + trim(CDZSD.Text) + ''' '); + sql.Add(', CDmainid=''' + trim(CDZSD.TxtCode) + ''' '); + sql.Add(', ZKZT=''' + trim(ZKZT.Text) + ''' '); + sql.Add('where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel3.Visible := false; + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmLLKCList.ToolButton4Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + CurRow: Integer; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + CurRow := Tv1.Controller.FocusedRowIndex; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select AA.* '); + sql.Add(',KHNameHZ=dbo.getpinyin(isnull(AA.KHNameJC,''''))+AA.GYSNo+isnull(AA.KHNameJC,'''')'); + sql.Add('from('); + sql.Add(' select A.*,D.KGQTY as mxkgqty ,D.MQTY as mxmqty ,D.MXID,D.KCCDZSD,D.ZKZT,D.JH'); + sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.GYSNo)'); + sql.Add(',KHNameJCDH=(select Top 1 B.KHNameJC from KH_Main B '); + sql.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHNO=A.ToGYSNo)'); + sql.Add(',KHNameHZZ=dbo.getpinyin(isnull(KM.KHNameJC,''''))+B.KHNO+isnull(KM.KHNameJC,'''')'); + sql.Add(',KHNameJCZ=KM.KHNameJC,B.MLOrderNo,KHNOKH=B.KHNO'); + sql.Add(' from CK_MYSC_CR A '); + sql.Add(' left join CK_MYSC_CR_MX D on D.MYID=A.MYID'); + sql.Add(' left join ML_OrderMainNew B on A.MainId=B.NewMLID'); + sql.Add(' left join KH_Main KM on KM.KHNO=B.KHNO '); + sql.Add(' where 1=1 and isnull(D.ZKZT,'''')<>'''' '); + if CheckBox1.Checked = False then + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM', now) + '-01') + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + ''''); + BegDate.Visible := false; + EndDate.Visible := false; + end + else + begin + sql.Add(' and A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + ''''); + sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''''); + BegDate.Visible := true; + EndDate.Visible := true; + end; + sql.Add(' and isnull(CRType,'''')='''' '); + sql.Add('and D.MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + sql.Add(')AA'); + Open; + 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; + +// if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then +// begin +// ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd); +// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString); +// end +// else +// begin + ExportFtErpFile('ͨñǩ.rmf', ADOQueryCmd); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ͽǩ.rmf'; +// end; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.LoadFromFile(fPrintFile); + //RM2.ShowReport; + RM2.PrintReport; + end + else + begin + Order_Main.EnableControls; + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\Ͽǩ.rmf'), 'ʾ', 0); + Exit; + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + Tv1.Controller.FocusedRowIndex := CurRow; +end; + +procedure TfrmLLKCList.ToolButton6Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; +// if Order_Main.IsEmpty then +// Exit; + Panel4.Left := (self.Width - Panel4.Width) div 2; + Panel4.Visible := true; +end; + +procedure TfrmLLKCList.Button4Click(Sender: TObject); +begin + Panel4.Visible := False; +end; + +procedure TfrmLLKCList.Button3Click(Sender: TObject); +var + maxno: string; + CRID, JH: Integer; + ZL, CD: string; + MaxCkNo, MaxCkSubNo: string; +begin + + try + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if GetLSNo(ADOQueryCmd, maxno, 'MX', 'CK_MYSC_CR_MX', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where 1<>1'); + Open; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select count(*) as js from CK_MYSC_CR_MX where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + Open; + end; + JH := StrToInt(Trim(ADOQueryTemp.fieldbyname('js').AsString)) + 1; + with ADOQueryCmd do + begin + Append; + FieldByName('Filler').Value := Trim(DName); + FieldByName('MYID').Value := Trim(Order_Main.fieldbyname('MYID').AsString); + FieldByName('MXID').Value := Trim(maxno); + FieldByName('CMXID').Value := Trim(Order_Main.fieldbyname('MXID').AsString); + FieldByName('FSubId').Value := Trim(Order_Main.fieldbyname('FSubId').AsString); + FieldByName('KCCDZSD').Value := Trim(Order_Main.fieldbyname('KCCDZSD').AsString); + FieldByName('KgQty').Value := strtofloatdef(trim(GJ.Text), 0); + FieldByName('MQty').Value := strtofloatdef(trim(MS.Text), 0); + FieldByName('ZKZT').Value := 'ڿ'; + FieldByName('JH').Value := JH; + Post; + end; + ZL := floattostr(strtofloatdef(trim(GJ.Text), 0)); + CD := floattostr(strtofloatdef(trim(MS.Text), 0)); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty-''' + ZL + ''' ,MQty=MQty -''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''' '); +// sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); +// sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) '); +// sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); +// showmessage(sql.text); + ExecSQL; + end; + + application.ProcessMessages; + + end; + + end; + + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; + Application.MessageBox('ƥɹ', 'ʾ', 0); + Panel4.Visible := False; + TBRafresh.Click; + Exit; + except + Order_Main.EnableControls; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ƥ쳣', 'ʾ', 0); + Panel4.Visible := False; + end; + +end; + +procedure TfrmLLKCList.ToolButton5Click(Sender: TObject); +var + ZL, CD: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + Open; + end; + if Trim(Order_Main.fieldbyname('CMXID').AsString) = '' then + begin + Application.MessageBox('ƥDzƥ,ܳƥ', 'ʾ'); + exit; + end; + + try +// Result := false; + ADOQueryCmd.Connection.BeginTrans; + Order_Main.DisableControls; + with Order_Main do + begin + ZL := floattostr(strtofloatdef(Trim(Order_Main.fieldbyname('mxKgQty').AsString), 0)); + CD := floattostr(strtofloatdef(Trim(Order_Main.fieldbyname('mxMQty').AsString), 0)); + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_MYSC_CR_MX set KgQty=KgQty+''' + ZL + ''' ,MQty=MQty +''' + CD + ''' where MXID=''' + Trim(Order_Main.fieldbyname('CMXID').AsString) + ''' '); +// sql.Add(' Delete CK_MYSC_CR_MX where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); +// sql.Add(' UPdate CK_MYSC_CR Set MXHZQty=(select Sum(MQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' ,MXHZKgQty=(select Sum(KgQty) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' ,MXHZPS=(select Count(*) from CK_MYSC_CR_MX A where A.MYID=CK_MYSC_CR.MYID) '); +// sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); +// sql.Add(' Update CK_MYSC_CR Set QtyChaE=isnull(MXHZQty,0)-isnull(Qty,0),KgQtyChaE=isnull(MXHZKgQty,0)-isnull(KgQty,0),PSChaE=isnull(MXHZPS,0)-isnull(PS,0) '); +// sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + ''''); + + ExecSQL; + end; + Order_Main.Delete; + + end; + Order_Main.EnableControls; + ADOQueryCmd.Connection.CommitTrans; +// Result := True; + Application.MessageBox('ƥɹ', 'ʾ', 0); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; +// Result := False; + Application.MessageBox('ƥ쳣', 'ʾ', 0); + end; +end; + +procedure TfrmLLKCList.ZKZTBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmLLKCList.ZKZTBtnUpClick(Sender: TObject); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'ZKZT'; + flagname := '״̬'; + V1Name.Caption := '״̬'; + if ShowModal = 1 then + begin + Self.ZKZT.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmLLKCList.ToolButton7Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; +// sql.Add('Update CK_MYSC_CR_MX Set BPLX='''' '); + sql.Add('Update CK_MYSC_CR_MX Set '); + sql.Add(' CDZSD='''' '); + sql.Add(', CDmainid='''' '); + sql.Add(', ZKZT=''ڿ'' '); + sql.Add('where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmLLKCList.MenuItem1Click(Sender: TObject); +begin + SelOKNoFilter(Tv1, True); +end; + +procedure TfrmLLKCList.MenuItem2Click(Sender: TObject); +begin + SelOKNoFilter(Tv1, False); +end; + +procedure TfrmLLKCList.ToolButton8Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + Panel5.Left := (self.Width - Panel5.Width) div 2; + Panel5.Visible := true; +end; + +procedure TfrmLLKCList.Button6Click(Sender: TObject); +begin + Panel5.Visible := false; +end; + +procedure TfrmLLKCList.Button5Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update CK_MYSC_CR_MX Set '); + sql.Add('KW=''' + trim(KW.Text) + ''' '); + sql.Add('where MXID=''' + Trim(Order_Main.fieldbyname('MXID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel5.Visible := false; + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + +end. + diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm index c6646ab..509ffb3 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPut.dfm @@ -2,12 +2,12 @@ object frmLLRKInPut: TfrmLLRKInPut Left = 190 Top = 219 Width = 1198 - Height = 319 + Height = 352 Caption = #26469#26009#20837#24211#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmLLRKInPut: TfrmLLRKInPut OnClose = FormClose OnCreate = FormCreate OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 17 + PixelsPerInch = 96 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1182 + Width = 1190 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -99,17 +99,17 @@ object frmLLRKInPut: TfrmLLRKInPut object Panel3: TPanel Left = 0 Top = 30 - Width = 1182 - Height = 249 + Width = 1190 + Height = 291 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Panel6: TPanel - Left = 35 - Top = 267 - Width = 379 - Height = 311 + Left = 31 + Top = 236 + Width = 334 + Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 @@ -119,76 +119,76 @@ object frmLLRKInPut: TfrmLLRKInPut object Panel4: TPanel Left = 2 Top = 2 - Width = 1178 - Height = 57 + Width = 1186 + Height = 50 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label13: TLabel - Left = 782 - Top = 17 - Width = 115 - Height = 22 + Left = 690 + Top = 15 + Width = 105 + Height = 20 Caption = #20837#24211#26085#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label27: TLabel - Left = 32 - Top = 17 - Width = 81 - Height = 22 + Left = 28 + Top = 15 + Width = 74 + Height = 20 Caption = #23458' '#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel - Left = 433 - Top = 59 - Width = 115 - Height = 22 + Left = 382 + Top = 52 + Width = 105 + Height = 20 Caption = #36135#29289#31867#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label1: TLabel - Left = 438 - Top = 17 - Width = 115 - Height = 22 + Left = 386 + Top = 15 + Width = 105 + Height = 20 Caption = #36135#29289#21697#21517#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Tag = 2 - Left = 889 - Top = 13 - Width = 152 - Height = 30 + Left = 784 + Top = 11 + Width = 135 + Height = 28 Date = 42459.000000000000000000 Time = 42459.000000000000000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -196,13 +196,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object KHName: TBtnEditA Tag = 2 - Left = 112 - Top = 13 - Width = 296 + Left = 99 + Top = 11 + Width = 261 Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -211,14 +211,14 @@ object frmLLRKInPut: TfrmLLRKInPut OnBtnClick = KHNameBtnClick end object HWType: TEdit - Left = 543 - Top = 57 - Width = 203 + Left = 479 + Top = 50 + Width = 179 Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -228,13 +228,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object MYName: TBtnEditA Tag = 2 - Left = 545 - Top = 13 - Width = 212 + Left = 481 + Top = 11 + Width = 187 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -245,340 +245,340 @@ object frmLLRKInPut: TfrmLLRKInPut end object Panel5: TPanel Left = 2 - Top = 59 - Width = 1178 - Height = 187 + Top = 52 + Width = 1186 + Height = 165 Align = alTop TabOrder = 2 object Label6: TLabel - Left = 37 - Top = 140 - Width = 69 - Height = 16 + Left = 33 + Top = 124 + Width = 66 + Height = 15 Caption = #22791' '#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel - Left = 241 - Top = 86 - Width = 69 - Height = 16 + Left = 213 + Top = 76 + Width = 66 + Height = 15 Caption = #39068' '#33394#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel - Left = 241 - Top = 28 - Width = 69 - Height = 16 + Left = 213 + Top = 25 + Width = 66 + Height = 15 Caption = #20811' '#37325#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel - Left = 37 - Top = 28 - Width = 69 - Height = 16 + Left = 33 + Top = 25 + Width = 66 + Height = 15 Caption = #38376' '#24133#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel - Left = 182 - Top = 27 - Width = 23 - Height = 19 + Left = 161 + Top = 24 + Width = 22 + Height = 17 Caption = 'CM' Font.Charset = ANSI_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel - Left = 383 - Top = 27 + Left = 338 + Top = 24 Width = 33 - Height = 19 + Height = 17 Caption = 'g/'#13217 Font.Charset = ANSI_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 37 - Top = 86 - Width = 69 - Height = 16 + Left = 33 + Top = 76 + Width = 66 + Height = 15 Caption = #33394' '#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 182 - Top = 80 - Width = 15 - Height = 28 + Left = 161 + Top = 71 + Width = 13 + Height = 25 Caption = '#' Font.Charset = ANSI_CHARSET Font.Color = clWindowText - Font.Height = -24 + Font.Height = -21 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label31: TLabel - Left = 448 - Top = 28 - Width = 85 - Height = 16 + Left = 395 + Top = 25 + Width = 80 + Height = 15 Caption = #30721#21333#25968#37327#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label32: TLabel - Left = 575 - Top = 28 - Width = 17 - Height = 16 + Left = 507 + Top = 25 + Width = 16 + Height = 15 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label33: TLabel - Left = 708 - Top = 28 - Width = 17 - Height = 16 + Left = 625 + Top = 25 + Width = 16 + Height = 15 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label34: TLabel - Left = 832 - Top = 28 - Width = 34 - Height = 16 + Left = 734 + Top = 25 + Width = 32 + Height = 15 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 444 - Top = 221 - Width = 85 - Height = 16 + Left = 392 + Top = 195 + Width = 80 + Height = 15 Caption = #26680#23545#25968#37327#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label5: TLabel - Left = 576 - Top = 221 - Width = 17 - Height = 16 + Left = 508 + Top = 195 + Width = 16 + Height = 15 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label7: TLabel - Left = 707 - Top = 221 - Width = 17 - Height = 16 + Left = 624 + Top = 195 + Width = 16 + Height = 15 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label8: TLabel - Left = 831 - Top = 221 - Width = 34 - Height = 16 + Left = 733 + Top = 195 + Width = 32 + Height = 15 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label9: TLabel - Left = 444 - Top = 289 - Width = 85 - Height = 16 + Left = 392 + Top = 255 + Width = 80 + Height = 15 Caption = #25968#37327#23545#27604#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label10: TLabel - Left = 576 - Top = 289 - Width = 17 - Height = 16 + Left = 508 + Top = 255 + Width = 16 + Height = 15 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label17: TLabel - Left = 707 - Top = 289 - Width = 17 - Height = 16 + Left = 624 + Top = 255 + Width = 16 + Height = 15 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label18: TLabel - Left = 831 - Top = 289 - Width = 34 - Height = 16 + Left = 733 + Top = 255 + Width = 32 + Height = 15 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label23: TLabel - Left = 448 - Top = 140 - Width = 85 - Height = 16 + Left = 395 + Top = 124 + Width = 80 + Height = 15 Caption = #26469#36135#21333#20301#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label24: TLabel - Left = 448 - Top = 86 - Width = 85 - Height = 16 + Left = 395 + Top = 76 + Width = 80 + Height = 15 Caption = #23454#38469#20811#37325#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label25: TLabel - Left = 601 - Top = 85 + Left = 530 + Top = 75 Width = 33 - Height = 19 + Height = 17 Caption = 'g/'#13217 Font.Charset = ANSI_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = 'Cambria' Font.Style = [fsBold] ParentFont = False end object Label28: TLabel - Left = 675 - Top = 86 - Width = 51 - Height = 16 + Left = 596 + Top = 76 + Width = 48 + Height = 15 Caption = #32568#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Note: TEdit Tag = 2 - Left = 112 - Top = 136 - Width = 309 + Left = 99 + Top = 120 + Width = 272 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -586,13 +586,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object PS: TEdit Tag = 2 - Left = 527 - Top = 25 - Width = 45 + Left = 465 + Top = 22 + Width = 40 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -600,13 +600,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object Qty: TEdit Tag = 2 - Left = 628 - Top = 25 - Width = 80 + Left = 554 + Top = 22 + Width = 71 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -615,13 +615,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object KgQty: TEdit Tag = 2 - Left = 751 - Top = 25 - Width = 81 + Left = 663 + Top = 22 + Width = 71 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -629,14 +629,14 @@ object frmLLRKInPut: TfrmLLRKInPut OnChange = KgQtyChange end object MXHZPS: TEdit - Left = 529 - Top = 217 - Width = 46 + Left = 467 + Top = 191 + Width = 40 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -645,14 +645,14 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object MXHZQty: TEdit - Left = 627 - Top = 217 - Width = 80 + Left = 553 + Top = 191 + Width = 71 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -661,14 +661,14 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object MXHZKgQty: TEdit - Left = 750 - Top = 217 - Width = 81 + Left = 662 + Top = 191 + Width = 71 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -677,14 +677,14 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object PSChaE: TEdit - Left = 529 - Top = 284 - Width = 46 + Left = 467 + Top = 251 + Width = 40 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -693,14 +693,14 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object QtyChaE: TEdit - Left = 627 - Top = 284 - Width = 80 + Left = 553 + Top = 251 + Width = 71 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -709,14 +709,14 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object KgQtyChaE: TEdit - Left = 750 - Top = 284 - Width = 81 + Left = 662 + Top = 251 + Width = 71 Height = 24 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -725,30 +725,30 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object Panel7: TPanel - Left = 913 + Left = 806 Top = 1 - Width = 102 - Height = 177 + Width = 90 + Height = 156 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 10 object Panel1: TPanel - Left = 11 - Top = 18 - Width = 79 - Height = 137 + Left = 10 + Top = 16 + Width = 69 + Height = 121 BevelInner = bvRaised TabOrder = 0 OnClick = Panel1Click object Label20: TLabel - Left = 25 - Top = 23 - Width = 25 - Height = 96 + Left = 22 + Top = 20 + Width = 22 + Height = 84 Caption = #26126#13#10#32454#13#10#30721#13#10#21333 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -24 + Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -758,13 +758,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object PTID: TEdit Tag = 2 - Left = 1067 - Top = 72 - Width = 81 + Left = 941 + Top = 64 + Width = 72 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -773,13 +773,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object JCDanWei: TBtnEditA Tag = 2 - Left = 527 - Top = 132 - Width = 327 + Left = 465 + Top = 116 + Width = 289 Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -789,13 +789,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object MYMF: TBtnEditA Tag = 2 - Left = 112 - Top = 24 - Width = 68 + Left = 99 + Top = 21 + Width = 60 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -805,13 +805,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object MYKZ: TBtnEditA Tag = 2 - Left = 314 - Top = 23 - Width = 68 + Left = 277 + Top = 20 + Width = 60 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -821,13 +821,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object MYColorNo: TBtnEditA Tag = 2 - Left = 112 - Top = 81 - Width = 68 + Left = 99 + Top = 71 + Width = 60 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -837,13 +837,13 @@ object frmLLRKInPut: TfrmLLRKInPut end object MYColor: TBtnEditA Tag = 2 - Left = 314 - Top = 81 - Width = 68 + Left = 277 + Top = 71 + Width = 60 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -853,15 +853,15 @@ object frmLLRKInPut: TfrmLLRKInPut end object SJKZ: TEdit Tag = 2 - Left = 527 - Top = 83 - Width = 67 + Left = 465 + Top = 73 + Width = 59 Height = 23 Color = clScrollBar Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -870,31 +870,31 @@ object frmLLRKInPut: TfrmLLRKInPut end object RCGangNo: TEdit Tag = 2 - Left = 726 - Top = 81 - Width = 126 + Left = 641 + Top = 71 + Width = 111 Height = 25 TabOrder = 18 end end object Panel8: TPanel - Left = 411 - Top = 267 - Width = 98 - Height = 311 + Left = 363 + Top = 236 + Width = 86 + Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 Visible = False object Button1: TButton - Left = 6 - Top = 116 - Width = 84 - Height = 54 + Left = 5 + Top = 102 + Width = 74 + Height = 48 Caption = #36873#25321#39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -903,16 +903,16 @@ object frmLLRKInPut: TfrmLLRKInPut end end object Panel16: TPanel - Left = 379 - Top = 106 - Width = 282 - Height = 34 + Left = 334 + Top = 94 + 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 = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -920,30 +920,30 @@ object frmLLRKInPut: TfrmLLRKInPut Visible = False end object Panel2: TPanel - Left = 529 - Top = 266 - Width = 98 - Height = 311 + Left = 467 + Top = 235 + Width = 86 + Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 5 Visible = False object Image11: TImage - Left = 31 - Top = 255 - Width = 48 - Height = 37 + Left = 27 + Top = 225 + Width = 43 + Height = 33 Visible = False end object Button3: TButton - Left = 5 - Top = 117 - Width = 85 - Height = 54 + Left = 4 + Top = 103 + Width = 75 + Height = 48 Caption = #36873#25321#22270#29255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -952,19 +952,19 @@ object frmLLRKInPut: TfrmLLRKInPut end end object Panel9: TPanel - Left = 623 - Top = 266 - Width = 401 - Height = 311 + Left = 550 + Top = 235 + Width = 354 + Height = 274 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 6 Visible = False object Image1: TImage - Left = 221 - Top = 154 - Width = 85 - Height = 65 + Left = 195 + Top = 136 + Width = 75 + Height = 57 Visible = False OnDblClick = Image1DblClick end diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm index 0dc7224..e882f2c 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKList.dfm @@ -1,6 +1,6 @@ object frmLLRKList: TfrmLLRKList - Left = 37 - Top = 72 + Left = 601 + Top = 249 Width = 1361 Height = 698 Caption = #23458#25143#26469#26009#20837#24211#30331#35760 @@ -20,7 +20,7 @@ object frmLLRKList: TfrmLLRKList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1345 + Width = 1353 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -106,8 +106,8 @@ object frmLLRKList: TfrmLLRKList object cxGrid1: TcxGrid Left = 0 Top = 104 - Width = 1345 - Height = 555 + Width = 1353 + Height = 563 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 @@ -319,7 +319,7 @@ object frmLLRKList: TfrmLLRKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1345 + Width = 1353 Height = 72 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_LLRKList.pas b/云翔生产管理(MYSC.dll)/U_LLRKList.pas index e294434..7645561 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKList.pas @@ -12,7 +12,21 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmLLRKList = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm index 175594d..0cbe446 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.dfm @@ -7,19 +7,19 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow - PixelsPerInch = 107 - TextHeight = 17 + PixelsPerInch = 96 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1333 + Width = 1341 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -98,36 +98,36 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut object Panel3: TPanel Left = 0 Top = 30 - Width = 427 - Height = 583 + Width = 377 + Height = 592 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label13: TLabel - Left = 651 - Top = 34 - Width = 85 - Height = 16 + Left = 574 + Top = 30 + Width = 80 + Height = 15 Caption = #20837#24211#26085#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Tag = 2 - Left = 741 - Top = 31 - Width = 143 - Height = 23 + Left = 654 + Top = 27 + Width = 126 + Height = 21 Date = 42459.000000000000000000 Time = 42459.000000000000000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -143,73 +143,73 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut Style.Color = clBtnFace Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clBlue - Style.Font.Height = -22 + Style.Font.Height = -20 Style.Font.Name = #24494#36719#38597#40657 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 1 - Height = 579 - Width = 423 + Height = 588 + Width = 373 object Label7: TLabel - Left = 43 - Top = 254 - Width = 86 - Height = 30 + Left = 38 + Top = 224 + Width = 76 + Height = 27 Caption = #25968' '#37327 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object Label9: TLabel - Left = 185 - Top = 196 - Width = 22 - Height = 30 + Left = 163 + Top = 173 + Width = 20 + Height = 27 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel - Left = 185 - Top = 322 - Width = 44 - Height = 30 + Left = 163 + Top = 284 + Width = 40 + Height = 27 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel - Left = 43 - Top = 80 - Width = 88 - Height = 30 + Left = 38 + Top = 71 + Width = 80 + Height = 27 Caption = #20837#24211#32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object QtyLRM: TEdit - Left = 256 - Top = 192 - Width = 82 - Height = 35 + Left = 226 + Top = 169 + Width = 72 + Height = 38 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False @@ -218,14 +218,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut OnKeyPress = QtyLRMKeyPress end object UnitM: TEdit - Left = 142 - Top = 181 - Width = 40 - Height = 54 + Left = 125 + Top = 160 + Width = 36 + Height = 60 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -40 + Font.Height = -35 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False @@ -234,14 +234,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut OnClick = UnitMClick end object UnitKg: TEdit - Left = 142 - Top = 307 - Width = 40 - Height = 54 + Left = 125 + Top = 271 + Width = 36 + Height = 60 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -40 + Font.Height = -35 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False @@ -250,26 +250,26 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut OnClick = UnitKgClick end object RCGangNo: TEdit - Left = 142 - Top = 76 - Width = 197 - Height = 35 + Left = 125 + Top = 67 + Width = 174 + Height = 38 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object QtyLRKg: TEdit - Left = 256 - Top = 318 - Width = 82 - Height = 35 + Left = 226 + Top = 281 + Width = 72 + Height = 38 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -20 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False @@ -278,20 +278,20 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut OnKeyPress = QtyLRKgKeyPress end object BtnM: TButton - Left = 345 - Top = 192 - Width = 57 - Height = 39 + Left = 304 + Top = 169 + Width = 51 + Height = 35 Caption = #30830#35748 TabOrder = 5 Visible = False OnClick = BtnMClick end object BtnKg: TButton - Left = 345 - Top = 318 - Width = 57 - Height = 40 + Left = 304 + Top = 281 + Width = 51 + Height = 35 Caption = #30830#35748 TabOrder = 6 Visible = False @@ -300,15 +300,15 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MYType: TBtnEditA Tag = 2 - Left = 698 - Top = 203 - Width = 113 - Height = 23 + Left = 616 + Top = 179 + Width = 100 + Height = 25 Hint = 'MYTypeFlag' Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -317,13 +317,13 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MLID: TEdit Tag = 2 - Left = 696 - Top = 102 - Width = 139 - Height = 22 + Left = 614 + Top = 90 + Width = 123 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -331,13 +331,13 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object BPID: TEdit Tag = 2 - Left = 696 - Top = 138 - Width = 139 - Height = 22 + Left = 614 + Top = 122 + Width = 123 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -345,13 +345,13 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object DYID: TEdit Tag = 2 - Left = 696 - Top = 66 - Width = 139 - Height = 22 + Left = 614 + Top = 58 + Width = 123 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -359,13 +359,13 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object PTID: TEdit Tag = 2 - Left = 696 - Top = 175 - Width = 139 - Height = 22 + Left = 614 + Top = 154 + Width = 123 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -373,10 +373,10 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end end object Panel1: TPanel - Left = 427 + Left = 377 Top = 30 - Width = 906 - Height = 583 + Width = 964 + Height = 592 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -384,101 +384,101 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut object Panel2: TPanel Left = 2 Top = 2 - Width = 902 - Height = 47 + Width = 960 + Height = 41 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 object Label4: TLabel - Left = 31 - Top = 14 - Width = 38 - Height = 18 + Left = 27 + Top = 12 + Width = 34 + Height = 16 Caption = #32568#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 142 - Top = 14 - Width = 38 - Height = 18 + Left = 125 + Top = 12 + Width = 34 + Height = 16 Caption = #21305#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label17: TLabel - Left = 249 - Top = 14 - Width = 57 - Height = 18 + Left = 220 + Top = 12 + Width = 51 + Height = 16 Caption = #20844#26020#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label18: TLabel - Left = 505 - Top = 14 - Width = 38 - Height = 18 + Left = 446 + Top = 12 + Width = 34 + Height = 16 Caption = #31859#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label25: TLabel - Left = 383 - Top = 14 - Width = 38 - Height = 18 + Left = 338 + Top = 12 + Width = 34 + Height = 16 Caption = #22343#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 621 - Top = 14 - Width = 38 - Height = 18 + Left = 548 + Top = 12 + Width = 34 + Height = 16 Caption = #22343#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object GangQty: TEdit Tag = 2 - Left = 71 - Top = 10 - Width = 41 - Height = 22 + Left = 63 + Top = 9 + Width = 36 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -487,14 +487,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MXHZPS: TEdit Tag = 2 - Left = 181 - Top = 10 - Width = 41 - Height = 22 + Left = 160 + Top = 9 + Width = 36 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -503,14 +503,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MXHZKGQty: TEdit Tag = 2 - Left = 308 - Top = 10 - Width = 73 - Height = 22 + Left = 272 + Top = 9 + Width = 64 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -519,14 +519,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MXHZQty: TEdit Tag = 2 - Left = 546 - Top = 10 - Width = 73 - Height = 22 + Left = 482 + Top = 9 + Width = 64 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -534,14 +534,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut TabOrder = 3 end object BtnDel: TButton - Left = 807 - Top = 9 - Width = 45 - Height = 28 + Left = 712 + Top = 8 + Width = 40 + Height = 25 Caption = #21024#38500 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -550,14 +550,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object KgQtyAvg: TEdit Tag = 99 - Left = 422 - Top = 10 - Width = 55 - Height = 22 + Left = 372 + Top = 9 + Width = 49 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -566,14 +566,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object QtyAvg: TEdit Tag = 99 - Left = 660 - Top = 10 - Width = 55 - Height = 22 + Left = 582 + Top = 9 + Width = 49 + Height = 23 Color = clMenuBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -581,14 +581,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut TabOrder = 6 end object Button3: TButton - Left = 734 - Top = 9 - Width = 46 - Height = 28 + Left = 648 + Top = 8 + Width = 40 + Height = 25 Caption = #25171#21360 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -598,20 +598,20 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object cxGrid1: TcxGrid Left = 2 - Top = 49 - Width = 902 - Height = 460 + Top = 43 + Width = 960 + Height = 483 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] ParentFont = False PopupMenu = PopupMenu1 TabOrder = 1 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellDblClick = Tv1CellDblClick DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -661,8 +661,8 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut DataBinding.FieldName = 'GangNo' Visible = False HeaderAlignmentHorz = taCenter - Hidden = True Options.Focusing = False + VisibleForCustomization = False Width = 101 end object v1Column1: TcxGridDBColumn @@ -711,9 +711,9 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object Panel4: TPanel Left = 2 - Top = 509 - Width = 902 - Height = 72 + Top = 526 + Width = 960 + Height = 64 Align = alBottom BevelInner = bvRaised BevelOuter = bvLowered @@ -721,53 +721,53 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut TabOrder = 2 Visible = False object Label23: TLabel - Left = 405 - Top = 25 - Width = 57 - Height = 18 + Left = 357 + Top = 22 + Width = 51 + Height = 16 Caption = #20844#26020#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label24: TLabel - Left = 561 - Top = 25 - Width = 38 - Height = 18 + Left = 495 + Top = 22 + Width = 34 + Height = 16 Caption = #31859#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label20: TLabel - Left = 205 - Top = 25 - Width = 76 - Height = 18 + Left = 181 + Top = 22 + Width = 68 + Height = 16 Caption = #20837#24211#32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -18 + Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KgQty1: TEdit Tag = 2 - Left = 464 - Top = 22 - Width = 78 - Height = 22 + Left = 409 + Top = 19 + Width = 69 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -775,27 +775,27 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object MQty1: TEdit Tag = 2 - Left = 601 - Top = 22 - Width = 79 - Height = 22 + Left = 530 + Top = 19 + Width = 70 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Button6: TButton - Left = 712 - Top = 16 - Width = 69 - Height = 37 + Left = 628 + Top = 14 + Width = 61 + Height = 33 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -804,27 +804,27 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end object RCGangNO1: TEdit Tag = 2 - Left = 282 - Top = 22 - Width = 97 - Height = 22 + Left = 249 + Top = 19 + Width = 85 + Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -13 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object Button1: TButton - Left = 62 - Top = 16 - Width = 119 - Height = 37 + Left = 55 + Top = 14 + Width = 105 + Height = 33 Caption = #25209#37327#26356#25913#32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -833,65 +833,65 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end end object Panel5: TPanel - Left = 564 - Top = 74 - Width = 327 - Height = 267 + Left = 498 + Top = 65 + Width = 288 + Height = 236 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 3 Visible = False object Label28: TLabel - Left = 74 - Top = 52 - Width = 56 - Height = 27 + Left = 65 + Top = 46 + Width = 50 + Height = 24 Caption = #24352#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -27 + Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label29: TLabel - Left = 74 - Top = 125 - Width = 56 - Height = 27 + Left = 65 + Top = 110 + Width = 50 + Height = 24 Caption = #23610#23544 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -27 + Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label30: TLabel - Left = 125 - Top = 12 - Width = 68 - Height = 16 + Left = 110 + Top = 11 + Width = 64 + Height = 15 Caption = #26631#31614#25171#21360 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object ComboBox2: TComboBox - Left = 133 - Top = 48 - Width = 105 - Height = 35 + Left = 117 + Top = 42 + Width = 93 + Height = 32 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -27 + Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 27 + ItemHeight = 24 ItemIndex = 0 ParentFont = False TabOrder = 0 @@ -902,17 +902,17 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut '3') end object ComboBox1: TComboBox - Left = 133 - Top = 120 - Width = 105 - Height = 35 + Left = 117 + Top = 106 + Width = 93 + Height = 32 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -27 + Font.Height = -24 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 27 + ItemHeight = 24 ParentFont = False TabOrder = 1 Items.Strings = ( @@ -920,14 +920,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut '9*7') end object BtnPrt: TButton - Left = 214 - Top = 190 - Width = 91 - Height = 57 + Left = 189 + Top = 168 + Width = 80 + Height = 50 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -37 + Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -935,14 +935,14 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut OnClick = BtnPrtClick end object BtnQX: TButton - Left = 25 - Top = 190 - Width = 91 - Height = 57 + Left = 22 + Top = 168 + Width = 80 + Height = 50 Caption = #21462#28040 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -37 + Font.Height = -33 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -952,16 +952,16 @@ object frmLLRKMXInPut: TfrmLLRKMXInPut end end object Panel16: TPanel - Left = 508 - Top = 261 - Width = 282 - Height = 34 + Left = 448 + Top = 230 + 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 = -16 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas index 328efec..2fc4bc9 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_LLRKMXInPut.pas @@ -12,7 +12,22 @@ uses ExtCtrls, BtnEdit, cxCalendar,StrUtils, cxDropDownEdit,jpeg, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC, cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus; + RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, Menus, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator; type TfrmLLRKMXInPut = class(TForm) diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm index 544b70a..44f4099 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList.dfm @@ -20,7 +20,7 @@ object frmPBCGRKList: TfrmPBCGRKList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1540 + Width = 1548 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 @@ -115,8 +115,8 @@ object frmPBCGRKList: TfrmPBCGRKList object cxGrid1: TcxGrid Left = 0 Top = 98 - Width = 1540 - Height = 628 + Width = 1548 + Height = 636 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -291,7 +291,7 @@ object frmPBCGRKList: TfrmPBCGRKList object Panel1: TPanel Left = 0 Top = 32 - Width = 1540 + Width = 1548 Height = 66 Align = alTop BevelInner = bvRaised diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas b/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas index ac30eb5..f409748 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList.pas @@ -11,7 +11,20 @@ uses cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, BtnEdit; + cxNavigator, BtnEdit, 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 TfrmPBCGRKList = class(TForm)