editcustomer.pas

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

unit EditCustomer;

interface

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

type
  TEditCustomerFrm = class(TForm)
    EditCustomer_DBNavigator: TDBNavigator;
    Customer_GroupBox: TGroupBox;
    CustomerRemark_GroupBox: TGroupBox;
    CustomerRemark_DBEdit: TDBEdit;
    CompanyName_DBEdit: TDBEdit;
    LinkMan_DBEdit: TDBEdit;
    Address_DBEdit: TDBEdit;
    City_DBEdit: TDBEdit;
    Region_DBEdit: TDBEdit;
    Zipcode_DBEdit: TDBEdit;
    Tel_DBEdit: TDBEdit;
    Fax_DBEdit: TDBEdit;
    Homepage_DBEdit: TDBEdit;
    EditCustomer_DataSource: TDataSource;
    EditCustomer_Table: TTable;
    EditCustonerOk_BitBtn: TBitBtn;
    EditCustonerReturn_BitBtn: TBitBtn;
    CompanyName_Label: TLabel;
    LinkMan_Label: TLabel;
    Address_Label: TLabel;
    City_Label: TLabel;
    Region_Label: TLabel;
    ZipCode_Label: TLabel;
    Tel_Label: TLabel;
    Homepage_Label: TLabel;
    Fax_Label: TLabel;
  procedure EditCustonerOk_BitBtnClick(Sender: TObject);
    procedure EditCustonerReturn_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditCustomerFrm: TEditCustomerFrm;

implementation

{$R *.dfm}
procedure TEditCustomerFrm.EditCustonerOk_BitBtnClick(Sender: TObject);
begin
    with EditCustomer_Table do
       begin
        //-------修改顾客数据库------
        edit;
        fieldvalues['CompanyName']:=CompanyName_DBEdit.Text;
        fieldvalues['LinkMan']:=LinkMan_DBEdit.Text;
        fieldvalues['Address']:=Address_DBEdit.Text;
        fieldvalues['City']:=City_DBEdit.Text;
        fieldvalues['Region']:=Region_DBEdit.Text;
        fieldvalues['Zipcode']:=Zipcode_DBEdit.Text;
        fieldvalues['Tel']:=Tel_DBEdit.Text;
        fieldvalues['Fax']:=Fax_DBEdit.Text;
        fieldvalues['Homepage']:=Homepage_DBEdit.Text;
        fieldvalues['CustomerRemark']:=CustomerRemark_DBEdit.Text;
        post;
        update;
       end;  
end;

procedure TEditCustomerFrm.EditCustonerReturn_BitBtnClick(Sender: TObject);
begin    
   EditCustomerFrm.hide;
end;

procedure TEditCustomerFrm.FormShow(Sender: TObject);
begin
  EditCustomer_Table.active:=False;
  EditCustomer_Table.active:=True;
end;

end.