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