logonsrc.pas

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

unit LogonSrc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  TFormLogon = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    ComboBoxUser: TComboBox;
    EditPass: TEdit;
    Button1: TButton;
    ButtonCancel: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    procedure Button1Click(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogon: TFormLogon;
  strStore1:string;

implementation

uses
       MainSrc;
{$R *.dfm}

//点确定，进行用户鉴别。
procedure TFormLogon.Button1Click(Sender: TObject);
var
        UserPass:string;
        strSQL:string;
begin
        FormLogon.Visible := false;

        UserPass := EditPass.Text;
        strSQL := 'select * from use where name =' + '"' + ComboBoxUser.Text + '"' + 'and pass =' + '"' +UserPass + '"';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Text := strSQL;
        ADOQuery1.Open;
        if(ADOQuery1.Eof) then
        begin
             MessageBox(Application.Handle, '密码错误,不能登陆', '错误', MB_OK);
             Close;
        end;

        ADOQuery1.close;

        if ComboBoxUser.Text='管理员' then strStore1:= 'Admin'
        else strStore1:= 'User';

        FormMain.EditNowUser.Text := '当前用户： ' + ComboBoxUser.Text;
        MainSrc.FormMain.ShowModal();
        Close;
end;

procedure TFormLogon.ButtonCancelClick(Sender: TObject);
begin
        Close;
end;

procedure TFormLogon.FormCreate(Sender: TObject);
begin
        while not ADOQuery1.Eof do begin
          ComboBoxUser.Items.Add(ADOQuery1.FieldByName('name').AsString);
          ADOQuery1.Next;
        end;
        ComboBoxUser.ItemIndex := 0;
        ADOQuery1.First;
end;
end.