unit1.pas

1.此管理系统是基于delphi sql2000 开发的。 2.此管理系统用delphi7.1来运行。 3.运行之前用sqlsever 2000企业管理器

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    StatusBar1: TStatusBar;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

       var  CmdStr:String;
       UserType:integer;
begin
  ADOQuery1.SQL.Clear;
  CmdStr:='select* from login where 用户名='+QuotedStr(edit1.Text)+'and 密码='+QuotedStr(edit2.Text);
  ADOQuery1.SQL.Add(CmdStr);
  ADOQuery1.Open;
  if ADOQuery1.RecordCount<>0  then
      begin
          UserType:= ADOQuery1.FieldList[2].AsInteger;
          if UserType=0 then
           begin
                 form2.Show;
              form2.Button1.Enabled:=true;
                form2.Button2.Enabled:=true;
                form2.Button3.Enabled:=true;

                 form2.Button4.Enabled:=true;
                 form2.Button5.Enabled:=true;
                 end

                       else
                 begin
                    form2.Show;
                 form2.Button1.Enabled:=false;
                form2.Button2.Enabled:=false;
                form2.Button3.Enabled:=true;
                 form2.Button4.Enabled:=true;
                 form2.Button5.Enabled:=true;
                 end
                end
                else


if(messagedlg('输入的账号或密码不正确！请重新输入!',mtinformation,[mbyes,mbno],0)<>mryes)then
      close;

end;


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

end.