querymemberunit.~dfm

Delphi 编写的"会员销售管理系统",源码全,数据库全,未经测试,请有兴趣的朋友自己测试!

object frm_querymember: Tfrm_querymember
  Left = 174
  Top = 140
  BorderStyle = bsDialog
  Caption = #20250#21592#36164#26009#26597#35810#31383#20307
  ClientHeight = 505
  ClientWidth = 760
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 737
    Height = 161
    Caption = #22635#20889#20250#21592#22522#26412#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 35
      Width = 63
      Height = 13
      Caption = #20250#21592#32534#21495':    '
    end
    object Label2: TLabel
      Left = 176
      Top = 35
      Width = 63
      Height = 13
      Caption = #20250#21592#22995#21517':    '
    end
    object Label3: TLabel
      Left = 456
      Top = 35
      Width = 33
      Height = 13
      Caption = #27665#26063':  '
    end
    object Label4: TLabel
      Left = 456
      Top = 75
      Width = 33
      Height = 13
      Caption = #23398#21382':  '
    end
    object Label5: TLabel
      Left = 592
      Top = 144
      Width = 154
      Height = 13
      Caption = '('#27880':'#19981#22635#20195#34920#25152#26377')    '
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #40657#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 456
      Top = 123
      Width = 33
      Height = 13
      Caption = #30005#35805':  '
    end
    object Label7: TLabel
      Left = 568
      Top = 75
      Width = 33
      Height = 13
      Caption = #32423#21035':  '
    end
    object Label8: TLabel
      Left = 568
      Top = 35
      Width = 33
      Height = 13
      Caption = #32844#19994':  '
    end
    object Label9: TLabel
      Left = 16
      Top = 128
      Width = 60
      Height = 13
      Caption = #20250#21592#22320#22336':   '
    end
    object Label10: TLabel
      Left = 336
      Top = 35
      Width = 33
      Height = 13
      Caption = #24615#21035':  '
    end
    object memberid: TEdit
      Left = 72
      Top = 32
      Width = 97
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 0
      Text = 'memberid'
    end
    object membername: TEdit
      Left = 232
      Top = 32
      Width = 97
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 1
      Text = 'membername'
    end
    object sex: TComboBox
      Left = 368
      Top = 32
      Width = 65
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        #30007
        #22899)
    end
    object folk: TComboBox
      Left = 488
      Top = 32
      Width = 73
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        #27721#26063
        #34255#26063
        #22238#26063
        #32500#21566#23572#26063
        #22766#26063
        #22865#20025)
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 64
      Width = 225
      Height = 43
      Caption = #20250#21592#29983#26085
      TabOrder = 4
      object Label11: TLabel
        Left = 96
        Top = 16
        Width = 24
        Height = 13
        Caption = #33267'    '
      end
      object qbirthday: TDateTimePicker
        Left = 8
        Top = 14
        Width = 89
        Height = 21
        Date = 38684.814259074070000000
        Time = 38684.814259074070000000
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
      end
      object zbirthday: TDateTimePicker
        Left = 112
        Top = 14
        Width = 89
        Height = 21
        Date = 38684.814567592590000000
        Time = 38684.814567592590000000
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
      end
    end
    object GroupBox3: TGroupBox
      Left = 240
      Top = 64
      Width = 193
      Height = 43
      Caption = #20837#20250#26102#38388
      TabOrder = 5
      object Label12: TLabel
        Left = 96
        Top = 16
        Width = 24
        Height = 13
        Caption = #33267'    '
      end
      object qtime: TDateTimePicker
        Left = 8
        Top = 14
        Width = 81
        Height = 21
        Date = 38684.814259074070000000
        Time = 38684.814259074070000000
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 0
      end
      object ztime: TDateTimePicker
        Left = 120
        Top = 14
        Width = 65
        Height = 21
        Date = 38684.814567592590000000
        Time = 38684.814567592590000000
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        TabOrder = 1
      end
    end
    object edulevel: TComboBox
      Left = 488
      Top = 72
      Width = 73
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 6
      Items.Strings = (
        #26412#31185
        #22823#19987
        #21338#22763
        #30805#22763
        #30805#22763#30740#31350#29983
        #20013#19987
        #39640#20013
        #21021#20013
        #20854#20182)
    end
    object address: TEdit
      Left = 72
      Top = 128
      Width = 361
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 7
      Text = 'address'
    end
    object tel: TEdit
      Left = 488
      Top = 120
      Width = 73
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      TabOrder = 8
      Text = 'tel'
    end
    object profession: TComboBox
      Left = 600
      Top = 32
      Width = 121
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 9
      Items.Strings = (
        #35745#31639#26426#19994
        #26381#21153#19994
        #20860#32844
        #25945#32946#19994
        #37329#34701#19994
        #32769#26495
        #20840#32844
        #21830#19994
        #36864#20241
        #23398#29983
        #25919#24220#37096#38376
        #21046#36896#19994
        #38144#21806
        #24191#21578
        #24066#22330
        #22833#19994#20013)
    end
    object jb: TComboBox
      Left = 600
      Top = 72
      Width = 121
      Height = 21
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 13
      TabOrder = 10
      Items.Strings = (
        #26222#36890#20250#21592
        #39640#32423#20250#21592
        #40644#37329#20250#21592
        #30333#37329#20250#21592)
    end
    object b_query: TButton
      Left = 576
      Top = 112
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 11
      OnClick = b_queryClick
    end
    object b_clear: TButton
      Left = 656
      Top = 112
      Width = 75
      Height = 25
      Caption = #28165#23631
      TabOrder = 12
      OnClick = b_clearClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 16
    Top = 176
    Width = 241
    Height = 49
    Caption = #35760#24405#27983#35272#25353#38062
    TabOrder = 1
    object DBNavigator1: TDBNavigator
      Left = 9
      Top = 16
      Width = 224
      Height = 25
      DataSource = ds_q_member
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      TabOrder = 0
    end
  end
  object GroupBox5: TGroupBox
    Left = 256
    Top = 176
    Width = 161
    Height = 49
    Caption = #20107#21153#22788#29702#25353#38062
    TabOrder = 2
    object b_modify: TButton
      Left = 3
      Top = 16
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 0
      OnClick = b_modifyClick
    end
    object b_del: TButton
      Left = 83
      Top = 16
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 1
      OnClick = b_modifyClick
    end
  end
  object GroupBox6: TGroupBox
    Left = 416
    Top = 176
    Width = 113
    Height = 49
    Caption = #25490#24207#26041#27861
    TabOrder = 3
    object inc: TRadioButton
      Left = 6
      Top = 19
      Width = 49
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = incClick
    end
    object desc: TRadioButton
      Left = 49
      Top = 19
      Width = 49
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = descClick
    end
  end
  object GroupBox7: TGroupBox
    Left = 528
    Top = 176
    Width = 225
    Height = 49
    Caption = #25490#24207#20869#23481
    TabOrder = 4
    object id: TRadioButton
      Left = 8
      Top = 19
      Width = 49
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 48
      Top = 19
      Width = 49
      Height = 17
      Caption = #22995#21517
      TabOrder = 1
      OnClick = nameClick
    end
    object hyjb: TRadioButton
      Left = 96
      Top = 19
      Width = 49
      Height = 17
      Caption = #32423#21035
      TabOrder = 2
      OnClick = hyjbClick
    end
    object jointime: TRadioButton
      Left = 144
      Top = 19
      Width = 73
      Height = 20
      Caption = #20837#20250#26102#38388
      TabOrder = 3
      OnClick = jointimeClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 232
    Width = 737
    Height = 265
    Color = clAppWorkSpace
    DataSource = ds_q_member
    ImeName = #26497#21697#20116#31508#36755#20837#27861
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
  end
  object q_member: TADOQuery
    Connection = DataModule1.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from member')
    Left = 152
  end
  object ds_q_member: TDataSource
    DataSet = q_member
    Left = 184
  end
  object delquery: TADOQuery
    Connection = DataModule1.ADOConnection1
    DataSource = ds_q_member
    Parameters = <>
    Left = 552
  end
end