【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：ModifyStock.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    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.