userpower.~pas

房屋中介软件

unit UserPower;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  base, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, ExtCtrls, Db, ADODB;

type
  TFrm_UserPower = class(TFrm_Base)
    Panel1: TPanel;
    dbgUserList: TDBGrid;
    btnAdd: TBitBtn;
    btnDelete: TBitBtn;
    btnClose: TBitBtn;
    ds_Data: TDataSource;
    ADOQ_Data: TADOQuery;
    ADOQ_DataDSDesigner: TWideStringField;
    ADOQ_DataDSDesigner2: TWideStringField;
    ADOQ_DataDSDesigner3: TWideStringField;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnAddClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_UserPower: TFrm_UserPower;

implementation
uses DataBase;
{$R *.DFM}


procedure TFrm_UserPower.FormCreate(Sender: TObject);
begin
  inherited;
  ADOQ_Data.Open;
  ADOQ_Data.Edit;

end;

procedure TFrm_UserPower.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADOQ_Data.close;
  //
  Tcomponent(Frm_UserPower):=nil;

end;

procedure TFrm_UserPower.btnAddClick(Sender: TObject);
begin
  inherited;

  ADOQ_Data.Append;

end;


procedure TFrm_UserPower.btnDeleteClick(Sender: TObject);
var
  strUserId,strSQL :string;
begin
  inherited;
  //
  if not ADOQ_Data.IsEmpty THEN
  begin
    // 删除用户记录
    ADOQ_Data.Delete;
  end;

end;

procedure TFrm_UserPower.btnCloseClick(Sender: TObject);
begin
  inherited;
  close;
end;


procedure TFrm_UserPower.BitBtn1Click(Sender: TObject);
begin
  inherited;

  // 数据保存处理
  DataModule1.ADOConnection1.BeginTrans;
  try
    ADOQ_Data.UpdateBatch;
    //
    DataModule1.ADOConnection1.CommitTrans;
  except
    DataModule1.ADOConnection1.RollbackTrans;
    MessageBox(handle,'数据保存失败！','警告',MB_OK);
    exit;
  end;

  MessageBox(handle,'数据保存成功！','提示',MB_OK+MB_ICONINFORMATION);

end;

end.