createusers.dfm

絮语2007视频聊天软件源程序.仅供参考

object create_user: Tcreate_user
  Left = 193
  Top = 108
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '注册新用户'
  ClientHeight = 199
  ClientWidth = 290
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 40
    Width = 46
    Height = 13
    Caption = '用户名:'
    Transparent = True
  end
  object Label2: TLabel
    Left = 16
    Top = 72
    Width = 47
    Height = 13
    Caption = '密  码:'
    Transparent = True
  end
  object Label3: TLabel
    Left = 8
    Top = 8
    Width = 150
    Height = 13
    Caption = '请认真填写以下注册资料:'
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 24
    Width = 273
    Height = 2
    Shape = bsTopLine
  end
  object Bevel2: TBevel
    Left = 8
    Top = 96
    Width = 265
    Height = 9
    Shape = bsTopLine
  end
  object Label4: TLabel
    Left = 16
    Top = 112
    Width = 33
    Height = 13
    Caption = '昵称:'
    Transparent = True
  end
  object Label5: TLabel
    Left = 176
    Top = 112
    Width = 33
    Height = 13
    Caption = '职务:'
    Transparent = True
  end
  object Label6: TLabel
    Left = 16
    Top = 144
    Width = 33
    Height = 13
    Caption = '电话:'
    Transparent = True
  end
  object Label7: TLabel
    Left = 176
    Top = 144
    Width = 33
    Height = 13
    Caption = '部门:'
    Transparent = True
  end
  object userid: TEdit
    Left = 64
    Top = 32
    Width = 209
    Height = 21
    MaxLength = 8
    TabOrder = 0
    Text = 'userid'
    OnKeyPress = useridKeyPress
  end
  object xpButton1: TxpButton
    Left = 64
    Top = 168
    Width = 75
    Height = 25
    Caption = '提交申请'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 7
    TabStop = True
    OnClick = xpButton1Click
  end
  object uname: TEdit
    Left = 64
    Top = 104
    Width = 105
    Height = 21
    MaxLength = 24
    TabOrder = 3
    Text = '-'
    OnKeyPress = useridKeyPress
  end
  object tel: TEdit
    Left = 64
    Top = 136
    Width = 105
    Height = 21
    MaxLength = 16
    TabOrder = 4
    Text = '-'
    OnKeyPress = useridKeyPress
  end
  object xpButton2: TxpButton
    Left = 160
    Top = 168
    Width = 75
    Height = 25
    Caption = '取消注册'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    TabOrder = 8
    TabStop = True
    OnClick = xpButton2Click
  end
  object business: TEdit
    Left = 208
    Top = 104
    Width = 65
    Height = 21
    TabOrder = 5
    Text = '-'
    OnKeyPress = useridKeyPress
  end
  object dept: TEdit
    Left = 208
    Top = 136
    Width = 65
    Height = 21
    TabOrder = 6
    Text = '-'
    OnKeyPress = useridKeyPress
  end
  object pwd1: TEdit
    Left = 64
    Top = 64
    Width = 97
    Height = 21
    PasswordChar = '*'
    TabOrder = 1
    Text = 'pwd1'
    OnKeyPress = useridKeyPress
  end
  object pwd2: TEdit
    Left = 168
    Top = 64
    Width = 105
    Height = 21
    PasswordChar = '*'
    TabOrder = 2
    Text = 'pwd1'
    OnKeyPress = useridKeyPress
  end
end