【delphi开源代码栏目提醒】:以下是网学会员为您推荐的delphi开源代码-EditCustomer.pas,希望本篇文章对您学习有所帮助。
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.
上一篇:
EDITBOX.PAS
下一篇:
哈弗F7 VS名爵HS,谁更懂得年轻人的心?