delphi+access水电管理系统(四)

var
  frmCnfgPara: TfrmCnfgPara;

implementation

uses ufrmMaim, UCommon, uConst;

{$R *.DFM}

procedure TfrmCnfgPara.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmCnfgPara.FormDestroy(Sender: TObject);
begin
  FQuery.Free;
  frmCnfgPara := nil;
end;

procedure TfrmCnfgPara.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmCnfgPara.FormShow(Sender: TObject);
begin
  Sdgl.SetConnectString(adoCfngPara);
  if not adoCfngPara.Active then adoCfngPara.Open;

  if adoCfngPara.RecordCount = 1 then
  begin
    edtUnitName.Text := adoCfngPara.Fields[0].AsString;
    maskPw.Text      := adoCfngPara.Fields[1].AsString;
  end;

  FQuery := TADOQuery.Create(Nil);
  Sdgl.SetConnectString(FQuery);
end;

procedure TfrmCnfgPara.BitBtn1Click(Sender: TObject);
var
  strInsert: String;
  OldUnitName: String;
begin
  if (Trim(edtUnitName.Text) = '') or (Trim(maskPw.Text) = '') then
  begin
    //todo
    Sdgl.ShowErrMsg('请输入单位名称或密码！');
    edtUnitName.SetFocus;
    Exit;
  end;

  OldUnitName := Sdgl.CurUnitName;
  if OldUnitName <> Trim(edtUnitName.Text) then
  begin
    if MessageBox(Handle, PChar(DeleteAllData), '警告', MB_OKCANCEL or MB_ICONWARNING) <> IDoK then
      Exit;
  end;

  //todo  是否有记录
  if adoCfngPara.RecordCount = 1 then
  begin
    strInsert := 'update CnfgPara set UseUnitName = ' + #39 + Trim(edtUnitName.Text) + #39 + ' , PassWd = ' +
                 #39 + Trim(maskPw.Text) + #39;

  end
  else begin
    strInsert := 'Insert into CnfgPara values(' + #39 + Trim(edtUnitName.Text) + #39 + ',' +
  &n

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/12/12