D7snShanfengT/山峰基础资料维护/U_CP_YDang_BJ.dfm
DESKTOP-E401PHE\Administrator c363cb75a7 调整之后的山凤水泥厂
2026-02-26 09:41:35 +08:00

750 lines
21 KiB
Plaintext

object frmCP_YDang_BJ: TfrmCP_YDang_BJ
Left = 189
Top = 134
Width = 1338
Height = 679
Caption = #25253#20215#30331#35760
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 107
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 32
Width = 1322
Height = 71
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label1: TLabel
Left = 48
Top = 16
Width = 56
Height = 13
Caption = #21046#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 273
Top = 16
Width = 60
Height = 13
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 274
Top = 43
Width = 58
Height = 13
Caption = #19994' '#21153' '#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 484
Top = 16
Width = 56
Height = 13
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 484
Top = 43
Width = 56
Height = 13
Caption = #35268#26684#22411#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 684
Top = 16
Width = 56
Height = 13
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 112
Top = 12
Width = 106
Height = 21
Date = 41934.464742650460000000
Format = 'yyyy-MM-dd'
Time = 41934.464742650460000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 112
Top = 39
Width = 106
Height = 21
Date = 41934.464761099540000000
Format = 'yyyy-MM-dd'
Time = 41934.464761099540000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object CustomerNoName: TEdit
Tag = 2
Left = 339
Top = 12
Width = 108
Height = 21
TabOrder = 2
OnChange = CustomerNoNameChange
OnKeyPress = CustomerNoNameKeyPress
end
object ConPerson1: TEdit
Tag = 2
Left = 339
Top = 39
Width = 108
Height = 21
TabOrder = 3
OnChange = CustomerNoNameChange
end
object PRTCodeName: TEdit
Tag = 2
Left = 544
Top = 12
Width = 108
Height = 21
TabOrder = 4
OnChange = CustomerNoNameChange
end
object PRTSpec: TEdit
Tag = 2
Left = 544
Top = 39
Width = 108
Height = 21
TabOrder = 5
OnChange = CustomerNoNameChange
end
object PRTCode: TEdit
Tag = 2
Left = 743
Top = 12
Width = 109
Height = 21
TabOrder = 6
OnChange = CustomerNoNameChange
OnKeyPress = PRTCodeKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 125
Width = 1322
Height = 452
Align = alTop
TabOrder = 1
object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = V1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_BaseInfo.Default
object V1PRTCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'PRTCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1PRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'PRTCodeName'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1PRTSpec: TcxGridDBColumn
Caption = #35268#26684#22411#21495
DataBinding.FieldName = 'PRTSpec'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1BJtime: TcxGridDBColumn
Caption = #25253#20215#26085#26399
DataBinding.FieldName = 'BJtime'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object V1BJPrice: TcxGridDBColumn
Caption = #25253#20215#20215#26684
DataBinding.FieldName = 'BJPrice'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_BaseInfo.FoneRed
Styles.Footer = DataLink_BaseInfo.FoneRed
Styles.Header = DataLink_BaseInfo.FoneRed
Width = 70
end
object V1BJXS: TcxGridDBColumn
Caption = #25253#20215#31995#25968
DataBinding.FieldName = 'BJXS'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1QDLQty: TcxGridDBColumn
Caption = #36215#35746#37327
DataBinding.FieldName = 'QDLQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_BaseInfo.FontBlue
Styles.Footer = DataLink_BaseInfo.FontBlue
Styles.Header = DataLink_BaseInfo.FontBlue
Width = 70
end
object V1PriceUnit: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'PriceUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1PRTCF: TcxGridDBColumn
Caption = #25104#20221
DataBinding.FieldName = 'PRTCF'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V1CustomerNo: TcxGridDBColumn
Caption = #23458#25143#20195#30721
DataBinding.FieldName = 'CustomerNo'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 88
end
object V1PRTOrderQty: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'PRTOrderQty'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_BaseInfo.FontBlue
Styles.Footer = DataLink_BaseInfo.FontBlue
Styles.Header = DataLink_BaseInfo.FontBlue
Width = 80
end
object V1CBPrice: TcxGridDBColumn
Caption = #25104#26412#20215
DataBinding.FieldName = 'CBPrice'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_BaseInfo.FontBlue
Styles.Footer = DataLink_BaseInfo.FontBlue
Styles.Header = DataLink_BaseInfo.FontBlue
Width = 68
end
object V1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1PBSPEC: TcxGridDBColumn
Caption = #22383#24067#35268#26684
DataBinding.FieldName = 'PBSPEC'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V1PBMF: TcxGridDBColumn
Caption = #22383#24067#38376#24133'(cm)'
DataBinding.FieldName = 'PBMF'
HeaderAlignmentHorz = taCenter
Width = 86
end
object V1PBKZ: TcxGridDBColumn
Caption = #22383#24067#20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PBKZ'
HeaderAlignmentHorz = taCenter
Width = 96
end
object V1MFQty: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'PRTMF'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1KZQty: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 80
end
object V1ConPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'ConPerson1'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V1SOrdQty1: TcxGridDBColumn
Caption = #32553#29575
DataBinding.FieldName = 'SOrdQty1'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V1SOrdQty2: TcxGridDBColumn
Caption = #22383#24067#21333#20215
DataBinding.FieldName = 'SOrdQty2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty5: TcxGridDBColumn
Caption = #26579#33394#36153
DataBinding.FieldName = 'SOrdQty5'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty6: TcxGridDBColumn
Caption = #21360#33457#36153
DataBinding.FieldName = 'SOrdQty6'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty7: TcxGridDBColumn
Caption = #32483#33457#36153
DataBinding.FieldName = 'SOrdQty7'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty8: TcxGridDBColumn
Caption = #26893#32466#36153
DataBinding.FieldName = 'SOrdQty8'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty9: TcxGridDBColumn
Caption = #28907#37329#37329#36153
DataBinding.FieldName = 'SOrdQty9'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty10: TcxGridDBColumn
Caption = #21253#35013#36153
DataBinding.FieldName = 'SOrdQty10'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty11: TcxGridDBColumn
Caption = #20869#36816#36153
DataBinding.FieldName = 'SOrdQty11'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty12: TcxGridDBColumn
Caption = #28023#36816#36153
DataBinding.FieldName = 'SOrdQty12'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1SOrdQty13: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'SOrdQty13'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1322
AutoSize = True
ButtonHeight = 30
ButtonWidth = 87
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Images = DataLink_BaseInfo.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
object TINIT: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 2
OnClick = TINITClick
end
object Tglv: TToolButton
Left = 65
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 59
OnClick = TglvClick
end
object Tadd: TToolButton
Left = 130
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 3
OnClick = TaddClick
end
object Tupdate: TToolButton
Left = 195
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 54
OnClick = TupdateClick
end
object Tdel: TToolButton
Left = 260
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
OnClick = TdelClick
end
object TSel: TToolButton
Left = 325
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 58
OnClick = TSelClick
end
object Tchk: TToolButton
Left = 390
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 41
Visible = False
OnClick = TchkClick
end
object TNochk: TToolButton
Left = 455
Top = 0
Caption = #25764#38144#23457#26680
ImageIndex = 86
Visible = False
OnClick = TNochkClick
end
object TClose: TToolButton
Left = 542
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TCloseClick
end
object TPrint: TToolButton
Left = 607
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
Visible = False
OnClick = TPrintClick
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 103
Width = 1322
Height = 22
Align = alTop
Style = 9
TabIndex = 0
TabOrder = 3
Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1322
ClientRectTop = 20
end
object Panel4: TPanel
Left = 573
Top = 131
Width = 229
Height = 229
TabOrder = 4
Visible = False
object Label14: TLabel
Left = 52
Top = 95
Width = 7
Height = 13
end
object Panel10: TPanel
Left = 1
Top = 1
Width = 227
Height = 25
Align = alTop
Alignment = taLeftJustify
BevelOuter = bvNone
Caption = #25253#34920#21517#31216
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Image2: TImage
Left = 202
Top = 3
Width = 23
Height = 18
ParentShowHint = False
Picture.Data = {
07544269746D617076040000424D760400000000000036000000280000001500
0000110000000100180000000000400400000000000000000000000000000000
0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00FFFFFFFFFFFFF0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6
F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFF404040404040404040404040404040404040404040404040
404040404040404040404040404040404040404040404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFF808080808080808080808080808080808080808080
808080808080808080808080808080808080808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000
000000C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4000000000000
000000000000C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4000000000000C8D0D4
C8D0D4000000000000C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4000000000000C8D0D4C8D0D4
C8D0D4C8D0D4000000000000C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFC8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4
C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4C8D0D4808080404040F0CAA6FFFFFFFFFF
FF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FF00}
ShowHint = True
Transparent = True
OnClick = Image2Click
end
end
object Button1: TButton
Left = 75
Top = 182
Width = 81
Height = 27
Caption = #30830#23450
TabOrder = 1
OnClick = Button1Click
end
object RadioGroup1: TRadioGroup
Left = 41
Top = 52
Width = 149
Height = 114
ItemIndex = 0
Items.Strings = (
#26679#21697#25253#20215#21333'('#20013#25991')'
#26679#21697#25253#20215#21333'('#33521#25991')')
TabOrder = 2
end
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Parameters = <>
Left = 308
Top = 160
end
object DataSource1: TDataSource
DataSet = contract_Main
Left = 260
Top = 160
end
object contract_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 360
Top = 158
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink
Parameters = <>
Left = 404
Top = 160
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 452
Top = 160
end
object RMReport: 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 = 496
Top = 160
ReportData = {}
end
object RMDBMAIN: TRMDBDataSet
Visible = True
DataSet = order_print
Left = 540
Top = 160
end
object order_print: TClientDataSet
Aggregates = <>
Params = <>
Left = 579
Top = 160
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 623
Top = 159
end
end