unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, StdCtrls, DB, ADODB, XPMenu;
  (* aaaaaaaaaaaaaaaaaaaaaaaaaaa*)

           {進貨窗體}

  (* bbbbbbbbbbbbbbbbbbbbbbbbbbb*)
type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Edit6: TEdit;
    Button2: TButton;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}
  var i:integer;

procedure TForm4.Button1Click(Sender: TObject);
(*aaaaaaaaaaaaaaaaaaaaaaaaaaa*)
    {用于向庫存添加記錄}
(*bbbbbbbbbbbbbbbbbbbbbbbbbbb*)
begin
if messagedlg('你確定要進這批貨？',mtconfirmation,[mbyes,mbno],1)=mrno then exit;
try
dbs.db2.Append;
dbs.db2.FieldValues['型號']:=edit1.Text;
dbs.db2.FieldValues['進貨時間']:=strtodate(edit2.Text);
dbs.db2.FieldValues['進價']:=strtofloat(edit4.Text);
dbs.db2.FieldValues['數量']:=strtoint(edit5.Text);
except
showmessage('是不是有什么輸入錯誤的地方');
dbs.db2.Cancel;
exit;
end;
dbs.db2.Post;
i:=strtoint(edit5.Text);
button2.Enabled:=true;
button1.Enabled:=false;
end;

procedure TForm4.Button2Click(Sender: TObject);
var lst:tADOquery;
begin
if edit6.text='' then begin
  showmessage('串號不能為空');
  exit;
  end;
//判斷這個串號是否重復，因為串號是惟一的。

lst:=tadoquery.Create(nil);
try
lst.Connection:=dbs.ADOConnection1;
lst.Close;
lst.SQL.Clear;
lst.SQL.Add('select * from 進貨詳單 where 串號='''+edit6.Text+'''');
lst.Open;
if not lst.IsEmpty  then begin
messagebox(self.handle,'該串號已經存在！','error',1);
exit;
end;
finally
lst.Free;
end;

if i<=1 then  begin
button2.Enabled:=false;
button1.Enabled:=true;
edit5.Clear;
end;
{將數據輸入到進貨詳單中}
dbs.db1.Append;
dbs.db1.FieldValues['型號']:=edit1.Text;
dbs.db1.FieldValues['進貨時間']:=strtodate(edit2.Text);
dbs.db1.FieldValues['進價']:=strtofloat(edit4.Text);
dbs.db1.FieldValues['供貸方']:=edit3.Text;
dbs.db1.FieldValues['串號']:=edit6.Text;
dbs.db1.Post;
dec(i);
showmessage('進貨成功');
edit6.Clear;
end;
procedure TForm4.Edit1Exit(Sender: TObject);
begin
edit2.Text:=datetostr(now);
end;

procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if i>0 then  begin
showmessage('沒有輸入完所有串號，不能退出，否則將造成嚴重錯誤');
 canClose:=false
 end
 else CanClose:=true;
end;

end.