数据库类的问题 ( 积分: 100 )

sgpxd · 2007-03-16

请问： 我声明了一个类，其中有对数据库的添加，删除，修改等方法。 在程序中，调用删除运行正常，调用添加和删除后，程序就死了，delphi的cpu占用率变高了。 把这两个方法的实现部分注释掉，提示stack overflow 类声明如下 //添加部分有2个子过程， type   //员工   TEmployee = class (TObject)   private     Fid    : Integer;    //id     FCode  : string;     // 编码     FName  : string;     // 姓名     FDepID : Integer;    //部门id     FMob   : string;     //移动电话     FTel   : string;     //电话     FEMail : string;     //电子邮件     FOicq  : string;     //Oicq     FMSN   : string;     //MSN     FBal   : Real;       //余额     FRemark   : string;  //备注     FDepName : string;   //部门名称     FQuery : TADOQuery;   public     procedure Setid(const Val : Integer);     procedure SetCode(const Val : string);     procedure SetName(const Val : string);     procedure SetDepID(const Val : Integer);     procedure SetMob(const Val : string);     procedure SetTel(const Val : string);     procedure SetEmail(const Val : string);     procedure SetOicq(const Val : string);     procedure SetMSN(const Val : string);     procedure SetBal(const Val : Real);     procedure SetRemark(const Val : string);     procedure SetDepName(const Val : string);     property id : Integer read Fid write Setid;     property Code : string read FCode write SetCode;     property Name : string read FName write SetName;     property DepID : Integer read FDepID write SetDepID;     property Mob : string read FMob write SetMob;     property Tel : string read FTel write SetTel;     property EMail : string read FEMail write SetEMail;     property Oicq : string read FOicq write SetOicq;     property MSN : string read FMSN write SetMSN;     property Bal : Real read FBal write SetBal;     property Remark : string read FRemark write SetRemark;     property DepName : string read FDepName write SetDepName;     function Insert : Boolean;     function Amend (id : Integer): Boolean;     function Delete (id : Integer) : Boolean;     procedure GetAllField(const xQuery : TADOQuery);     constructor create; overload;     destructor destroy; override;   end; //初始化 constructor TEmployee.create; begin   inherited create; //  FQuery := TADOQuery.Create(nil); //  FQuery.Connection := dm.con1; end; //修改 function TEmployee.Amend(id : Integer): Boolean; begin  { Result := False;   if id >0 then   begin     try      { with FQuery do       begin         Close;         SQL.Clear;         SQL.Add('insert into dm_yg set ygxm=:ygxm,depid=:depid,stdh=:stdh,');         SQL.Add('ggdh=:ggdh,dzyx=:dzyx,qq=:qq,msn=:msn,bz=:bz,zhje=:zhje where [id]=:id');         Parameters.ParamByName('ygxm').Value := FName;         Parameters.ParamByName('depid').Value := FDepID;         Parameters.ParamByName('stdh').Value := FMob;         Parameters.ParamByName('ggdh').Value := FTel;         Parameters.ParamByName('dzyx').Value := FEMail;         Parameters.ParamByName('qq').Value := FOicq;         Parameters.ParamByName('msn').Value := FMSN;         Parameters.ParamByName('bz').Value := FRemark;         Parameters.ParamByName('zhje').Value := FBal;         Parameters.ParamByName('id').Value := id;         ExecSQL;       end;       Result := True;     except       Application.MessageBox('修改失败，请重新运行程序！', MB_Title, MB_OK +         MB_ICONSTOP + MB_TOPMOST);       Result:= False;     end;   end;    } end; //从数据库删除 function TEmployee.Delete(id : Integer): Boolean; begin   Result := False;   if ID > 0 then   begin     try       with FQuery do       begin         if Application.MessageBox('是否删除该项数据？', MB_Title, MB_YESNO + MB_ICONQUESTION + MB_TOPMOST) = IDNO then Exit;         with FQuery do         begin           Close;           SQL.Clear;           SQL.Add('select * from dm_yg where [id]=:id');           Parameters.ParamByName('id').Value := ID;           Open;           if RecordCount > 0 then           begin             if Application.MessageBox('该数据项正被其他数据使用，是否删除？',  MB_Title, MB_YESNO + MB_ICONWARNING + MB_TOPMOST) = IDNO then Exit;             Close;             SQL.Clear;             SQL.Add('delete from dm_yg where [id]=:id');             Parameters.ParamByName('id').Value := ID;             ExecSQL;           end;         end;       end;       Result := True;     except       Application.MessageBox('无法删除，请重新运行程序！', MB_Title, MB_OK +         MB_ICONSTOP + MB_TOPMOST);       Result:=False;     end;   end; end; //析构 destructor TEmployee.destroy; begin   inherited;   FQuery.Close;   FreeAndNil(FQuery); end;

bbscom · 2007-03-16

取消类的法再试一试，如果没有问题应该是你的类有问题了。

sgpxd · 2007-03-16

我把amend中间的代码全部注释掉了，编译执行提示stack overflow 如果不注释掉的话，连提示都没有就直接死了

louqing_2 · 2007-03-16

//析构 destructor TEmployee.destroy; begin      FQuery.Close;   FreeAndNil(FQuery); inherited; //我看到好多此句是在最后的，你试一下吧 end;

