unit3.pas

一个很小的个人通讯录管理程序,ACCESS数据,要装XP控件,内符

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, DBCtrls, Mask, ExtCtrls;

type
  TfGroupMnt = class(TForm)
    pnlUserLst: TPanel;
    lblGrpId: TLabel;
    dtxtGrp_Id: TDBText;
    lblGrpName: TLabel;
    dedtGrp_Name: TDBEdit;
    btnSav: TBitBtn;
    btnCan: TBitBtn;
    dsgroup: TDataSource;
    procedure btnSavClick(Sender: TObject);
    procedure btnCanClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fGroupMnt: TfGroupMnt;

implementation

uses Unit2;

{$R *.dfm}
//保存分类信息
procedure TfGroupMnt.btnSavClick(Sender: TObject);
begin
  try
    //保存
    DM.qGroup.Post;
  except
    showmessage('保存分类信息出错!');
    //若出错，则取消
    DM.qGroup.Cancel;
    close;
  end;
  showmessage('保存分类信息成功!');
  close;
end;
//取消分类操作
procedure TfGroupMnt.btnCanClick(Sender: TObject);
begin
  if Messagedlg('是否取消分类操作?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    DM.qGroup.Cancel;
    close;
  end;
end;

procedure TfGroupMnt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  fGroupMnt:=nil;
  action:=cafree;
end;

end.