u_password.~dfm

小型劳资管理系统,用visual basic+access编写

object F_password: TF_password
  Left = 312
  Top = 223
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #29992#25143#30331#24405
  ClientHeight = 165
  ClientWidth = 235
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 277
    Top = 123
    Width = 3
    Height = 16
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 233
    Height = 169
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clGradientActiveCaption
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 16
      Width = 168
      Height = 19
      Caption = #20154#20107#32771#21220#31649#29702#31995#32479
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Button1: TSpeedButton
      Left = 40
      Top = 136
      Width = 49
      Height = 25
      Caption = #30331#24405
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      OnClick = Button1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 144
      Top = 136
      Width = 49
      Height = 25
      Caption = #36864#20986
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -15
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 24
      Top = 48
      Width = 177
      Height = 81
      TabOrder = 0
      object Label2: TLabel
        Left = 8
        Top = 16
        Width = 72
        Height = 16
        Caption = #25805#20316#29992#25143':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clOlive
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 0
        Top = 48
        Width = 81
        Height = 16
        Caption = ' '#30331#24405#23494#30721':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clOlive
        Font.Height = -16
        Font.Name = #26999#20307'_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 80
        Top = 16
        Width = 89
        Height = 21
        TabOrder = 0
        OnChange = Edit1Change
      end
      object Edit2: TEdit
        Left = 80
        Top = 48
        Width = 89
        Height = 21
        PasswordChar = '*'
        TabOrder = 1
        OnChange = Edit2Change
        OnKeyPress = Edit2KeyPress
      end
    end
    object ProgressBar1: TProgressBar
      Left = 40
      Top = 40
      Width = 161
      Height = 9
      Min = 0
      Max = 100
      TabOrder = 1
      Visible = False
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = Timer1Timer
    Left = 304
    Top = 336
  end
  object Timer2: TTimer
    Interval = 10000
    OnTimer = Timer2Timer
    Left = 240
    Top = 328
  end
  object Query1: TQuery
    DatabaseName = 'person_db'
    SQL.Strings = (
      'select * from pass')
    Left = 8
    Top = 16
  end
end