access.~pas

自己编写的delphi程序 可以与以有的数据库连接 使用SQL语言查询和修改数据库

unit Access;

interface

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

type
  TaccessForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button3: TButton;
    Button1: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Button2: TButton;
    customerQuery: TQuery;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    managerQuery: TQuery;
    Button4: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    db1: TDatabase;
    registerQuery: TQuery;
    Label13: TLabel;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    Button5: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  accessForm: TaccessForm;
  cusctrl:integer;

  cusname:string[20];
  cuspass:string[20];
  mngname:string[20];
  mngpass:string[20];

implementation

uses storagemanage, Manager,about;

{$R *.dfm}

procedure TaccessForm.Button2Click(Sender: TObject);

begin
try         //there is problems in error mechnisim
cusname:=Edit1.Text;
cuspass:=Edit2.Text;
except
showmessage('Please input your name and password...');
exit;
end;

customerQuery.Close;
customerQuery.ParamByName('inputname').Value:=cusname;
customerQuery.Open;

if customerQuery['KEY']=NULL then
begin
showmessage('No such customer!');
Edit1.Text:='';
Edit2.Text:='';
end
else if customerQuery['KEY']<>cuspass then
begin
showmessage('Invalid Password!');
//Edit1.Text:='';
Edit2.Text:='';
end

else
begin
cusctrl:=1;
Edit2.Text:='';
CusForm.goodsnavigator1.Visible:=TRUE;
CusForm.goodsnavigator0.Visible:=FALSE;
CusForm.Label1.Visible:=true;
CusForm.Label3.Visible:=true;
CusForm.Edit1.Visible:=true;
CusForm.Edit2.Visible:=true;
CusForm.Button1.Visible:=true;
CusForm.TabSheet2.Visible:=true;
CusForm.exportGrid.Visible:=true;
CusForm.expshowQuery.Close;
CusForm.expshowQuery.ParamByName('cusname').Value:=cusname;
CusForm.expshowQuery.Open;
CusForm.showmodal;
end;
end;

procedure TaccessForm.Button4Click(Sender: TObject);
begin
try
mngname:=Edit3.Text;
mngpass:=Edit4.Text;
except
showmessage('Please input your name and password...');
end;

managerQuery.Close;
managerQuery.ParamByName('inputname').Value:=mngname;
managerQuery.Open;

//temp:=managerQuery['mngid'];


if managerQuery['Key']=NULL then
begin
showmessage('No such manager!');
Edit3.Text:='';
Edit4.Text:='';
end

else if managerQuery['Key']<>mngpass then
begin
showmessage('Invalid Password!');
//Edit3.Text:='';
Edit4.Text:='';
end

else
begin
Edit4.Text:='';
ManagerForm.showmodal;
end;
end;

procedure TaccessForm.Button1Click(Sender: TObject);
begin
cusctrl:=0;
CusForm.goodsnavigator1.Visible:=FALSE;
CusForm.goodsnavigator0.Visible:=TRUE;
CusForm.Label1.Visible:=FALSE;
CusForm.Label3.Visible:=FALSE;
CusForm.Edit1.Visible:=FALSE;
CusForm.Edit2.Visible:=FALSE;
CusForm.Button1.Visible:=FALSE;
CusForm.TabSheet2.Visible:=false;
CusForm.exportGrid.Visible:=false;
CusForm.ShowModal;
end;

procedure TaccessForm.Button3Click(Sender: TObject);
var
tel:integer;
name:string[20];
key:string[20];

begin
if (Edit6.Text<>Edit7.Text) then
begin
showmessage('Password Disagree!');
Edit6.Text:='';
Edit7.Text:='';
end

else
begin
name:=Edit5.Text;
key:=Edit6.Text;
tel:=strtoint(Edit8.Text);
registerQuery.Close;
registerQuery.ParamByName('name').Value:=name;
registerQuery.ParamByName('key').Value:=key;
registerQuery.ParamByName('tel').Value:=tel;
registerQuery.ExecSQL;
showmessage('Congratulations! You have successfully created an account!');
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Edit8.Text:='';

end;
end;

procedure TaccessForm.Button5Click(Sender: TObject);
begin
aboutForm.ShowModal;
end;

end.