zfrm_newcustomeru.dfm

专业的评标管理系统

object zfrm_newcustomer: Tzfrm_newcustomer
  Left = 289
  Top = 288
  BorderStyle = bsDialog
  Caption = '新建用户'
  ClientHeight = 273
  ClientWidth = 422
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Button1: TButton
    Left = 214
    Top = 241
    Width = 90
    Height = 25
    Caption = '确定'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 314
    Top = 241
    Width = 90
    Height = 25
    Cancel = True
    Caption = '取消'
    TabOrder = 1
    OnClick = Button2Click
  end
  object PageControl1: TPageControl
    Left = 12
    Top = 6
    Width = 399
    Height = 229
    ActivePage = TabSheet1
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = '用户详细信息'
      object GroupBox1: TGroupBox
        Left = 5
        Top = -3
        Width = 380
        Height = 202
        TabOrder = 0
        object Label1: TLabel
          Left = 30
          Top = 13
          Width = 60
          Height = 12
          Caption = '用户ID(&I):'
          FocusControl = Edit1
        end
        object Label2: TLabel
          Left = 30
          Top = 34
          Width = 72
          Height = 12
          Caption = '用户密码(&P):'
          FocusControl = Edit2
        end
        object Label9: TLabel
          Left = 30
          Top = 55
          Width = 72
          Height = 12
          Caption = '确认密码(&R):'
          FocusControl = Edit5
        end
        object Label3: TLabel
          Left = 30
          Top = 76
          Width = 72
          Height = 12
          Caption = '用户姓名(&N):'
          FocusControl = Edit3
        end
        object Label4: TLabel
          Left = 30
          Top = 139
          Width = 72
          Height = 12
          Caption = '用户性别(&S):'
          FocusControl = ComboBox1
        end
        object Label5: TLabel
          Left = 30
          Top = 97
          Width = 72
          Height = 12
          Caption = '联系方式(&C):'
          FocusControl = Edit4
        end
        object Label7: TLabel
          Left = 30
          Top = 118
          Width = 72
          Height = 12
          Caption = '工作职位(&O):'
        end
        object Label8: TLabel
          Left = 30
          Top = 160
          Width = 72
          Height = 12
          Caption = '发布权限(&L):'
        end
        object Label6: TLabel
          Left = 30
          Top = 181
          Width = 72
          Height = 12
          Caption = '系统级别(&E):'
        end
        object Edit1: TEdit
          Left = 108
          Top = 9
          Width = 230
          Height = 20
          MaxLength = 8
          TabOrder = 0
          Text = 'Edit1'
          OnKeyPress = Edit1KeyPress
        end
        object Edit2: TEdit
          Left = 108
          Top = 30
          Width = 230
          Height = 20
          MaxLength = 6
          PasswordChar = '*'
          TabOrder = 1
          Text = '999999'
          OnKeyPress = Edit2KeyPress
        end
        object Edit3: TEdit
          Left = 108
          Top = 51
          Width = 230
          Height = 20
          MaxLength = 6
          PasswordChar = '*'
          TabOrder = 2
          Text = '999999'
          OnKeyPress = Edit3KeyPress
        end
        object Edit4: TEdit
          Left = 108
          Top = 72
          Width = 230
          Height = 20
          MaxLength = 40
          TabOrder = 3
          Text = 'Edit4'
          OnKeyPress = Edit4KeyPress
        end
        object ComboBox1: TComboBox
          Left = 108
          Top = 135
          Width = 150
          Height = 20
          ItemHeight = 12
          TabOrder = 4
          Text = '男'
          OnKeyPress = ComboBox1KeyPress
          Items.Strings = (
            '男'
            '女')
        end
        object Edit5: TEdit
          Left = 108
          Top = 93
          Width = 230
          Height = 20
          MaxLength = 50
          TabOrder = 5
          Text = 'Edit5'
          OnKeyPress = Edit5KeyPress
        end
        object Edit6: TEdit
          Left = 108
          Top = 114
          Width = 230
          Height = 20
          MaxLength = 20
          TabOrder = 6
          Text = 'Edit6'
          OnKeyPress = Edit6KeyPress
        end
        object ComboBox2: TComboBox
          Left = 108
          Top = 156
          Width = 150
          Height = 20
          ItemHeight = 12
          TabOrder = 7
          Text = '有'
          OnKeyPress = ComboBox2KeyPress
          Items.Strings = (
            '有'
            '无')
        end
        object ComboBox3: TComboBox
          Left = 108
          Top = 177
          Width = 150
          Height = 20
          ItemHeight = 12
          TabOrder = 8
          Text = '一般用户'
          OnKeyPress = ComboBox3KeyPress
          Items.Strings = (
            '管理员'
            '一般用户')
        end
        object BitBtn1: TBitBtn
          Left = 301
          Top = 164
          Width = 63
          Height = 20
          Caption = '复 位'
          TabOrder = 9
          OnClick = BitBtn1Click
          Style = bsNew
        end
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 4
    Top = 254
  end
  object Query1: TQuery
    DatabaseName = 'efidicdb'
    Left = 72
    Top = 250
  end
  object Query2: TQuery
    DatabaseName = 'efidicdb'
    Left = 116
    Top = 252
  end
end