editfeeder.pas

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

unit EditFeeder;

interface

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

type
  TEditFeederFrm = class(TForm)
    EditFeeder_DBNavigator: TDBNavigator;
    Feeder_GroupBox: TGroupBox;
    CompanyName_Label: TLabel;
    LinkMan_Label: TLabel;
    Address_Label: TLabel;
    City_Label: TLabel;
    Region_Label: TLabel;
    Zipcode_Label: TLabel;
    Tel_Label: TLabel;
    Fax_Label: TLabel;
    Homepage_Label: TLabel;
    FeederRemark_GroupBox: TGroupBox;
    FeederRemark_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;
    EditFeederOk_BitBtn: TBitBtn;
    EditFeederReturn_BitBtn: TBitBtn;
    EditFeeder_Table: TTable;
    EditFeeder_DataSource: TDataSource;

    procedure EditFeederReturn_BitBtnClick(Sender: TObject);
    procedure EditFeederOk_BitBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditFeederFrm: TEditFeederFrm;

implementation

{$R *.dfm}
procedure TEditFeederFrm.EditFeederReturn_BitBtnClick(Sender: TObject);
begin
   EditFeederFrm.hide;
end;

procedure TEditFeederFrm.EditFeederOk_BitBtnClick(Sender: TObject);
begin
     with EditFeeder_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['FeederRemark']:=FeederRemark_DBEdit.Text;
        post;
        update;
       end;  
end;


procedure TEditFeederFrm.FormShow(Sender: TObject);
begin
  EditFeeder_Table.active:=False;
  EditFeeder_Table.active:=True;
end;

end.