D7myYunxiang/样品新云翔(YPGLBOM.dll)/U_MLMange_XH.dfm

736 lines
19 KiB
Plaintext
Raw Permalink Normal View History

2025-01-20 13:04:03 +08:00
object frmMLMange_XH: TfrmMLMange_XH
Left = 190
Top = 134
Width = 1299
Height = 697
Caption = #32483#33457#38754#26009#31649#29702
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 107
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1283
AutoSize = True
ButtonHeight = 30
ButtonWidth = 61
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_YPGLBOM.ThreeImgList
Flat = True
Images = DataLink_YPGLBOM.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 9
OnClick = TBRafreshClick
end
object ToolButton11: TToolButton
Left = 65
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 3
OnClick = ToolButton11Click
end
object ToPrint: TToolButton
Left = 130
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
OnClick = ToPrintClick
end
object TCK: TToolButton
Left = 195
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 57
Visible = False
OnClick = TCKClick
end
object ToolButton1: TToolButton
Left = 260
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 53
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 325
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
object ToolButton2: TToolButton
Left = 390
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
Visible = False
OnClick = ToolButton2Click
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1283
Height = 625
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Panel5: TPanel
Left = 2
Top = 2
Width = 1279
Height = 45
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label2: TLabel
Left = 358
Top = 16
Width = 68
Height = 16
Caption = #32483#33457#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 664
Top = 16
Width = 34
Height = 16
Caption = #21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 824
Top = 16
Width = 102
Height = 16
Caption = #32483#33457#24037#33402#26126#32454
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 20
Top = 7
Width = 103
Height = 30
Caption = 'X'#32483#33457#38754#26009
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 507
Top = 16
Width = 68
Height = 16
Caption = #38754#26009#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 1056
Top = 16
Width = 34
Height = 16
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 129
Top = 16
Width = 68
Height = 16
Caption = #33457#22411#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TJML: TEdit
Tag = 2
Left = 428
Top = 12
Width = 62
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnChange = HXTypeChange
end
object MLName: TEdit
Tag = 2
Left = 701
Top = 12
Width = 107
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnChange = HXTypeChange
end
object TJGYName: TEdit
Tag = 2
Left = 930
Top = 12
Width = 107
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnChange = HXTypeChange
end
object MLXXNO: TEdit
Tag = 2
Left = 578
Top = 12
Width = 64
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnChange = HXTypeChange
end
object MLKZ: TEdit
Tag = 2
Left = 1094
Top = 12
Width = 39
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnChange = HXTypeChange
end
object Button1: TButton
Left = 311
Top = 11
Width = 29
Height = 25
Caption = '...'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button1Click
end
object HXType: TEdit
Tag = 2
Left = 200
Top = 12
Width = 110
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnChange = HXTypeChange
end
end
object cxGrid1: TcxGrid
Left = 2
Top = 47
Width = 1279
Height = 576
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1ColGS
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.Header = cxStyle1
object v1HXType: TcxGridDBColumn
Caption = #33457#22411#31867#22411
DataBinding.FieldName = 'HXType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v1TJML: TcxGridDBColumn
Caption = #32483#33457#32534#21495
DataBinding.FieldName = 'TJML'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1MLXXNO: TcxGridDBColumn
Caption = #38754#26009#32534#21495
DataBinding.FieldName = 'MLXXNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object v1ColGS: TcxGridDBColumn
Caption = #39068#33394#20010#25968
DataBinding.FieldName = 'ColGS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1MLName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MLName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 222
end
object v1MLMF: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'MLMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 55
end
object v1MLKZ: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'MLKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 53
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20221
DataBinding.FieldName = 'MLCF'
HeaderAlignmentHorz = taCenter
Width = 195
end
object v1MLXXGYName: TcxGridDBColumn
Caption = #26579#33394#24037#33402#26126#32454
DataBinding.FieldName = 'MLXXGYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 200
end
object v1TJGYName: TcxGridDBColumn
Caption = #32483#33457#24037#33402#26126#32454
DataBinding.FieldName = 'TJGYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 200
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel2: TPanel
Left = 1116
Top = 104
Width = 144
Height = 223
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
Visible = False
object Label8: TLabel
Left = 36
Top = 12
Width = 68
Height = 16
Caption = #25171#21360#36873#25321
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Image1: TImage
Left = 120
Top = 4
Width = 20
Height = 21
Picture.Data = {
0A544A504547496D616765E2020000FFD8FFE000104A46494600010101006000
600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213
0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739
3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232
3232323232323232323232323232323232323232323232323232323232323232
32323232323232323232323232FFC20011080015001503012200021101031101
FFC4001800010003010000000000000000000000000001040607FFC400140101
00000000000000000000000000000000FFDA000C03010002100310000001D728
E50E8491541641FFC4001A100101000301010000000000000000000003040002
140512FFDA00080101000105025A08767A0A63CF4B9B8A2FAECC59C9B679CA93
CFFFC40014110100000000000000000000000000000020FFDA0008010301013F
011FFFC400161100030000000000000000000000000000012021FFDA00080102
01013F01153FFFC4002310000103030207000000000000000000000201031200
10111432152331415161F1FFDA0008010100063F020170E2A6B81A9BC711B16A
B676F39F54CF119EDE44FA7DB013812505C8D41E090DBFFFC400201000010401
040300000000000000000000110001217131104161D15181B1FFDA0008010100
013F2163D491BBDA068605E4BD2CAF9A3D165E7E1E773DBAD18F5246CF481A18
8780F6B0BFFFDA000C03010002000300000010F70F3CFFC40019110001050000
000000000000000000000001112021F0F1FFDA0008010301013F103016E33FFF
C400181100020300000000000000000000000000112021F0F1FFDA0008010201
013F10985D4FFFC4002010010002020201050000000000000000000111310021
4171106191B1C1D1FFDA0008010100013F1052BE32C171A4165A5E6B36882928
00ABD142E0804A779F5775BF2BD2267539ED182EFC22D53BF052BE76C373B434
58E6B378A28290223D34A60000A359FFD9}
OnClick = Image1Click
end
object cxButton1: TcxButton
Left = 18
Top = 40
Width = 110
Height = 47
Caption = #21697#21517#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = cxButton1Click
Colors.Default = clBtnFace
end
object cxButton2: TcxButton
Left = 18
Top = 102
Width = 110
Height = 47
Caption = #39068#33394#22823#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = cxButton2Click
Colors.Default = clBtnFace
end
object cxButton3: TcxButton
Left = 18
Top = 164
Width = 110
Height = 46
Caption = #39068#33394#23567#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = cxButton3Click
Colors.Default = clBtnFace
end
end
end
object DataSource1: TDataSource
DataSet = ADOQueryTree
Left = 660
Top = 386
end
object ADOQueryTree: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 626
Top = 387
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 906
Top = 187
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 935
Top = 187
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 652
Top = 193
end
object DataSource2: TDataSource
DataSet = CDS_Main
Left = 594
Top = 223
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 682
Top = 195
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 223
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ShowProgress = False
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 = 623
Top = 194
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_Main
Left = 696
Top = 386
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 965
Top = 186
end
object IdFTP1: TIdFTP
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 996
Top = 186
end
object SaveDialog1: TSaveDialog
Left = 681
Top = 223
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 660
Top = 419
end
object DataSource3: TDataSource
DataSet = CDS_Sub
Left = 626
Top = 419
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 592
Top = 419
end
object Order_GX: TClientDataSet
Aggregates = <>
Params = <>
Left = 593
Top = 387
end
object DataSource4: TDataSource
DataSet = Order_GX
Left = 695
Top = 418
end
object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 727
Top = 403
end
object ML_Col: TClientDataSet
Aggregates = <>
Params = <>
Left = 1126
Top = 503
end
object DataSource5: TDataSource
DataSet = ML_Col
Left = 1161
Top = 501
end
object cxGridPopupMenu4: TcxGridPopupMenu
PopupMenus = <>
Left = 1193
Top = 501
end
object cxStyleRepository1: TcxStyleRepository
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object cxGridPopupMenu5: TcxGridPopupMenu
PopupMenus = <>
Left = 996
Top = 217
end
object DataSource6: TDataSource
DataSet = Ord_HX
Left = 965
Top = 218
end
object Ord_HX: TClientDataSet
Aggregates = <>
Params = <>
Left = 936
Top = 219
end
object ADOQuery1: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 905
Top = 220
end
object PopupMenu1: TPopupMenu
Left = 594
Top = 195
object N1: TMenuItem
Caption = #20462#25913
OnClick = N1Click
end
object N2: TMenuItem
Caption = #21024#38500
OnClick = N2Click
end
object N5: TMenuItem
Caption = #22797#21046
OnClick = N5Click
end
object N3: TMenuItem
Caption = #22686#21152#33394#21495
OnClick = N3Click
end
object N4: TMenuItem
Caption = #22686#21152#24037#33402
OnClick = N4Click
end
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = 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 = 623
Top = 223
ReportData = {}
end
end