unit Unit15;

interface

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

type

 (*aaaaaaaaaaaaaaaaaaaaaaa*)

      //用于退貨的窗體

 (*bbbbbbbbbbbbbbbbbbbbbbb*)
  TForm15 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    DataSource1: TDataSource;
    db3: TADOQuery;
    db2: TADOQuery;
    DBGrid1: TDBGrid;
    Button2: TButton;
    XPMenu1: TXPMenu;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

{$R *.dfm}

procedure TForm15.Button2Click(Sender: TObject);
var r,s,t:string;
begin   //        退貨的過程；
if db3.RecordCount<>1 then begin
   showmessage('沒有記錄或不明原因，請確定一次只能退貨一臺');
   exit;
   end;
if messagedlg('你確定要退貨',mtconfirmation,[mbyes,mbno],1)=mrno then exit;
//將退貨進(jìn)入到庫存中
r:=db3.FieldValues['型號'];
s:=db3.fieldvalues['進(jìn)貨時間'];
t:=db3.fieldvalues['進(jìn)價1'] ;

db2.Close;
db2.SQL.Clear;
db2.SQL.Add('insert into 庫存詳單 (型號,進(jìn)貨時間,進(jìn)價,數(shù)量)  values');
//db2.sql.Add('(''218'',''2002-4-5'',45,1)');
db2.SQL.Add(format('(''%s'',''%s'',%s,1)',[r,s,t] ));

db2.ExecSQL;
//入庫后，將該記錄從銷售表中刪除；
db3.Delete;
showmessage('成功退貨');

end;

procedure TForm15.Button1Click(Sender: TObject);
begin   //查看要退貨的機(jī)器的狀態(tài)；
db3.Close;
db3.sql.Clear;
db3.sql.Add('select * from 銷售情況 where ');
db3.sql.add('串號='''+edit1.Text+'''');
db3.Open;

end;

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

end.