📄 mc_chxxtj.~dfm
字号:
ItemHeight = 12
TabOrder = 5
Items.Strings = (
'单据编号'
'商品编号'
'单价'
'数量'
'合计金额'
'出货日期'
'')
end
object ComboBox2: TComboBox
Left = 423
Top = 18
Width = 58
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 6
Items.Strings = (
'升序'
'降序')
end
object ComboBox3: TComboBox
Left = 545
Top = 18
Width = 88
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 7
Items.Strings = (
'单据编号'
'商品编号'
'商品名称'
'数量'
'经手人')
end
object ComboBox4: TComboBox
Left = 639
Top = 18
Width = 52
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 8
OnClick = ComboBox4Click
Items.Strings = (
'Like'
'='
'>'
'<'
'<>')
end
object Edit1: TEdit
Left = 696
Top = 18
Width = 76
Height = 20
TabOrder = 9
Text = '*'
OnKeyPress = Edit1KeyPress
end
object Panel1: TPanel
Left = 5
Top = 43
Width = 628
Height = 25
Hint =
'明日科技有限公司为您打造属于自己的软件．［欢迎多提宝贵意见］ ' +
'网址：Http://WWW.MingRiSoft.COM'
Caption =
'明日科技有限公司为您打造属于自己的软件．［欢迎多提宝贵意见］ ' +
'网址：Http://WWW.MingRiSoft.COM'
TabOrder = 10
end
end
object GroupBox3: TGroupBox
Left = 5
Top = 370
Width = 780
Height = 44
Caption = '总计进货结果：'
TabOrder = 2
object Label2: TLabel
Left = 16
Top = 21
Width = 36
Height = 12
Caption = '种类：'
end
object Label3: TLabel
Left = 54
Top = 21
Width = 18
Height = 12
Caption = '0种'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 120
Top = 21
Width = 48
Height = 12
Caption = '记录数：'
end
object Label5: TLabel
Left = 168
Top = 21
Width = 6
Height = 12
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 232
Top = 21
Width = 36
Height = 12
Caption = '数量：'
end
object Label7: TLabel
Left = 272
Top = 21
Width = 6
Height = 12
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 328
Top = 21
Width = 60
Height = 12
Caption = '总计金额：'
end
object Label9: TLabel
Left = 392
Top = 21
Width = 6
Height = 12
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = [fsUnderline]
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 512
Top = 13
Width = 99
Height = 25
Hint = '删除无用信息'
Caption = '删除[&D]'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 616
Top = 13
Width = 158
Height = 25
Hint = '退出出货信息统计'
Caption = '退出出货信息统计[&Q]'
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333FFFFF333333000033333388888833333333333F888888FFF333
000033338811111188333333338833FFF388FF33000033381119999111833333
38F338888F338FF30000339119933331111833338F388333383338F300003391
13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
000039183811193333918338F8F833F83333838F000039118111933339118338
F3833F83333833830000339111193333391833338F33F8333FF838F300003391
11833338111833338F338FFFF883F83300003339111888811183333338FF3888
83FF83330000333399111111993333333388FFFFFF8833330000333333999999
3333333333338888883333330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object Query1: TQuery
DatabaseName = 'CYGLDATE'
RequestLive = True
SQL.Strings = (
'select * from 出货信息历史表')
Left = 453
Top = 195
object Query1BDEDesigner: TIntegerField
FieldName = '单据编号'
Origin = 'CYGLDATE.出货信息历史表.单据编号'
end
object Query1BDEDesigner2: TStringField
FieldName = '经受人'
Origin = 'CYGLDATE.出货信息历史表.经受人'
FixedChar = True
Size = 12
end
object Query1BDEDesigner3: TDateTimeField
FieldName = '出货日期'
Origin = 'CYGLDATE.出货信息历史表.出货日期'
end
object Query1BDEDesigner4: TIntegerField
FieldName = '商品编号'
Origin = 'CYGLDATE.出货信息历史表.商品编号'
end
object Query1BDEDesigner5: TStringField
FieldName = '商品名称'
Origin = 'CYGLDATE.出货信息历史表.商品名称'
FixedChar = True
end
object Query1BDEDesigner6: TStringField
FieldName = '单位'
Origin = 'CYGLDATE.出货信息历史表.单位'
FixedChar = True
Size = 10
end
object Query1BDEDesigner7: TIntegerField
FieldName = '数量'
Origin = 'CYGLDATE.出货信息历史表.数量'
end
object Query1BDEDesigner8: TFloatField
FieldName = '单价'
Origin = 'CYGLDATE.出货信息历史表.单价'
end
object Query1BDEDesigner9: TFloatField
FieldName = '合计金额'
Origin = 'CYGLDATE.出货信息历史表.合计金额'
end
object Query1BDEDesigner10: TStringField
FieldName = '出货说明'
Origin = 'CYGLDATE.出货信息历史表.出货说明'
FixedChar = True
Size = 30
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 493
Top = 195
end
object Query2: TQuery
DatabaseName = 'CYGLDATE'
SQL.Strings = (
'select Count(DisTinCt 商品编号),Sum(数量),Sum(合计金额) from 出' +
'货信息历史表')
Left = 469
Top = 381
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -