unit4.pas

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

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.