editproduct.pas

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

unit EditProduct;

interface

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

type
  TEditProductFrm = class(TForm)
    EditProduct_DBNavigator: TDBNavigator;
    EditProductOk_BitBtn: TBitBtn;
    EditProductReturn_BitBtn: TBitBtn;
    EditProduct_Table: TTable;
    EditProduct_DataSource: TDataSource;
    Product_GroupBox: TGroupBox;
    ProductName_Label: TLabel;
    Spec_Label: TLabel;
    Unit_Label: TLabel;
    ProductRemark_GroupBox: TGroupBox;
    ProductRemark_DBEdit: TDBEdit;
    ProductName_DBEdit: TDBEdit;
    Spec_DBEdit: TDBEdit;
    Unit_DBEdit: TDBEdit;
    procedure EditProductReturn_BitBtnClick(Sender: TObject);
    procedure EditProductOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditProductFrm: TEditProductFrm;

implementation



{$R *.dfm}

procedure TEditProductFrm.EditProductReturn_BitBtnClick(Sender: TObject);
begin 
   EditProductFrm.hide;
end;

procedure TEditProductFrm.EditProductOk_BitBtnClick(Sender: TObject);
begin
    with EditProduct_Table do
       begin
        edit;
        //-------修改商品数据库------
        fieldvalues['productName']:=ProductName_DBEdit.Text;
        fieldvalues['spec']:=Spec_DBEdit.Text;
        fieldvalues['unit']:=Unit_DBEdit.Text;
        fieldvalues['productremark']:=Productremark_DBEdit.Text;
        post;
        update;
       end;    
end;

procedure TEditProductFrm.FormShow(Sender: TObject);
begin
  EditProduct_Table.active:=False;
  EditProduct_Table.active:=True;
end;

end.