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 $**
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)

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
[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;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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