📄 mc_jhxxllck.dfm
字号:
object JHXXLLCK: TJHXXLLCK
Left = 0
Top = 126
Hint = '进货信息浏览'
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = '进货信息浏览：'
ClientHeight = 422
ClientWidth = 792
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Icon.Data = {
0000010001002020000000000000A80800001600000028000000200000004000
0000010008000000000080040000000000000000000000010000000000000000
0000000080000080000000808000800000008000800080800000C0C0C000C0DC
C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
990033CC990000CC9900FF999900CC9999009999990066999900339999000099
9900FF669900CC66990099669900666699003366990000669900FF339900CC33
990099339900663399003333990000339900FF009900CC009900990099006600
99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
660099996600669966003399660000996600FF666600CC666600996666006666
66003366660000666600FF336600CC3366009933660066336600333366000033
6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
330033CC330000CC3300FF993300CC9933009999330066993300339933000099
3300FF663300CC66330099663300666633003366330000663300FF333300CC33
330099333300663333003333330000333300FF003300CC003300990033006600
33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
00003399000000990000FF660000CC6600009966000066660000006600003366
0000FF330000CC33000099330000663300003333000000330000CC0000009900
000066000000330000000000DD000000BB000000AA0000008800000077000000
5500000044000000220000DD000000BB000000AA000000880000007700000055
00000044000000220000DDDDDD00555555007777770077777700444444002222
22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
000000000000000000000000EDEDEDED000000EDEDED00000000000000000000
00000000000000000000EDEDFFFF00004040DD00EDEDED000000000000000000
0000000000000000EDEDFFFF000040404040DD7200EDEDED0000000000000000
000000000000000000000000404040404040DDDD7200EDEDED00000000000000
000000000000EDEDEDED0000000040404040DDDD72DD00EDEDED000000000000
00000000000000EDEDED0040404000004040DDDD72DDDD00EDEDED0000000000
000000000000FF00EDED0040404040400000DDDD72DDDD7200EDEDED00000000
0000000000FF0AFF00ED00404040404040400000DDDDDD7200ED000000000000
0000000000FF0AFFFF000040404040404040DDDD0000DD720000000000000000
00000000FFFF0A0A0AFF004040404040FFFF16DD72DD00DD0000000000000000
000000000B0B0A0A0A0A00404040FFFF16161616DD72DD000000000000000000
000000FF0B0B0A0A0A0A0040FFFF16161616161616DD72DD0000000000000000
000000FF0B0B0A0A0A0A0A0016161616161616161616DD720000000000000000
0000FF0C0B0B0A89890A0A0A0016161616161616161616DD0000000000000000
0000FF0C0B0B0A89890A0A0A0A00161616161616161616160000000000000000
00FFFF0C0B0B898989890A0A0A0A001616161616161600000000000000000000
00FBFB0C0B0B895E5E3333330A000000161616160000B2000000000000000000
FFFBFB0C8989898989330A0A0A005C5C00160000B2B2B2000000000000000000
FFFBFB0C8989898989330A0A005C5C5C5C005C5CB2B2B20000000000000000FF
FBFBFB0C89895E3333330A0A005C5C5C5C5C5C5CB2B2B2000000000000000000
FFFBFB0C0B0B8933330A0A00005C5C5C5C5C5C5CB2B2B2000000000000000000
00FBFB0C0B0B8933330A0A00005C5C5C5C5CFFFFB2B2B2000000000000000000
0000FF0B0B0B0A33330A0000005C5C5CFFFF31313131B2000000000000000000
000000FF0B0B0A0A0A0A0000005CFFFFB2B2B2B2B2B231000000000000000000
000000000B0B0A0A0A00000000FF31EC00000000B20000000000000000000000
0000000000FF0A0A0A00000000003100ECECEFEC000000000000000000000000
000000000000FF0A000000000000F1EFF7F7F7ECEF0000000000000000000000
000000000000000A000000000000F0F7EBEB075DEF0000000000000000000000
0000000000000000000000000000F1EBFFFFEBF7EC0000000000000000000000
0000000000000000000000000000F0EBFFFFEBF7EF0000000000000000000000
000000000000000000000000000000F0EB075DEFF10000000000000000000000
00000000000000000000000000000000F1F100EF00000000000000000000FFFC
00FFFFF0007FFFC0003FFC00001FF300000FEF000007DE000003DC00000FDC00
001FD800001FD800001FD000001FE000000FE000000FE0000017C0000037C000
003B8000003B8000003B0000003B8000003BC0000037E0040037F004000FF80C
003FFC0E01FFFE1F00FFFF1F00FFFFBF00FFFFFF00FFFFFF81FFFFFFC3FF}
OldCreateOrder = False
ShowHint = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 12
object Label2: TLabel
Left = 321
Top = 17
Width = 127
Height = 19
Caption = '进货信息浏览'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 320
Top = 16
Width = 127
Height = 19
Caption = '进货信息浏览'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object GroupBox1: TGroupBox
Left = 4
Top = 41
Width = 783
Height = 45
Caption = '基础信息：'
TabOrder = 0
object Label3: TLabel
Left = 26
Top = 22
Width = 60
Height = 12
Caption = '单据编号：'
end
object Label5: TLabel
Left = 264
Top = 22
Width = 60
Height = 12
Caption = '单据类型：'
end
object Label6: TLabel
Left = 328
Top = 22
Width = 36
Height = 12
Caption = '进货单'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 504
Top = 22
Width = 48
Height = 12
Caption = '经手人：'
end
object DBText2: TDBText
Left = 88
Top = 21
Width = 65
Height = 17
DataField = '单据编号'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText3: TDBText
Left = 552
Top = 22
Width = 65
Height = 17
DataField = '经受人'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
end
object DBGrid1: TDBGrid
Left = 4
Top = 95
Width = 781
Height = 268
DataSource = DataSource1
Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = '商品编号'
Visible = True
end
item
Expanded = False
FieldName = '商品名称'
Visible = True
end
item
Expanded = False
FieldName = '单位'
Width = 38
Visible = True
end
item
Expanded = False
FieldName = '数量'
Visible = True
end
item
Expanded = False
FieldName = '单价'
Visible = True
end
item
Expanded = False
FieldName = '合计金额'
Visible = True
end
item
Expanded = False
FieldName = '进货说明'
Visible = True
end
item
Expanded = False
FieldName = '仓库名称'
Width = 80
Visible = True
end
item
Expanded = False
FieldName = '仓库编号'
Width = 57
Visible = True
end>
end
object Panel1: TPanel
Left = 4
Top = 373
Width = 782
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label9: TLabel
Left = 15
Top = 14
Width = 60
Height = 12
Caption = '进货日期：'
end
object Label11: TLabel
Left = 264
Top = 14
Width = 60
Height = 12
Caption = '总计金额：'
end
object Label12: TLabel
Left = 328
Top = 14
Width = 6
Height = 12
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBText1: TDBText
Left = 80
Top = 14
Width = 65
Height = 17
DataField = '进货日期'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object BitBtn1: TBitBtn
Left = 616
Top = 8
Width = 156
Height = 25
Hint = '退出进货浏览窗口'
Caption = '退出进货浏览窗口'
TabOrder = 0
OnClick = BitBtn1Click
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'
SQL.Strings = (
'select * From 进货信息历史表')
Left = 448
Top = 200
object Query1BDEDesigner: TIntegerField
Alignment = taLeftJustify
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
Alignment = taLeftJustify
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
Alignment = taLeftJustify
FieldName = '数量'
Origin = 'CYGLDATE.进货信息历史表.数量'
end
object Query1BDEDesigner8: TFloatField
Alignment = taLeftJustify
FieldName = '单价'
Origin = 'CYGLDATE.进货信息历史表.单价'
end
object Query1BDEDesigner9: TFloatField
Alignment = taLeftJustify
FieldName = '合计金额'
Origin = 'CYGLDATE.进货信息历史表.合计金额'
end
object Query1BDEDesigner10: TStringField
FieldName = '进货说明'
Origin = 'CYGLDATE.进货信息历史表.进货说明'
FixedChar = True
Size = 30
end
object Query1BDEDesigner11: TStringField
FieldName = '仓库名称'
Origin = 'CYGLDATE.进货信息历史表.仓库名称'
FixedChar = True
end
object Query1BDEDesigner12: TIntegerField
Alignment = taLeftJustify
FieldName = '仓库编号'
Origin = 'CYGLDATE.进货信息历史表.仓库编号'
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 416
Top = 200
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -