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;

implementation

uses
       MainSrc;
{$R *.dfm}

function CheckUserAdmin(str:String):Boolean;
var
        nTemp:Integer;
        strStore:string;
        textid:textfile;
begin
        assignfile(textid, 'DB\A.DAT');
        reset(textid);

        readln(textid, strStore);
        CloseFile(textid);
        nTemp := strcomp(pChar(str), pChar(strStore) );

        if nTemp = 0 then
        begin
                Result := true;
        end
        else
        begin
                Result := false;
        end


end;

function CheckUserUser(str:String):Boolean;
var
        nTemp:Integer;
        strStore:string;
        textid:textfile;
begin

        assignfile(textid, 'DB\U.DAT');
        reset(textid);

        readln(textid, strStore);
        CloseFile(textid);

        nTemp := strcomp(pChar(str), pChar(strStore) );

        if nTemp = 0 then
        begin
                Result := true;
        end
        else
        begin
                Result := false;
        end


end;

//点确定，进行用户鉴别。
procedure TFormLogon.Button1Click(Sender: TObject);
var
        UserPass:string;
        fileid:textfile;
        strSQL:string;
        
begin
        LogonSrc.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;
        
        //往N.DAT中写东西。
        if ComboBoxUser.Text='管理员' then
        begin
                AssignFile(fileid, 'DB\N.DAT');
                Rewrite(fileid);
                Write(fileid, 'Admin');
                CloseFile(fileid);
        end
        else
        begin
                AssignFile(fileid, 'DB\N.DAT');
                Rewrite(fileid);
                Write(fileid, 'User');
                CloseFile(fileid);
        end;
        strSQL := 'select * from use';
        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        ADOQuery1.SQL.Text := strSQL;
        ADOQuery1.Open;

        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

                //DBComboBox1.Items.Add(ADOQuery1.FieldByName('name').AsString);
                ComboBoxUser.Items.Add(ADOQuery1.FieldByName('name').AsString);

                ADOQuery1.Next;

        end;

        ComboBoxUser.ItemIndex := 0;
        ADOQuery1.First;
end;

end.