D7DJkairan/坯布码单待检(PBMDDJ.dll)/U_WXFPList.dfm

517 lines
12 KiB
Plaintext
Raw Normal View History

2025-07-19 13:52:55 +08:00
object frmWXFPList: TfrmWXFPList
Left = 119
Top = 123
Width = 1072
Height = 547
Caption = #22806#38144#21457#31080#30331#35760
2025-04-30 19:46:29 +08:00
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
2025-07-19 13:52:55 +08:00
Width = 1056
2025-04-30 19:46:29 +08:00
AutoSize = True
ButtonHeight = 30
2025-07-19 13:52:55 +08:00
ButtonWidth = 83
2025-04-30 19:46:29 +08:00
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
2025-07-19 13:52:55 +08:00
Images = DataLink_CYZZ.ThreeImgList
2025-04-30 19:46:29 +08:00
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
2025-07-19 13:52:55 +08:00
ImageIndex = 0
2025-04-30 19:46:29 +08:00
OnClick = TBRafreshClick
end
2025-07-19 13:52:55 +08:00
object ToolButton1: TToolButton
2025-04-30 19:46:29 +08:00
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
2025-07-19 13:52:55 +08:00
ImageIndex = 20
OnClick = ToolButton1Click
2025-04-30 19:46:29 +08:00
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
2025-07-19 13:52:55 +08:00
ImageIndex = 1
2025-04-30 19:46:29 +08:00
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
2025-07-19 13:52:55 +08:00
ImageIndex = 11
2025-04-30 19:46:29 +08:00
OnClick = TBEditClick
end
2025-07-19 13:52:55 +08:00
object ToolButton2: TToolButton
2025-04-30 19:46:29 +08:00
Left = 252
Top = 0
AutoSize = True
2025-07-19 13:52:55 +08:00
Caption = #26597#30475
ImageIndex = 39
OnClick = ToolButton2Click
end
object TBDel: TToolButton
Left = 315
Top = 0
AutoSize = True
2025-04-30 19:46:29 +08:00
Caption = #21024#38500
2025-07-19 13:52:55 +08:00
ImageIndex = 3
2025-04-30 19:46:29 +08:00
OnClick = TBDelClick
end
object TBExport: TToolButton
2025-07-19 13:52:55 +08:00
Left = 378
2025-04-30 19:46:29 +08:00
Top = 0
AutoSize = True
Caption = #23548#20986
2025-07-19 13:52:55 +08:00
ImageIndex = 6
2025-04-30 19:46:29 +08:00
OnClick = TBExportClick
end
2025-07-19 13:52:55 +08:00
object ToolButton3: TToolButton
Left = 441
Top = 0
AutoSize = True
Caption = #25805#20316#35828#26126
ImageIndex = 41
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 528
2025-04-30 19:46:29 +08:00
Top = 0
AutoSize = True
Caption = #25171#21360
2025-07-19 13:52:55 +08:00
ImageIndex = 4
Visible = False
2025-04-30 19:46:29 +08:00
end
object TBClose: TToolButton
2025-07-19 13:52:55 +08:00
Left = 591
2025-04-30 19:46:29 +08:00
Top = 0
AutoSize = True
Caption = #20851#38381
2025-07-19 13:52:55 +08:00
ImageIndex = 21
2025-04-30 19:46:29 +08:00
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
2025-07-19 13:52:55 +08:00
Width = 1056
Height = 47
2025-04-30 19:46:29 +08:00
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
2025-07-19 13:52:55 +08:00
object Label2: TLabel
Left = 260
Top = 18
Width = 18
2025-04-30 19:46:29 +08:00
Height = 12
2025-07-19 13:52:55 +08:00
Caption = '---'
end
object Label3: TLabel
Left = 30
Top = 18
Width = 13
Height = 12
Caption = #25353
2025-04-30 19:46:29 +08:00
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
2025-07-19 13:52:55 +08:00
object Label1: TLabel
Left = 147
Top = 18
Width = 26
2025-04-30 19:46:29 +08:00
Height = 12
2025-07-19 13:52:55 +08:00
Caption = #26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object Label5: TLabel
Left = 380
Top = 18
Width = 65
2025-04-30 19:46:29 +08:00
Height = 12
2025-07-19 13:52:55 +08:00
Caption = #22806#38144#21457#31080#21495
2025-04-30 19:46:29 +08:00
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
2025-07-19 13:52:55 +08:00
object Label4: TLabel
Left = 536
Top = 18
2025-04-30 19:46:29 +08:00
Width = 52
Height = 12
2025-07-19 13:52:55 +08:00
Caption = #36141#36135#21333#20301
2025-04-30 19:46:29 +08:00
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
2025-07-19 13:52:55 +08:00
object Label6: TLabel
Left = 680
Top = 18
Width = 52
2025-04-30 19:46:29 +08:00
Height = 12
2025-07-19 13:52:55 +08:00
Caption = #38144#36135#21333#20301
2025-04-30 19:46:29 +08:00
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
2025-07-19 13:52:55 +08:00
Left = 175
Top = 14
2025-04-30 19:46:29 +08:00
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
TabOrder = 0
end
object EndDate: TDateTimePicker
2025-07-19 13:52:55 +08:00
Left = 278
Top = 14
2025-04-30 19:46:29 +08:00
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 1
end
2025-07-19 13:52:55 +08:00
object ComboBox2: TComboBox
Left = 45
Top = 14
Width = 101
2025-04-30 19:46:29 +08:00
Height = 20
2025-07-19 13:52:55 +08:00
Style = csDropDownList
ItemHeight = 12
2025-04-30 19:46:29 +08:00
TabOrder = 2
end
2025-07-19 13:52:55 +08:00
object FPNO: TEdit
2025-04-30 19:46:29 +08:00
Tag = 2
2025-07-19 13:52:55 +08:00
Left = 446
Top = 14
Width = 75
2025-04-30 19:46:29 +08:00
Height = 20
TabOrder = 3
2025-07-19 13:52:55 +08:00
OnChange = WorkerChange
OnKeyPress = FPNOKeyPress
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object GHDanWei: TEdit
2025-04-30 19:46:29 +08:00
Tag = 2
2025-07-19 13:52:55 +08:00
Left = 589
Top = 14
Width = 75
2025-04-30 19:46:29 +08:00
Height = 20
TabOrder = 4
2025-07-19 13:52:55 +08:00
OnChange = WorkerChange
end
object XHDanWei: TEdit
Tag = 2
Left = 733
Top = 14
Width = 75
Height = 20
TabOrder = 5
OnChange = WorkerChange
2025-04-30 19:46:29 +08:00
end
end
object cxGrid1: TcxGrid
2025-07-19 13:52:55 +08:00
Left = 0
Top = 79
Width = 1056
Height = 429
Align = alClient
2025-04-30 19:46:29 +08:00
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
2025-07-19 13:52:55 +08:00
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
2025-04-30 19:46:29 +08:00
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
2025-07-19 13:52:55 +08:00
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column12
2025-04-30 19:46:29 +08:00
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
2025-07-19 13:52:55 +08:00
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_CYZZ.SkyBlue
Styles.IncSearch = DataLink_CYZZ.SkyBlue
Styles.Selection = DataLink_CYZZ.SkyBlue
Styles.Header = DataLink_CYZZ.Default
object v1Column9: TcxGridDBColumn
Caption = #22806#38144#21457#31080#21495
DataBinding.FieldName = 'FPNO'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 87
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column10: TcxGridDBColumn
Tag = 999
Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'FPDate'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Options.Editing = False
Width = 68
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column20: TcxGridDBColumn
Caption = #36141#36135#21333#20301
DataBinding.FieldName = 'GHDanWei'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Options.Editing = False
Width = 78
2025-04-30 19:46:29 +08:00
end
object v1Column5: TcxGridDBColumn
2025-07-19 13:52:55 +08:00
Caption = #38144#36135#21333#20301
DataBinding.FieldName = 'XHDanWei'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
HeaderAlignmentVert = vaCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_CYZZ.Default
Width = 78
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column18: TcxGridDBColumn
Caption = #35013#33337#21475#23736
DataBinding.FieldName = 'FromPlace'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Options.Editing = False
Width = 80
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column1: TcxGridDBColumn
Caption = #30446#30340#22320
DataBinding.FieldName = 'ToPlace'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 69
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column4: TcxGridDBColumn
Caption = #25104#20132#26041#24335
DataBinding.FieldName = 'ChengJiaoType'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Width = 67
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column6: TcxGridDBColumn
Caption = #24320#25143#34892
DataBinding.FieldName = 'BankName'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Width = 59
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column7: TcxGridDBColumn
Caption = #20449#29992#35777#21495#25968
DataBinding.FieldName = 'XYZNO'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Width = 77
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column12: TcxGridDBColumn
Caption = #37329#39069'$'
DataBinding.FieldName = 'HZMoney'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Options.Editing = False
Width = 78
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column13: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 52
2025-04-30 19:46:29 +08:00
end
2025-07-19 13:52:55 +08:00
object v1Column8: TcxGridDBColumn
Tag = 999
Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'FillTime'
2025-04-30 19:46:29 +08:00
HeaderAlignmentHorz = taCenter
2025-07-19 13:52:55 +08:00
Options.Editing = False
Width = 73
2025-04-30 19:46:29 +08:00
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
2025-07-19 13:52:55 +08:00
Connection = DataLink_CYZZ.ADOLink
2025-04-30 19:46:29 +08:00
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
2025-07-19 13:52:55 +08:00
Connection = DataLink_CYZZ.ADOLink
2025-04-30 19:46:29 +08:00
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
2025-07-19 13:52:55 +08:00
Connection = DataLink_CYZZ.ADOLink
2025-04-30 19:46:29 +08:00
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
2025-07-19 13:52:55 +08:00
Left = 815
Top = 7
2025-04-30 19:46:29 +08:00
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
2025-07-19 13:52:55 +08:00
Left = 454
Top = 193
2025-04-30 19:46:29 +08:00
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
2025-07-19 13:52:55 +08:00
DataSet = ADOQueryPrint
Left = 392
2025-04-30 19:46:29 +08:00
Top = 192
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
2025-07-19 13:52:55 +08:00
Left = 423
Top = 192
2025-04-30 19:46:29 +08:00
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
2025-07-19 13:52:55 +08:00
Left = 877
Top = 9
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 485
Top = 195
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 517
Top = 195
2025-04-30 19:46:29 +08:00
end
end