login.dfm

三层ERP系统 (SQL)

inherited frmlogin: Tfrmlogin
  Left = 310
  Top = 118
  ActiveControl = DBEditEh1
  BorderStyle = bsSingle
  Caption = #29992#25142#30331#37636
  ClientHeight = 249
  ClientWidth = 386
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object imagetop: TImage
    Left = 0
    Top = 0
    Width = 386
    Height = 57
    Align = alTop
    Stretch = True
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 165
    Width = 386
    Height = 84
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 33
      Top = 15
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #30331#37636#21517
    end
    object Label2: TLabel
      Left = 201
      Top = 15
      Width = 48
      Height = 13
      AutoSize = False
      Caption = #23494#30908
    end
    object Bevel1: TBevel
      Left = -3
      Top = 37
      Width = 393
      Height = 2
    end
    object DBEditEh1: TDBEditEh
      Left = 80
      Top = 9
      Width = 103
      Height = 21
      CharCase = ecUpperCase
      EditButtons = <>
      TabOrder = 0
      Visible = True
    end
    object DBEditEh2: TDBEditEh
      Left = 249
      Top = 9
      Width = 102
      Height = 21
      EditButtons = <>
      PasswordChar = '*'
      TabOrder = 1
      Visible = True
      OnExit = DBEditEh2Exit
    end
    object Button1: TButton
      Left = 304
      Top = 48
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 227
      Top = 48
      Width = 75
      Height = 25
      Caption = #30906#23450
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 57
    Width = 386
    Height = 108
    Align = alClient
    DataSource = dsaccount
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #32048#26126#39636
    FooterFont.Style = []
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #32048#26126#39636
    TitleFont.Style = []
    OnGetCellParams = DBGridEh1GetCellParams
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      item
        EditButtons = <>
        FieldName = 'accname'
        Footers = <>
        Title.Caption = #20844#21496#21517#31281
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'dbname'
        Footers = <>
        Title.Caption = #24115#22871#21517#31281
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'remark'
        Footers = <>
        Title.Caption = #20633#27880
        Width = 150
      end>
  end
  object CDSaccount: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 184
    Top = 96
  end
  object dsaccount: TDataSource
    AutoEdit = False
    DataSet = CDSaccount
    Left = 248
    Top = 96
  end
end