login.~dfm

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

object frmlogin: Tfrmlogin
  Left = 192
  Top = 107
  Width = 373
  Height = 225
  Caption = #39044#31639#31649#29702#31995#32479#30331#38470#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Labelname: TLabel
    Left = 64
    Top = 32
    Width = 73
    Height = 33
    AutoSize = False
    Caption = #29992#25143#21517#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Labelpass: TLabel
    Left = 64
    Top = 72
    Width = 49
    Height = 33
    AutoSize = False
    Caption = #23494#30721#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object cmdenter: TButton
    Left = 80
    Top = 128
    Width = 65
    Height = 25
    Caption = #30830#23450
    ModalResult = 1
    TabOrder = 0
  end
  object cmdcancel: TButton
    Left = 184
    Top = 128
    Width = 65
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 1
  end
  object comboxname: TComboBox
    Left = 152
    Top = 32
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 2
  end
  object editpass: TEdit
    Left = 152
    Top = 72
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    PasswordChar = '-'
    TabOrder = 3
  end
  object DataSource1: TDataSource
    DataSet = Querycompanyuser
    Left = 32
    Top = 168
  end
  object Querycompanyuser: TQuery
    Active = True
    AutoCalcFields = False
    DatabaseName = 'ysgl2004delphi'
    Filtered = True
    SQL.Strings = (
      'select * from companyuser')
    Left = 80
    Top = 168
  end
  object database1: TDatabase
    AliasName = 'ysgl2004delphi'
    Connected = True
    DatabaseName = 'ysgl2004delphi'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'PASSWORD=sa'
      '')
    SessionName = 'Default'
    Left = 136
    Top = 168
  end
end