Group_99/D7myYunxiang
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-25 15:36:55 +08:00
parent 763891523b
commit 452c7e6140
13 changed files with 822 additions and 659 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
样品新云翔(YPGLBOM.dll)/File.INI Normal file
View File

@ -0,0 +1,5 @@
[生产车间配置]
卷条码机台标志=
机台个数=
端口号=
端口Dll文件=

BIN
样品新云翔(YPGLBOM.dll)/JWLCK.res
View File

Binary file not shown.

BIN
样品新云翔(YPGLBOM.dll)/OrderManage.res
View File

Binary file not shown.

372
样品新云翔(YPGLBOM.dll)/U_BPZdy_LRPB.dfm
View File

@ -1,13 +1,13 @@
object frmBPZDY_LRPB: TfrmBPZDY_LRPB object frmBPZDY_LRPB: TfrmBPZDY_LRPB
Left = 194 Left = 367
Top = 128 Top = 326
Width = 1386 Width = 1457
Height = 758 Height = 758
Caption = #39033#30446#32500#25252 Caption = #39033#30446#32500#25252
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
@ -17,12 +17,12 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 107 PixelsPerInch = 96
TextHeight = 13 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1370 Width = 1449
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -41,7 +41,7 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 817 Width = 1009
Height = 30 Height = 30
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -93,7 +93,7 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 817 Left = 1009
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -102,23 +102,23 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 919 Left = 768
Top = 31 Top = 31
Width = 451 Width = 681
Height = 687 Height = 696
Align = alClient Align = alRight
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 2 Left = 2
Top = 42 Top = 39
Width = 447 Width = 677
Height = 643 Height = 655
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -236,74 +236,74 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object Panel3: TPanel object Panel3: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 447 Width = 677
Height = 40 Height = 37
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 37 Left = 34
Top = 14 Top = 13
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #25195#25551#20837#21475 Caption = #25195#25551#20837#21475
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 230 Left = 195
Top = 14 Top = 13
Width = 84 Width = 78
Height = 13 Height = 12
Caption = #20844#21496#20135#21697#21517#31216 Caption = #20844#21496#20135#21697#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 455 Left = 420
Top = 14 Top = 13
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object CYID: TEdit object CYID: TEdit
Left = 95 Left = 88
Top = 10 Top = 9
Width = 107 Width = 98
Height = 21 Height = 20
TabOrder = 0 TabOrder = 0
OnKeyPress = CYIDKeyPress OnKeyPress = CYIDKeyPress
end end
object CYName: TEdit object CYName: TEdit
Tag = 2 Tag = 2
Left = 315 Left = 274
Top = 10 Top = 9
Width = 117 Width = 108
Height = 21 Height = 20
TabOrder = 1 TabOrder = 1
OnKeyPress = CYNameKeyPress OnKeyPress = CYNameKeyPress
end end
object CYNo: TEdit object CYNo: TEdit
Tag = 2 Tag = 2
Left = 514 Left = 474
Top = 10 Top = 9
Width = 110 Width = 102
Height = 21 Height = 20
TabOrder = 2 TabOrder = 2
OnKeyPress = CYNoKeyPress OnKeyPress = CYNoKeyPress
end end
@ -312,216 +312,216 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 911 Width = 760
Height = 687 Height = 696
Align = alLeft Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 2 TabOrder = 2
object Panel5: TPanel object Panel5: TPanel
Left = 2 Left = 2
Top = 529 Top = 550
Width = 907 Width = 756
Height = 156 Height = 144
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
object Label6: TLabel object Label6: TLabel
Left = 262 Left = 242
Top = 20 Top = 18
Width = 52 Width = 47
Height = 13 Height = 12
Caption = #21697' '#21517' ' Caption = #21697' '#21517' '
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 161 Left = 149
Top = 20 Top = 18
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #20195#30721 Caption = #20195#30721
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 161 Left = 149
Top = 51 Top = 47
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #20811#37325 Caption = #20811#37325
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 460 Left = 425
Top = 51 Top = 47
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #38376#24133 Caption = #38376#24133
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 578 Left = 589
Top = 20 Top = 18
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #22383#24067#23494#24230 Caption = #22383#24067#23494#24230
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 262 Left = 242
Top = 51 Top = 47
Width = 42 Width = 39
Height = 13 Height = 12
Caption = #32463#32428#32433 Caption = #32463#32428#32433
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel object Label12: TLabel
Left = 460 Left = 425
Top = 20 Top = 18
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #25104#20221 Caption = #25104#20221
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 578 Left = 589
Top = 51 Top = 47
Width = 56 Width = 52
Height = 13 Height = 12
Caption = #25104#21697#23494#24230 Caption = #25104#21697#23494#24230
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label14: TLabel object Label14: TLabel
Left = 460 Left = 425
Top = 80 Top = 74
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label15: TLabel object Label15: TLabel
Left = 161 Left = 149
Top = 80 Top = 74
Width = 28 Width = 26
Height = 13 Height = 12
Caption = #21333#20215 Caption = #21333#20215
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label16: TLabel object Label16: TLabel
Left = 51 Left = 47
Top = 22 Top = 20
Width = 32 Width = 29
Height = 61 Height = 56
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -61 Font.Height = -56
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label17: TLabel object Label17: TLabel
Left = 262 Left = 242
Top = 80 Top = 74
Width = 44 Width = 40
Height = 13 Height = 12
Caption = #31246' '#20917 Caption = #31246' '#20917
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object MXName: TEdit object MXName: TEdit
Tag = 2 Tag = 2
Left = 312 Left = 288
Top = 16 Top = 15
Width = 131 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 0 TabOrder = 0
OnKeyPress = MXNameKeyPress OnKeyPress = MXNameKeyPress
end end
object BPMiDu: TEdit object BPMiDu: TEdit
Tag = 2 Tag = 2
Left = 639 Left = 645
Top = 16 Top = 15
Width = 131 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 2 TabOrder = 2
OnKeyPress = BPMiDuKeyPress OnKeyPress = BPMiDuKeyPress
end end
object BPJS: TEdit object BPJS: TEdit
Tag = 2 Tag = 2
Left = 312 Left = 288
Top = 46 Top = 42
Width = 131 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 1 TabOrder = 1
OnKeyPress = BPJSKeyPress OnKeyPress = BPJSKeyPress
end end
object Button1: TButton object Button1: TButton
Left = 424 Left = 391
Top = 103 Top = 95
Width = 96 Width = 89
Height = 41 Height = 38
Caption = #20445#23384 Caption = #20445#23384
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -18 Font.Height = -17
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -531,10 +531,10 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
object BPCF: TEdit object BPCF: TEdit
Tag = 2 Tag = 2
Left = 493 Left = 455
Top = 16 Top = 15
Width = 68 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 4 TabOrder = 4
Text = '100%P' Text = '100%P'
@ -542,10 +542,10 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
object BPMF: TEdit object BPMF: TEdit
Tag = 2 Tag = 2
Left = 493 Left = 455
Top = 46 Top = 42
Width = 68 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 5 TabOrder = 5
Text = '160' Text = '160'
@ -553,34 +553,34 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
object BPKZ: TEdit object BPKZ: TEdit
Tag = 2 Tag = 2
Left = 194 Left = 179
Top = 46 Top = 42
Width = 50 Width = 46
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 6 TabOrder = 6
OnKeyPress = BPKZKeyPress OnKeyPress = BPKZKeyPress
end end
object MXCode: TEdit object MXCode: TEdit
Tag = 2 Tag = 2
Left = 194 Left = 179
Top = 16 Top = 15
Width = 50 Width = 46
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 7 TabOrder = 7
OnKeyPress = MXCodeKeyPress OnKeyPress = MXCodeKeyPress
end end
object CPMiDu: TEdit object CPMiDu: TEdit
Tag = 2 Tag = 2
Left = 639 Left = 645
Top = 46 Top = 42
Width = 131 Width = 121
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
Font.Height = -13 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
@ -589,30 +589,30 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
object BPNote: TEdit object BPNote: TEdit
Tag = 2 Tag = 2
Left = 493 Left = 455
Top = 76 Top = 70
Width = 278 Width = 310
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 9 TabOrder = 9
OnKeyPress = BPNoteKeyPress OnKeyPress = BPNoteKeyPress
end end
object BPPrice: TEdit object BPPrice: TEdit
Tag = 2 Tag = 2
Left = 194 Left = 179
Top = 76 Top = 70
Width = 50 Width = 46
Height = 21 Height = 20
CharCase = ecUpperCase CharCase = ecUpperCase
TabOrder = 10 TabOrder = 10
OnKeyPress = BPPriceKeyPress OnKeyPress = BPPriceKeyPress
end end
object IFHS: TComboBox object IFHS: TComboBox
Left = 312 Left = 288
Top = 76 Top = 70
Width = 132 Width = 122
Height = 21 Height = 20
ItemHeight = 13 ItemHeight = 12
TabOrder = 11 TabOrder = 11
Items.Strings = ( Items.Strings = (
#21547#31246 #21547#31246
@ -620,10 +620,10 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
end end
object Panel6: TPanel object Panel6: TPanel
Left = 221 Left = 204
Top = 2 Top = 2
Width = 688 Width = 554
Height = 527 Height = 548
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -631,12 +631,12 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 33 Top = 33
Width = 684 Width = 550
Height = 492 Height = 513
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick OnCellDblClick = TV1CellDblClick
OnFocusedRecordChanged = TV1FocusedRecordChanged OnFocusedRecordChanged = TV1FocusedRecordChanged
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
@ -759,7 +759,7 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 2 Left = 2
Top = 2 Top = 2
Width = 684 Width = 550
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -801,13 +801,22 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
Visible = False Visible = False
OnClick = TBDelClick OnClick = TBDelClick
end end
object TbCopy: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 92
Visible = False
OnClick = TbCopyClick
end
end end
end end
object Panel7: TPanel object Panel7: TPanel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 219 Width = 202
Height = 527 Height = 548
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -815,16 +824,16 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object cxDBTreeList1: TcxDBTreeList object cxDBTreeList1: TcxDBTreeList
Left = 2 Left = 2
Top = 33 Top = 33
Width = 215 Width = 198
Height = 492 Height = 513
Align = alClient Align = alClient
Bands = < Bands = <
item item
end> end>
BufferedPaint = False
DataController.DataSource = DataSource4 DataController.DataSource = DataSource4
DataController.ParentField = 'CPParent' DataController.ParentField = 'CPParent'
DataController.KeyField = 'CPID' DataController.KeyField = 'CPID'
Navigator.Buttons.CustomButtons = <>
OptionsBehavior.ExpandOnDblClick = False OptionsBehavior.ExpandOnDblClick = False
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True OptionsView.CellAutoHeight = True
@ -838,15 +847,17 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CP' DataBinding.FieldName = 'CP'
Width = 210 Width = 210
Position.ColIndex = 1 Position.ColIndex = 0
Position.RowIndex = 0 Position.RowIndex = 0
Position.BandIndex = 0 Position.BandIndex = 0
Summary.FooterSummaryItems = <>
Summary.GroupFooterSummaryItems = <>
end end
end end
object ToolBar3: TToolBar object ToolBar3: TToolBar
Left = 2 Left = 2
Top = 2 Top = 2
Width = 215 Width = 198
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -874,11 +885,12 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 911 Left = 760
Top = 31 Top = 31
Width = 8 Width = 8
Height = 687 Height = 696
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salRight
Control = Panel4 Control = Panel4
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
@ -18822,6 +18834,7 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 728 Left = 728
PixelsPerInch = 96
object cxStyle1: TcxStyle object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont, svTextColor] AssignedValues = [svColor, svFont, svTextColor]
Color = clSkyBlue Color = clSkyBlue
@ -18836,6 +18849,7 @@ object frmBPZDY_LRPB: TfrmBPZDY_LRPB
object cxStyleRepository2: TcxStyleRepository object cxStyleRepository2: TcxStyleRepository
Left = 624 Left = 624
Top = 8 Top = 8
PixelsPerInch = 96
object cxStyle2: TcxStyle object cxStyle2: TcxStyle
AssignedValues = [svFont] AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET

980
样品新云翔(YPGLBOM.dll)/U_BPZdy_LRPB.pas
View File

File diff suppressed because it is too large Load Diff

12
样品新云翔(YPGLBOM.dll)/U_CPAdd.pas
View File

@ -336,6 +336,7 @@ type
function ColJGSaveData(FMXCYID: string): Boolean; function ColJGSaveData(FMXCYID: string): Boolean;
procedure Appenddata(); procedure Appenddata();
procedure XJGenXin(); procedure XJGenXin();
procedure ReadINIFile();
{ Private declarations } { Private declarations }
public public
FCYID, FCYCode, FCPID, FCPNO, FCPName: string; FCYID, FCYCode, FCPID, FCPNO, FCPName: string;
@ -2701,6 +2702,17 @@ begin
end; end;
end; end;
procedure TfrmCPAdd.ReadINIFile();
var
programIni:Tinifile; //配置文件名
FileName:string;
begin
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
programIni:=Tinifile.create(FileName);
server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
programIni.Free;
end;
procedure TfrmCPAdd.ToolButton3Click(Sender: TObject); procedure TfrmCPAdd.ToolButton3Click(Sender: TObject);
var var
fHandle: THandle; fHandle: THandle;

12
样品新云翔(YPGLBOM.dll)/U_CPAdd_ZLR.pas
View File

@ -305,6 +305,7 @@ type
procedure Appenddata(); procedure Appenddata();
procedure XJGenXin(); procedure XJGenXin();
procedure MXGYSSave(); procedure MXGYSSave();
procedure ReadINIFile();
{ Private declarations } { Private declarations }
public public
FCYID, FCYCode, FCPID, FCPNO, FCPName: string; FCYID, FCYCode, FCPID, FCPNO, FCPName: string;
@ -2386,6 +2387,17 @@ begin
end; end;
end; end;
procedure TfrmCPAdd_ZLR.ReadINIFile();
var
programIni:Tinifile; //配置文件名
FileName:string;
begin
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
programIni:=Tinifile.create(FileName);
server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
programIni.Free;
end;
procedure TfrmCPAdd_ZLR.ToolButton12Click(Sender: TObject); procedure TfrmCPAdd_ZLR.ToolButton12Click(Sender: TObject);
var var
fHandle: THandle; fHandle: THandle;

11
样品新云翔(YPGLBOM.dll)/U_GetDllForm.pas
View File

@ -20,7 +20,7 @@ uses
U_ZdyAttachGYSX_SJG, U_BPZdy_LRTJ, U_MLMangeTJ, U_BPZdy_LRYH, U_BPZdy_LRPB_M, U_ZdyAttachGYSX_SJG, U_BPZdy_LRTJ, U_MLMangeTJ, U_BPZdy_LRYH, U_BPZdy_LRPB_M,
U_BPZdy_LRSHK_M, U_BPZdy_Panel_RSCX, U_BPZdy_Panel_TJCX, U_MLMangeYH, U_BPZdy_LRSHK_M, U_BPZdy_Panel_RSCX, U_BPZdy_Panel_TJCX, U_MLMangeYH,
U_BPZdy_LRXH_M, U_MLMangeXH, U_BPZdy_TJHXK_M3, U_HXKYH, U_HXKTJ, U_HXKYHK, U_BPZdy_LRXH_M, U_MLMangeXH, U_BPZdy_TJHXK_M3, U_HXKYH, U_HXKTJ, U_HXKYHK,
U_GYSelect, U_MLMange_XH, U_MLHZGL; U_GYSelect, U_MLMange_XH, U_MLHZGL,U_iniParam;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -67,23 +67,32 @@ begin
SetLength(user, 255); SetLength(user, 255);
SetLength(pswd, 255); SetLength(pswd, 255);
if Trim(DataBaseStr) = '' then
begin
server := '106.14.113.234,7781'; server := '106.14.113.234,7781';
dtbase := 'yunxiangdata'; dtbase := 'yunxiangdata';
user := 'sa'; user := 'sa';
pswd := 'rightsoft@123'; pswd := 'rightsoft@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
end
else
begin
DConString := DataBaseStr; DConString := DataBaseStr;
end;
// DParameters1 := '高权限'; // DParameters1 := '高权限';
// DParameters3:='1'; // DParameters3:='1';
if not ConnData() then if not ConnData() then
begin begin
result := 0; result := 0;
exit; exit;
end; end;
if IsINIFile() then if IsINIFile() then
ReadINIFile() ReadINIFile()
else else
WriteINIFile; WriteINIFile;
// 定义窗口类型 、状态 // 定义窗口类型 、状态
if WinStyle = 0 then if WinStyle = 0 then
begin begin

64
样品新云翔(YPGLBOM.dll)/U_iniParam.pas Normal file
View File

@ -0,0 +1,64 @@
unit U_iniParam;
interface
uses
IniFiles,SysUtils;
var
Filename:string; //文件名
iParam2:integer;
bParam1:Boolean;
bParam2:Boolean;
SCXFlag:String; //生产线 根据此标志获取卷条码前缀 不能包含字母 1,2
SCXCount:String; //机台个数
PortNoStr:string;//端口号
DllName:string;//端口Dll文件
Function IsINIFile():Boolean; //判断InI配置文件是否存在
procedure ReadINIFile();
procedure WriteINIFile();
implementation
///////////////////////////////////////////////////////////////////
//读取ini文件设置参数
//参数：
////////////////////////////////////////////////////////////////////
procedure ReadINIFile();
var
programIni:Tinifile; //配置文件名
begin
FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
programIni:=Tinifile.create(FileName);
SCXFlag:=programIni.ReadString('生产车间配置','卷条码机台标志','1');
SCXCount:=programIni.ReadString('生产车间配置','机台个数','1');
PortNoStr:=programIni.ReadString('生产车间配置','端口号','com1');
DllName:=programIni.ReadString('生产车间配置','端口Dll文件','JZCRS323C.DLL');
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//写设置信息到INI文件
//参数
//////////////////////////////////////////////////////////////////
procedure WriteINIFile();
var
programIni:Tinifile; //配置文件名
begin
FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
programIni:=Tinifile.create(FileName);
programIni.WriteString('生产车间配置','卷条码机台标志',SCXFlag);
programIni.WriteString('生产车间配置','机台个数',SCXCount);
programIni.WriteString('生产车间配置','端口号',PortNoStr);
programIni.WriteString('生产车间配置','端口Dll文件',DllName);
programIni.Free;
end;
//////////////////////////////////////////////////////////////////
//判断InI文件是否存在
//////////////////////////////////////////////////////////////////
Function IsINIFile():Boolean;
begin
FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
if FileExists(FileName) then
Result:=true
else
Result:=false;
end;
end.

BIN
样品新云翔(YPGLBOM.dll)/YPGL.res
View File

Binary file not shown.

9
样品新云翔(YPGLBOM.dll)/YPGLBOM.dpr
View File

@ -53,15 +53,6 @@ uses
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
U_MLMangeRSSel in '..\生产计划单(DyeingFinishingPlan.dll)\U_MLMangeRSSel.pas' {frmMLMangeRS}; U_MLMangeRSSel in '..\生产计划单(DyeingFinishingPlan.dll)\U_MLMangeRSSel.pas' {frmMLMangeRS};
// U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
// U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},
// U_SelPrintField in '..\..\SelfForm\U_SelPrintField.pas' {frmSelPrintField},
// U_SelPrintFieldNew in '..\..\SelfForm\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
//U_FormPas in '..\CommonPas\formPas\U_FormPas.pas',
//U_CxGridSet in '..\CommonPas\cxgridPas\U_CxGridSet.pas';
//U_RSFormPas in '..\CommonPas\RSCommon\U_RSFormPas.pas';
{$R *.res} {$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall; procedure DllEnterPoint(dwReason: DWORD);far;stdcall;

BIN
样品新云翔(YPGLBOM.dll)/YPGLBOM.res
View File

Binary file not shown.

BIN
样品新云翔(YPGLBOM.dll)/testDll.res
View File

Binary file not shown.