unit15.pas

仓库管理系统

unit Unit15;

interface

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

type
  TForm15 = class(TForm)
    PageControl3: TPageControl;
    TabSheet2: TTabSheet;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOConnection2: TADOConnection;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOConnection3: TADOConnection;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    TabSheet1: TTabSheet;
    ListView1: TListView;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListView2: TListView;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ListView3: TListView;
    GroupBox3: TGroupBox;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.Button2Click(Sender: TObject);
begin
    if Length(Edit1.Text)<> 3 then
    begin
MessageDlg('商品号不正确',mtError,[mbok],0);
   Exit;
   end;

   if strtoint(edit3.Text)<0  then
   begin
MessageDlg('数量不正确',mtError,[mbok],0);
   Exit;
   end;

try
with ADOQuery1 do
      begin
        ADOQuery1.SQL.Clear;
ADOQuery1.SQl.Add('insert  into Table2(spnum,intime,innum,gysnum) values(:spnum,:intime,:innum,:gysnum)');
Parameters.ParamByName('spnum').Value :=Edit1.Text;
Parameters.ParamByName('intime').Value :=Edit2.Text;
Parameters.ParamByName('innum').Value :=Edit3.Text;
Parameters.ParamByName('gysnum').Value :=Edit4.Text;
   ExecSQL;
  end;
with ADOQuery2 do
begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQl.Add('update Table1 set num=num+'''+edit3.Text+''' where spnum='''+edit1.text+'''');
ExecSQL;
end;


except
MessageDlg('添加<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;
 end;
  end;



procedure TForm15.Button1Click(Sender: TObject);
begin
  try
    with ADOQuery1 do
begin
      ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('select * from Table2 order by spnum');
      Open;
      ListView1.Items.Clear;
      while not Eof do
      begin
        with ListView1.Items.Add do
        begin
Caption:=FieldByName('spnum').AsString;
SubItems.Add(FieldByName('intime').AsString);
SubItems.Add(FieldByName('innum').AsString);
SubItems.Add(FieldByName('gysnum').AsString);
        end;
   Next;
    end;  Close;
    end;
  except
    ListView1.Items.Clear;
    MessageDlg('刷新出错',mtError,[mbok],0);
  end; end;

procedure TForm15.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm15.Button4Click(Sender: TObject);
begin
  try
    with ADOQuery3 do
begin
      ADOQuery3.SQL.Clear;
   ADOQuery3.SQL.Add('select * from Table3 order by spnum');
      Open;
      ListView2.Items.Clear;
      while not Eof do
      begin
        with ListView2.Items.Add do
        begin
Caption:=FieldByName('spnum').AsString;
SubItems.Add(FieldByName('outtime').AsString);
SubItems.Add(FieldByName('outnum').AsString);
        end;
   Next;
    end;  Close;
    end;
  except
    ListView2.Items.Clear;
    MessageDlg('刷新出错',mtError,[mbok],0);
  end; end;

procedure TForm15.Button5Click(Sender: TObject);
begin
    if Length(Edit5.Text)<> 3 then
    begin
MessageDlg('商品号不正确',mtError,[mbok],0);
   Exit;
end;
try
with ADOQuery3 do
      begin
        ADOQuery3.SQL.Clear;
ADOQuery3.SQl.Add('insert  into Table3(spnum,outtime,outnum) values(:spnum,:outtime,:outnum)');
Parameters.ParamByName('spnum').Value :=Edit5.Text;
Parameters.ParamByName('outtime').Value :=Edit6.Text;
Parameters.ParamByName('outnum').Value :=Edit7.Text;
ADOQuery3.ExecSQL;
  end;
with ADOQuery4 do
begin
ADOQuery4.SQL.Clear;
ADOQuery4.SQl.Add('update Table1 set num=num-'''+edit7.Text+''' where spnum='''+edit5.text+'''');
ExecSQL;
end;


except
MessageDlg('添加<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;
 end;
  end;

procedure TForm15.Button6Click(Sender: TObject);
begin
close;
end;

procedure TForm15.Button7Click(Sender: TObject);
begin
  try
    with ADOQuery5 do
begin
      ADOQuery5.SQL.Clear;
   ADOQuery5.SQL.Add('select * from Table4 order by spnum');
      Open;
      ListView3.Items.Clear;
      while not Eof do
      begin
        with ListView3.Items.Add do
        begin
Caption:=FieldByName('spnum').AsString;
SubItems.Add(FieldByName('bftime').AsString);
SubItems.Add(FieldByName('bfnum').AsString);
        end;
   Next;
    end;  Close;
    end;
  except
    ListView3.Items.Clear;
    MessageDlg('刷新出错',mtError,[mbok],0);
  end; end;
procedure TForm15.Button8Click(Sender: TObject);
begin
    if Length(Edit8.Text)<> 3 then
    begin
MessageDlg('商品号不正确',mtError,[mbok],0);
   Exit;
end;
try
with ADOQuery5 do
      begin
        ADOQuery5.SQL.Clear;
ADOQuery5.SQl.Add('insert  into Table4(spnum,bftime,bfnum) values(:spnum,:bftime,:bfnum)');
Parameters.ParamByName('spnum').Value :=Edit8.Text;
Parameters.ParamByName('bftime').Value :=Edit9.Text;
Parameters.ParamByName('bfnum').Value :=Edit10.Text;
ADOQuery5.ExecSQL;
  end;
with ADOQuery6 do
begin
ADOQuery6.SQL.Clear;
ADOQuery6.SQl.Add('update Table1 set num=num-'''+edit10.Text+''' where spnum='''+edit8.text+'''');
ExecSQL;
end;


except
MessageDlg('添加<'+Edit1.Text+'>失败',mtError,[mbok],0);
Exit;
 end;
  end;
procedure TForm15.Button9Click(Sender: TObject);
begin
close;
end;

end.