Group_DJD/D7DJbulaikeyi
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验信息管理 加一个克重的筛选，新建指示单 增行 颜色和匹数带下来，指示单 颜色 绑定客户 手动输入模糊搜索保存的数据，坯布名称 手动输入 模糊查询保存的数据，新建指示单 客户，合同号，纸管，空差 需要回车到下一个

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-20 14:17:01 +08:00
parent aa81285e79
commit c34a9975c1
11 changed files with 334 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
打卷检验管理/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 = FinishedClothWarehouse.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr FinishedClothWarehouse.dll: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\FinishedClothWarehouse.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\..\..\..\项目代码\D7szYidui\成品仓库(FinishedClothWarehouse.dll)\testDll.dpr
$(DCC) $(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 = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
TradeManage.dll: TradeManage.dpr
$(DCC)
testDll.exe: testDll.dpr
$(DCC)

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

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

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

@ -1,7 +1,7 @@
object frmJYOrderCDOne: TfrmJYOrderCDOne object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 296 Left = 292
Top = 178 Top = 527
Width = 1400 Width = 1557
Height = 757 Height = 757
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
Color = clBtnFace Color = clBtnFace
@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1549
Height = 62 Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -276,7 +276,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 62
Width = 1384 Width = 1549
Height = 88 Height = 88
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -570,6 +570,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label38: TLabel
Left = 1221
Top = 14
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object EndDate: TDateTimePicker object EndDate: TDateTimePicker
Left = 84 Left = 84
Top = 34 Top = 34
@ -656,7 +669,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 1370 Left = 1450
Top = -1 Top = -1
Width = 89 Width = 89
Height = 92 Height = 92
@ -799,8 +812,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
'') '')
end end
object CheckBox3: TCheckBox object CheckBox3: TCheckBox
Left = 1246 Left = 1342
Top = 8 Top = 15
Width = 105 Width = 105
Height = 57 Height = 57
Caption = #31934#30830#25628#32034 Caption = #31934#30830#25628#32034
@ -831,12 +844,21 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
TabOrder = 23 TabOrder = 23
OnChange = PRTCodeNameChange OnChange = PRTCodeNameChange
end end
object MJSJKZ: TEdit
Tag = 2
Left = 1252
Top = 10
Width = 77
Height = 20
TabOrder = 24
OnChange = PRTCodeNameChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 150
Width = 1384 Width = 1549
Height = 568 Height = 576
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

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

@ -228,6 +228,8 @@ type
CustomerNoName: TEdit; CustomerNoName: TEdit;
ToolButton14: TToolButton; ToolButton14: TToolButton;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
Label38: TLabel;
MJSJKZ: TEdit;
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);

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

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 284 Left = 393
Top = 185 Top = 409
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
@ -878,7 +878,7 @@ object frmOrderInPut: TfrmOrderInPut
Top = 8 Top = 8
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 1 TabOrder = 3
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object RanFactory: TBtnEditC object RanFactory: TBtnEditC
@ -905,7 +905,7 @@ object frmOrderInPut: TfrmOrderInPut
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
TabOrder = 2 TabOrder = 4
end end
object CustomerNoName: TBtnEditC object CustomerNoName: TBtnEditC
Tag = 2 Tag = 2
@ -916,6 +916,7 @@ object frmOrderInPut: TfrmOrderInPut
Hint = 'CustomerNo/'#23458#25143 Hint = 'CustomerNo/'#23458#25143
TabOrder = 0 TabOrder = 0
OnChange = CustomerNoNameChange OnChange = CustomerNoNameChange
OnKeyPress = CustomerNoNameKeyPress
OnBtnUpClick = CustomerNoNameBtnUpClick OnBtnUpClick = CustomerNoNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick OnBtnDnClick = CustomerNoNameBtnDnClick
end end
@ -1150,7 +1151,7 @@ object frmOrderInPut: TfrmOrderInPut
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000 Time = 40916.670856296290000000
ShowCheckbox = True ShowCheckbox = True
TabOrder = 3 TabOrder = 5
end end
object MPRTCode: TBtnEditC object MPRTCode: TBtnEditC
Tag = 2 Tag = 2
@ -1560,7 +1561,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
@ -1589,7 +1590,8 @@ object frmOrderInPut: TfrmOrderInPut
Top = 34 Top = 34
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 4 TabOrder = 1
OnKeyPress = CustomerNoNameKeyPress
end end
object jiazhong: TEdit object jiazhong: TEdit
Tag = 12 Tag = 12
@ -1597,13 +1599,14 @@ object frmOrderInPut: TfrmOrderInPut
Top = 34 Top = 34
Width = 100 Width = 100
Height = 18 Height = 18
TabOrder = 5 TabOrder = 2
OnKeyPress = CustomerNoNameKeyPress
end end
end end
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
@ -1650,8 +1653,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
@ -1703,6 +1706,84 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 35 Width = 35
end end
object v1PRTCodeName: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
Properties.OnChange = v1PRTCodeNamePropertiesChange
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GH'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
Properties.OnChange = v1PRTColorPropertiesChange
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 64
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PRTOrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 61
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SOrdDefNote1'
HeaderAlignmentHorz = taCenter
Width = 123
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 77
end
object v1KHorderNo: TcxGridDBColumn object v1KHorderNo: TcxGridDBColumn
Caption = #23458#25143#35746#21333#21495 Caption = #23458#25143#35746#21333#21495
DataBinding.FieldName = 'KHorderNo' DataBinding.FieldName = 'KHorderNo'
@ -1722,20 +1803,6 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 74
end end
object v1PRTCodeName: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTCodeNamePropertiesButtonClick
Properties.OnChange = v1PRTCodeNamePropertiesChange
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21697#21517#33521#25991 Caption = #21697#21517#33521#25991
DataBinding.FieldName = 'Sorddefstr5' DataBinding.FieldName = 'Sorddefstr5'
@ -1749,21 +1816,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 57 Width = 57
end end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_TradeManage.handBlack
Width = 64
end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #39068#33394'('#33521#25991')' Caption = #39068#33394'('#33521#25991')'
DataBinding.FieldName = 'SOrddefstr4' DataBinding.FieldName = 'SOrddefstr4'
@ -1771,35 +1823,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.FonePurple Styles.Header = DataLink_TradeManage.FonePurple
Width = 115 Width = 115
end end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PRTOrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 61
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.FontBlue
Width = 77
end
object v1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SOrdDefNote1'
HeaderAlignmentHorz = taCenter
Width = 123
end
object v1PRTHX: TcxGridDBColumn object v1PRTHX: TcxGridDBColumn
Caption = #33457#22411#33457#21495 Caption = #33457#22411#33457#21495
DataBinding.FieldName = 'PRTHX' DataBinding.FieldName = 'PRTHX'
@ -1815,19 +1838,6 @@ object frmOrderInPut: TfrmOrderInPut
Styles.Header = DataLink_TradeManage.Default Styles.Header = DataLink_TradeManage.Default
Width = 87 Width = 87
end end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'PRTSpec' DataBinding.FieldName = 'PRTSpec'
@ -1867,12 +1877,6 @@ object frmOrderInPut: TfrmOrderInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GH'
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'PIH' DataBinding.FieldName = 'PIH'
@ -1885,10 +1889,10 @@ object frmOrderInPut: TfrmOrderInPut
end end
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 348 Left = 484
Top = 56 Top = 256
Width = 157 Width = 237
Height = 265 Height = 321
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView

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

