unit1.pas

一个功能完整的超市管理系统

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Query1: TQuery;
    Query2: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  mysql:string;
  mysql1:string;
  login_name:string;
  password:string;
  i:integer;

implementation

uses Unit2, Unit6;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
   begin
    showmessage('请输入帐号!');
    Edit1.SetFocus;
    exit;
  end;
  if edit2.Text='' then
    begin
    showmessage('请输入密码!');
    Edit2.SetFocus;
    exit;
  end;
  with query1 do
  begin
    close;
    sql.Clear;
    login_name:=edit1.Text;
    password:=edit2.Text;
    MySQL:='select * from user2 where login_name='''+login_name+''' and password='''+password+'''';
    sql.Add(MySQL);
    open;
   end;
   with query2 do
     begin
       close;
       sql.Clear;
       mysql1:='select * from user2 where login_name='''+login_name+''' and user_type=''超级管理员'' ';
       sql.Add(MySQL1);
       open;
     end;
   if query2.RecordCount>0 then
   begin
   i:=1;
   end
   else
   begin
   i:=0;
   end;
   if query1.RecordCount>0  then
   begin
   if i>=1 then
   begin
     showmessage('欢迎超级管理员访问！');
     gaoyuan01.show;
   end
   else
   begin
    showmessage('欢迎收银员使用！');
    gaoyuan05.show;
    end;
   end
   else
   begin
     showmessage('用户名或密码错误！');
   end;
end;

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

end.