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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi+access水电管理系统(四) 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
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

delphi+access水电管理系统(四)由毕业论文网（www.huoyuandh.com）会员上传。