D7YPbaoying/样品仓库/U_BJGCl.dfm
DESKTOP-E401PHE\Administrator e505f1d7a5 ~
2025-04-30 16:02:03 +08:00

699 lines
18 KiB
Plaintext

object frmBJGCl: TfrmBJGCl
Left = 109
Top = 115
Width = 1194
Height = 620
Caption = #21152#24037#32467#31639#21333
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
Width = 1178
AutoSize = True
ButtonHeight = 30
ButtonWidth = 89
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Images = LbQryPrint_DataLink.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object Tqry: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26597#35810
ImageIndex = 2
OnClick = TqryClick
end
object Tprint: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 12
Visible = False
OnClick = TprintClick
end
object Txls: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
ImageIndex = 75
OnClick = TxlsClick
end
object tclose: TToolButton
Left = 219
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = tcloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1178
Height = 45
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 32
Top = 16
Width = 52
Height = 12
Caption = #26816#39564#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 592
Top = 64
Width = 52
Height = 12
Caption = #21592#24037#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 772
Top = 64
Width = 52
Height = 12
Caption = #21592#24037#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 672
Top = 156
Width = 48
Height = 12
Caption = #26816#39564#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 236
Top = 16
Width = 6
Height = 12
Caption = '-'
end
object Label4: TLabel
Left = 480
Top = 16
Width = 26
Height = 12
Caption = #36710#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object begdate: TDateTimePicker
Left = 84
Top = 12
Width = 90
Height = 20
Date = 40422.816672789360000000
Format = 'yyyy-MM-dd'
Time = 40422.816672789360000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object enddate: TDateTimePicker
Left = 252
Top = 12
Width = 95
Height = 20
Date = 40422.816949467590000000
Format = 'yyyy-MM-dd'
Time = 40422.816949467590000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object userID: TEdit
Tag = 2
Left = 644
Top = 60
Width = 100
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnChange = userIDChange
end
object userName: TEdit
Tag = 2
Left = 828
Top = 60
Width = 100
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnChange = userIDChange
end
object ComboBox1: TComboBox
Left = 752
Top = 152
Width = 113
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ParentFont = False
TabOrder = 4
end
object begTime: TDateTimePicker
Left = 172
Top = 12
Width = 55
Height = 20
Date = 41583.333333333340000000
Format = 'HH:mm'
Time = 41583.333333333340000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Kind = dtkTime
ParentFont = False
TabOrder = 5
end
object endTime: TDateTimePicker
Left = 344
Top = 12
Width = 55
Height = 20
Date = 41583.333333333340000000
Format = 'HH:mm'
Time = 41583.333333333340000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Kind = dtkTime
ParentFont = False
TabOrder = 6
end
object dept: TComboBox
Left = 512
Top = 12
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 7
OnChange = userIDChange
Items.Strings = (
''
#19968#36710#38388
#20108#36710#38388)
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 77
Width = 1178
Height = 448
Align = alTop
TabOrder = 2
object TV1: TcxGridDBBandedTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = V1Column2
end
item
Kind = skSum
Column = V1Column3
end
item
Kind = skSum
Column = V1Column4
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = V1Column9
end
item
Kind = skSum
Column = V1Column10
end
item
Kind = skSum
Column = V1Column11
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = V1Column17
end
item
Kind = skSum
Column = V1Column18
end
item
Kind = skSum
Column = V1Column19
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
item
Kind = skSum
Column = V1Column33
end
item
Kind = skSum
Column = V1Column34
end
item
Kind = skSum
Column = V1Column35
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnMoving = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Footer = LbQryPrint_DataLink.cxStyle_gridFoot
Styles.GroupByBox = LbQryPrint_DataLink.cxStyle_gridGroupBox
Styles.Header = LbQryPrint_DataLink.cxStyle_gridHead
Styles.BandHeader = LbQryPrint_DataLink.cxStyle_gridHead
Bands = <
item
Width = 213
end
item
Caption = #30002
Width = 240
end
item
Caption = #20057
Width = 240
end
item
Caption = #19993
Width = 240
end
item
Caption = #24635#21512#35745
Width = 260
end>
object V1FillTime: TcxGridDBBandedColumn
Caption = #36710#38388
DataBinding.FieldName = 'dept'
HeaderAlignmentHorz = taCenter
Width = 70
Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1MachType: TcxGridDBBandedColumn
Caption = #31867#21035
DataBinding.FieldName = 'MachType'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 59
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column5: TcxGridDBBandedColumn
Caption = #21306#22495
DataBinding.FieldName = 'machFlag'
HeaderAlignmentHorz = taCenter
Width = 84
Position.BandIndex = 0
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column2: TcxGridDBBandedColumn
Caption = 'A'
DataBinding.FieldName = 'X_A_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 40
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 1
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column3: TcxGridDBBandedColumn
Caption = 'B'
DataBinding.FieldName = 'X_B_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 37
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 1
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column4: TcxGridDBBandedColumn
Caption = 'A+B'
DataBinding.FieldName = 'X_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 42
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 1
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column1: TcxGridDBBandedColumn
Caption = 'A'#32423#29575
DataBinding.FieldName = 'X_A_Qty_rate'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 41
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 1
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1Column9: TcxGridDBBandedColumn
Caption = 'A'
DataBinding.FieldName = 'Y_A_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 2
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column10: TcxGridDBBandedColumn
Caption = 'B'
DataBinding.FieldName = 'Y_B_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 2
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column11: TcxGridDBBandedColumn
Caption = 'A+B'
DataBinding.FieldName = 'Y_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 2
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column12: TcxGridDBBandedColumn
Caption = 'A'#32423#29575
DataBinding.FieldName = 'Y_A_Qty_rate'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 2
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1Column17: TcxGridDBBandedColumn
Caption = 'A'
DataBinding.FieldName = 'Z_A_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 40
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 3
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column18: TcxGridDBBandedColumn
Caption = 'B'
DataBinding.FieldName = 'Z_B_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 26
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 3
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column19: TcxGridDBBandedColumn
Caption = 'A+B'
DataBinding.FieldName = 'Z_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 54
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 3
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column20: TcxGridDBBandedColumn
Caption = 'A'#32423#29575
DataBinding.FieldName = 'Z_A_Qty_rate'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
Width = 40
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 3
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1Column33: TcxGridDBBandedColumn
Caption = 'A'
DataBinding.FieldName = 'A_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 4
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column34: TcxGridDBBandedColumn
Caption = 'B'
DataBinding.FieldName = 'B_Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 4
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column35: TcxGridDBBandedColumn
Caption = 'A+B'
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 4
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column36: TcxGridDBBandedColumn
Caption = 'A'#32423#29575
DataBinding.FieldName = 'A_Qty_rate'
HeaderAlignmentHorz = taCenter
Options.CellMerging = True
OnCompareRowValuesForCellMerging = V1Column2CompareRowValuesForCellMerging
Position.BandIndex = 4
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1MachOrder: TcxGridDBBandedColumn
DataBinding.FieldName = 'MachOrder'
Visible = False
Hidden = True
Options.CellMerging = True
Position.BandIndex = 0
Position.ColIndex = 3
Position.RowIndex = 0
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object Panetime: TPanel
Left = 318
Top = 164
Width = 185
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31561#24453'...'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object ADOQueryTmp: TADOQuery
AutoCalcFields = False
Connection = LbQryPrint_DataLink.ADOLink
CommandTimeout = 600
Parameters = <>
Left = 652
Top = 260
end
object DataSource1: TDataSource
DataSet = ADOQueryTmp
Left = 640
Top = 220
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 584
Top = 132
end
object RMDBDataSet1: TRMDBDataSet
Visible = True
DataSet = ADOQueryTmp
Left = 464
Top = 184
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 624
Top = 180
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 = 684
Top = 164
end
end