modifysell.pas

完整的delphi书籍源代码,大家有空的时候自己慢慢看看

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.