【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,ConfDBServer.pas,希望对大家有所帮助!
unit ConfDBServer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ImgList, DB, ADODB, ExtCtrls, RzPanel, Mask,
RzEdit;
type
TSetPassword = class(TForm)
RzGroupBox1: TRzGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
RzEdit1: TRzEdit;
RzEdit2: TRzEdit;
RzEdit3: TRzEdit;
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
procedure FormShow(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SetPassword: TSetPassword;
implementation
uses POSIIDM, Inc;
{$R *.dfm}
procedure TSetPassword.FormShow(Sender: TObject);
var
sqlStr:string;
begin
//SetPassword.Caption :=SetPasswordTitle;
sqlStr:='select ISNULL(E_PASSWORD,'''') AS E_PASSWORD from Employees where E_EXIST=0 AND E_ID='+UserID;
with DM.vADOQuery do begin
Close;
SQL.Clear;
SQL.Add(sqlStr);
Open;
RzEdit1.Text :=FieldValues['E_PASSWORD'];
end;
end;
procedure TSetPassword.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
procedure TSetPassword.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TSetPassword.SpeedButton1Click(Sender: TObject);
var
sqlStr:string;
begin
if (RzEdit2.Text <>RzEdit3.Text) then begin
MessageDlg('你两次输入的密码不一致,请重新输入', mtInformation,[mbOk], 0);
RzEdit2.Text :='';
RzEdit3.Text :='';
Exit;
end;
sqlStr:='UPDATE Employees SET E_PASSWORD='''+RzEdit2.Text+''' where E_EXIST=0 AND E_ID='+UserID;
with DM.vADOQuery do begin
Close;
SQL.Clear;
SQL.Add(sqlStr);
ExecSQL;
MessageDlg('密码设置成功', mtInformation,[mbOk], 0);
end;
end;
end.
上一篇:
Draw.cpp
下一篇:
法律专业开题报告范文