logonsrc.dfm

该程序可作为386的接警程序使用

object FormLogon: TFormLogon
  Left = 303
  Top = 159
  BorderStyle = bsDialog
  Caption = #32852#32593#25253#35686#20013#24515'-'#29992#25143#36523#20221#39564#35777
  ClientHeight = 135
  ClientWidth = 271
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 14
    Top = 13
    Width = 243
    Height = 81
    Caption = #36523#20221#35748#35777
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 13
      Caption = #29992#25143#21517#65306
    end
    object Label2: TLabel
      Left = 17
      Top = 49
      Width = 36
      Height = 13
      Caption = #23494#30721#65306
    end
    object ComboBoxUser: TComboBox
      Left = 80
      Top = 16
      Width = 153
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ItemHeight = 13
      TabOrder = 0
      Text = #31649#29702#21592
    end
    object EditPass: TEdit
      Left = 80
      Top = 48
      Width = 153
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      PasswordChar = '*'
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 123
    Top = 102
    Width = 65
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object ButtonCancel: TButton
    Left = 200
    Top = 102
    Width = 57
    Height = 25
    Caption = #21462#28040'(&C)'
    TabOrder = 2
    OnClick = ButtonCancelClick
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 104
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from use')
    Left = 40
    Top = 104
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bj.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 104
  end
end