Delphi和C++ Builder中的Hibernate开发（六）

最新推荐文章于 2024-11-02 14:41:43 发布

angoupi0232

最新推荐文章于 2024-11-02 14:41:43 发布

阅读量135

点赞数

文章标签： c/c++ java 数据库

原文链接：http://www.cnblogs.com/gowithyou/archive/2012/02/26/2368621.html

版权

下面用一个Demo展示本框架的应用，对前述数据库的Members、Researchs和Warnings表进行CRUD的操作。本例来自于CnPack的CnDHibernate，根据本框架进行了修改。

程序主窗体如下：

在主窗体创建时，也实例化TDataController对象。

procedure TFormMain.FormCreate(Sender: TObject);
begin
  //ADOConnection

  Connection.Open;

  //创建TDataController对象

  dc := TDataController.Create(Connection.ConnectionString);
  dc.OpenConnection;

  //打开Members表

  qry1.Open;
end;

点击“添加成员”按钮，进入子窗口：

输入数据后，点击确认，就会增加一条记录。修改成员和增加成员的共用一个窗口。代码如下：

procedure TFormAddOrEdit.btnOKClick(Sender: TObject);
var
  Member: TMembers;
  QQC: string;
  dq: TDataOperator;
begin
  dq := TDataOperator.Create;
  dq.DataController := FormMain.dc;
  // save or update
  try
    Member := TMembers.Create();
    with Member do
    begin
      QQCode := edtQQCode.Text;
      UserName := edtUserName.Text;

      if cbSex.ItemIndex = 1 then
        Sex := 'M'
      else if cbSex.ItemIndex = 2 then
        Sex := 'F'
      else
        Sex := EmptyStr;
      Age := edtAge.Text;
      Area := edtArea.Text;
      NameCard := edtIdCard.Text;
      Email := edtEmail.Text;
      WebSite := edtWebSite.Text;
      Research := mmResearch.Lines.Text;

      if cbStatus.ItemIndex = 0 then
        Status := 'In'
      else
        Status := 'Out';

      OutReason := mmOutReason.Lines.Text;
      if cbIdentity.ItemIndex = 0 then
        Identity1 := 'Member'
      else
        Identity1 := 'Admin';
      if FormMode = fmAdd then
        InTime := Now
      else if FormMode = fmEdit then
        InTime := FInTime;
      if Status = 'Out' then
        OutTime := Now;

    end;
    Member.IsNew := True;

    dq.saveOrUpdate(member);

    //dq.Save(Member);

  except
    on E: Exception do
      MessageBox(Handle, PChar(E.Message), '出错！', MB_OK or MB_ICONERROR);
  end;
end;

按钮“删除成员”OnClick事件对应的方法如下：

procedure TFormMain.btnDeleteMemberClick(Sender: TObject);
var
  member: TMembers;
  QQC: string;
  dq: TDataOperator;
begin
  dq := TDataOperator.Create;
  dq.DataController := dc;
  member := TMembers.Create;

  member.QQCode := qry1.FieldByName('QQCode').Value;
  if QQC <> EmptyStr then
  begin
    if MessageBox(Handle, '是否要删除指定的会员？', '提示', MB_YESNO or MB_ICONINFORMATION) = IDNO
    then
      Exit;
    // delete member
    dq.Delete(member);
    qry1.Close;
    qry1.Open;

  member.Free;
end;

选择主窗口DBGrid中一条记录，双击该记录，弹出子窗口：

DBGrid的OnDoubleClick事件对应的代码如下：

procedure TFormMain.DBGrid1DblClick(Sender: TObject);
var
  member: TMembers;
  QQC: string;

  dq: TDataOperator;
begin
  dq := TDataOperator.Create();
  dq.DataController := dc;

  // 根据关键字段加载持久对象

  member := TMembers(dq.get('Members', 'QQCode', qry1.FieldByName('QQCode').Value));

  // view record
  QQC := member.QQCode;
if QQC <> EmptyStr then
begin
with TFormAddOrEdit.Create(Application, fmView, member) do
begin
      ShowModal;
      Free;
end;
end;
end;