login.~dfm

来自「考勤管理系统」· ~DFM 代码 · 共 138 行

object FormLogin: TFormLogin
  Left = 338
  Top = 182
  Width = 310
  Height = 235
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '欢迎使用考勤信息管理系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object LabelTiShi: TLabel
    Left = 49
    Top = 20
    Width = 240
    Height = 23
    Caption = '请输入正确的用户名及口令'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    ParentFont = False
  end
  object LabelYongHu: TLabel
    Left = 46
    Top = 61
    Width = 88
    Height = 23
    Caption = '用户名(&U)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    ParentFont = False
  end
  object LabelPassWord: TLabel
    Left = 48
    Top = 103
    Width = 64
    Height = 23
    Caption = '口令(&P)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    ParentFont = False
  end
  object EditUser: TEdit
    Left = 140
    Top = 53
    Width = 121
    Height = 31
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    TabOrder = 0
  end
  object EditPassWord: TEdit
    Left = 140
    Top = 95
    Width = 121
    Height = 31
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    MaxLength = 8
    ParentFont = False
    PasswordChar = '*'
    TabOrder = 1
  end
  object ButtonOk: TButton
    Left = 54
    Top = 144
    Width = 89
    Height = 33
    Caption = '确定(&O)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = ButtonOkClick
  end
  object ButtonCancel: TButton
    Left = 172
    Top = 144
    Width = 84
    Height = 33
    Caption = '取消(&C)'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -20
    Font.Name = '华文中宋'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = ButtonCancelClick
  end
  object TableYongHu: TTable
    BeforeOpen = TableYongHuBeforeOpen
    DatabaseName = 'KaoQin'
    TableName = 'YongHu.DB'
    Left = 8
    Top = 40
    object TableYongHuYongHu: TStringField
      FieldName = 'YongHu'
      Size = 8
    end
    object TableYongHuKouLing: TStringField
      FieldName = 'KouLing'
      Size = 8
    end
    object TableYongHuQuanXian: TStringField
      FieldName = 'QuanXian'
      Size = 16
    end
  end
end