网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
Delphi数据库面向对象编程范例
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
dByName(''Telephone'').AsString;
  Result:=FTelephone;
end;

{显示编码}
procedure TPerson.ShowId;
var
  IdCaption,Id:string;
begin
  Id:=FTable.FieldByName(''Id'').AsString;
  if FTable.TableName=C_tblStudent then
    IdCaption:=''Student Id:''
  else if FTable.TableName=C_tblTeacher then
    IdCaption:=''Teacher Id:'';
  ShowMessage(IdCaption+Id);
end;

{ TStudent }

{设置字段值}
procedure TStudent.BindFieldValues;
begin
  inherited;
  FTable.FieldByName(''TotalScore'').AsInteger:=FTotalScore;
end;

constructor TStudent.Create(AOwner: TComponent);
begin
  inherited;
  FTable.TableName:=C_tblStudent;
  FTable.Active:=True;
end;

{定义字段属性}
function TStudent.GetTotalScore: integer;
begin
  FTotalScore:=FTable.FieldByName(''TotalScore'').AsInteger;
  Result := FTotalScore;
end;

{保存记录}
function TStudent.Post: boolean;
begin
  FTable.Insert;
  BindFieldValues;
  Result:=Inherited Post;
end;

{ TTeacher }

{设置字段值}
procedure TTeacher.BindFieldValues;
begin
  inherited;
  FTable.FieldByName(''Subject'').AsString:=FSubject;
end;

constructor TTeacher.Create(AOwner: TComponent);
begin
  inherited;
  FTable.TableName:=C_tblTeacher;
  FTable.Active:=True;  
end;

{定义字段属性}
function TTeacher.GetSubject: string;
begin
  FSubject:=FTable.FieldByName(''Subject'').AsString;
  Result := FSubject;
end;

{保存记录}
function TTeacher.Post: boolean;
begin
  FTable.Insert;
  BindFieldValues;
  Result:=Inherited Post;
end;

end.

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号