unit1.pas

一个小型的仓库管理系统实现了出库和入库的基本功能

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery1: TADOQuery;
    BitBtn5: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOCommand1: TADOCommand;

    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses  Unit2, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select 密码 from login where 用户名='''+Edit1.Text+''' and 密码='''+Edit2.Text+'''  ';
 ADOQuery1.Open;
 if(ADOQuery1.FieldByName('密码').AsString<>'') then
  begin
      form2.Show;
      form1.Hide;
  end
 else
  begin
     showmessage('输入密码不正确，请重新输入!');
  end;
edit1.text:='';
edit2.text:='';

end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  form7.Show;   //注册
  form1.Hide;
  edit1.text:='';
  edit2.text:='';
end;

procedure TForm1.BitBtn4Click(Sender: TObject);//注销
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select 密码 from login where 用户名='''+Edit1.Text+''' and 密码='''+Edit2.Text+'''  ';
  ADOQuery1.Open;
  if(ADOQuery1.FieldByName('密码').AsString<>'') then
   begin
      ADOCommand1.CommandText:='DELETE FROM login  WHERE 用户名='''+Edit1.Text+''' ';
      ADOCommand1.Execute;
      showmessage(''''+Edit1.Text+'''注销成功!');
   end
  else
   begin
     showmessage('输入密码不正确，请重新输入!');
   end;
edit1.text:='';
edit2.text:='';
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  form8.Show;//修改密码
  form1.Hide;
  edit1.text:='';
  edit2.text:='';
end;

end.