check.pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit check;

interface

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

type
  Tcheckform = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkform: Tcheckform;

implementation

uses main;

{$R *.dfm}

procedure Tcheckform.FormActivate(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  username:='';
  password:='';
  i:=3;
  edit1.setfocus;
end;

procedure Tcheckform.Button2Click(Sender: TObject);
begin
  close;
end;

procedure Tcheckform.Button1Click(Sender: TObject);
var
  adodataset1:tadodataset;
begin
  adodataset1:=tadodataset.Create(self);
  adodataset1.connection:=adoconnection1;
  adodataset1.CommandType:=cmdtext;
  adodataset1.commandtext:='select * from operator where name=:user and pass=:passw';
  adodataset1.close;
  adodataset1.Parameters.clear;
  adodataset1.Parameters.addparameter;
  adodataset1.Parameters[0].Name:='user';
  adodataset1.Parameters[0].datatype:=ftstring;
  adodataset1.Parameters[0].direction:=pdinput;
  adodataset1.Parameters[0].value:=edit1.text;
  adodataset1.Parameters.addparameter;
  adodataset1.Parameters[1].Name:='passw';
  adodataset1.Parameters[1].datatype:=ftstring;
  adodataset1.Parameters[1].direction:=pdinput;
  adodataset1.Parameters[1].value:=edit2.text;
  adodataset1.active:=true;
  if adodataset1.recordset.recordcount=1 then
  begin
    username:=edit1.text;
    if  adodataset1.FieldByName('right_1').asstring='T' then
      right1:=true
    else
      right1:=false;
    if  adodataset1.FieldByName('right_2').asstring='T' then
      right2:=true
    else
      right2:=false;
    if  adodataset1.FieldByName('right_3').asstring='T' then
      right3:=true
    else
      right3:=false;
    close;
    end
  else
  begin
    i:=i-1;
    edit1.Text:='';
    edit2.Text:='';
    edit1.setfocus;
    application.messagebox('用户名/密码错误,请重新输入:(','提示信息',mb_ok);
  end;
  if i=0 then
  begin
    username:='';
    close;
  end;
    adodataset1.Active:=false;
end;

end.