D7snShanfengT/山峰贸易管理/U_OrderInPut.dfm
DESKTOP-E401PHE\Administrator c363cb75a7 调整之后的山凤水泥厂
2026-02-26 09:41:35 +08:00

739 lines
19 KiB
Plaintext

object frmOrderInPut: TfrmOrderInPut
Left = 235
Top = 241
Width = 1214
Height = 651
Caption = #29983#20135#35745#21010#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1196
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 14
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1196
Height = 190
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 53
Top = 33
Width = 80
Height = 15
Caption = #20219#21153#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 304
Top = 33
Width = 82
Height = 15
Caption = #21512' '#21516' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 814
Top = 33
Width = 80
Height = 15
Caption = #21046#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 559
Top = 33
Width = 84
Height = 15
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 53
Top = 66
Width = 84
Height = 15
Caption = #26631' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label43: TLabel
Left = 304
Top = 100
Width = 82
Height = 15
Caption = #19994' '#21153' '#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 53
Top = 135
Width = 84
Height = 15
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 559
Top = 66
Width = 80
Height = 15
Caption = #35745#21010#26041#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 814
Top = 66
Width = 80
Height = 15
Caption = #26045#24037#37096#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 559
Top = 100
Width = 80
Height = 15
Caption = #30780#22349#33853#24230#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 798
Top = 100
Width = 96
Height = 15
Caption = #22349#33853#24230#35823#24046#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 53
Top = 100
Width = 80
Height = 15
Caption = #26045#24037#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 304
Top = 66
Width = 84
Height = 15
Caption = #29305' '#24615#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2
Left = 135
Top = 29
Width = 143
Height = 18
TabOrder = 0
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 888
Top = 28
Width = 145
Height = 23
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
ShowCheckbox = True
TabOrder = 1
end
object BNo: TBtnEditC
Tag = 2
Left = 135
Top = 61
Width = 143
Height = 23
TabOrder = 2
OnBtnUpClick = BNoBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object YWY: TBtnEditC
Tag = 2
Left = 383
Top = 96
Width = 143
Height = 23
Hint = 'OrdPerson2/'#19994#21153#21592
TabOrder = 3
OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object CustomerNoName: TEdit
Tag = 2
Left = 638
Top = 29
Width = 142
Height = 18
TabOrder = 4
end
object Ordernote: TBtnEditC
Tag = 2
Left = 135
Top = 130
Width = 894
Height = 23
Hint = 'note/'#22791#27880
TabOrder = 5
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object ConNO: TBtnEditC
Tag = 2
Left = 383
Top = 28
Width = 143
Height = 23
Hint = 'ConNO/'#21512#21516#21495
ReadOnly = True
TabOrder = 6
OnBtnUpClick = ConNOBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object OrdFLQty: TEdit
Tag = 2
Left = 638
Top = 63
Width = 142
Height = 18
TabOrder = 7
end
object SGBuWei: TBtnEditC
Tag = 2
Left = 888
Top = 61
Width = 142
Height = 23
Hint = 'SGBuWei/'#26045#24037#37096#20301
TabOrder = 8
OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object TongTan: TEdit
Tag = 2
Left = 638
Top = 98
Width = 142
Height = 18
TabOrder = 9
end
object TLDWuC: TEdit
Tag = 2
Left = 888
Top = 98
Width = 141
Height = 18
TabOrder = 10
Text = '20'
end
object SGFangshi: TBtnEditC
Tag = 2
Left = 135
Top = 96
Width = 143
Height = 23
Hint = 'SGFangshi/'#26045#24037#26041#24335
TabOrder = 11
OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object TeXing: TBtnEditC
Tag = 2
Left = 383
Top = 61
Width = 143
Height = 23
Hint = 'TeXing/'#29305#24615
TabOrder = 12
OnBtnUpClick = OrdDefStr2BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
end
object Panel1: TPanel
Left = 0
Top = 219
Width = 1196
Height = 387
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object ToolBar2: TToolBar
Left = 2
Top = 2
Width = 1192
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
Visible = False
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Left = 2
Top = 31
Width = 606
Height = 354
Align = alLeft
TabOrder = 1
Visible = False
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = cxStyle1
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'XHNo'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 35
end
object v1PLName: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'PLName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1PLNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 84
end
object v1OrderQty: TcxGridDBColumn
Caption = #25968#37327'/'#26041
DataBinding.FieldName = 'OrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1OrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1OrdNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdNote'
HeaderAlignmentHorz = taCenter
Width = 104
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 608
Top = 31
Width = 586
Height = 354
Align = alClient
TabOrder = 2
Visible = False
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = cxStyle1
object TV2APDate: TcxGridDBColumn
Caption = #23433#25490#26085#26399
DataBinding.FieldName = 'APDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 74
end
object V2CLName: TcxGridDBColumn
Caption = #36710#36742#21517#31216
DataBinding.FieldName = 'CLName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = V2CLNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object V2CLSpec: TcxGridDBColumn
Caption = #36710#36742#22411#21495
DataBinding.FieldName = 'CLSpec'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = V2CLNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object V2SJName: TcxGridDBColumn
Caption = #21496#26426#21517#31216
DataBinding.FieldName = 'SJName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = V2SJNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object V2CLNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CLNote'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 336
Top = 305
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 244
Top = 305
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 536
Top = 508
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 500
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 272
Top = 305
end
object DataSource4: TDataSource
DataSet = Order_RLDJ
Left = 524
Top = 424
end
object Order_RLDJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 564
Top = 428
end
object cxStyleRepository1: TcxStyleRepository
PixelsPerInch = 120
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
end
object cxStyle2: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clRed
end
object cxStyle3: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
TextColor = clBlue
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 304
Top = 305
end
object DataSource2: TDataSource
DataSet = Order_GX
Left = 852
Top = 248
end
object Order_GX: TClientDataSet
Aggregates = <>
Params = <>
Left = 888
Top = 244
end
object DataSource3: TDataSource
DataSet = CDS_AP
Left = 904
Top = 420
end
object CDS_AP: TClientDataSet
Aggregates = <>
Params = <>
Left = 937
Top = 420
end
object CDS_Print: TClientDataSet
Aggregates = <>
FieldDefs = <>
IndexDefs = <>
Params = <>
StoreDefs = True
Left = 384
Top = 408
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 368
end
object RM1: 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 = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 376
Top = 320
ReportData = {}
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 616
Top = 368
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_Print
Left = 408
Top = 360
end
end