【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“DeleteCustomer.pas”一文,供大家参考学习
unit DeleteCustomer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, DB, DBTables, Mask;
type
TDeleteCustomerFrm = class(TForm)
DeleteCustomer_Table: TTable;
DeleteCustomer_DataSource: TDataSource;
DBNavigator1: TDBNavigator;
BitBtn2: TBitBtn;
BitBtn1: TBitBtn;
Customer_GroupBox: TGroupBox;
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;
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;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DeleteCustomerFrm: TDeleteCustomerFrm;
implementation
{$R *.dfm}
procedure TDeleteCustomerFrm.BitBtn2Click(Sender: TObject);
var i:integer;
begin
with DeleteCustomer_Table do
begin
if recordcount=0 then
begin
messagebox(DeleteCustomerFrm.handle,'数据库为空!','警告',mb_ok+mb_iconwarning);
end
else
begin
delete;
update;
for i:=1 to recordcount do
begin
//-------更新顾客数据库------
edit;
fieldvalues['CustomerID']:=inttostr(i);
post;
update;
end;
end;
end;
end;
procedure TDeleteCustomerFrm.BitBtn1Click(Sender: TObject);
begin
DeleteCustomerFrm.hide;
end;
procedure TDeleteCustomerFrm.FormShow(Sender: TObject);
begin
DeleteCustomer_Table.active:=False;
DeleteCustomer_Table.active:=True;
end;
end.