modifyproduct.~pas

企业库存管理系统

unit modifyproduct;

interface

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

type
  Tmodifyproductfrm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn ;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modifyproductfrm: Tmodifyproductfrm;

implementation
 uses main;
{$R *.dfm}


procedure Tmodifyproductfrm.FormCreate(Sender: TObject);
begin
adotable1.active:=false;
adotable1.active:=true;
dbedit1.setfocus;
end;
procedure Tmodifyproductfrm.BitBtn1Click(Sender: TObject);
begin
if dbedit1.text='' then
   showmessage('货品编号不能为空')
else
  if dbedit2.text='' then
    showmessage('货品名称不能为空')
   else
    if dbedit5.text='' then
    showmessage('底线库存不能为空')
    else
      if dbedit6.Text='' then
      showmessage('高线库存不能为空')
      else
      begin
      with adotable1 do
       begin
        edit;
        adotable1.FieldValues['productid']:=dbedit1.text;
        adotable1.FieldValues['productname']:=dbedit2.text;
        adotable1.FieldValues['class']:=dbcombobox1.text;
        adotable1.FieldValues['spec']:=dbedit3.text;
        adotable1.FieldValues['unit']:=dbedit4.text;
        adotable1.FieldValues['min_sto']:=dbedit5.text;
        adotable1.FieldValues['max_sto']:=dbedit6.text;
        post;
        update;
        end;
showmessage('此条信息已经成功修改');
end;
end;

procedure Tmodifyproductfrm.BitBtn2Click(Sender: TObject);
begin
   adotable1.Edit;
   adotable1.delete;
   showmessage('此条信息已经成功删除');
end;

procedure Tmodifyproductfrm.BitBtn3Click(Sender: TObject);
begin
 modifyproductfrm.hide;
 mainfrm.show;
end;

end.