modifystock.pas

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· PAS 代码 · 共 139 行

unit ModifyStock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB;

type
  TModifyStockFrm = class(TForm)
    Groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBNavigator1: TDBNavigator;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ModifyStockFrm: TModifyStockFrm;
  Quantity:string;
implementation

uses Login;

{$R *.dfm}

procedure TModifyStockFrm.FormShow(Sender: TObject);
begin
   ADOTable1.Active:=False;
   ADOTable1.Active:=True;
   dbedit9.setfocus;
   Quantity:=DBEdit9.text;

end;



procedure TModifyStockFrm.Button1Click(Sender: TObject);

begin

     if DBEdit9.text='' then
         showmessage('请输入货品数量')
     else
       if DBEdit10.text='' then
         showmessage('请输入货品单价')
       else
         if DBEdit10.text='' then
          showmessage('请输入入库时间')
         else

     begin
     with ADOTable1 do
       begin

        edit;
        fieldvalues['Quantity']:=dbedit9.Text;
        fieldvalues['UnitPrice']:=dbedit10.Text;
        fieldvalues['StockDate']:=dbedit11.Text;
        fieldvalues['StockRemark']:=dbmemo1.Text;
        fieldvalues['Payment']:=strtofloat(dbedit9.Text)*strtofloat(dbedit10.text);
        post;
        update;
       end;
     with LoginFrm.adoquery1 do
       begin
        close;
        sql.Clear;
        sql.add('select * from Storage where convert(varchar,ProductID)='+''''+DBEdit5.text+''''+' and  convert(varchar,DepotID)='+''''+DBEdit3.text+'''');
        open;
        first;
        Quantity:=floattostr(strtofloat(DBEdit9.Text)+fieldbyname('Quantity').asfloat-strtofloat(Quantity));
        sql.Add('update Storage set Quantity='+''''+Quantity+''''+' where convert(varchar,ProductID)='+''''+DBEdit5.text+''''+' and  convert(varchar,DepotID)='+''''+DBEdit3.text+'''');
        execsql;
       end;
       Quantity:=dbedit9.text;
      showmessage('此条入库信息已经成功修改！');
    end;
        
end;

procedure TModifyStockFrm.Button2Click(Sender: TObject);
begin
    if MessageDlg('确定要删除此条入库信息吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
    begin
    ADOTable1.Delete;
    showmessage('此条入库信息已经成功删除！');
    end;
end;

procedure TModifyStockFrm.Button3Click(Sender: TObject);
begin
    ModifyStockFrm.hide;
end;

procedure TModifyStockFrm.FormCreate(Sender: TObject);
begin
    ADOTable1.Active:=True;
end;

end.