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

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

@ -4,13 +4,26 @@ 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, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxEdit, DB, cxDBData, ToolWin, ComCtrls, cxGridCustomTableView,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxButtonEdit, BtnEdit,
cxButtonEdit, BtnEdit, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxContainer,
cxTLData, cxContainer, cxCurrencyEdit, cxCheckBox, cxSplitter; cxCurrencyEdit, cxCheckBox, cxSplitter, cxLookAndFeels, cxLookAndFeelPainters,
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, cxNavigator, cxTLdxBarBuiltInMenu;
type type
TfrmBPZDY_LRPB = class(TForm) TfrmBPZDY_LRPB = class(TForm)
@ -116,6 +129,7 @@ type
V1IFHS: TcxGridDBColumn; V1IFHS: TcxGridDBColumn;
Label17: TLabel; Label17: TLabel;
IFHS: TComboBox; IFHS: TComboBox;
TbCopy: TToolButton;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
@ -123,9 +137,7 @@ type
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView; procedure TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure BPNamehange(Sender: TObject); procedure BPNamehange(Sender: TObject);
procedure V1NotePropertiesEditValueChanged(Sender: TObject); procedure V1NotePropertiesEditValueChanged(Sender: TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject); procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
@ -136,9 +148,7 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure BPCodeMChange(Sender: TObject); procedure BPCodeMChange(Sender: TObject);
procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; procedure Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure CYNoChange(Sender: TObject); procedure CYNoChange(Sender: TObject);
procedure CYIDKeyPress(Sender: TObject; var Key: Char); procedure CYIDKeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
@ -157,11 +167,10 @@ type
procedure BPCFKeyPress(Sender: TObject; var Key: Char); procedure BPCFKeyPress(Sender: TObject; var Key: Char);
procedure CPMiDuKeyPress(Sender: TObject; var Key: Char); procedure CPMiDuKeyPress(Sender: TObject; var Key: Char);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure BPPriceKeyPress(Sender: TObject; var Key: Char); procedure BPPriceKeyPress(Sender: TObject; var Key: Char);
procedure BPNoteKeyPress(Sender: TObject; var Key: Char); procedure BPNoteKeyPress(Sender: TObject; var Key: Char);
procedure TbCopyClick(Sender: TObject);
private private
FBPID, FCPID, FCPNo, FCPName: string; FBPID, FCPID, FCPNo, FCPName: string;
procedure InitGrid(); procedure InitGrid();
@ -174,10 +183,12 @@ type
PPSTE: integer; PPSTE: integer;
{ Public declarations } { Public declarations }
end; end;
var var
frmBPZDY_LRPB: TfrmBPZDY_LRPB; frmBPZDY_LRPB: TfrmBPZDY_LRPB;
implementation implementation
uses uses
U_DataLink, U_Fun10, U_BPZdy_SH, U_BPZdy_HXK, U_CPTypePB; U_DataLink, U_Fun10, U_BPZdy_SH, U_BPZdy_HXK, U_CPTypePB;
@ -199,9 +210,11 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.SaveData(); procedure TfrmBPZDY_LRPB.SaveData();
var maxno:string; var
maxno: string;
begin begin
if FGYName<>'' then exit; if FGYName <> '' then
exit;
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
ClientDataSet1.DisableControls; ClientDataSet1.DisableControls;
@ -311,7 +324,8 @@ begin
TV1.OptionsData.Editing := false; TV1.OptionsData.Editing := false;
TV1.OptionsSelection.CellSelect := false; TV1.OptionsSelection.CellSelect := false;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
except; except
;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
@ -328,14 +342,14 @@ begin
//ConnectionString:=''; //ConnectionString:='';
Connected := true; Connected := true;
end; end;
except; except
;
frmBPZDY_LRPB.Free; frmBPZDY_LRPB.Free;
end; end;
canshu1 := Trim(DParameters1); canshu1 := Trim(DParameters1);
end; end;
procedure TfrmBPZDY_LRPB.FormClose(Sender: TObject; procedure TfrmBPZDY_LRPB.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
Action := caFree; Action := caFree;
@ -373,7 +387,8 @@ begin
Panel5.Visible := False; Panel5.Visible := False;
Application.MessageBox('没有选择类型，不能新增!', '提示', 0); Application.MessageBox('没有选择类型，不能新增!', '提示', 0);
Exit; Exit;
end else end
else
begin begin
Panel5.Visible := True; Panel5.Visible := True;
SClearData(Panel5, 2); SClearData(Panel5, 2);
@ -390,7 +405,8 @@ procedure TfrmBPZDY_LRPB.TBSaveClick(Sender: TObject);
var var
maxno: string; maxno: string;
begin begin
if ClientDataSet1.IsEmpty then Exit; if ClientDataSet1.IsEmpty then
Exit;
Toolbar1.SetFocus; Toolbar1.SetFocus;
if ClientDataSet1.Locate('BPCode', null, []) then if ClientDataSet1.Locate('BPCode', null, []) then
begin begin
@ -419,7 +435,8 @@ end;
procedure TfrmBPZDY_LRPB.TBDelClick(Sender: TObject); procedure TfrmBPZDY_LRPB.TBDelClick(Sender: TObject);
begin begin
MXCode.SetFocus; MXCode.SetFocus;
if ClientDataSet1.IsEmpty then Exit; if ClientDataSet1.IsEmpty then
Exit;
if Trim(ClientDataSet1.FieldByName('BPID').AsString) <> '' then if Trim(ClientDataSet1.FieldByName('BPID').AsString) <> '' then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -434,7 +451,8 @@ begin
Application.MessageBox('已生成面料信息，不能删除数据!', '提示', 0); Application.MessageBox('已生成面料信息，不能删除数据!', '提示', 0);
Exit; Exit;
end; end;
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit; if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -468,6 +486,7 @@ begin
if ViewFlag = True then if ViewFlag = True then
begin begin
TBAdd.Visible := False; TBAdd.Visible := False;
TbCopy.Visible := False;
TBDel.Visible := False; TBDel.Visible := False;
ToolButton1.Visible := true; ToolButton1.Visible := true;
end; end;
@ -503,19 +522,20 @@ begin
end; end;
end; end;
procedure TfrmBPZDY_LRPB.TV1CellDblClick(Sender: TcxCustomGridTableView; procedure TfrmBPZDY_LRPB.TV1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; var
AShift: TShiftState; var AHandled: Boolean); i: integer;
var i:integer;
begin begin
if ToolButton1.Visible = true then if ToolButton1.Visible = true then
begin begin
Fint := '1'; Fint := '1';
ModalResult := 1; ModalResult := 1;
end else end
else
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
if ClientDataSet1.IsEmpty then exit; if ClientDataSet1.IsEmpty then
exit;
BPMF.Text := Trim(ClientDataSet1.fieldbyname('BPMF').AsString); BPMF.Text := Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
BPKZ.Text := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString); BPKZ.Text := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
BPCF.Text := Trim(ClientDataSet1.fieldbyname('BPCF').AsString); BPCF.Text := Trim(ClientDataSet1.fieldbyname('BPCF').AsString);
@ -534,12 +554,13 @@ begin
Panel5.Visible := True; Panel5.Visible := True;
Button1.Caption := '修改保存'; Button1.Caption := '修改保存';
TBDel.Visible := True; TBDel.Visible := True;
TBCopy.Visible := True;
end; end;
end; end;
procedure TfrmBPZDY_LRPB.BPNamehange(Sender: TObject); procedure TfrmBPZDY_LRPB.BPNamehange(Sender: TObject);
var var
fsj:String; fsj: string;
begin begin
if Trim(BPNameM.Text) <> '' then if Trim(BPNameM.Text) <> '' then
begin begin
@ -566,8 +587,7 @@ begin
end; end;
end; end;
procedure TfrmBPZDY_LRPB.V1HelpTypePropertiesEditValueChanged( procedure TfrmBPZDY_LRPB.V1HelpTypePropertiesEditValueChanged(Sender: TObject);
Sender: TObject);
var var
mvalue: string; mvalue: string;
begin begin
@ -636,7 +656,8 @@ end;
procedure TfrmBPZDY_LRPB.ToolButton4Click(Sender: TObject); procedure TfrmBPZDY_LRPB.ToolButton4Click(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
if ClientDataSet1.IsEmpty then exit; if ClientDataSet1.IsEmpty then
exit;
if ClientDataSet1.FieldByName('BPID').AsString = '' then if ClientDataSet1.FieldByName('BPID').AsString = '' then
begin begin
application.MessageBox('请保存主信息', '提示'); application.MessageBox('请保存主信息', '提示');
@ -652,10 +673,12 @@ end;
procedure TfrmBPZDY_LRPB.ToolButton5Click(Sender: TObject); procedure TfrmBPZDY_LRPB.ToolButton5Click(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
if ML_GYS.IsEmpty then Exit; if ML_GYS.IsEmpty then
Exit;
if Trim(ML_GYS.FieldByName('BPSubID').AsString) <> '' then if Trim(ML_GYS.FieldByName('BPSubID').AsString) <> '' then
begin begin
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit; if application.MessageBox('确定要删除吗?', '提示信息', 1) = 2 then
exit;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -668,7 +691,8 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.ToolButton3Click(Sender: TObject); procedure TfrmBPZDY_LRPB.ToolButton3Click(Sender: TObject);
var maxno:string; var
maxno: string;
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
try try
@ -725,7 +749,8 @@ begin
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
except; except
;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
@ -733,7 +758,7 @@ end;
procedure TfrmBPZDY_LRPB.BPCodeMChange(Sender: TObject); procedure TfrmBPZDY_LRPB.BPCodeMChange(Sender: TObject);
var var
fsj:String; fsj: string;
begin begin
if Trim(BPCodeM.Text) <> '' then if Trim(BPCodeM.Text) <> '' then
begin begin
@ -747,12 +772,12 @@ begin
end; end;
end; end;
procedure TfrmBPZDY_LRPB.Tv3CellDblClick(Sender: TcxCustomGridTableView; procedure TfrmBPZDY_LRPB.Tv3CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; var
AShift: TShiftState; var AHandled: Boolean); i: Integer;
var i:Integer;
begin begin
if ML_GX.IsEmpty then exit; if ML_GX.IsEmpty then
exit;
ML_GX.Delete; ML_GX.Delete;
i := 1; i := 1;
ML_GX.DisableControls; ML_GX.DisableControls;
@ -772,7 +797,7 @@ end;
procedure TfrmBPZDY_LRPB.CYNoChange(Sender: TObject); procedure TfrmBPZDY_LRPB.CYNoChange(Sender: TObject);
var var
fsj:String; fsj: string;
begin begin
if Trim(CYNo.Text) <> '' then if Trim(CYNo.Text) <> '' then
begin begin
@ -787,11 +812,13 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.CYIDKeyPress(Sender: TObject; var Key: Char); procedure TfrmBPZDY_LRPB.CYIDKeyPress(Sender: TObject; var Key: Char);
var FMXCYID,FColNo,FCYType,CPID:String; var
FMXCYID, FColNo, FCYType, CPID: string;
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Trim(CYID.Text)='' then Exit; if Trim(CYID.Text) = '' then
Exit;
with ADOQuery6 do with ADOQuery6 do
begin begin
close; close;
@ -862,7 +889,8 @@ var
begin begin
if Button1.Caption = '修改保存' then if Button1.Caption = '修改保存' then
begin begin
if Application.MessageBox('确定要修改保存吗','提示',1)=2 then exit; if Application.MessageBox('确定要修改保存吗', '提示', 1) = 2 then
exit;
end; end;
if Button1.Caption = '新增保存' then if Button1.Caption = '新增保存' then
begin begin
@ -1062,8 +1090,10 @@ begin
Button1.Caption := '新增保存'; Button1.Caption := '新增保存';
Panel5.Visible := false; Panel5.Visible := false;
TBDel.Visible := False; TBDel.Visible := False;
TbCopy.Visible := False;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
except; except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
@ -1087,14 +1117,15 @@ end;
procedure TfrmBPZDY_LRPB.ToolButton1Click(Sender: TObject); procedure TfrmBPZDY_LRPB.ToolButton1Click(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
Fint:='1'; FInt := '1';
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmBPZDY_LRPB.Button1KeyPress(Sender: TObject; var Key: Char); procedure TfrmBPZDY_LRPB.Button1KeyPress(Sender: TObject; var Key: Char);
var maxno:string; var
maxno: string;
begin begin
if key=#13 then if Key = #13 then
begin begin
if MXCode.Text = '' then if MXCode.Text = '' then
begin begin
@ -1216,7 +1247,8 @@ begin
FBPID := ''; FBPID := '';
MXCode.SetFocus; MXCode.SetFocus;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
except; except
;
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0); Application.MessageBox('保存失败！', '提示', 0);
end; end;
@ -1224,28 +1256,25 @@ begin
end; end;
end; end;
////////////////////////////////////////////////////////////
/// 目录树选择
procedure TfrmBPZDY_LRPB.cxDBTreeList1Click(Sender: TObject); procedure TfrmBPZDY_LRPB.cxDBTreeList1Click(Sender: TObject);
begin begin
InitGrid(); InitGrid();
TBDel.Visible := False; TBDel.Visible := False;
TbCopy.Visible := False;
Panel5.Visible := False; Panel5.Visible := False;
if Order_Tree.FieldByName('CPLevel').AsInteger < 3 then if Order_Tree.FieldByName('CPLevel').AsInteger < 3 then
begin begin
// Panel5.Visible:=False;
TBAdd.Visible := False; TBAdd.Visible := False;
end else end
else
begin begin
//Panel5.Visible:=True;
//SClearData(Panel5,2);
// BPMF.Text:='160';
//BPCF.Text:='100%P';
// Button1.Caption:='新增保存';
FBPID := ''; FBPID := '';
FCPID := Trim(Order_Tree.fieldbyname('CPID').AsString); FCPID := Trim(Order_Tree.fieldbyname('CPID').AsString);
FCPNo := Trim(Order_Tree.fieldbyname('CPNo').AsString); FCPNo := Trim(Order_Tree.fieldbyname('CPNo').AsString);
FCPName := Trim(Order_Tree.fieldbyname('CPName').AsString); FCPName := Trim(Order_Tree.fieldbyname('CPName').AsString);
TBAdd.Visible := True; TBAdd.Visible := True;
//MXCode.SetFocus;
end; end;
Label16.Caption := Trim(Order_Tree.fieldbyname('CPNo').AsString); Label16.Caption := Trim(Order_Tree.fieldbyname('CPNo').AsString);
end; end;
@ -1299,11 +1328,13 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.CYNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmBPZDY_LRPB.CYNameKeyPress(Sender: TObject; var Key: Char);
var CPID:string; var
CPID: string;
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Trim(CYName.Text)='' then Exit; if Trim(CYName.Text) = '' then
Exit;
with ADOQuery2 do with ADOQuery2 do
begin begin
Close; Close;
@ -1317,11 +1348,13 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.CYNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmBPZDY_LRPB.CYNoKeyPress(Sender: TObject; var Key: Char);
var CPID:string; var
CPID: string;
begin begin
if Key = #13 then if Key = #13 then
begin begin
if Trim(CYNo.Text)='' then Exit; if Trim(CYNo.Text) = '' then
Exit;
with ADOQuery2 do with ADOQuery2 do
begin begin
Close; Close;
@ -1355,13 +1388,11 @@ begin
frmBPZDY_LRPB := nil; frmBPZDY_LRPB := nil;
end; end;
procedure TfrmBPZDY_LRPB.TV1FocusedRecordChanged( procedure TfrmBPZDY_LRPB.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin begin
Panel5.Visible := False; Panel5.Visible := False;
TBAdd.Visible := False; TBAdd.Visible := False;
TbCopy.Visible := False;
TBDel.Visible := False; TBDel.Visible := False;
end; end;
@ -1382,4 +1413,29 @@ begin
end; end;
procedure TfrmBPZDY_LRPB.TbCopyClick(Sender: TObject);
begin
Panel5.Visible := True;
BPMF.Text := Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
BPKZ.Text := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
BPCF.Text := Trim(ClientDataSet1.fieldbyname('BPCF').AsString);
BPJS.Text := Trim(ClientDataSet1.fieldbyname('BPJS').AsString);
BPMiDu.Text := Trim(ClientDataSet1.fieldbyname('BPMiDu').AsString);
CPMiDu.Text := Trim(ClientDataSet1.fieldbyname('CPMiDu').AsString);
MXCode.Text := Trim(ClientDataSet1.FieldByName('MXCode').AsString);
MXName.Text := Trim(ClientDataSet1.FieldByName('MXName').AsString);
IFHS.Text := Trim(ClientDataSet1.FieldByName('IFHS').AsString);
BPPrice.Text := Trim(ClientDataSet1.FieldByName('BPPrice').AsString);
BPNote.Text := Trim(ClientDataSet1.FieldByName('BPNote').AsString);
FBPID := '';
FCPID := Trim(ClientDataSet1.fieldbyname('CPID').AsString);
FCPNo := Trim(ClientDataSet1.fieldbyname('CPNo').AsString);
FCPName := Trim(ClientDataSet1.fieldbyname('CPName').AsString);
MXCode.SetFocus;
Button1.Caption := '新增保存';
end;
end. end.

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.