📄 fmqrymonthu.dfm
字号:
inherited FMQryMonth: TFMQryMonth
Left = 253
Top = 110
Width = 692
Height = 531
Caption = 'FMQryMonth'
PixelsPerInch = 96
TextHeight = 12
inherited Panel2: TPanel
Width = 684
Height = 460
object Panel1: TPanel
Left = 0
Top = 0
Width = 684
Height = 81
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 24
Top = 24
Width = 48
Height = 12
Caption = #35760#36134#26085#26399
end
object Label2: TLabel
Left = 208
Top = 24
Width = 6
Height = 12
Caption = '~'
end
object BegDate: TDateTimePicker
Left = 80
Top = 20
Width = 120
Height = 20
CalAlignment = dtaLeft
Date = 38162.3448095602
Time = 38162.3448095602
DateFormat = dfShort
DateMode = dmComboBox
Enabled = False
Kind = dtkDate
ParseInput = False
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 224
Top = 20
Width = 120
Height = 20
CalAlignment = dtaLeft
Date = 38162.3448381366
Time = 38162.3448381366
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
end
object Notebook: TNotebook
Left = 0
Top = 81
Width = 684
Height = 315
Align = alClient
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'WelCome'
object Label3: TLabel
Left = 80
Top = 56
Width = 252
Height = 12
Caption = #31532#19968#65306#26816#26597#22312#35813#26085#26399#33539#22260#20869#30340#21333#25454#26159#21542#24050#32463#23457#26680
end
object Label4: TLabel
Left = 80
Top = 80
Width = 192
Height = 12
Caption = #31532#20108#65306#32479#35745#35813#26085#26399#33539#22260#20869#21508#19994#21153#24773#20917
end
object Label5: TLabel
Left = 80
Top = 104
Width = 108
Height = 12
Caption = #31532#19977#65306#20445#23384#32479#35745#32467#26524
end
end
object TPage
Left = 0
Top = 0
Caption = 'Bill'
object GridBill: TDBGrid
Left = 0
Top = 0
Width = 684
Height = 315
Align = alClient
DataSource = dsBill
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fAccDate'
Title.Caption = #35760#36134#26085#26399
Width = 94
Visible = True
end
item
Expanded = False
FieldName = 'fBillNo'
Title.Caption = #21333#25454#32534#21495
Width = 117
Visible = True
end
item
Expanded = False
FieldName = 'fType'
Title.Caption = #21333#25454#31867#22411
Width = 80
Visible = True
end>
end
end
object TPage
Left = 0
Top = 0
Caption = 'Total'
object PageControl: TPageControl
Left = 0
Top = 0
Width = 684
Height = 315
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = #25968#37327#24080
object GridQty: TDBGrid
Left = 0
Top = 0
Width = 676
Height = 288
Hint = #21452#20987#26174#31034#37329#39069#24080
Align = alClient
DataSource = dsTotal
ParentShowHint = False
ReadOnly = True
ShowHint = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fproductno'
Title.Caption = #20135#21697#32534#21495
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'fProductName'
Title.Caption = #20135#21697#21517#31216
Width = 110
Visible = True
end
item
Expanded = False
FieldName = 'fSaleUnit'
Title.Caption = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = 'fSpec'
Title.Caption = #35268#26684
Width = 81
Visible = True
end
item
Expanded = False
FieldName = 'fQty'
Title.Caption = #26399#21021#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fSHQty'
Title.Caption = #39564#25910#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fTHQty'
Title.Caption = #36864#36135#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fLLQty'
Title.Caption = #39046#26009#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fTLQty'
Title.Caption = #36864#26009#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fDZQty'
Title.Caption = #35843#25972#25968#37327
Visible = True
end
item
Expanded = False
FieldName = 'fEndQty'
Title.Caption = #26399#26411#25968#37327
Visible = True
end>
end
end
object TabSheet2: TTabSheet
Caption = #37329#39069#24080
ImageIndex = 1
object GridAmt: TDBGrid
Left = 0
Top = 0
Width = 676
Height = 288
Hint = #21452#20987#26174#31034#25968#37327#24080
Align = alClient
DataSource = dsTotal
ParentShowHint = False
ShowHint = False
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'fproductno'
Title.Caption = #20135#21697#32534#21495
Width = 100
Visible = True
end
item
Expanded = False
FieldName = 'fProductName'
Title.Caption = #20135#21697#21517#31216
Width = 110
Visible = True
end
item
Expanded = False
FieldName = 'fSaleUnit'
Title.Caption = #21333#20301
Visible = True
end
item
Expanded = False
FieldName = 'fSpec'
Title.Caption = #35268#26684
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'fAmt'
Title.Caption = #26399#21021#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fSHAmt'
Title.Caption = #39564#25910#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fTHAmt'
Title.Caption = #36864#36135#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fLLAmt'
Title.Caption = #39046#26009#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fTLAmt'
Title.Caption = #36864#26009#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fDZAmt'
Title.Caption = #35843#25972#37329#39069
Visible = True
end
item
Expanded = False
FieldName = 'fEndAmt'
Title.Caption = #26399#26411#37329#39069
Visible = True
end>
end
end
end
end
end
object ImfoMemo: TMemo
Left = 0
Top = 396
Width = 684
Height = 64
Align = alBottom
TabOrder = 2
end
end
inherited ToolBar: TToolBar
Width = 684
ButtonWidth = 37
inherited btnQuery: TToolButton
Caption = #26376#32467
OnClick = btnQueryClick
end
inherited btnClear: TToolButton
Left = 37
end
inherited btnPrint: TToolButton
Left = 74
end
inherited btnExcle: TToolButton
Left = 111
OnClick = btnExcleClick
end
inherited btnExit: TToolButton
Left = 148
end
inherited btnExp: TToolButton
Left = 185
Caption = #35760#36134
Enabled = False
Visible = True
OnClick = btnExpClick
end
end
inherited QrySQL: TADOQuery
Left = 544
Top = 8
end
inherited ImageList1: TImageList
Left = 600
Top = 8
end
object adoBill: TADOQuery
Connection = fmDB.AdoHouse
Parameters = <>
SQL.Strings = (
'select * from tb_Bill order by fBillno,fType')
Left = 456
Top = 168
end
object dsBill: TDataSource
DataSet = adoBill
Left = 520
Top = 168
end
object dsTotal: TDataSource
DataSet = adoTotal
Left = 528
Top = 248
end
object adoTotal: TADOQuery
Connection = fmDB.AdoHouse
Parameters = <>
SQL.Strings = (
'select a.*,b.fproductno,b.fProductName,b.fSpec,b.fSaleUnit from ' +
'tb_bizTotal a,ts_item b where a.fproductid=b.fproductid'
'order by b.fproductno')
Left = 464
Top = 248
object adoTotalfProductId: TSmallintField
FieldName = 'fProductId'
end
object adoTotalfSHQty: TFloatField
FieldName = 'fSHQty'
end
object adoTotalfTHQty: TFloatField
FieldName = 'fTHQty'
end
object adoTotalfLLQty: TFloatField
FieldName = 'fLLQty'
end
object adoTotalfTLQty: TFloatField
FieldName = 'fTLQty'
end
object adoTotalfDZQty: TFloatField
FieldName = 'fDZQty'
end
object adoTotalfSHAmt: TFloatField
FieldName = 'fSHAmt'
DisplayFormat = '0.00'
end
object adoTotalfTHAmt: TFloatField
FieldName = 'fTHAmt'
DisplayFormat = '0.00'
end
object adoTotalfLLAmt: TFloatField
FieldName = 'fLLAmt'
DisplayFormat = '0.00'
end
object adoTotalfTLAmt: TFloatField
FieldName = 'fTLAmt'
DisplayFormat = '0.00'
end
object adoTotalfDZAmt: TFloatField
FieldName = 'fDZAmt'
DisplayFormat = '0.00'
end
object adoTotalfQty: TFloatField
FieldName = 'fQty'
end
object adoTotalfAmt: TFloatField
FieldName = 'fAmt'
DisplayFormat = '0.00'
end
object adoTotalfEndQty: TFloatField
FieldName = 'fEndQty'
end
object adoTotalfEndAmt: TFloatField
FieldName = 'fEndAmt'
DisplayFormat = '0.00'
end
object adoTotalfproductno: TWideStringField
FieldName = 'fproductno'
end
object adoTotalfProductName: TWideStringField
FieldName = 'fProductName'
Size = 48
end
object adoTotalfSpec: TWideStringField
FieldName = 'fSpec'
Size = 15
end
object adoTotalfSaleUnit: TWideStringField
FieldName = 'fSaleUnit'
Size = 4
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -