?? 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;
//將退貨進(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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -