unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, DB, ADODB, Grids, DBGrids, StdCtrls, ImgList, ComCtrls,
  ToolWin, XPMenu;

type
(*aaaaaaaaaaaaaaaaaaaaaa*)

        //庫存查詢窗體

(*bbbbbbbbbbbbbbbbbbbbbb*)

  TForm11 = class(TForm)
    db2: TADOQuery;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ImageList1: TImageList;
    ToolButton3: TToolButton;
    db2DSDesigner: TWideStringField;
    db2DSDesigner2: TDateTimeField;
    db2DSDesigner3: TFloatField;
    db2DSDesigner4: TSmallintField;
    DBGrid1: TDBGrid;
    XPMenu1: TXPMenu;
    db2Field: TFloatField;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure db2CalcFields(DataSet: TDataSet);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation


{$R *.dfm}

procedure TForm11.ToolButton1Click(Sender: TObject);
//查詢全部庫存;
begin
db2.Close;
db2.SQL.Clear;
db2.SQL.add('select * from 庫存詳單');
db2.Open;


end;

procedure TForm11.ToolButton2Click(Sender: TObject);
var tp:string;
begin
tp:=inputbox('查詢','請輸入要查詢的型號','');
db2.Close;
db2.SQL.Clear;
db2.SQL.Add('select * from 庫存詳單 where 型號='''+tp+'''');
db2.Open;

end;





procedure TForm11.FormCreate(Sender: TObject);
begin
db2.Open;
end;

procedure TForm11.db2CalcFields(DataSet: TDataSet);
begin
db2field.Value:=db2DSDesigner3.value*db2DSDesigner4.value;

end;

end.