【delphi开源代码栏目提醒】：网学会员delphi开源代码为您提供ModifySell.pas参考，解决您在ModifySell.pas学习中工作中的难题，参考学习。

    unit ModifySell;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Mask;
    
    type
      TModifySellFrm = class(TForm)
        Groupbox1: TGroupBox;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        Label4: TLabel;
        Label5: TLabel;
        Label6: TLabel;
        Label7: TLabel;
        Label8: TLabel;
        DBEdit1: TDBEdit;
        DBEdit2: TDBEdit;
        DBEdit3: TDBEdit;
        DBEdit4: TDBEdit;
        DBEdit5: TDBEdit;
        DBEdit6: TDBEdit;
        DBEdit7: TDBEdit;
        DBEdit8: TDBEdit;
        GroupBox2: TGroupBox;
        Label9: TLabel;
        Label10: TLabel;
        Label11: TLabel;
        Label12: TLabel;
        DBMemo1: TDBMemo;
        DBEdit9: TDBEdit;
        DBEdit10: TDBEdit;
        DBEdit11: TDBEdit;
        DBNavigator1: TDBNavigator;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        ADOTable1: TADOTable;
        DataSource1: TDataSource;
        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
      ModifySellFrm: TModifySellFrm;
      Quantity:string;
    implementation
    
    uses Login;
    
    {$R *.dfm}
    
    procedure TModifySellFrm.FormShow(Sender: TObject);
    begin
       ADOTable1.Active:=False;
       ADOTable1.Active:=True;
       dbedit9.setfocus;
       Quantity:=DBEdit9.text;
    end;
    
    procedure TModifySellFrm.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['SellDate']:=dbedit11.Text;
            fieldvalues['SellRemark']:=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(fieldbyname('Quantity').asfloat+strtofloat(Quantity)-strtofloat(DBEdit9.Text));
            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 TModifySellFrm.Button2Click(Sender: TObject);
    begin
        if MessageDlg('确定要删除此条出库信息吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
        begin
        ADOTable1.Delete;
        showmessage('此条出库信息已经成功删除！');
        end;
    end;
    
    procedure TModifySellFrm.Button3Click(Sender: TObject);
    begin
        ModifySellFrm.hide;
    end;
    
    procedure TModifySellFrm.FormCreate(Sender: TObject);
    begin
       ADOTable1.Active:=True;   
    end;
    
    end.