login.dfm

库房管理系统

object loginfrm: Tloginfrm
  Left = 424
  Top = 197
  BorderStyle = bsNone
  Caption = #30331#24405#30028#38754
  ClientHeight = 163
  ClientWidth = 291
  Color = clMoneyGreen
  DockSite = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 401
    Height = 241
    TabOrder = 0
    object Label3: TLabel
      Left = 136
      Top = 8
      Width = 26
      Height = 13
      Caption = 'Login'
    end
    object GroupBox1: TGroupBox
      Left = 32
      Top = 27
      Width = 250
      Height = 94
      Align = alCustom
      TabOrder = 0
      object Label1: TLabel
        Left = 31
        Top = 27
        Width = 60
        Height = 12
        Caption = 'User Name:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 32
        Top = 60
        Width = 54
        Height = 12
        Caption = 'Password:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Edit2: TEdit
        Left = 105
        Top = 56
        Width = 121
        Height = 20
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        PasswordChar = '*'
        TabOrder = 1
        OnKeyPress = Edit2KeyPress
      end
      object db_user: TDBComboBox
        Left = 104
        Top = 24
        Width = 121
        Height = 21
        DataField = 'fCode'
        DataSource = ds1
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object OKbtn: TButton
      Left = 48
      Top = 128
      Width = 75
      Height = 25
      Caption = 'LOGIN'
      TabOrder = 1
      OnClick = OKbtnClick
    end
    object Button2: TButton
      Left = 152
      Top = 128
      Width = 75
      Height = 25
      Caption = 'CANCEL'
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object qry1: TADOQuery
    Active = True
    ConnectionString = 'file name=stockdb.udl'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Tuser')
    Left = 208
    Top = 13
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 240
    Top = 13
  end
end