unit3.~pas

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

unit Unit3;

interface

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

type
  Tgaoyuan02 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    edit3: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    Edit4: TEdit;
    Query1: TQuery;
    Button3: TButton;
    Query2: TQuery;
    Button4: TButton;
    Query3: TQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gaoyuan02: Tgaoyuan02;
  login_name: String;
  password: String;
  user_type: String;
  MySQL: String;
  MySQL1: String;
  MySQL2: string;

implementation

{$R *.dfm}
procedure Tgaoyuan02.Button3Click(Sender: TObject);
begin
   with query2 do
   begin
     close;
     sql.Clear;
     login_name:=edit1.Text;
     MySQL1:='select * from user2 where login_name='''+login_name+'''';
     sql.Add(MySQL1);
     open;
   end;
   if query2.RecordCount>0 then
   begin
     showmessage('用户名已经存在！');
     edit2.Enabled:=false;
     edit3.Enabled:=false;
     edit1.SetFocus;
   end
   else
   begin
     edit2.Enabled:=true;
     edit3.Enabled:=true;
     edit2.SetFocus;
     showmessage('用户名可用!');

   end;
end;
procedure Tgaoyuan02.Button1Click(Sender: TObject);
begin
 if edit1.Text='' then
    begin
    showmessage('请输入用户名!');
    Edit1.SetFocus;
    exit;
  end;
  if edit2.Text='' then
    begin
    showmessage('请输入密码!');
    Edit2.SetFocus;
    exit;
  end;
  if edit4.Text='' then
    begin
    showmessage('请输入确认密码!');
    Edit4.SetFocus;
    exit;
  end;
  if edit2.Text<>edit4.Text then
    begin
    showmessage('两次输入的密码不一样!');
    Edit2.SetFocus;
    exit;
    end;
      if edit3.Text='' then
    begin
    showmessage('请输入用户类型!');
    Edit3.SetFocus;
    exit;
  end;
  with query2 do
   begin
     close;
     sql.Clear;
     login_name:=edit1.Text;
     MySQL1:='select * from user2 where login_name='''+login_name+'''';
     sql.Add(MySQL1);
     open;
   end;
  if query2.RecordCount>0 then
  begin
   showmessage('用户已存在!');
  end
  else
  begin
  with query1 do
  begin
    close;
    sql.Clear;
    login_name:=edit1.Text;
    password:=edit2.Text;
    user_type:=edit3.Text;
    MySQL:='insert user2 values('''+login_name+''','''+password+''','''+user_type+''')';
    sql.Add(MySQL);
    ExecSQL;
    showmessage('注册成功!');
  end;
  end;
end;




procedure Tgaoyuan02.Button4Click(Sender: TObject);
begin
close;
end;

procedure Tgaoyuan02.Button2Click(Sender: TObject);
begin
   with query2 do
   begin
     close;
     sql.Clear;
     login_name:=edit1.Text;
     MySQL1:='select * from user2 where login_name='''+login_name+'''';
     sql.Add(MySQL1);
     open;
   end;
   if query2.RecordCount>0 then
   begin
    with query3 do
    begin
     close;
     sql.Clear;
     mysql2:='delete from user2 where login_name='''+login_name+'''';
     sql.Add(MySQL2);
     ExecSQL;
     showmessage('删除成功!');
     end;
   end
   else
   begin
     showmessage('该用户不存在');
   end;

end;

end.