unit9.pas

很简单的信息管理系统 希望大家仔细看完然后 做下评定

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses MAIN, wflash;

{$R *.dfm}

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
var cmdstr:string;
usrtype:integer;
begin
  ADOQuery1.SQL.Clear;
 // cmdstr:='select * from 用户登录信息 where 用户名='+quotedstr(edit1.Text)+'and 密码='+quotedstr(edit2.Text);
  CmdStr:='select * from 用户登录信息 where 用户名 = '+QuotedStr(edit1.Text)
          +'and 密码 = '+QuotedStr(edit2.Text);//查询用户名和密码的SQL语句
  adoquery1.SQL.Add(cmdstr);
  adoquery1.Open;
  if adoquery1.RecordCount<>0 then
      begin
          usrtype:=adoquery1.FieldList[2].AsInteger;
          if usrtype=1 then
          begin
          mainform.Window1.Enabled:=true;
              mainform.Edit1.Enabled:=true;
              mainform.N1.Enabled:=true;
          mainform.ShowModal;
          form9.Close;
           end
      else
          begin

              mainform.Window1.Enabled:=false;
              mainform.Edit1.Enabled:=false;
              mainform.N1.Enabled:=false;
               mainform.ShowModal;
               form9.Close;
          end
      end
  else
    if(messagedlg('用户名或密码错误',mtinformation,[mbyes,mbno],0)<>mryes)then
      close;
            
end;

end.