D7myYunxiang/云翔基础资料(BaseInfoYX.dll)/U_MLManage_LRTJ.dfm

992 lines
24 KiB
Plaintext
Raw Normal View History

2025-01-20 13:04:03 +08:00
object frmMLManage_LRTJ: TfrmMLManage_LRTJ
Left = 159
Top = 89
Width = 1434
Height = 770
Caption = #28907#37329#38754#26009#20449#24687#30331#35760
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 107
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 1418
Height = 39
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object GSNo: TLabel
Tag = 2
Left = 1190
Top = 43
Width = 56
Height = 13
Caption = #24037#33402#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object MLNo: TLabel
Tag = 2
Left = 254
Top = 11
Width = 76
Height = 18
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object GYLX: TLabel
Tag = 2
Left = 746
Top = 13
Width = 8
Height = 13
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object GYName: TLabel
Tag = 2
Left = 1346
Top = 43
Width = 56
Height = 13
Caption = #24037#33402#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object GYLXName: TLabel
Tag = 2
Left = 470
Top = 13
Width = 8
Height = 13
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Tag = 2
Left = 1129
Top = 43
Width = 64
Height = 13
Caption = #24037#33402#32534#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Tag = 2
Left = 1284
Top = 43
Width = 64
Height = 13
Caption = #24037#33402#21517#31216':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Tag = 2
Left = 164
Top = 11
Width = 86
Height = 18
Caption = #20135#21697#32534#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Tag = 2
Left = 652
Top = 13
Width = 92
Height = 13
Caption = #24037#33402#26126#32454#20195#30721':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Tag = 2
Left = 404
Top = 13
Width = 64
Height = 13
Caption = #24037#33402#26126#32454':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Button1: TButton
Left = 41
Top = 3
Width = 80
Height = 33
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Button1Click
end
end
object Panel4: TPanel
Left = 911
Top = 76
Width = 507
Height = 654
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object ScrollBox2: TScrollBox
Left = 2
Top = 2
Width = 503
Height = 650
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
end
end
object Panel9: TPanel
Left = 0
Top = 39
Width = 1418
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object TLabel
Left = 163
Top = 12
Width = 56
Height = 13
Caption = #38754#26009#21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 441
Top = 12
Width = 28
Height = 13
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 563
Top = 12
Width = 28
Height = 13
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 37
Top = 8
Width = 92
Height = 22
Caption = #28907#37329#38754#26009
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -22
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 685
Top = 12
Width = 28
Height = 13
Caption = #25104#20221
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MLName: TEdit
Tag = 2
Left = 220
Top = 8
Width = 198
Height = 21
CharCase = ecUpperCase
TabOrder = 0
OnChange = MLNameChange
end
object MLMF: TEdit
Tag = 2
Left = 471
Top = 8
Width = 71
Height = 21
CharCase = ecUpperCase
TabOrder = 1
Text = '150'
OnChange = MLMFChange
end
object MLKZ: TEdit
Tag = 2
Left = 593
Top = 8
Width = 70
Height = 21
CharCase = ecUpperCase
TabOrder = 2
OnChange = MLMFChange
end
object Button2: TButton
Left = 1151
Top = 3
Width = 79
Height = 33
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
object MLCF: TEdit
Tag = 2
Left = 714
Top = 8
Width = 126
Height = 21
CharCase = ecUpperCase
TabOrder = 4
OnChange = MLMFChange
end
object Button4: TButton
Left = 1019
Top = 3
Width = 80
Height = 33
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button4Click
end
object Button5: TButton
Left = 910
Top = 3
Width = 94
Height = 33
Caption = #22270#29255#19978#20256
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
end
object Panel7: TPanel
Left = 0
Top = 76
Width = 911
Height = 654
Align = alLeft
TabOrder = 3
object Panel3: TPanel
Left = 1
Top = 1
Width = 507
Height = 468
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object TLabel
Left = 38
Top = 48
Width = 36
Height = 13
Caption = #32534#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 266
Top = 48
Width = 36
Height = 13
Caption = #38376#24133':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 266
Top = 75
Width = 42
Height = 13
Caption = #20811#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 38
Top = 75
Width = 36
Height = 13
Caption = #21697#21517':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 266
Top = 104
Width = 42
Height = 13
Caption = #23494#24230#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 38
Top = 104
Width = 36
Height = 13
Caption = #32463#32428':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPCode: TLabel
Left = 74
Top = 48
Width = 28
Height = 13
Caption = #32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPName: TLabel
Left = 74
Top = 75
Width = 28
Height = 13
Caption = #21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPJS: TLabel
Left = 74
Top = 104
Width = 42
Height = 13
Caption = #32463#32428#32433
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPMF: TLabel
Left = 305
Top = 48
Width = 28
Height = 13
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPKZ: TLabel
Left = 305
Top = 75
Width = 28
Height = 13
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPMiDu: TLabel
Left = 305
Top = 104
Width = 28
Height = 13
Caption = #23494#24230
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 38
Top = 133
Width = 36
Height = 13
Caption = #25104#20221':'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BPCF: TLabel
Left = 74
Top = 133
Width = 28
Height = 13
Caption = #25104#20221
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TLabel
Left = 266
Top = 133
Width = 42
Height = 13
Caption = #23494#24230#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CPMiDu: TLabel
Left = 305
Top = 133
Width = 28
Height = 13
Caption = #23494#24230
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ToolBar3: TToolBar
Left = 2
Top = 2
Width = 503
Height = 33
ButtonHeight = 30
ButtonWidth = 113
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_YPGLBOM.ThreeImgList
Flat = True
Images = DataLink_YPGLBOM.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton2: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321#22383#24067
ImageIndex = 103
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 91
Top = 0
AutoSize = True
Caption = #36873#25321#26579#33394#38754#26009
ImageIndex = 108
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 208
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton3Click
end
object Panel5: TPanel
Left = 273
Top = 0
Width = 109
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 8
Top = 3
Width = 92
Height = 22
Caption = #38754#26009#20449#24687
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -22
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 590
Width = 513
Height = 50
TabOrder = 1
Visible = False
object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_YPGLBOM.Default
object V1Ssel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
Visible = False
Width = 70
end
object V1BPCode: TcxGridDBColumn
Tag = 3
Caption = #32534#21495
DataBinding.FieldName = 'BPCode'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 88
end
object V1BPName: TcxGridDBColumn
Tag = 3
Caption = #21517#31216
DataBinding.FieldName = 'BPName'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1BPMF: TcxGridDBColumn
Tag = 3
Caption = #38376#24133
DataBinding.FieldName = 'BPMF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
object V1BPKZ: TcxGridDBColumn
Tag = 3
Caption = #20811#37325
DataBinding.FieldName = 'BPKZ'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 82
end
object V1BPJS: TcxGridDBColumn
Tag = 3
Caption = #32463#32428#32433
DataBinding.FieldName = 'BPJS'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 74
end
object v1BPMiDu: TcxGridDBColumn
Tag = 3
Caption = #23494#24230
DataBinding.FieldName = 'BPMiDu'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
end
object Panel2: TPanel
Left = 508
Top = 1
Width = 402
Height = 468
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object ToolBar2: TToolBar
Left = 2
Top = 2
Width = 398
Height = 33
ButtonHeight = 30
ButtonWidth = 87
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_YPGLBOM.ThreeImgList
Flat = True
Images = DataLink_YPGLBOM.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TAdd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321#24037#33402
ImageIndex = 103
OnClick = TAddClick
end
object ToolButton5: TToolButton
Left = 91
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton5Click
end
object Panel6: TPanel
Left = 156
Top = 0
Width = 120
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label6: TLabel
Left = 15
Top = 4
Width = 92
Height = 22
Caption = #28907#37329#24037#33402
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -22
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
end
object cxGrid2: TcxGrid
Left = 2
Top = 35
Width = 398
Height = 431
Align = alClient
TabOrder = 1
object TV2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_YPGLBOM.Default
object V2XHNo: TcxGridDBColumn
Tag = 3
Caption = #24207#21495
DataBinding.FieldName = 'XHNo'
HeaderAlignmentHorz = taCenter
Width = 46
end
object VGYCode: TcxGridDBColumn
Caption = #20195#30721
DataBinding.FieldName = 'GYCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V2GYName: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'GYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object Panel8: TPanel
Left = 1
Top = 469
Width = 909
Height = 184
Align = alBottom
TabOrder = 2
object ScrollBox1: TScrollBox
Left = 1
Top = 1
Width = 907
Height = 182
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
end
end
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 617
Top = 229
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 496
Top = 197
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 594
Top = 198
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 560
Top = 198
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 528
Top = 197
end
object Order_GX: TClientDataSet
Aggregates = <>
Params = <>
Left = 626
Top = 199
end
object DataSource1: TDataSource
DataSet = Order_GX
Left = 876
Top = 230
end
object OrdBP_SH: TClientDataSet
Aggregates = <>
Params = <>
Left = 877
Top = 293
end
object Ord_HX: TClientDataSet
Aggregates = <>
Params = <>
Left = 846
Top = 305
end
object adoqueryPicture: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 878
Top = 196
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_Print
Left = 584
Top = 230
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 519
Top = 227
ReportData = {}
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 549
Top = 228
end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 488
Top = 226
end
object PopupMenu1: TPopupMenu
Left = 877
Top = 262
object N1: TMenuItem
Caption = #26597#30475#21407#22270
OnClick = N1Click
end
end
object SaveDialog1: TSaveDialog
Left = 907
Top = 276
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 902
Top = 188
end
object IdFTP1: TIdFTP
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 903
Top = 227
end
end