unit15.pas

用于开发税务票据管理的软件

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;
//将退货进入到库存中
r:=db3.FieldValues['型号'];
s:=db3.fieldvalues['进货时间'];
t:=db3.fieldvalues['进价1'] ;

db2.Close;
db2.SQL.Clear;
db2.SQL.Add('insert into 库存详单 (型号,进货时间,进价,数量)  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   //查看要退货的机器的状态；
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.