Group_99/D7DJjiaze
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-15 17:32:22 +08:00
parent 78bfdd626e
commit a3b3163c71
12 changed files with 236 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
打卷检验管理/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
TradeManage.dll: TradeManage.dpr
$(DCC)
testDll.exe: testDll.dpr testDll.exe: testDll.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

23
打卷检验管理/ProjectGroup1.~bpg Normal file
View File

@ -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)

5
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\项目代码\DJDJjiaze\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJjiaze\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package 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;

50
打卷检验管理/TradeManage.skincfg Normal file
View File

@ -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

33
打卷检验管理/U_JYOrderCDOne.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296 Left = 266
Top = 178 Top = 359
Width = 1400 Width = 1400
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1392
Height = 92 Height = 92
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -206,18 +206,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ItemHeight = 16 ItemHeight = 16
ItemIndex = 0
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
Text = #26816#39564#30721#21333'('#33521#25991')'
OnChange = ComboBox1Change OnChange = ComboBox1Change
Items.Strings = ( Items.Strings = (
#26816#39564#30721#21333'('#33521#25991')' #26816#39564#30721#21333
#26816#39564#30721#21333'('#20013#25991')' #26816#39564#30721#21333'('#20844#26020')'
#26816#39564#30721#21333'('#26579#33394')' #26816#39564#30721#21333'('#31859#25968#20844#26020')'
#26816#39564#30721#21333'('#21360#33457')' #26816#39564#30721#21333'('#31859#25968#31354#21152')'
#26816#39564#30721#21333'('#27719#24635')' #26816#39564#30721#21333'('#20844#26020#31354#21152')'
#26816#39564#30721#21333) #26816#39564#30721#21333'('#31859#25968#20844#26020#31354#21152')'
'')
end end
object Edit4: TEdit object Edit4: TEdit
Left = 280 Left = 280
@ -269,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 92 Top = 92
Width = 1384 Width = 1392
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -784,8 +783,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 180 Top = 180
Width = 1384 Width = 1392
Height = 538 Height = 546
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1086,6 +1085,12 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 70
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

34
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue, cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -222,6 +222,7 @@ type
Label36: TLabel; Label36: TLabel;
ComboBox3: TComboBox; ComboBox3: TComboBox;
Edit6: TEdit; Edit6: TEdit;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -389,7 +390,7 @@ begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
sql.Add('select A.*,'); sql.Add('select A.*,C.CustomerNoName,');
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); 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),'); sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
@ -1624,7 +1625,7 @@ begin
end; end;
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 begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1648,7 +1649,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데(쵠鑒무쏙)') then if (trim(ComboBox1.Text) = '쇱駱쯤데(쵠鑒무쏙)') or (trim(ComboBox1.Text) = '쇱駱쯤데(쵠鑒무쏙왕속)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -1672,6 +1673,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(Ⱦɫ)') then if (trim(ComboBox1.Text) = '¼ìÑéÂëµ¥(Ⱦɫ)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do

80
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322 Left = 323
Top = 165 Top = 326
Width = 1366 Width = 1366
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -123,10 +123,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 657
Top = 87 Top = 87
Width = 717 Width = 701
Height = 628 Height = 636
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -976,8 +976,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel2: TPanel object Panel2: TPanel
Left = 428 Left = 428
Top = 87 Top = 87
Width = 205 Width = 229
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -998,7 +998,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Label9Click OnClick = Label9Click
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 88
Top = 383 Top = 383
Width = 26 Width = 26
Height = 22 Height = 22
@ -1129,8 +1129,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 192
Top = 424 Top = 384
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1142,8 +1142,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 112
Top = 423 Top = 383
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1337,10 +1337,23 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object MJFK: TEdit
Left = 51 Left = 51
Top = 377 Top = 377
Width = 90 Width = 38
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1451,9 +1464,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 155
Top = 418 Top = 374
Width = 90 Width = 38
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1674,9 +1687,24 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 20 TabOrder = 20
OnClick = Button7Click OnClick = Button7Click
end 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 end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 634 Left = 890
Top = 91 Top = 91
Width = 339 Width = 339
Height = 236 Height = 236
@ -1929,7 +1957,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1938,7 +1966,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 303 Height = 311
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2046,7 +2074,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 313
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2061,7 +2089,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 341
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2077,8 +2105,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 634 Left = 890
Top = 328 Top = 336
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -2274,7 +2302,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1350 Width = 1358
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2462,7 +2490,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1350 Width = 1358
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

5
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -262,6 +262,8 @@ type
RM3: TRMGridReport; RM3: TRMGridReport;
Edit5: TEdit; Edit5: TEdit;
Label43: TLabel; Label43: TLabel;
Label53: TLabel;
Consignee: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -2503,7 +2505,8 @@ begin
baoid.Text := FBaoID; baoid.Text := FBaoID;
Edit3.Text := '¡Ì'; Edit3.Text := '¡Ì';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := ''; MJStr4.Text :='';
MJStr4.Text := ADOTmp.fieldbyname('GangHao').AsString;
end end
else else
begin begin

34
打卷检验管理/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 284 Left = 337
Top = 185 Top = 375
Width = 1379 Width = 1379
Height = 761 Height = 761
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -66,7 +66,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1363 Width = 1371
Height = 280 Height = 280
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -1521,7 +1521,7 @@ object frmOrderInPut: TfrmOrderInPut
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 937 Left = 945
Top = 0 Top = 0
Width = 424 Width = 424
Height = 278 Height = 278
@ -1548,7 +1548,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 309 Top = 309
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -1595,8 +1595,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 338 Top = 338
Width = 1363 Width = 1371
Height = 384 Height = 392
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -1811,6 +1811,24 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

3
打卷检验管理/U_OrderInPut.pas
View File

@ -191,6 +191,9 @@ type
RMBMPExport1: TRMBMPExport; RMBMPExport1: TRMBMPExport;
ToolButton4: TToolButton; ToolButton4: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);

42
打卷检验管理/U_ProductOrderNewList.dfm
View File

@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1357
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -187,7 +187,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1357
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -416,8 +416,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1366 Width = 1357
Height = 333 Height = 370
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -655,6 +655,24 @@ object frmProductOrderNewList: TfrmProductOrderNewList
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 80 Width = 80
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -764,8 +782,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 465
Width = 1366 Width = 1357
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -773,8 +791,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 473
Width = 1366 Width = 1357
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -782,7 +800,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 978
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1097,7 +1115,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 979
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1127,7 +1145,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 72
Width = 1366 Width = 1357
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1140,7 +1158,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1357
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

3
打卷检验管理/U_ProductOrderNewList.pas
View File

@ -149,6 +149,9 @@ type
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
ToolButton7: TToolButton; ToolButton7: TToolButton;
QryCheckNet: TADOQuery; QryCheckNet: TADOQuery;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);