📄 hyklrunit.dfm
字号:
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Panel1Click
end
object Memo1: TMemo
Left = 2
Top = 15
Width = 293
Height = 174
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImeName = '智能陈桥输入平台 5.4'
Lines.Strings = (
'Memo1')
ParentFont = False
TabOrder = 1
end
end
object fkrq: TDateTimePicker
Left = 428
Top = 72
Width = 165
Height = 20
CalAlignment = dtaLeft
Date = 37221.9948398148
Time = 37221.9948398148
DateFormat = dfShort
DateMode = dmComboBox
ImeName = '智能陈桥输入平台 5.4'
Kind = dtkDate
ParseInput = False
TabOrder = 18
end
object yxrq: TDateTimePicker
Left = 427
Top = 109
Width = 165
Height = 20
CalAlignment = dtaLeft
Date = 37221.9948398148
Time = 37221.9948398148
DateFormat = dfShort
DateMode = dmComboBox
ImeName = '智能陈桥输入平台 5.4'
Kind = dtkDate
ParseInput = False
TabOrder = 19
end
object ckr: TEdit
Left = 128
Top = 104
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 20
Text = 'mm'
OnExit = khExit
OnKeyPress = khKeyPress
end
object klb: TComboBox
Left = 429
Top = 40
Width = 163
Height = 20
ImeName = '智能陈桥输入平台 5.4'
ItemHeight = 12
TabOrder = 21
Text = 'klb'
OnChange = khExit
end
object BitBtn6: TBitBtn
Left = 626
Top = 115
Width = 77
Height = 28
Caption = '发卡'
Enabled = False
TabOrder = 22
OnClick = BitBtn6Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object TabSheet2: TTabSheet
Caption = '会员卡信息浏览'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImageIndex = 1
ParentFont = False
object Panel2: TPanel
Left = 0
Top = 0
Width = 746
Height = 63
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object Label22: TLabel
Left = 265
Top = 27
Width = 60
Height = 12
Caption = '当前卡余额'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 329
Top = 26
Width = 42
Height = 12
Caption = 'Label23'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object GroupBox2: TGroupBox
Left = 2
Top = 0
Width = 263
Height = 63
Caption = '简单查询'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label20: TLabel
Left = 8
Top = 32
Width = 59
Height = 13
Caption = '会员卡号 '
end
object Label21: TLabel
Left = 139
Top = 32
Width = 39
Height = 13
Caption = '卡类别'
end
object ajc: TEdit
Left = 63
Top = 28
Width = 68
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImeName = '全拼输入法'
ParentFont = False
TabOrder = 0
Text = 'ajc'
OnChange = ajcChange
end
object ayb: TComboBox
Left = 181
Top = 27
Width = 72
Height = 21
ImeName = '智能陈桥输入平台 5.4'
ItemHeight = 0
TabOrder = 1
Text = 'ayb'
OnChange = ajcChange
end
end
object BitBtn5: TBitBtn
Left = 532
Top = 19
Width = 72
Height = 28
Caption = '删除'
Enabled = False
TabOrder = 1
OnClick = BitBtn5Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn7: TBitBtn
Left = 676
Top = 19
Width = 71
Height = 28
Caption = '退出'
TabOrder = 2
OnClick = BitBtn7Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
00007777777777777777933393303933337073F37F37F73F3377393393303393
379037FF7F37F37FF777379793303379793037777337F3777737339933303339
93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
999037777337F377777793993330333393307377FF37F3337FF7333993303333
993033377F37F33377F7333993303333993033377337F3337737333333303333
33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
NumGlyphs = 2
end
object BitBtn4: TBitBtn
Left = 455
Top = 19
Width = 77
Height = 28
Caption = '挂失补卡'
TabOrder = 3
OnClick = BitBtn4Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn8: TBitBtn
Left = 604
Top = 19
Width = 72
Height = 28
Caption = '打印'
TabOrder = 4
OnClick = BitBtn8Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F33333333333337088888888888
88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
end
object BitBtn9: TBitBtn
Left = 378
Top = 19
Width = 77
Height = 28
Caption = '卡挂失'
TabOrder = 5
OnClick = BitBtn9Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 63
Width = 746
Height = 324
Align = alClient
DataSource = DataSource1
ImeName = '全拼输入法'
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = '宋体'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnDblClick = DBGrid1DblClick
OnKeyPress = DBGrid1KeyPress
OnMouseMove = DBGrid1MouseMove
end
object GroupBox3: TGroupBox
Left = 208
Top = 104
Width = 297
Height = 225
Caption = '备注'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
object Panel3: TPanel
Left = 2
Top = 189
Width = 293
Height = 34
Align = alBottom
Caption = 'ok'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -27
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = Panel3Click
end
object Memo2: TMemo
Left = 2
Top = 15
Width = 293
Height = 174
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImeName = '全拼输入法'
Lines.Strings = (
'Memo1')
ParentFont = False
TabOrder = 1
end
end
end
end
object Query1: TQuery
AfterOpen = Query1AfterOpen
DatabaseName = 'sanadm'
Left = 140
Top = 183
end
object DataSource1: TDataSource
DataSet = Query1
Left = 108
Top = 111
end
object Query2: TQuery
AfterOpen = Query1AfterOpen
DatabaseName = 'sanadm'
SQL.Strings = (
'update hykmx set ic卡号=:pickh,卡状态=:pzt where 卡号=:pkh')
Left = 92
Top = 143
ParamData = <
item
DataType = ftUnknown
Name = 'pickh'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'pzt'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'pkh'
ParamType = ptUnknown
end>
end
object Query3: TQuery
DatabaseName = 'sanadm'
Left = 132
Top = 143
end
object Query4: TQuery
DatabaseName = 'sanadm'
Left = 420
Top = 55
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -