mem_modify.~dfm

图书管理系统本地数据库实现

object Form3: TForm3
  Left = 337
  Top = 116
  BorderStyle = bsDialog
  Caption = '会员数据维护'
  ClientHeight = 467
  ClientWidth = 539
  Color = clBtnFace
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 539
    Height = 113
    Align = alTop
    Caption = '信息查询'
    Color = clActiveCaption
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 40
      Width = 70
      Height = 14
      Caption = '会员编号：'
      Color = clActiveCaption
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      Left = 40
      Top = 64
      Width = 70
      Height = 14
      Caption = '会员姓名：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Mem_No_Edt: TEdit
      Left = 112
      Top = 32
      Width = 201
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = ' '
    end
    object Name_Edt: TEdit
      Left = 112
      Top = 56
      Width = 201
      Height = 27
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = ' '
    end
    object Num_Search_Button: TButton
      Left = 384
      Top = 24
      Width = 105
      Height = 25
      Caption = '编号查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Num_Search_ButtonClick
    end
    object Name_Search_Button: TButton
      Left = 384
      Top = 64
      Width = 105
      Height = 25
      Caption = '姓名查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBackground
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Name_Search_ButtonClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 113
    Width = 539
    Height = 385
    Align = alTop
    Caption = '会员信息'
    Color = clActiveCaption
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Label3: TLabel
      Left = 64
      Top = 32
      Width = 42
      Height = 14
      Caption = '等级：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object leveltext: TLabel
      Left = 123
      Top = 32
      Width = 4
      Height = 14
      Caption = ' '
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 56
      Width = 84
      Height = 14
      Caption = '身份证号码：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 64
      Top = 80
      Width = 42
      Height = 14
      Caption = '住址：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 64
      Top = 128
      Width = 42
      Height = 14
      Caption = '电话：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 64
      Top = 152
      Width = 42
      Height = 14
      Caption = '分机：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 48
      Top = 224
      Width = 70
      Height = 14
      Caption = '移动电话：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 48
      Top = 248
      Width = 70
      Height = 14
      Caption = '有效日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
    end
    object Personal_ID_Edt: TDBEdit
      Left = 120
      Top = 56
      Width = 161
      Height = 27
      DataField = 'PERSONAL_ID'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Addr_Edt: TDBEdit
      Left = 120
      Top = 80
      Width = 161
      Height = 27
      DataField = 'ADDR'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Phone_Edt: TDBEdit
      Left = 120
      Top = 128
      Width = 161
      Height = 27
      DataField = 'TEL_NO1'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object Phone_Ext_Edt: TDBEdit
      Left = 120
      Top = 152
      Width = 161
      Height = 27
      DataField = 'TEL_CELL'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Cell_Edt: TDBEdit
      Left = 120
      Top = 224
      Width = 161
      Height = 27
      DataField = 'TEL_NO2'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object Time_Expire_Edt: TDBEdit
      Left = 120
      Top = 248
      Width = 161
      Height = 27
      DataField = 'EXPIRE_DATE'
      DataSource = local_base.User_Source
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = '华文新魏'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Photo: TDBImage
      Left = 296
      Top = 16
      Width = 233
      Height = 265
      DataField = 'PHOTO'
      DataSource = local_base.User_Source
      Stretch = True
      TabOrder = 6
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 402
    Width = 539
    Height = 65
    Align = alBottom
    BevelOuter = bvLowered
    Caption = ' '
    Color = clActiveCaption
    TabOrder = 2
    object Post_Button: TButton
      Left = 64
      Top = 24
      Width = 75
      Height = 25
      Caption = '更新'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Post_ButtonClick
    end
    object Del_Button: TButton
      Left = 224
      Top = 24
      Width = 75
      Height = 25
      Caption = '删除'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = Del_ButtonClick
    end
    object Exit_Button: TButton
      Left = 392
      Top = 24
      Width = 75
      Height = 25
      Caption = '退出'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = '华文新魏'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Exit_ButtonClick
    end
  end
end