📄 dfm_saldate.dfm
字号:
object dfmdatesal: Tdfmdatesal
Left = 192
Top = 105
Width = 525
Height = 413
Caption = #26085#32467
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object StatusBar1: TStatusBar
Left = 0
Top = 367
Width = 517
Height = 19
Panels = <>
SimplePanel = False
end
object Panel1: TPanel
Left = 0
Top = 315
Width = 517
Height = 27
Align = alBottom
TabOrder = 1
object Label1: TLabel
Left = 14
Top = 9
Width = 36
Height = 12
Caption = #27880#24847#65306
end
object Label5: TLabel
Left = 70
Top = 9
Width = 228
Height = 12
Caption = #22312#26085#32467#31639#21518#27492#26159#30340#25968#25454#23558#19981#33021#20877#36827#34892#20462#25913#65281
end
end
object Panel2: TPanel
Left = 0
Top = 342
Width = 517
Height = 25
Align = alBottom
BevelInner = bvLowered
TabOrder = 2
object Label2: TLabel
Left = 186
Top = 7
Width = 24
Height = 12
Caption = #26085#26399
end
object Label11: TLabel
Left = 13
Top = 7
Width = 36
Height = 12
Caption = #37096#38376#21495
end
object postbtn: TBitBtn
Left = 437
Top = 0
Width = 75
Height = 25
Caption = #30830#23450
ModalResult = 1
TabOrder = 0
OnClick = postbtnClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object DateTimePicker1: TDateTimePicker
Left = 217
Top = 3
Width = 114
Height = 20
CalAlignment = dtaLeft
Date = 37483.4630144097
Time = 37483.4630144097
DateFormat = dfShort
DateMode = dmComboBox
Kind = dtkDate
ParseInput = False
TabOrder = 1
end
object BitBtn1: TBitBtn
Left = 362
Top = 0
Width = 75
Height = 25
Caption = #26174#31034
TabOrder = 2
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
3333333373FF7333333333333000333333333333377733333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 53
Top = 3
Width = 108
Height = 20
ItemHeight = 12
TabOrder = 3
end
end
object panel6: TPanel
Left = 0
Top = 0
Width = 517
Height = 315
Align = alClient
TabOrder = 3
object Panel4: TPanel
Left = 1
Top = 1
Width = 515
Height = 29
Align = alTop
Color = clSilver
TabOrder = 0
object Label3: TLabel
Left = 9
Top = 8
Width = 48
Height = 12
Caption = #20170#26085#38144#21806
end
object Bevel1: TBevel
Left = 6
Top = 4
Width = 53
Height = 19
end
end
object DBGridEh1: TDBGridEh
Left = 1
Top = 30
Width = 515
Height = 131
Align = alTop
DataSource = DataSource1
FooterColor = clYellow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
SumList.Active = True
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnTitleClick = DBGridEh1TitleClick
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = #65509
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
CurrencyStyle.HeadFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'bmh'
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37096#38376#21495
Width = 62
end
item
EditButtons = <>
FieldName = 'clabel'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21697#29260
Width = 74
end
item
EditButtons = <>
FieldName = 'flh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #27454#21495
Width = 71
end
item
EditButtons = <>
FieldName = 'esl'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25968#37327
Width = 63
end
item
EditButtons = <>
FieldName = 'esjje'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37329#39069
Width = 96
end
item
EditButtons = <>
FieldName = 'ezke'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #25240#25187
Width = 95
end>
end
object Panel3: TPanel
Left = 1
Top = 161
Width = 515
Height = 28
Align = alTop
Color = clSilver
TabOrder = 2
object Label4: TLabel
Left = 9
Top = 8
Width = 48
Height = 12
Caption = #20170#26085#24211#23384
end
object Bevel2: TBevel
Left = 7
Top = 4
Width = 53
Height = 19
end
end
object DBGridEh2: TDBGridEh
Left = 1
Top = 189
Width = 515
Height = 125
Align = alClient
AllowedOperations = []
DataSource = DataSource2
FooterColor = clYellow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FooterRowCount = 1
SumList.Active = True
TabOrder = 3
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = []
OnTitleClick = DBGridEh2TitleClick
CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
CurrencyStyle.CurrencyFont.Color = clWindowText
CurrencyStyle.CurrencyFont.Height = -11
CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
CurrencyStyle.CurrencyFont.Style = []
CurrencyStyle.CurrencySymbol = #65509
CurrencyStyle.CompartColor = clSilver
CurrencyStyle.KilobitColor = clGreen
CurrencyStyle.RadixColor = clRed
CurrencyStyle.ShowMinus = True
CurrencyStyle.ShowZero = False
CurrencyStyle.MinusColor = clRed
CurrencyStyle.Layout = tlCenter
CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
CurrencyStyle.HeadFont.Color = clWindowText
CurrencyStyle.HeadFont.Height = -11
CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
CurrencyStyle.HeadFont.Style = []
Columns = <
item
EditButtons = <>
FieldName = 'bmh'
Footer.Value = #21512#35745#65306
Footer.ValueType = fvtStaticText
Footers = <>
Title.Alignment = taCenter
Title.Caption = #37096#38376#21495
Width = 68
end
item
EditButtons = <>
FieldName = 'clabel'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #21697#29260
Width = 71
end
item
EditButtons = <>
FieldName = 'flh'
Footers = <>
Title.Alignment = taCenter
Title.Caption = #20998#31867#21495
Width = 79
end
item
EditButtons = <>
FieldName = 'sdqsl'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #24211#23384#25968#37327
Width = 86
end
item
EditButtons = <>
FieldName = 'sisl'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #20837#24211#25968#37327
Width = 86
end
item
EditButtons = <>
FieldName = 'sosl'
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = #20986#24211#25968#37327
Width = 86
end>
end
end
object dstbranch: TDataSource
DataSet = tbltbranch
Left = 32
Top = 72
end
object tbltbranch: TADOTable
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
OnPostError = tbltbranchPostError
TableName = 't_branch'
Left = 64
Top = 72
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 184
Top = 72
end
object DataSource2: TDataSource
DataSet = ADOQuery2
Left = 184
Top = 240
end
object ADOQuery1: TADOQuery
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT t_saledet.bmh, t_saledet.clabel, t_ware.flh,sum(t_saledet' +
'.sl) as esl, sum(t_saledet.sjje) as esjje,sum(t_saledet.zke) as ' +
'ezke FROM t_saledet,t_ware'
'WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t_ware.s' +
'pbh'
'group by t_saledet.bmh, t_ware.flh, t_saledet.clabel')
Left = 216
Top = 72
object ADOQuery1bmh: TWideStringField
FieldName = 'bmh'
Size = 6
end
object ADOQuery1clabel: TWideStringField
FieldName = 'clabel'
Size = 16
end
object ADOQuery1flh: TWideStringField
FieldName = 'flh'
Size = 8
end
object ADOQuery1esl: TFloatField
FieldName = 'esl'
end
object ADOQuery1esjje: TBCDField
FieldName = 'esjje'
currency = True
Precision = 19
end
object ADOQuery1ezke: TBCDField
FieldName = 'ezke'
currency = True
Precision = 19
end
end
object ADOQuery2: TADOQuery
Connection = dmRainbowMIS.adopos
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT t_store.bmh, t_store.clabel, Sum(t_store.dqsl) AS sdqsl, ' +
'Sum(t_stoin.sl) AS sisl, Sum(t_stoout.sl) AS sosl, t_ware.flh'
'FROM ((t_store LEFT JOIN t_stoin ON (t_store.bmh = t_stoin.cince' +
'ptbra) AND (t_store.spbh = t_stoin.spbh) AND (t_store.clabel = t' +
'_stoin.clabel)) LEFT JOIN t_stoout ON (t_store.clabel = t_stoout' +
'.clabel) AND (t_store.spbh = t_stoout.spbh) AND (t_store.bmh = t' +
'_stoout.csendbra)) LEFT JOIN t_ware ON (t_store.clabel = t_ware.' +
'clabel) AND (t_store.spbh = t_ware.spbh)'
'GROUP BY t_store.bmh, t_store.clabel, t_ware.flh;')
Left = 216
Top = 240
end
object ADOQuery3: TADOQuery
Connection = dmRainbowMIS.adopos
Parameters = <>
Left = 296
Top = 72
end
object ADOQuery4: TADOQuery
Connection = dmRainbowMIS.adopos
Parameters = <>
Left = 352
Top = 72
end
object atblsaday: TADOTable
Connection = dmRainbowMIS.adopos
TableName = 't_slday'
Left = 312
Top = 240
end
object atbldefault: TADOTable
Connection = dmRainbowMIS.adopos
TableName = 't_default'
Left = 96
Top = 240
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -