?? mem_add.dfm
字號:
object Form2: TForm2
Left = 380
Top = 118
BorderStyle = bsDialog
Caption = '新增會員'
ClientHeight = 418
ClientWidth = 576
Color = clActiveCaption
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {
0000010002002020100000000000E80200002600000010101000000000002801
00000E0300002800000020000000400000000100040000000000800200000000
0000000000000000000000000000000000000000800000800000008080008000
00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
0000FF00FF00FFFF0000FFFFFF00000008000800000000000000000000000000
007F70000800000000000000000000000007F7F7F00008000000000000000000
00E07F7F7F7F7000080000000000000000CE0000F7F7F7F7F000000000000000
80ECFEE800007F7F7F7F0E00000000000ECEFEEEEEE80000F7F7F00000000000
0CECFEEEEEEEEEE800007F00000000000ECEFEEEEEEEEEEEEEE8000000000000
0CECFEEEEEEEEEEEEEEEEEE0000000000ECFEEEEEEEEEEEEEEEEEEE000000000
0CEFEEEEEEEEEEEEEEEEEEE0000000080ECFEEEEEEEEEEEEEEEEEEE000000000
ECEFEEEEEEEEEEEEEEEEEEE000000000CECFEEEEEEEEEEEEEEEEEE0800000000
ECEFEEEEEEEEEEEEEEEEEE0000000000CEFEEEEEEEEEEEEEEEEEEE0000000000
ECFEEEEEEEEEEEEEEEEEEE0000000000CEFEEE4444EEEEEEEEEEEE0000000000
ECFEEE44444444EEEEEEEE0000000080CEFEEE444444444444EEE0800000000C
ECFEEE444444444444EEE0000000000ECEFEEE444444444444EEE0000000000C
EFEEEEEEEE44444444EEE0990000000ECFEEEEEEEEEEEE4444EEE09900000000
EFEEEEEEEEEEEEEEEEEEE090800000000FFFFEEEEEEEEEEEEEEE089000000000
00000FFFFEEEEEEEEEEE099000000000000080000FFFFEEEEEEE000000000000
0000000080000FFFFEEE00000000000000000000000080000FFF000000000000
0000000000000000800000000000F83FFFFFF803FFFFF8003FFFF80003FFF800
001FF000001FF000001FF000001FF000000FF000000FF000000FF000000FE000
000FE000000FE000000FE000001FE000001FE000001FE000001FE000001FC000
001FC000003FC0000007C0000007C0000007E0000007F000000FF800000FFF00
000FFFF0007FFFFF007FFFFFF07F280000001000000020000000010004000000
0000C00000000000000000000000000000000000000000000000000080000080
000000808000800000008000800080800000C0C0C000808080000000FF0000FF
000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000008000000000000
F7F000080000000E0007F7F00000080CFEE00007F080000EFEEEEEE0000000EC
FEEEEEEEEE0080CEFEEEEEEEEE0000EFEEEEEEEEE0800ECFEEEEEEEEE0000CEF
E44CEEEEE0000EFEE444444E08000CFEE444444E000080FFEEEEC44E09000800
FFFFEEE0908000080000FFF000000000000800000000C0FF0000C00F0000C003
0000800100008001000080010000000100000001000000030000000300000003
0000000100000001000080010000E0030000FE0F0000}
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 304
Top = 16
Width = 95
Height = 19
Caption = '會員編號:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 304
Top = 40
Width = 100
Height = 19
Caption = '會員姓名: '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 288
Top = 64
Width = 114
Height = 19
Caption = '身份證號碼:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Photo: TImage
Left = 336
Top = 104
Width = 209
Height = 257
Center = True
Stretch = True
end
object Label4: TLabel
Left = 16
Top = 144
Width = 57
Height = 19
Caption = '住址:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 176
Width = 57
Height = 19
Caption = '電話:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 200
Width = 57
Height = 19
Caption = '分機:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 0
Top = 224
Width = 95
Height = 19
Caption = '移動電話:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 0
Top = 248
Width = 95
Height = 19
Caption = '有效期限:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 8
Top = 264
Width = 60
Height = 14
Caption = '(xx-xx-xx)'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 16
Top = 288
Width = 57
Height = 19
Caption = '備注:'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 16
Top = 8
Width = 265
Height = 121
Caption = '會員類型'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 0
object Senior_button: TRadioButton
Left = 48
Top = 32
Width = 97
Height = 17
Caption = '高級會員'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object Mid_button: TRadioButton
Left = 48
Top = 56
Width = 105
Height = 17
Caption = '中級會員'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object Junior_button: TRadioButton
Left = 48
Top = 80
Width = 105
Height = 17
Caption = '低級會員'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 2
end
end
object Mem_num: TEdit
Left = 392
Top = 16
Width = 161
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 1
OnKeyPress = Mem_numKeyPress
end
object Mem_name: TEdit
Left = 392
Top = 40
Width = 161
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object ID_num: TEdit
Left = 392
Top = 64
Width = 161
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object Addr: TEdit
Left = 80
Top = 144
Width = 217
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object Phone: TEdit
Left = 80
Top = 168
Width = 217
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object Phone_Ext: TEdit
Left = 80
Top = 192
Width = 217
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 6
end
object Phone_Cell: TEdit
Left = 80
Top = 216
Width = 217
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object Time_Limit_ST: TEdit
Left = 80
Top = 240
Width = 217
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object Panel1: TPanel
Left = 0
Top = 377
Width = 576
Height = 41
Align = alBottom
Caption = ' '
Color = clActiveCaption
TabOrder = 9
object Insert_Button: TButton
Left = 40
Top = 8
Width = 97
Height = 25
Caption = '插入紀錄'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = Insert_ButtonClick
end
object Album_Insert_Button: TButton
Left = 232
Top = 8
Width = 97
Height = 25
Caption = '插入相片 '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Album_Insert_ButtonClick
end
object Exit_Button: TButton
Left = 424
Top = 8
Width = 97
Height = 25
Caption = '退出'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Exit_ButtonClick
end
end
object Memo1: TMemo
Left = 80
Top = 264
Width = 217
Height = 97
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '華文新魏'
Font.Style = []
Lines.Strings = (
'')
ParentFont = False
TabOrder = 10
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 216
Top = 120
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -