diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index ccaf019..33a4054 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -1,7 +1,7 @@ unit U_OrderInPut; interface - + uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index 7b11e45..f5560cf 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -20,8 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1349 - Height = 62 + Width = 1366 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -118,67 +117,66 @@ object frmProductOrderNewList: TfrmProductOrderNewList AutoSize = True Caption = #25764#38144#23436#25104 ImageIndex = 86 - Wrap = True OnClick = TNoWCClick end object TBExport: TToolButton - Left = 0 - Top = 30 + Left = 678 + Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TFJ: TToolButton - Left = 63 - Top = 30 + Left = 741 + Top = 0 AutoSize = True Caption = #25351#31034#21333#38468#20214 ImageIndex = 57 OnClick = TFJClick end object TBPrint: TToolButton - Left = 162 - Top = 30 + Left = 840 + Top = 0 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = TBPrintClick end object ToolButton8: TToolButton - Left = 225 - Top = 30 + Left = 903 + Top = 0 AutoSize = True Caption = #30452#25509#25171#21360 ImageIndex = 23 OnClick = ToolButton8Click end object ToolButton4: TToolButton - Left = 312 - Top = 30 + Left = 990 + Top = 0 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 399 - Top = 30 + Left = 1077 + Top = 0 Caption = #30133#28857#31649#29702 ImageIndex = 132 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 494 - Top = 30 + Left = 1172 + Top = 0 AutoSize = True Caption = #26085#24535 ImageIndex = 72 OnClick = ToolButton6Click end object ToolButton7: TToolButton - Left = 557 - Top = 30 + Left = 1235 + Top = 0 AutoSize = True Caption = #37325#36830 ImageIndex = 73 @@ -186,8 +184,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList OnClick = ToolButton7Click end object TBClose: TToolButton - Left = 620 - Top = 30 + Left = 1298 + Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -196,8 +194,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel1: TPanel Left = 0 - Top = 62 - Width = 1349 + Top = 32 + Width = 1366 Height = 40 Align = alTop BevelInner = bvRaised @@ -513,8 +511,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxGrid1: TcxGrid Left = 0 - Top = 125 - Width = 1349 + Top = 95 + Width = 1366 Height = 333 Align = alTop TabOrder = 3 @@ -793,6 +791,13 @@ object frmProductOrderNewList: TfrmProductOrderNewList object Tv1Column9: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'GH' + HeaderAlignmentHorz = taCenter + end + object Tv1Column10: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'MPRTSCTeBieNote' + HeaderAlignmentHorz = taCenter + Width = 80 end end object cxGrid1Level1: TcxGridLevel @@ -903,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxSplitter1: TcxSplitter Left = 0 - Top = 458 - Width = 1349 + Top = 451 + Width = 1366 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -912,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel2: TPanel Left = 0 - Top = 466 - Width = 1349 + Top = 459 + Width = 1366 Height = 256 Align = alBottom Caption = 'Panel2' @@ -921,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid2: TcxGrid Left = 1 Top = 1 - Width = 970 + Width = 987 Height = 254 Align = alClient TabOrder = 0 @@ -1248,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList end end object GroupBox1: TGroupBox - Left = 971 + Left = 988 Top = 1 Width = 377 Height = 254 @@ -1277,8 +1282,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxTabControl1: TcxTabControl Left = 0 - Top = 102 - Width = 1349 + Top = 72 + Width = 1366 Height = 23 Align = alTop TabOrder = 2 @@ -1291,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1349 + ClientRectRight = 1366 ClientRectTop = 19 end object cxGridPopupMenu1: TcxGridPopupMenu diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index 81fad70..74c1232 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -181,6 +181,7 @@ type Label13: TLabel; GH: TEdit; Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject);