Group_DJD/D7DJjingzhiming
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

检验码单改为 检验码单（米码公斤） 再加一个 检验码单（米码），检验指示单 品名中文 改为 品名/规格

Browse Source
This commit is contained in:
libingpeng 2025-11-15 10:33:47 +08:00
parent 76cc61d68e
commit ed9a59cced
4 changed files with 50 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
复合检验管理/U_GetDllForm.pas
View File

@ -70,11 +70,11 @@ begin
SetLength(user, 255);
SetLength(pswd, 255);
server := '121.40.233.100,7781';
server := '101.132.143.144,7781';
// server:='.';
dtbase := 'rtjydata';
user := 'sa';
pswd := 'rightsoft@123';
dtbase := 'jingzhimingjydata';
user := 'rtsa';
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
IF trim(DataBaseStr)<>''then

79
复合检验管理/U_JYOrderCDOne.dfm
View File

@ -21,8 +21,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1384
Height = 62
Width = 1392
Height = 92
AutoSize = True
ButtonHeight = 30
ButtonWidth = 119
@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Top = 0
Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click
end
object TBDW: TToolButton
Left = 608
Top = 0
Left = 0
Top = 30
AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54
OnClick = TBDWClick
end
object ToolButton4: TToolButton
Left = 719
Top = 0
Left = 111
Top = 30
AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54
OnClick = ToolButton4Click
end
object ToolButton13: TToolButton
Left = 830
Top = 0
Left = 222
Top = 30
AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54
@ -129,23 +130,22 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click
end
object ToolButton8: TToolButton
Left = 953
Top = 0
Left = 345
Top = 30
AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54
OnClick = ToolButton8Click
end
object ToolButton14: TToolButton
Left = 1064
Top = 0
Left = 456
Top = 30
Caption = #25209#37327#20462#25913#31995#25968
ImageIndex = 54
Wrap = True
OnClick = ToolButton14Click
end
object ToolButton1: TToolButton
Left = 0
Left = 575
Top = 30
AutoSize = True
Caption = #25171#21360#26631#31614
@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click
end
object TCPDB: TToolButton
Left = 87
Left = 662
Top = 30
AutoSize = True
Caption = #25104#21697#25171#21253
@ -162,33 +162,34 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick
end
object ToolButton3: TToolButton
Left = 174
Left = 749
Top = 30
AutoSize = True
Caption = #25171#21360#21253#26631#31614
ImageIndex = 12
Wrap = True
Visible = False
OnClick = ToolButton3Click
end
object ToolButton2: TToolButton
Left = 273
Top = 30
Left = 0
Top = 60
AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 384
Top = 30
Left = 111
Top = 60
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = ToolButton5Click
end
object Edit3: TEdit
Left = 447
Top = 30
Left = 174
Top = 60
Width = 68
Height = 30
Font.Charset = GB2312_CHARSET
@ -202,8 +203,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress
end
object ComboBox1: TComboBox
Left = 515
Top = 33
Left = 242
Top = 63
Width = 149
Height = 24
Style = csDropDownList
@ -227,8 +228,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333)
end
object Edit4: TEdit
Left = 664
Top = 30
Left = 391
Top = 60
Width = 121
Height = 30
Font.Charset = GB2312_CHARSET
@ -241,32 +242,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False
end
object ToolButton12: TToolButton
Left = 785
Top = 30
Left = 512
Top = 60
Caption = #20462#25913#30721#21333
ImageIndex = 54
Visible = False
OnClick = ToolButton12Click
end
object ToolButton9: TToolButton
Left = 904
Top = 30
Left = 631
Top = 60
AutoSize = True
Caption = #24322#24120#25968#25454
ImageIndex = 2
OnClick = ToolButton9Click
end
object TBExport: TToolButton
Left = 991
Top = 30
Left = 718
Top = 60
AutoSize = True
Caption = #23548#20986
ImageIndex = 75
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 1054
Top = 30
Left = 781
Top = 60
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
@ -275,8 +276,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object Panel1: TPanel
Left = 0
Top = 62
Width = 1384
Top = 92
Width = 1392
Height = 88
Align = alTop
BevelInner = bvRaised
@ -821,9 +822,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end
object cxGrid1: TcxGrid
Left = 0
Top = 150
Width = 1384
Height = 568
Top = 180
Width = 1392
Height = 546
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 3

5
复合检验管理/U_JYOrderCDOne.pas
View File

@ -11,7 +11,8 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem;
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
type
TfrmJYOrderCDOne = class(TForm)
@ -1599,7 +1600,7 @@ begin
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') then
if (trim(ComboBox1.Text) = '쇱駱쯤데(쵠쯤무쏙)') or (trim(ComboBox1.Text) = '쇱駱쯤데(쵠쯤)') then
begin
with ADOQueryTemp do
begin

6
复合检验管理/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut
Left = 184
Top = 291
Left = 297
Top = 262
Width = 1379
Height = 761
Caption = #25351#31034#21333#24405#20837
@ -1674,7 +1674,7 @@ object frmOrderInPut: TfrmOrderInPut
Width = 74
end
object v1PRTCodeName: TcxGridDBColumn
Caption = #21697#21517#20013#25991
Caption = #21697#21517'/'#35268#26684
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <