📄 hyklrunit.dfm
字号:
object hyklrForm: ThyklrForm
Left = 179
Top = 138
Width = 762
Height = 448
Caption = '会员卡信息录入'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 754
Height = 414
ActivePage = TabSheet1
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = '会员卡信息录入'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
object Label2: TLabel
Left = 46
Top = 42
Width = 24
Height = 12
Caption = '卡号'
DragMode = dmAutomatic
end
object Label3: TLabel
Left = 46
Top = 74
Width = 24
Height = 12
Caption = '密码'
DragMode = dmAutomatic
end
object Label5: TLabel
Left = 46
Top = 107
Width = 36
Height = 12
Caption = '持卡人'
DragMode = dmAutomatic
end
object Label6: TLabel
Left = 338
Top = 264
Width = 24
Height = 12
Caption = '特征'
DragMode = dmAutomatic
end
object Label7: TLabel
Left = 338
Top = 116
Width = 48
Height = 12
Caption = '有效日期'
DragMode = dmAutomatic
end
object Label8: TLabel
Left = 338
Top = 153
Width = 24
Height = 12
Caption = '喜好'
DragMode = dmAutomatic
end
object Label10: TLabel
Left = 338
Top = 190
Width = 24
Height = 12
Caption = '忌讳'
DragMode = dmAutomatic
end
object Label12: TLabel
Left = 338
Top = 227
Width = 24
Height = 12
Caption = '称谓'
DragMode = dmAutomatic
end
object Label15: TLabel
Left = 46
Top = 139
Width = 36
Height = 12
Caption = '身份证'
DragMode = dmAutomatic
end
object Label18: TLabel
Left = 338
Top = 301
Width = 24
Height = 12
Caption = '消费'
DragMode = dmAutomatic
end
object Label9: TLabel
Left = 46
Top = 172
Width = 24
Height = 12
Caption = '单位'
DragMode = dmAutomatic
end
object Label17: TLabel
Left = 338
Top = 42
Width = 36
Height = 12
Caption = '卡类别'
DragMode = dmAutomatic
end
object Label11: TLabel
Left = 338
Top = 79
Width = 48
Height = 12
Caption = '发卡日期'
DragMode = dmAutomatic
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 46
Top = 204
Width = 24
Height = 12
Caption = '电话'
end
object Label4: TLabel
Left = 46
Top = 236
Width = 24
Height = 12
Caption = '储值'
end
object Label13: TLabel
Left = 46
Top = 269
Width = 48
Height = 12
Caption = '签单限额'
end
object Label14: TLabel
Left = 46
Top = 301
Width = 36
Height = 12
Caption = '卡状态'
end
object Label16: TLabel
Left = 128
Top = 344
Width = 42
Height = 12
Caption = '备 注'
end
object Label19: TLabel
Left = 360
Top = 344
Width = 72
Height = 12
Caption = '双击输入详情'
end
object BitBtn1: TBitBtn
Left = 624
Top = 64
Width = 77
Height = 28
Caption = '添加'
TabOrder = 0
OnClick = BitBtn1Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333333333333333333333333333333333FF333333333333
3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
000033333373FF77777733333330003333333333333777333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn2: TBitBtn
Left = 627
Top = 174
Width = 77
Height = 28
Caption = '取消'
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
555557777F777555F55500000000555055557777777755F75555005500055055
555577F5777F57555555005550055555555577FF577F5FF55555500550050055
5555577FF77577FF555555005050110555555577F757777FF555555505099910
555555FF75777777FF555005550999910555577F5F77777775F5500505509990
3055577F75F77777575F55005055090B030555775755777575755555555550B0
B03055555F555757575755550555550B0B335555755555757555555555555550
BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
50BB555555555555575F555555555555550B5555555555555575}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 627
Top = 234
Width = 79
Height = 28
Caption = '退出'
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
00007777777777777777933393303933337073F37F37F73F3377393393303393
379037FF7F37F37FF777379793303379793037777337F3777737339933303339
93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
999037777337F377777793993330333393307377FF37F3337FF7333993303333
993033377F37F33377F7333993303333993033377337F3337737333333303333
33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
NumGlyphs = 2
end
object kh: TEdit
Left = 128
Top = 38
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 3
Text = 'kh'
OnExit = khExit
OnKeyPress = khKeyPress
end
object mm: TEdit
Left = 128
Top = 72
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 4
Text = 'mm'
OnExit = khExit
OnKeyPress = khKeyPress
end
object sfz: TEdit
Left = 128
Top = 136
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 5
Text = 'sfz'
OnKeyPress = khKeyPress
end
object dw: TEdit
Left = 128
Top = 168
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 6
Text = 'dw'
OnKeyPress = khKeyPress
end
object dh: TEdit
Left = 128
Top = 200
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 7
Text = 'dh'
OnKeyPress = khKeyPress
end
object cze: TEdit
Left = 128
Top = 232
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
ReadOnly = True
TabOrder = 8
Text = '0'
OnKeyPress = khKeyPress
end
object qdxe: TEdit
Left = 128
Top = 264
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 9
Text = 'qdxe'
OnKeyPress = khKeyPress
end
object kzt: TEdit
Left = 128
Top = 297
Width = 184
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 10
Text = 'kzt'
OnKeyPress = khKeyPress
end
object xh: TEdit
Left = 427
Top = 149
Width = 165
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 11
Text = 'xh'
OnKeyPress = khKeyPress
end
object jw: TEdit
Left = 427
Top = 186
Width = 165
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 12
Text = 'jw'
OnKeyPress = khKeyPress
end
object cw: TEdit
Left = 427
Top = 223
Width = 165
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 13
Text = 'cw'
OnKeyPress = khKeyPress
end
object tz: TEdit
Left = 427
Top = 260
Width = 165
Height = 20
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 14
Text = 'tz'
OnKeyPress = khKeyPress
end
object xf: TEdit
Left = 427
Top = 297
Width = 165
Height = 20
Enabled = False
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 15
Text = 'xf'
OnKeyPress = khKeyPress
end
object bz: TEdit
Left = 192
Top = 340
Width = 149
Height = 20
Color = clMenu
ImeName = '智能陈桥输入平台 5.4'
TabOrder = 16
Text = 'bz'
OnDblClick = bzDblClick
OnKeyPress = khKeyPress
end
object GroupBox4: TGroupBox
Left = 240
Top = 104
Width = 297
Height = 225
Caption = '备注'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 17
object Panel1: 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 = '宋体'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -