unit9.pas

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

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Label1: TLabel;
    noEdit: TEdit;
    Button2: TButton;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOCommand1: TADOCommand;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    Label5: TLabel;
    ownerEdit: TEdit;
    Label2: TLabel;
    nameEdit: TEdit;
    Label6: TLabel;
    snoEdit: TEdit;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit2;

{$R *.dfm}
procedure TForm9.FormShow(Sender: TObject);
begin
   noEdit.Text:='';//所有输入框中的值清空
   nameEdit.Text:='';
   snoEdit.Text:='';
   ownerEdit.Text:='';


end;

procedure TForm9.Button1Click(Sender: TObject);
var
  a:Integer;
  b:Integer;
  c:Integer;
begin
a:=0;
b:=0;
c:=0;
if (ownerEdit.Text<>'') then begin a:=1; end;
if (nameEdit.Text<>'') then begin b:=1; end;
if (snoEdit.Text<>'') then begin c:=1; end;
if (a=1) and (b=1) and (c=1) then
 begin
      ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (货主='''+ownerEdit.Text+''') and (货物名='''+nameEdit.Text+''') and (仓库号='''+snoEdit.Text+''') ');
    ADOQuery1.Open;

 end;
 if (a=1) and (b=1) and (c=0) then
 begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (货主='''+ownerEdit.Text+''') and (货物名='''+nameEdit.Text+''')  ');
    ADOQuery1.Open;

 end;
 if (a=1) and (b=0) and (c=1) then
 begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (货主='''+ownerEdit.Text+''')  and (仓库号='''+snoEdit.Text+''') ');
    ADOQuery1.Open;

 end;
 if (a=1) and (b=0) and (c=0) then
 begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (货主='''+ownerEdit.Text+''')  ');
    ADOQuery1.Open;

 end;
 if (a=0) and (b=1) and (c=1) then
 begin
     ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where  (货物名='''+nameEdit.Text+''') and (仓库号='''+snoEdit.Text+''') ');
    ADOQuery1.Open;

 end;
 if (a=0) and (b=1) and (c=0) then
 begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where  (货物名='''+nameEdit.Text+''')  ');
    ADOQuery1.Open;

 end;
 if (a=0) and (b=0) and (c=1) then
 begin
     ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (仓库号='''+snoEdit.Text+''') ');
    ADOQuery1.Open;

 end;

if(a=0) and (b=0) and (c=0)then
 begin
    showmessage(' 请输入查询条件');
 end;


end;

procedure TForm9.Button2Click(Sender: TObject);
begin
if (noEdit.Text='') then
 begin
 showmessage(' 请输入查询条件');
 end
else
 begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from good where (货物号='''+noEdit.Text+''') ');
    ADOQuery1.Open;
 end

end;

procedure TForm9.Button3Click(Sender: TObject);
begin

     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT * FROM good ORDER BY 货物号');
     ADOQuery1.Close;
     ADOQuery1.Open;
   
end;

procedure TForm9.Button4Click(Sender: TObject);
begin
form2.show;
form9.Hide;
end;



procedure TForm9.FormCreate(Sender: TObject);
begin
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('SELECT * FROM good ORDER BY 货物号');
     ADOQuery1.Close;
     ADOQuery1.Open;
end;

end.