rkdj.~pas

企业库存管理系统

unit rkdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Trkdjfrm = class(TForm)
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ComboBox2: TComboBox;
    Edit2: TEdit;
    Label5: TLabel;
    ComboBox3: TComboBox;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Edit6: TEdit;
    Label10: TLabel;
    Edit7: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Label12: TLabel;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    memo1: TMemo;
    Label8: TLabel;
    Edit5: TEdit;
    Label13: TLabel;
    Edit9: TEdit;
    BitBtn1: TBitBtn;
    Label14: TLabel;
    Edit10: TEdit;
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rkdjfrm: Trkdjfrm;

implementation
 uses main;
{$R *.dfm}

procedure Trkdjfrm.btnOkClick(Sender: TObject);
var payment,quantity:string;
begin
if combobox1.Text='' then
  showmessage('请选择供货单位！')
else
 if combobox2.Text='' then
   showmessage('请选择仓库！')
 else
   if combobox3.Text='' then
    showmessage('请选择入库货品！')
   else
    if edit6.text='' then
     showmessage('请输入货品数量！')
    else
     if edit7.Text='' then
     showmessage('请输入货品单价！')
     else
begin
 payment:=floattostr(strtofloat(edit6.Text)*strtofloat(edit7.Text));//得到总付款数
 edit10.Text:=payment;
 with adoquery1 do
   begin
   close;
   sql.Clear;
   sql.Add('insert into STOCK(stockid,feederid,feedername,depotid,depotname,productid,productname,spec,unit,quantity,unitprice,payment,stockdate,stockremark)values(');
   sql.Add(''''+edit9.text+''''+','+''''+combobox1.Text+''''+','+''''+edit1.Text+''''+','+''''+combobox2.Text+''''+','+''''+edit2.Text+''''+','+''''+combobox3.Text+''''+','+''''+edit3.Text+''''+',');
   sql.Add(''''+edit4.Text+''''+','+''''+edit5.Text+''''+','+''''+edit6.Text+''''+','+''''+edit7.Text+''''+','+''''+payment+''''+','+''''+edit10.Text+''''+','+''''+memo1.Text+''''+')');
   sql.Add('select *  from STOCK where depotid='+''''+combobox2.Text+''''+' and productid='+''''+combobox3.Text+'''');
   open;
   first;
   if recordcount=0 then
    begin
    sql.Add('insert into STORAGE (stockid,depotid,depotname,productid,productname,spec,unit,quantity)');
    sql.Add('values('+''''+edit9.text+''''+','+''''+combobox2.Text+''''+','+''''+edit2.Text+''''+','+''''+combobox3.Text+''''+',');
    sql.Add(''''+edit3.Text+''''+','+''''+edit4.Text+''''+','+''''+edit5.Text+''''+','+''''+edit6.Text+''''+')');
    execsql;
    end
   else
     begin
      quantity:=floattostr(strtofloat(edit6.Text)+fieldbyname('quantity').AsFloat);
      sql.Add('update STORAGE set quantity='+''''+quantity+'''');
      execsql;
      end;
   showmessage('入库登记成功！');
   end;
   end;   
end;

procedure Trkdjfrm.btnCancelClick(Sender: TObject);
begin
close;
end;

procedure Trkdjfrm.BitBtn1Click(Sender: TObject);
begin
mainfrm.Show;
rkdjfrm.Hide;
end;

end.