@ -1,7 +1,7 @@
unit U_OrderInPut; unit U_OrderInPut;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
@ -223,9 +223,9 @@ type
procedure YCLFactoryBtnUpClick(Sender: TObject); procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject); procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure Label36DblClick(Sender: TObject); procedure Label36DblClick(Sender: TObject);
procedure Label37DblClick(Sender: TObject); procedure Label37DblClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject); procedure SYRNameBtnUpClick(Sender: TObject);
procedure MPRTBZNoteDblClick(Sender: TObject); procedure MPRTBZNoteDblClick(Sender: TObject);
procedure MPRTSCTeBieNoteDblClick(Sender: TObject); procedure MPRTSCTeBieNoteDblClick(Sender: TObject);
procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1PRTCodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure FileNameClick(Sender: TObject); procedure FileNameClick(Sender: TObject);
@ -235,8 +235,11 @@ type
procedure SLBNameBtnClick(Sender: TObject); procedure SLBNameBtnClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject); procedure CustomerNoNameChange(Sender: TObject);
procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure v1PRTColorPropertiesChange(Sender: TObject);
//procedure ConNoChange(Sender: TObject);
private private
procedure InitData(); procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string); procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -1079,7 +1082,7 @@ begin
if Trim(SLBName.Text) = '' then if Trim(SLBName.Text) = '' then
begin begin
SLBName.text := '布莱克伊长品名标签.rmf'; SLBName.text := '布莱克伊长品名标签.rmf';
end; end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -1097,7 +1100,7 @@ begin
flagname := '颜色'; flagname := '颜色';
V1Name.Caption := '中文名称'; V1Name.Caption := '中文名称';
V1Note.Caption := '英文名称'; V1Note.Caption := '英文名称';
// MainType:=Trim(DName); MainType := Trim(CustomerNoName.Text);
fnote := True; fnote := True;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -1128,8 +1131,8 @@ begin
begin begin
Edit; Edit;
FieldByName('XHNO').Value := IntToStr(i); FieldByName('XHNO').Value := IntToStr(i);
FieldByName('PRTColor').Value := ''; //FieldByName('PRTColor').Value := '';
FieldByName('PRTOrderQty').Value := null; //FieldByName('PRTOrderQty').Value := null;
FieldByName('PRTPrice').Value := 0; FieldByName('PRTPrice').Value := 0;
FieldByName('SOrddefstr4').Value := null; FieldByName('SOrddefstr4').Value := null;
FieldByName('SOrddefstr2').Value := null; FieldByName('SOrddefstr2').Value := null;
@ -1408,9 +1411,12 @@ begin
MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString); MPRTKZ.Text := Trim(ADOTemp.fieldbyname('MPRTKZ').AsString);
MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString); MPRTChuanY.Text := Trim(ADOTemp.fieldbyname('ChuanYangNote').AsString);
MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString); MPRTQtyNote.Text := Trim(ADOTemp.fieldbyname('QtyNote').AsString);
CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString); // CustomerNoName.Text := Trim(ADOTemp.fieldbyname('CustomerNoName').AsString);
DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value; // CustomerNoName.TxtCode := Trim(ADOTemp.fieldbyname('CustomerNo').AsString);
// DLYDate.DateTime := ADOTemp.fieldbyname('DLYDate').Value;
ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString); ConMainId := Trim(ADOTemp.fieldbyname('MainId').AsString);
// ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString); // ConGS:=Trim(ADOTemp.fieldbyname('SYRName').AsString);
//OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString); //OrdDefStr2.Text:=Trim(ADOTemp.fieldbyname('ConDefStr2').AsString);
@ -1862,37 +1868,102 @@ begin
// end; // end;
end; end;
procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject); procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
SelectedValue: string;
FocusedColumn: TcxGridColumn;
begin begin
// MPRTSCTeBieNote.SetFocus; try
// if Length(Trim(Order_Sub.fieldbyname('prtcodename').AsString)) > 1 then SelectedValue := CDS_CON.FieldByName('ZDYName').AsString;
// begin
// with ADOQueryTmp do cxGrid4.Visible := False;
// begin
// Close; FocusedColumn := Tv1.Controller.FocusedColumn;
// sql.Clear;
// sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName'''); if not Assigned(FocusedColumn) then
// sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(Order_Sub.fieldbyname('prtcodename').AsString) + '%')); Exit;
// Open;
// end; if not (Order_Sub.State in [dsEdit, dsInsert]) then
// SCreateCDS20(ADOQueryTmp, CDS_Con); Order_Sub.Edit;
// SInitCDSData20(ADOQueryTmp, CDS_CON);
// if CDS_Con.IsEmpty then if FocusedColumn.Name = 'v1PRTCodeName' then
// cxGrid4.Visible := False begin
// else Order_Sub.FieldByName('PRTCodeName').AsString := SelectedValue;
// cxGrid4.Visible := True; end
// end; else if FocusedColumn.Name = 'v1PRTColor' then
begin
Order_Sub.FieldByName('PRTColor').AsString := SelectedValue;
end;
except
on E: Exception do
begin
ShowMessage('错误: ' + E.Message);
end;
end;
end; end;
procedure TfrmOrderInPut.TV4CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmOrderInPut.v1PRTCodeNamePropertiesChange(Sender: TObject);
var
SearchText: string;
Editor: TcxButtonEdit;
begin begin
// conno.OnChange := nil;
// Editor := Sender as TcxButtonEdit;
// cxGrid4.Visible := False;
// conNo.Text := CDS_CON.fieldbyname('conNO').AsString; SearchText := Trim(Editor.Text);
// // showmessage(SearchText);
// cxGrid4.Visible := False; with ADOQueryTmp do
// conno.OnChange:=ConNoChange; begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''PRTCodeName''');
sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
Open;
// ShowMessage(SQL.text);
end;
SCreateCDS20(ADOQueryTmp, CDS_Con);
SInitCDSData20(ADOQueryTmp, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end;
procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // 回车
begin
Key := #0;
SelectNext(Sender as TWinControl, True, True); // 按 TabOrder 顺序跳到下一个
end;
end;
procedure TfrmOrderInPut.v1PRTColorPropertiesChange(Sender: TObject);
var
SearchText: string;
Editor: TcxButtonEdit;
begin
Editor := Sender as TcxButtonEdit;
SearchText := Trim(Editor.Text);
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type=''OrdColor''');
sql.Add('and A.ZDYName like ' + quotedstr('%' + trim(SearchText) + '%'));
Open;
end;
SCreateCDS20(ADOQueryTmp, CDS_Con);
SInitCDSData20(ADOQueryTmp, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end; end;
end. end.

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

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList object frmProductOrderNewList: TfrmProductOrderNewList
Left = 464 Left = 372
Top = 256 Top = 544
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #21253#35013#25351#31034#21333 Caption = #21253#35013#25351#31034#21333
@ -20,7 +20,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -195,7 +195,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1366 Width = 1374
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -512,7 +512,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1366 Width = 1374
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -908,8 +908,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 459
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -917,8 +917,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 467
Width = 1366 Width = 1374
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -926,7 +926,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 995
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1253,7 +1253,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 996
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1283,7 +1283,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 72
Width = 1366 Width = 1374
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1296,7 +1296,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

4
打卷检验管理/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1 object Form1: TForm1
Left = 153 Left = 666
Top = 124 Top = 380
Width = 791 Width = 791
Height = 554 Height = 554
Caption = 'Form1' Caption = 'Form1'

4
打卷检验管理/testDll.cfg
View File

@ -31,8 +31,8 @@
-M -M
-$M16384,1048576 -$M16384,1048576
-K$00400000 -K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl" -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl" -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -w-UNSAFE_CAST