u_login.dfm

考勤管理系统 数据库系列

object F_login: TF_login
  Left = 351
  Top = 253
  ActiveControl = i_user
  BorderStyle = bsNone
  Caption = '登录'
  ClientHeight = 169
  ClientWidth = 273
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 273
    Height = 169
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 5
    Color = clBackground
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 16
      Width = 225
      Height = 25
      Alignment = taCenter
      AutoSize = False
      Caption = '考勤管理系统登录'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 48
      Top = 48
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '服务器：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 48
      Top = 72
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '用户名：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 48
      Top = 96
      Width = 48
      Height = 13
      AutoSize = False
      Caption = '密　码：'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object i_server: TComboBox
      Left = 112
      Top = 44
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'red:MISDB'
      Items.Strings = (
        'red:MISDB'
        '10.76.11.2:MISDB')
    end
    object i_user: TEdit
      Left = 112
      Top = 68
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object i_passwd: TEdit
      Left = 112
      Top = 92
      Width = 121
      Height = 21
      PasswordChar = '*'
      TabOrder = 2
    end
    object B_login: TBitBtn
      Left = 56
      Top = 128
      Width = 75
      Height = 25
      Caption = '登录'
      TabOrder = 3
      OnClick = B_loginClick
      Kind = bkOK
    end
    object B_cancel: TBitBtn
      Left = 152
      Top = 128
      Width = 75
      Height = 25
      Caption = '退出'
      TabOrder = 4
      OnClick = B_cancelClick
      Kind = bkClose
    end
  end
end