评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access水电管理系统(一)毕业论文(4)

2013-06-05 01:16 askPw: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    dsCfngPara: TDataSource;
    adoCfngPara: TADOQuery;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure edtUnitNameKeyPress(Sender: TObject; var Key: Char);
    procedure maskPwKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FQuery: TADOQuery;
    Procedure DeleteAllHistroyData;                   //删除所有的历史数据
    Procedure ModifyUnitName(strUnitName: String);    //修改单位名称
  public
    { Public declarations }
  end;

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 （科教范文网 lw.nseaC.Com编辑发布）
  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