baseemergy.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit BaseEmergy;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, DB, ADODB, dxmdaset, StdCtrls, ExtCtrls, Grids, Wwdbigrd,
  Wwdbgrid;

type
  TfrmBaseEmergy = class(TfrmBase)
    qAccount: TADOQuery;
    spDetachDB: TADOStoredProc;
    dsAccount: TDataSource;
    wwDGDetail: TwwDBGrid;
    Panel1: TPanel;
    btnOK: TButton;
    btnCancel: TButton;
    edtUser: TEdit;
    edtPWD: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    rbUnDel: TRadioButton;
    rbDel: TRadioButton;
    qSystemManager: TADOQuery;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseEmergy     : TfrmBaseEmergy;

implementation
uses DataModule, Global;
{$R *.dfm}

procedure TfrmBaseEmergy.FormShow(Sender: TObject);
begin
  inherited;
  if not qAccount.Active then qAccount.Open;
  if not qSystemManager.Active then qSystemManager.Open;
  rbDel.Checked := True;

end;

procedure TfrmBaseEmergy.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmBaseEmergy := nil;
end;

procedure TfrmBaseEmergy.btnOKClick(Sender: TObject);
var
  strDBName         : string;
begin
  inherited;
  if Messagedlg('你确定要删除当前选中的数据库吗?', mtWarning, [mbOk, mbCancel], 0) = mrCancel then exit;
  {验证权限}

  qSystemManager.parameters.ParambyName('sCode').value := edtUser.text;
  qSystemManager.parameters.ParambyName('sPassword').value := edtPWD.text;
  if not qSystemManager.Active then
    qSystemManager.Open
  else
    qSystemManager.Requery();
  if qSystemManager.RecordCount = 0 then
  begin
    Messagedlg('输入的用户名或密码有误！', mtError, [mbOk], 0);
    abort;
  end;

  try
    strDBName := qAccount.FieldbyName('aDataBaseName').asString;
    spDetachDB.parameters.ParambyName('@dName').value := qAccount.FieldbyName('aDataBaseName').asString;
    if rbDel.Checked = True then
      spDetachDB.parameters.ParambyName('@bDelDB').value := 1
    else
      spDetachDB.parameters.ParambyName('@bDelDB').value := 0;
    spDetachDB.parameters.ParambyName('@RETURN_VALUE').value := btnOK.Tag;
    spDetachDB.Execproc;
  except on E: Exception do
    begin
      Messagedlg('删除数据失败，请采用其他办法处理！', mtError, [mbOk], 0);
      abort;
    end;
  end;
  if btnOK.Tag <> 0 then
  begin
    Messagedlg('帐套删除失败！', mtError, [mbOk], 0);
    abort;
  end
  else
  begin
    Messagedlg('帐套' + strDBName + '删除成功！', mtError, [mbOk], 0);
  end;

  btnCancelClick(Sender);

end;

procedure TfrmBaseEmergy.btnCancelClick(Sender: TObject);
begin
  inherited;
  self.Close;
end;

end.