lisongmagic · 2007-03-16

1 constructor create; overload; 改为 constructor create; override; 2 constructor TEmployee.create; begin   inherited create; //  FQuery := TADOQuery.Create(nil); //  FQuery.Connection := dm.con1; end; 中 //  FQuery := TADOQuery.Create(nil); //  FQuery.Connection := dm.con1; 不能给注释掉了

sgpxd · 2007-03-16

继续死机 在 x: temployee; x:=temployee.create; x.setname('X001'); x.amend(x.id); 这个时候就死了，应该还没到destroy才对。 x.id 不是空的。

sgpxd · 2007-03-16

constructor create; override; can't override a static method.

tyj06102000 · 2007-03-16

can't override a static method?报错

nicai_wgl · 2007-03-16

没看出什么大问题来，调试时跟一下，看在哪个地方出问题了。

sgpxd · 2007-03-16

谢谢各位帮忙。。 原因找到了。。。 因为没有delphi环境，用文本写的时候，敲错了一个字段。。

lisongmagic · 2007-03-16

unit Unit2; interface type   TEmployee = class(TObject)   private     FDepName: string;     procedure SetDepName(const Value: string);     { Private declarations }   public     property DepName : string read FDepName write SetDepName;     constructor create;     destructor destroy; override;   end; implementation { TForm1 } constructor TEmployee.create; begin   inherited;   DepName:= 'lisongmagic'; end; destructor TEmployee.destroy; begin   inherited; end; procedure TEmployee.SetDepName(const Value: string); begin   FDepName := Value; end; end. ******************************************************************* unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation uses  unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var   aEmployee: TEmployee; begin   aEmployee:= TEmployee.create;   Edit1.Text:= aEmployee.DepName; end; end. 我的就没问题. to: 继续死机 在 x: temployee; x:=temployee.create; x.setname('X001'); x.amend(x.id); 这个时候就死了，应该还没到destroy才对。 x.id 不是空的。 为什么 要这样用 x.setname('X001'),而不是 x.name:= 'X001'; setname等这些属性的写方法为什么都要放到 public权限下?

nicai_wgl · 2007-03-16

呵呵，用文本写？怎么调试？晕哦

sgpxd · 2007-03-16

为什么 要这样用 x.setname('X001'),而不是 x.name:= 'X001'; setname等这些属性的写方法为什么都要放到 public权限下? 第一个 防止手误。。。。 第二个 以前放入private中，在其他单元无法使用 -_-! 我也不知道为什么。。 按说F字段都能访问到。。。。 这些都是看来的。

sgpxd · 2007-03-16

nicai_wgl 我也不想啊，我公司的电脑有点问题。 每次写的程序回家修改的时候，总会有.dcu的文件不能写 都要把dcu和临时文件清掉才行。。。。

马丁路德 · 2007-03-16

按说F字段都能访问到。。。。 错！类的私有变量只供本身和其实例调用 property 还是放到Published里 另外你定义那么多属性，要我只要一个记录类型就OK

nicai_wgl · 2007-03-16

恩，这是盗版DELPHI的问题，看帖子 http://www.delphibbs.com/delphibbs/dispq.asp?lid=3674550

sgpxd · 2007-03-18

马丁路德 在private中的字段 只要在public 中声明property就可以在其他单元访问了， 但是同样的，如果把过程在private中声明了，即使在public中声明了property方法。 在其他单元中还是不能访问。 public 和published。。。书上说的看不出有什么区别. 能否请详细解释下。 属性可以放到纪录类型，但是还有些过程。。。 PS我只是学习下oo。。。。

马丁路德 · 2007-03-19

在private中的字段   只要在public 中声明property就可以在其他单元访问了 这是因为一般你定义一个字段之后，都会用一个方法来访问它， 例如 property Ffont: TFont; read getfont write setfont; 或者干脆：property Ffont: Tfont; read ffont write ffont 但是这做没有什么意义，因为你定义私有变量的目的就是为了 把数据和方法隔离。 如果这样你还不如直接把它放到Public里. Published是在属性面板里可以直接控制的（我的理解）。 如果你把这个类做成一个组件安装到delphi里就能看出来了 另外设计write方法的目的一般是为了对用户的输入进行过滤 比如是否越界等等 一般的做法：定义字段在private域，设计read 和write (如果只读就不需要了)方法（也在private），然后设计一个 property (Published)，这是组件的一般设计方法。 如果你不用组件的话，直接公开read和write方法就行了

sgpxd · 2007-03-21

我定义了write方法就是为了控制越界问题 /lh 谢谢你的解释，不过我现在还没做成组件。

数据库类的问题 ( 积分: 100 )

sgpxd

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

louqing_2

Unregistered / Unconfirmed

lisongmagic

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

tyj06102000

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

lisongmagic

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

马丁路德

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

马丁路德

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

Similar threads

数据库 类 的问题 ( 积分: 100 )

sgpxd

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

louqing_2

Unregistered / Unconfirmed

lisongmagic

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

tyj06102000

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

lisongmagic

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

马丁路德

Unregistered / Unconfirmed

nicai_wgl

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

马丁路德

Unregistered / Unconfirmed

sgpxd

Unregistered / Unconfirmed

Similar threads

数据库类的问题 ( 积分: 100 )