From 0f0214c92ac6398b0a2f8eb32f90d9475f7e8d17 Mon Sep 17 00:00:00 2001 From: libingpeng <3360871605@qq.com> Date: Fri, 5 Dec 2025 11:39:59 +0800 Subject: [PATCH] =?UTF-8?q?=E5=8A=A0=E4=B8=80=E4=B8=AA=E6=9F=93=E5=8E=82?= =?UTF-8?q?=E7=BC=B8=E5=8F=B7=E8=BE=93=E5=85=A5=E6=A1=86=20=E9=9C=80?= =?UTF-8?q?=E8=A6=81=E6=A0=87=E7=AD=BE=E5=AD=97=E6=AE=B5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/ProjectGroup1.~bpg | 8 +- 打卷检验管理/TradeManage.dpr | 5 +- 打卷检验管理/U_JYOrderCDOne.dfm | 91 ++++--- 打卷检验管理/U_JYOrderCDOne.pas | 50 +++- 打卷检验管理/U_MJManageNewFDNew.dfm | 157 ++++++----- 打卷检验管理/U_MJManageNewFDNew.pas | 12 +- 打卷检验管理/U_ZDZSDXZ.dfm | 405 ++++++++++++++++++++++++++++ 打卷检验管理/U_ZDZSDXZ.pas | 172 ++++++++++++ 8 files changed, 782 insertions(+), 118 deletions(-) create mode 100644 打卷检验管理/U_ZDZSDXZ.dfm create mode 100644 打卷检验管理/U_ZDZSDXZ.pas diff --git a/打卷检验管理/ProjectGroup1.~bpg b/打卷检验管理/ProjectGroup1.~bpg index 7c050f6..091c62d 100644 --- a/打卷检验管理/ProjectGroup1.~bpg +++ b/打卷检验管理/ProjectGroup1.~bpg @@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** DCC = $(ROOT)\bin\dcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $** #------------------------------------------------------------------------------ -PROJECTS = testDll.exe ProductPrice.dll +PROJECTS = TradeManage.dll testDll.exe #------------------------------------------------------------------------------ default: $(PROJECTS) #------------------------------------------------------------------------------ +TradeManage.dll: TradeManage.dpr + $(DCC) + testDll.exe: testDll.dpr $(DCC) -ProductPrice.dll: ProductPrice.dpr - $(DCC) - diff --git a/打卷检验管理/TradeManage.dpr b/打卷检验管理/TradeManage.dpr index ab999ad..49483df 100644 --- a/打卷检验管理/TradeManage.dpr +++ b/打卷检验管理/TradeManage.dpr @@ -6,7 +6,7 @@ uses WinTypes, WinProcs, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, - U_GetDllForm in 'U_GetDllForm.pas', + U_GetDllForm in 'U_GetDllForm.pas', U_ZDYHelpSel in '..\..\..\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField}, U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet}, @@ -49,7 +49,8 @@ uses U_CKProductJYHZList in 'U_CKProductJYHZList.pas' {frmCKProductJYHZList}, U_SysLogOrder in 'U_SysLogOrder.pas' {frmSysLogOrder}, U_MJSJFX in 'U_MJSJFX.pas' {frmMJSJFX}, - U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas'; + U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas', + U_ZDZSDXZ in 'U_ZDZSDXZ.pas' {frmZDZSD}; {$R *.res} diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index 7d86ffe..50690a5 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 459 - Top = 317 + Left = 130 + Top = 109 Width = 1400 Height = 757 Caption = #26816#39564#25253#21578 @@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 - Height = 62 + Width = 1392 + Height = 92 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -101,51 +101,51 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 + Wrap = True OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 608 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 719 - Top = 0 + Left = 111 + Top = 30 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 830 - Top = 0 + Left = 222 + Top = 30 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 953 - Top = 0 + Left = 345 + Top = 30 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 1064 - Top = 0 + Left = 456 + Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 ImageIndex = 96 - Wrap = True OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 0 + Left = 543 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 87 + Left = 630 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -162,24 +162,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 186 + Left = 729 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 + Wrap = True OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 297 - Top = 30 + Left = 0 + Top = 60 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 360 - Top = 30 + Left = 63 + Top = 60 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -193,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 428 - Top = 33 + Left = 131 + Top = 63 Width = 149 Height = 24 Style = csDropDownList @@ -217,8 +218,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333'('#20013#25991#20116#21015')') end object Edit4: TEdit - Left = 577 - Top = 30 + Left = 280 + Top = 60 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -231,8 +232,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 698 - Top = 30 + Left = 401 + Top = 60 AutoSize = True Caption = #20462#25913#30721#21333 ImageIndex = 54 @@ -240,42 +241,50 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 785 - Top = 30 + Left = 488 + Top = 60 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 872 - Top = 30 + Left = 575 + Top = 60 AutoSize = True Caption = #21246#36873#23548#20986 ImageIndex = 75 OnClick = TBExportClick end object ToolButton14: TToolButton - Left = 959 - Top = 30 + Left = 662 + Top = 60 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = ToolButton14Click end object TBClose: TToolButton - Left = 1022 - Top = 30 + Left = 725 + Top = 60 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end + object ToolButton15: TToolButton + Left = 788 + Top = 60 + AutoSize = True + Caption = #36716#21333 + ImageIndex = 56 + OnClick = ToolButton15Click + end end object Panel1: TPanel Left = 0 - Top = 62 - Width = 1384 + Top = 92 + Width = 1392 Height = 88 Align = alTop BevelInner = bvRaised @@ -789,9 +798,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 150 - Width = 1384 - Height = 568 + Top = 180 + Width = 1392 + Height = 546 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index acb9f3c..61e0103 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -224,6 +224,7 @@ type Edit6: TEdit; Tv1Column2: TcxGridDBColumn; ToolButton14: TToolButton; + ToolButton15: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -286,6 +287,7 @@ type procedure Button14Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure ToolButton14Click(Sender: TObject); + procedure ToolButton15Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -311,7 +313,7 @@ var implementation uses - U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX; + U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_MJSJFX, U_ZDZSDXZ; {$R *.dfm} procedure TfrmJYOrderCDOne.JSbaoNum(); @@ -2341,7 +2343,7 @@ begin Fxsws := ADOQueryTemp.fieldbyname('xsws').AsInteger; with ADOQueryCmd do begin - Close; + Close; sql.Clear; sql.Add('Update JYOrder_Sub Set kmxs=''' + trim(Edit5.Text) + ''' '); sql.Add('where subid=''' + Trim(Order_Main.fieldbyname('subid').AsString) + ''''); @@ -2513,5 +2515,49 @@ begin SelExportData(Tv1, ADOQueryMain, '鱨'); end; +procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + try + frmZDZSD := TfrmZDZSD.Create(Application); + with frmZDZSD do + begin + if ShowModal = 1 then + begin + with self.Order_Main do + begin + First; + while not Eof do + begin + if self.Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set mainid=''' + frmZDZSD.Order_Main.fieldbyname('mainid').asstring + ''' '); + sql.Add(', subid=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' '); + sql.Add(', APID=''' + frmZDZSD.Order_Main.fieldbyname('subid').asstring + ''' '); + sql.Add('where MJID=''' + Trim(self.Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + end; + end; + finally + frmZDZSD.Free; + end; +end; + end. diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 013ed0e..cc0d6c3 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 322 - Top = 165 + Left = 191 + Top = 193 Width = 1366 Height = 833 Caption = #25104#21697#26816#39564 @@ -19,9 +19,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TextHeight = 12 object cxGrid3: TcxGrid Left = 0 - Top = 117 + Top = 87 Width = 225 - Height = 677 + Height = 715 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -124,9 +124,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object ScrollBox1: TScrollBox Left = 633 - Top = 117 - Width = 717 - Height = 677 + Top = 87 + Width = 725 + Height = 715 Align = alClient Color = clWhite ParentColor = False @@ -975,9 +975,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel2: TPanel Left = 439 - Top = 117 + Top = 87 Width = 194 - Height = 677 + Height = 715 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 2 object Label9: TLabel Left = 152 - Top = 78 + Top = 72 Width = 15 Height = 22 Caption = 'M' @@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label3: TLabel Left = 144 - Top = 427 + Top = 397 Width = 26 Height = 22 Caption = 'cm' @@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label4: TLabel Left = 152 - Top = 185 + Top = 170 Width = 28 Height = 22 Caption = 'KG' @@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label5: TLabel Left = 8 - Top = 77 + Top = 71 Width = 42 Height = 20 Caption = #38271#24230 @@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label6: TLabel Left = 8 - Top = 427 + Top = 398 Width = 42 Height = 20 Caption = #24133#23485 @@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label11: TLabel Left = 8 - Top = 185 + Top = 170 Width = 42 Height = 20 Caption = #27611#37325 @@ -1132,7 +1132,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label22: TLabel Left = 144 - Top = 468 + Top = 432 Width = 36 Height = 22 Caption = 'g/'#13217 @@ -1145,7 +1145,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label23: TLabel Left = 8 - Top = 467 + Top = 432 Width = 42 Height = 20 Caption = #20811#37325 @@ -1157,8 +1157,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label27: TLabel - Left = 11 - Top = 300 + Left = 10 + Top = 269 Width = 42 Height = 20 Caption = #20943#38271 @@ -1171,7 +1171,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label26: TLabel Left = 8 - Top = 335 + Top = 306 Width = 42 Height = 20 Caption = #20986#32440 @@ -1198,7 +1198,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label30: TLabel Left = 8 - Top = 113 + Top = 104 Width = 42 Height = 20 Caption = #30382#37325 @@ -1211,7 +1211,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label31: TLabel Left = 152 - Top = 149 + Top = 137 Width = 28 Height = 22 Caption = 'KG' @@ -1224,7 +1224,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label32: TLabel Left = 8 - Top = 149 + Top = 137 Width = 42 Height = 20 Caption = #20928#37325 @@ -1237,7 +1237,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label33: TLabel Left = 152 - Top = 114 + Top = 105 Width = 28 Height = 22 Caption = 'KG' @@ -1250,7 +1250,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label34: TLabel Left = 90 - Top = 338 + Top = 309 Width = 40 Height = 19 Caption = #20221#25968 @@ -1276,7 +1276,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label37: TLabel Left = 8 - Top = 41 + Top = 38 Width = 42 Height = 20 Caption = #32568#21495 @@ -1289,7 +1289,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label39: TLabel Left = 8 - Top = 221 + Top = 203 Width = 42 Height = 20 Caption = #31995#25968 @@ -1328,7 +1328,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label28: TLabel Left = 10 - Top = 260 + Top = 239 Width = 42 Height = 20 Caption = #21253#21495 @@ -1341,7 +1341,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label55: TLabel Left = 24 - Top = 387 + Top = 358 Width = 63 Height = 20 Caption = #21253#20986#32440 @@ -1352,9 +1352,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False end + object Label60: TLabel + Left = 8 + Top = 463 + Width = 34 + Height = 32 + Caption = #26579#21378#13#10#32568#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object MJFK: TEdit Left = 51 - Top = 421 + Top = 392 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET @@ -1369,7 +1382,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJLen: TEdit Left = 57 - Top = 73 + Top = 67 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1386,7 +1399,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJMaoZ: TEdit Left = 57 - Top = 181 + Top = 166 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1402,7 +1415,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object BTPrint: TButton Left = 2 - Top = 504 + Top = 499 Width = 191 Height = 97 Caption = #25552#20132 @@ -1469,7 +1482,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJSJKZ: TEdit Left = 51 - Top = 462 + Top = 427 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET @@ -1484,7 +1497,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty2: TEdit Left = 57 - Top = 291 + Top = 265 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1501,7 +1514,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit6: TEdit Left = 52 - Top = 329 + Top = 300 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1535,7 +1548,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty3: TEdit Left = 57 - Top = 109 + Top = 100 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1552,7 +1565,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty4: TEdit Left = 57 - Top = 145 + Top = 133 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1569,7 +1582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object ComboBox1: TComboBox Left = 132 - Top = 330 + Top = 301 Width = 45 Height = 40 Style = csDropDownList @@ -1592,7 +1605,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJStr4: TEdit Left = 57 - Top = 37 + Top = 34 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1624,7 +1637,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object kmxs: TEdit Left = 57 - Top = 217 + Top = 199 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1656,7 +1669,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object baoNo: TEdit Left = 57 - Top = 253 + Top = 232 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1694,7 +1707,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit13: TEdit Left = 92 - Top = 377 + Top = 348 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1709,6 +1722,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit13Click OnKeyPress = MJstr3KeyPress end + object RCGH: TEdit + Left = 51 + Top = 463 + Width = 110 + Height = 41 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 22 + OnClick = MJXHClick + OnKeyPress = MJstr3KeyPress + end end object MovePanel1: TMovePanel Left = 634 @@ -1962,9 +1990,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel7: TPanel Left = 225 - Top = 117 + Top = 87 Width = 214 - Height = 677 + Height = 715 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1973,7 +2001,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 210 - Height = 352 + Height = 390 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2081,7 +2109,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 354 + Top = 392 Width = 210 Height = 28 Align = alBottom @@ -2096,7 +2124,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 382 + Top = 420 Width = 210 Height = 293 Align = alBottom @@ -2331,8 +2359,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 - Height = 60 + Width = 1358 + Height = 30 AutoSize = True ButtonHeight = 30 ButtonWidth = 115 @@ -2537,44 +2565,43 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF AutoSize = True Caption = ' '#20462#25913' ' ImageIndex = 54 - Wrap = True OnClick = ToolButton2Click end object TBCD: TToolButton - Left = 0 - Top = 30 + Left = 878 + Top = 0 AutoSize = True Caption = ' '#37325#25171' ' ImageIndex = 132 OnClick = TBCDClick end object ToolButton4: TToolButton - Left = 99 - Top = 30 + Left = 977 + Top = 0 AutoSize = True Caption = #26085#24535 ImageIndex = 72 OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 178 - Top = 30 + Left = 1056 + Top = 0 AutoSize = True Caption = #25171#21360#30721#21333 ImageIndex = 12 OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 297 - Top = 30 + Left = 1175 + Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end object ToolButton3: TToolButton - Left = 376 - Top = 30 + Left = 1254 + Top = 0 AutoSize = True Caption = ' '#21024#38500' ' ImageIndex = 48 @@ -2583,8 +2610,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel6: TPanel Left = 0 - Top = 60 - Width = 1350 + Top = 30 + Width = 1358 Height = 57 Align = alTop BevelInner = bvRaised @@ -2970,8 +2997,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel1: TPanel - Left = 344 - Top = 320 + Left = 320 + Top = 280 Width = 385 Height = 185 Color = clSkyBlue diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 833f7eb..17e3e4f 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -285,6 +285,8 @@ type MinbaoNo: TEdit; Label59: TLabel; MaxbaoNo: TEdit; + Label60: TLabel; + RCGH: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -1078,6 +1080,7 @@ begin FieldByName('MJstr3').Value := Trim(MJstr3.Text); FieldByName('MJstr4').Value := Trim(MJstr4.Text); FieldByName('MJstr5').Value := Trim(MJstr5.Text); + FieldByName('RCGH').Value := Trim(RCGH.Text); FieldByName('mjxh').Value := Trim(mjxh.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text); FieldByName('MJTypeOther').Value := Trim(Label9.Caption); @@ -2463,8 +2466,8 @@ begin begin MJMaoZ.Text := ''; Exit; - end; - + end; + if TryStrToFloat(MJQty4.Text, FReal) = False then Exit; @@ -2499,8 +2502,8 @@ var begin if Trim(MJMaoZ.Text) = '' then begin - MJQty4.Text := ''; - Exit; + MJQty4.Text := ''; + Exit; end; if TryStrToFloat(MJMaoZ.Text, FReal) = False then Exit; @@ -2653,6 +2656,7 @@ begin MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString); MJStr4.Text := Trim(ADOTmp.fieldbyname('GH').AsString); + RCGH.Text := Trim(ADOTmp.fieldbyname('RCGH').AsString); if edit10.Text = '' then begin MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1); diff --git a/打卷检验管理/U_ZDZSDXZ.dfm b/打卷检验管理/U_ZDZSDXZ.dfm new file mode 100644 index 0000000..99ccd81 --- /dev/null +++ b/打卷检验管理/U_ZDZSDXZ.dfm @@ -0,0 +1,405 @@ +object frmZDZSD: TfrmZDZSD + Left = 206 + Top = 120 + Width = 1305 + Height = 675 + Caption = #36716#21333#25351#31034#21333#36873#25321 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1297 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 2 + OnClick = TBRafreshClick + end + object ToolButton3: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #36873#25321 + ImageIndex = 106 + OnClick = ToolButton3Click + end + object TBClose: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 32 + Width = 1297 + Height = 40 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label1: TLabel + Left = 18 + Top = 15 + Width = 52 + Height = 12 + Caption = #21046#21333#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 311 + Top = 15 + Width = 39 + Height = 12 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 483 + Top = 15 + Width = 65 + Height = 12 + Caption = #23458#25143#35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 518 + Top = 123 + Width = 39 + Height = 12 + Caption = #22383#24067#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label9: TLabel + Left = 207 + Top = 83 + Width = 39 + Height = 12 + Caption = #21512#21516#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label10: TLabel + Left = 517 + Top = 147 + Width = 39 + Height = 12 + Caption = #21152#24037#21378 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 670 + Top = 123 + Width = 52 + Height = 12 + Caption = #22383#24067#25209#27425 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 670 + Top = 147 + Width = 52 + Height = 12 + Caption = #21697#21517#20013#25991 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 160 + Top = 16 + Width = 3 + Height = 13 + Caption = '-' + end + object BegDate: TDateTimePicker + Left = 71 + Top = 11 + Width = 85 + Height = 20 + Date = 40675.464742650460000000 + Format = 'yyyy-MM-dd' + Time = 40675.464742650460000000 + TabOrder = 0 + end + object EndDate: TDateTimePicker + Left = 167 + Top = 11 + Width = 86 + Height = 20 + Date = 40675.464761099540000000 + Format = 'yyyy-MM-dd' + Time = 40675.464761099540000000 + TabOrder = 1 + end + object OrderNo: TEdit + Tag = 2 + Left = 352 + Top = 11 + Width = 77 + Height = 21 + TabOrder = 2 + OnChange = OrderNoChange + end + object KHorderNo: TEdit + Tag = 2 + Left = 547 + Top = 11 + Width = 76 + Height = 21 + TabOrder = 3 + OnChange = KHorderNoChange + end + object PBFactory: TEdit + Tag = 2 + Left = 561 + Top = 119 + Width = 76 + Height = 21 + TabOrder = 5 + end + object ConNo: TEdit + Tag = 2 + Left = 248 + Top = 79 + Width = 77 + Height = 21 + TabOrder = 4 + end + object RanFactory: TEdit + Tag = 2 + Left = 561 + Top = 143 + Width = 76 + Height = 21 + TabOrder = 7 + end + object Orddefstr5: TEdit + Tag = 2 + Left = 725 + Top = 119 + Width = 76 + Height = 21 + TabOrder = 6 + end + object PRTCodeName: TEdit + Tag = 2 + Left = 725 + Top = 143 + Width = 76 + Height = 21 + TabOrder = 8 + end + end + object cxGrid1: TcxGrid + Left = 0 + Top = 72 + Width = 1297 + Height = 572 + Align = alClient + TabOrder = 2 + object Tv1: TcxGridDBTableView + 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 + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Inactive = DataLink_TradeManage.SHuangSe + Styles.IncSearch = DataLink_TradeManage.SHuangSe + Styles.Selection = DataLink_TradeManage.SHuangSe + Styles.Header = DataLink_TradeManage.Default + object Tv1Column6: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 40 + end + object Tv1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column2: TcxGridDBColumn + Caption = #23458#25143#35746#21333#21495 + DataBinding.FieldName = 'KHorderNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object Tv1Column3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column4: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21697#21517#20013#25991 + DataBinding.FieldName = 'PRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column7: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTkuanNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 65 + end + object Tv1Column8: TcxGridDBColumn + Caption = #39068#33394'('#33521#25991')' + DataBinding.FieldName = 'SOrddefstr4' + HeaderAlignmentHorz = taCenter + Width = 90 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 496 + Top = 184 + end + object DataSource1: TDataSource + DataSet = Order_Main + Left = 440 + Top = 184 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 467 + Top = 184 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 404 + Top = 276 + end +end diff --git a/打卷检验管理/U_ZDZSDXZ.pas b/打卷检验管理/U_ZDZSDXZ.pas new file mode 100644 index 0000000..1aef4fc --- /dev/null +++ b/打卷检验管理/U_ZDZSDXZ.pas @@ -0,0 +1,172 @@ +unit U_ZDZSDXZ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, ComCtrls, ToolWin, cxGraphics, cxControls, cxLookAndFeels, + cxLookAndFeelPainters, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage, + cxEdit, cxNavigator, DB, cxDBData, cxCheckBox, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, DBClient, ADODB, cxGridLevel, cxClasses, + cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, 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 + TfrmZDZSD = class(TForm) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + ToolButton3: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label3: TLabel; + Label4: TLabel; + Label8: TLabel; + Label9: TLabel; + Label10: TLabel; + Label2: TLabel; + Label5: TLabel; + Label6: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + OrderNo: TEdit; + KHorderNo: TEdit; + PBFactory: TEdit; + ConNo: TEdit; + RanFactory: TEdit; + Orddefstr5: TEdit; + PRTCodeName: TEdit; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + cxGrid1Level1: TcxGridLevel; + ADOQueryMain: TADOQuery; + DataSource1: TDataSource; + Order_Main: TClientDataSet; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + ADOQueryTemp: TADOQuery; + Tv1Column8: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure FormDestroy(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure OrderNoChange(Sender: TObject); + procedure KHorderNoChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +var + frmZDZSD: TfrmZDZSD; + +implementation + +uses + U_DataLink, U_Fun; +{$R *.dfm} + +procedure TfrmZDZSD.InitGrid(); +var + strwhere: string; +begin + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + + Close; + Filtered := False; + sql.Clear; + sql.add('select A.*,B.* from JYOrder_Main A '); + sql.add('inner join JYOrder_Sub B on A.mainid=B.mainid'); + sql.Add('where A.FillTime>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + ''' '); + sql.Add('and A.FillTime<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''' '); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmZDZSD.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action := caFree; +end; + +procedure TfrmZDZSD.FormCreate(Sender: TObject); +begin + cxgrid1.Align := alClient; +end; + +procedure TfrmZDZSD.FormDestroy(Sender: TObject); +begin + frmZDZSD := nil; +end; + +procedure TfrmZDZSD.FormShow(Sender: TObject); +begin + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + InitGrid(); +end; + +procedure TfrmZDZSD.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmZDZSD.OrderNoChange(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 TfrmZDZSD.KHorderNoChange(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 TfrmZDZSD.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmZDZSD.ToolButton3Click(Sender: TObject); +begin + ModalResult := 1; +end; + +end. +