From a3b3163c711d47752ffd5af7dfbfb24f83d2b96b Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 15 Oct 2025 17:32:22 +0800 Subject: [PATCH] 1 --- 打卷检验管理/ProjectGroup1.bpg | 8 +-- 打卷检验管理/ProjectGroup1.~bpg | 23 ++++++++ 打卷检验管理/TradeManage.dof | 5 +- 打卷检验管理/TradeManage.skincfg | 50 ++++++++++++++++ 打卷检验管理/U_JYOrderCDOne.dfm | 33 ++++++----- 打卷检验管理/U_JYOrderCDOne.pas | 36 ++++++------ 打卷检验管理/U_MJManageNewFDNew.dfm | 80 +++++++++++++++++--------- 打卷检验管理/U_MJManageNewFDNew.pas | 5 +- 打卷检验管理/U_OrderInPut.dfm | 34 ++++++++--- 打卷检验管理/U_OrderInPut.pas | 3 + 打卷检验管理/U_ProductOrderNewList.dfm | 42 ++++++++++---- 打卷检验管理/U_ProductOrderNewList.pas | 3 + 12 files changed, 236 insertions(+), 86 deletions(-) create mode 100644 打卷检验管理/ProjectGroup1.~bpg create mode 100644 打卷检验管理/TradeManage.skincfg 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/打卷检验管理/ProjectGroup1.~bpg b/打卷检验管理/ProjectGroup1.~bpg new file mode 100644 index 0000000..7c050f6 --- /dev/null +++ b/打卷检验管理/ProjectGroup1.~bpg @@ -0,0 +1,23 @@ +#------------------------------------------------------------------------------ +VERSION = BWS.01 +#------------------------------------------------------------------------------ +!ifndef ROOT +ROOT = $(MAKEDIR)\.. +!endif +#------------------------------------------------------------------------------ +MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$** +DCC = $(ROOT)\bin\dcc32.exe $** +BRCC = $(ROOT)\bin\brcc32.exe $** +#------------------------------------------------------------------------------ +PROJECTS = testDll.exe ProductPrice.dll +#------------------------------------------------------------------------------ +default: $(PROJECTS) +#------------------------------------------------------------------------------ + +testDll.exe: testDll.dpr + $(DCC) + +ProductPrice.dll: ProductPrice.dpr + $(DCC) + + diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index c8eb6a6..dbcdb6d 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\DJDJjiaze\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJjiaze\\testDll.exe Launcher= UseLauncher=0 DebugCWD= @@ -136,6 +136,3 @@ ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/打卷检验管理/TradeManage.skincfg b/打卷检验管理/TradeManage.skincfg new file mode 100644 index 0000000..554ddb0 --- /dev/null +++ b/打卷检验管理/TradeManage.skincfg @@ -0,0 +1,50 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=0 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkRoom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringTime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinXmas2008Blue=1 diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index 3b71b40..89f2ca3 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 296 - Top = 178 + Left = 266 + Top = 359 Width = 1400 Height = 757 Caption = #26816#39564#25253#21578 @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 + Width = 1392 Height = 92 AutoSize = True ButtonHeight = 30 @@ -206,18 +206,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Font.Name = #23435#20307 Font.Style = [] ItemHeight = 16 - ItemIndex = 0 ParentFont = False TabOrder = 0 - Text = #26816#39564#30721#21333'('#33521#25991')' OnChange = ComboBox1Change Items.Strings = ( - #26816#39564#30721#21333'('#33521#25991')' - #26816#39564#30721#21333'('#20013#25991')' - #26816#39564#30721#21333'('#26579#33394')' - #26816#39564#30721#21333'('#21360#33457')' - #26816#39564#30721#21333'('#27719#24635')' - #26816#39564#30721#21333) + #26816#39564#30721#21333 + #26816#39564#30721#21333'('#20844#26020')' + #26816#39564#30721#21333'('#31859#25968#20844#26020')' + #26816#39564#30721#21333'('#31859#25968#31354#21152')' + #26816#39564#30721#21333'('#20844#26020#31354#21152')' + #26816#39564#30721#21333'('#31859#25968#20844#26020#31354#21152')' + '') end object Edit4: TEdit Left = 280 @@ -269,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object Panel1: TPanel Left = 0 Top = 92 - Width = 1384 + Width = 1392 Height = 88 Align = alTop BevelInner = bvRaised @@ -784,8 +783,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object cxGrid1: TcxGrid Left = 0 Top = 180 - Width = 1384 - Height = 538 + Width = 1392 + Height = 546 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1086,6 +1085,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 65 end + object Tv1Column2: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustomerNoName' + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 7a28427..1b1667f 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -12,19 +12,19 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxCurrencyEdit, MMSystem, 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; + 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 TfrmJYOrderCDOne = class(TForm) @@ -222,6 +222,7 @@ type Label36: TLabel; ComboBox3: TComboBox; Edit6: TEdit; + Tv1Column2: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -389,7 +390,7 @@ begin Close; Filtered := False; sql.Clear; - sql.Add('select A.*,'); + sql.Add('select A.*,C.CustomerNoName,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),'); @@ -1624,7 +1625,7 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥()') then + if (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '뵥(ռ)') or (trim(ComboBox1.Text) = '뵥(ռ)')then begin with ADOQueryTemp do begin @@ -1648,11 +1649,11 @@ begin Open; end; end; - if (trim(ComboBox1.Text) = '뵥()') then + if (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '뵥(ռ)') then begin with ADOQueryTemp do begin - Close; + Close; sql.Clear; sql.add('exec P_Print_CKMDYDL_F '); sql.add('@DName=' + quotedstr(Trim(DCode))); @@ -1672,6 +1673,7 @@ begin Open; end; end; + if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') then begin with ADOQueryTemp do diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index e00c9b5..8b25c92 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 322 - Top = 165 + Left = 323 + Top = 326 Width = 1366 Height = 754 Caption = #25104#21697#26816#39564 @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 214 - Height = 628 + Height = 636 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object ScrollBox1: TScrollBox - Left = 633 + Left = 657 Top = 87 - Width = 717 - Height = 628 + Width = 701 + Height = 636 Align = alClient Color = clWhite ParentColor = False @@ -976,8 +976,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel2: TPanel Left = 428 Top = 87 - Width = 205 - Height = 628 + Width = 229 + Height = 636 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -998,7 +998,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Label9Click end object Label3: TLabel - Left = 144 + Left = 88 Top = 383 Width = 26 Height = 22 @@ -1129,8 +1129,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label22: TLabel - Left = 144 - Top = 424 + Left = 192 + Top = 384 Width = 36 Height = 22 Caption = 'g/'#13217 @@ -1142,8 +1142,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label23: TLabel - Left = 8 - Top = 423 + Left = 112 + Top = 383 Width = 42 Height = 20 Caption = #20811#37325 @@ -1337,10 +1337,23 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False end + object Label53: TLabel + Left = 8 + Top = 426 + Width = 63 + Height = 20 + Caption = #25910#36135#20154 + Font.Charset = ANSI_CHARSET + Font.Color = clBlue + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object MJFK: TEdit Left = 51 Top = 377 - Width = 90 + Width = 38 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1451,9 +1464,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnKeyPress = MJstr3KeyPress end object MJSJKZ: TEdit - Left = 51 - Top = 418 - Width = 90 + Left = 155 + Top = 374 + Width = 38 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1674,9 +1687,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 20 OnClick = Button7Click end + object Consignee: TEdit + Left = 73 + Top = 421 + Width = 90 + Height = 36 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -28 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 21 + OnClick = Edit1Click + OnKeyPress = MJstr3KeyPress + end end object MovePanel1: TMovePanel - Left = 634 + Left = 890 Top = 91 Width = 339 Height = 236 @@ -1929,7 +1957,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 214 Top = 87 Width = 214 - Height = 628 + Height = 636 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1938,7 +1966,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 210 - Height = 303 + Height = 311 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2046,7 +2074,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 305 + Top = 313 Width = 210 Height = 28 Align = alBottom @@ -2061,7 +2089,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 333 + Top = 341 Width = 210 Height = 293 Align = alBottom @@ -2077,8 +2105,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel3: TPanel - Left = 634 - Top = 328 + Left = 890 + Top = 336 Width = 353 Height = 334 BevelInner = bvRaised @@ -2274,7 +2302,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 + Width = 1358 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2462,7 +2490,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1350 + Width = 1358 Height = 57 Align = alTop BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 5339318..e09a0e6 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -262,6 +262,8 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + Label53: TLabel; + Consignee: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -2503,7 +2505,8 @@ begin baoid.Text := FBaoID; Edit3.Text := ''; Edit4.Text := ''; - MJStr4.Text := ''; + MJStr4.Text :=''; + MJStr4.Text := ADOTmp.fieldbyname('GangHao').AsString; end else begin diff --git a/打卷检验管理/U_OrderInPut.dfm b/打卷检验管理/U_OrderInPut.dfm index 5b60122..2f97e46 100644 --- a/打卷检验管理/U_OrderInPut.dfm +++ b/打卷检验管理/U_OrderInPut.dfm @@ -1,6 +1,6 @@ object frmOrderInPut: TfrmOrderInPut - Left = 284 - Top = 185 + Left = 337 + Top = 375 Width = 1379 Height = 761 Caption = #25351#31034#21333#24405#20837 @@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1363 + Width = 1371 Height = 29 ButtonHeight = 30 ButtonWidth = 59 @@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 1363 + Width = 1371 Height = 280 Align = alTop BevelInner = bvNone @@ -1521,7 +1521,7 @@ object frmOrderInPut: TfrmOrderInPut OnClick = Button1Click end object GroupBox1: TGroupBox - Left = 937 + Left = 945 Top = 0 Width = 424 Height = 278 @@ -1548,7 +1548,7 @@ object frmOrderInPut: TfrmOrderInPut object ToolBar2: TToolBar Left = 0 Top = 309 - Width = 1363 + Width = 1371 Height = 29 ButtonHeight = 30 ButtonWidth = 83 @@ -1595,8 +1595,8 @@ object frmOrderInPut: TfrmOrderInPut object cxGrid1: TcxGrid Left = 0 Top = 338 - Width = 1363 - Height = 384 + Width = 1371 + Height = 392 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -1811,6 +1811,24 @@ object frmOrderInPut: TfrmOrderInPut HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangHao' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column2: TcxGridDBColumn + Caption = #38754#24067#39068#33394 + DataBinding.FieldName = 'SurfaceColor' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column3: TcxGridDBColumn + Caption = #24213#37096#39068#33394 + DataBinding.FieldName = 'BottomColor' + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_OrderInPut.pas b/打卷检验管理/U_OrderInPut.pas index 157c97c..7b5b135 100644 --- a/打卷检验管理/U_OrderInPut.pas +++ b/打卷检验管理/U_OrderInPut.pas @@ -191,6 +191,9 @@ type RMBMPExport1: TRMBMPExport; ToolButton4: TToolButton; QryCheckNet: TADOQuery; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); diff --git a/打卷检验管理/U_ProductOrderNewList.dfm b/打卷检验管理/U_ProductOrderNewList.dfm index cc20e5f..bc081ea 100644 --- a/打卷检验管理/U_ProductOrderNewList.dfm +++ b/打卷检验管理/U_ProductOrderNewList.dfm @@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1366 + Width = 1357 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -187,7 +187,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object Panel1: TPanel Left = 0 Top = 32 - Width = 1366 + Width = 1357 Height = 40 Align = alTop BevelInner = bvRaised @@ -416,8 +416,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid1: TcxGrid Left = 0 Top = 95 - Width = 1366 - Height = 333 + Width = 1357 + Height = 370 Align = alTop TabOrder = 3 object Tv1: TcxGridDBTableView @@ -655,6 +655,24 @@ object frmProductOrderNewList: TfrmProductOrderNewList Styles.Header = DataLink_TradeManage.Default Width = 80 end + object Tv1Column5: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'GangHao' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column6: TcxGridDBColumn + Caption = #38754#24067#39068#33394 + DataBinding.FieldName = 'SurfaceColor' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column7: TcxGridDBColumn + Caption = #24213#37096#39068#33394 + DataBinding.FieldName = 'BottomColor' + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -764,8 +782,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object cxSplitter1: TcxSplitter Left = 0 - Top = 451 - Width = 1366 + Top = 465 + Width = 1357 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom @@ -773,8 +791,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList end object Panel2: TPanel Left = 0 - Top = 459 - Width = 1366 + Top = 473 + Width = 1357 Height = 256 Align = alBottom Caption = 'Panel2' @@ -782,7 +800,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxGrid2: TcxGrid Left = 1 Top = 1 - Width = 987 + Width = 978 Height = 254 Align = alClient TabOrder = 0 @@ -1097,7 +1115,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList end end object GroupBox1: TGroupBox - Left = 988 + Left = 979 Top = 1 Width = 377 Height = 254 @@ -1127,7 +1145,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList object cxTabControl1: TcxTabControl Left = 0 Top = 72 - Width = 1366 + Width = 1357 Height = 23 Align = alTop TabOrder = 2 @@ -1140,7 +1158,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 23 - ClientRectRight = 1366 + ClientRectRight = 1357 ClientRectTop = 19 end object cxGridPopupMenu1: TcxGridPopupMenu diff --git a/打卷检验管理/U_ProductOrderNewList.pas b/打卷检验管理/U_ProductOrderNewList.pas index 39022d2..59f5a2f 100644 --- a/打卷检验管理/U_ProductOrderNewList.pas +++ b/打卷检验管理/U_ProductOrderNewList.pas @@ -149,6 +149,9 @@ type TV2Column7: TcxGridDBColumn; ToolButton7: TToolButton; QryCheckNet: TADOQuery; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject);