changepasssrc.pas

该程序可作为386的接警程序使用

unit ChangePassSrc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,LogonSrc;

type
  TFormChangePass = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ButtonCanceal: TButton;
    ComboBoxChangeUser: TComboBox;
    EditNewPass: TEdit;
    EditPassConfirm: TEdit;
    ButtonChange: TButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    AddPass: TEdit;
    AddPassCon: TEdit;
    ButtonAdd: TButton;
    EditUserAdd: TEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    ComboBoxDelUser: TComboBox;
    ButtonDel: TButton;
    procedure ButtonCancealClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonDelClick(Sender: TObject);
    procedure ButtonChangeClick(Sender: TObject);
    procedure ButtonAddClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormChangePass: TFormChangePass;

implementation

{$R *.dfm}
procedure TFormChangePass.ButtonCancealClick(Sender: TObject);
begin
        Close;
end;

procedure TFormChangePass.FormCreate(Sender: TObject);
begin
         while not LogonSrc.FormLogon.ADOQuery1.Eof do
         begin
                ComboBoxChangeUser.Items.Add(LogonSrc.FormLogon.ADOQuery1.FieldByName('name').AsString);
                ComboBoxDelUser.Items.Add(LogonSrc.FormLogon.ADOQuery1.FieldByName('name').AsString);
                LogonSrc.FormLogon.ADOQuery1.Next;
        end;
        ComboBoxChangeUser.ItemIndex := 0;
        ComboBoxDelUser.ItemIndex := 0;
end;

procedure TFormChangePass.ButtonDelClick(Sender: TObject);
var
        strSQL:string;
begin
        if ComboBoxDelUser.Text = '管理员' then
        begin
           MessageBox(Application.Handle, '不能删除管理员！', '错误', MB_OK);
        end
        else
        begin
          strSQL := 'select * from use where name =' + '"' + ComboBoxDelUser.Text + '"';
          FormLogon.ADOQuery1.Close;
          FormLogon.ADOQuery1.SQL.Clear;
          FormLogon.ADOQuery1.SQL.Text := strSQL;
          FormLogon.ADOQuery1.Open;
          FormLogon.ADOQuery1.Delete;
          MessageBox(Application.Handle, '删除用户成功！', '删除用户', MB_OK);

          ComboBoxChangeUser.Clear;
          ComboBoxDelUser.Clear;
          strSQL := 'select * from use';
          FormLogon.ADOQuery1.SQL.Text := strSQL;
          FormLogon.ADOQuery1.Open;
          FormLogon.ADOQuery1.First;
          while not FormLogon.ADOQuery1.Eof do
          begin
            ComboBoxChangeUser.Items.Add(FormLogon.ADOQuery1.FieldByName('name').AsString);
            ComboBoxDelUser.Items.Add(FormLogon.ADOQuery1.FieldByName('name').AsString);
            FormLogon.ADOQuery1.Next;
          end;
          ComboBoxChangeUser.ItemIndex := 0;
          ComboBoxDelUser.ItemIndex := 0;
          FormLogon.ADOQuery1.close;
        end;
end;

procedure TFormChangePass.ButtonChangeClick(Sender: TObject);
var
        nTemp:Integer;
        strSQL:string;
begin
        nTemp := strcomp(PChar(EditNewPass.Text), Pchar(EditPassConfirm.Text) );
        if  nTemp <> 0 then
        begin
                MessageBox(Application.Handle, '新密码和密码确认不一致', '联网报警中心-更改密码', MB_OK);
        end
        else
        begin
                strSQL := 'Update use set pass = ' + '"' + EditNewPass.Text + '"'+ 'where name =' + '"' + ComboBoxChangeUser.Text +'"';
                FormLogon.ADOQuery1.Close;
                FormLogon.ADOQuery1.SQL.Clear;
                FormLogon.ADOQuery1.SQL.Text := strSQL;
                FormLogon.ADOQuery1.ExecSQL;
                MessageBox(Application.Handle, '更改用户密码成功！', '更改用户密码', MB_OK);
        end;
end;

procedure TFormChangePass.ButtonAddClick(Sender: TObject);
var
        strSQL:string;
        nTemp:integer;
begin
        nTemp := strcomp(PChar(AddPass.Text), Pchar(AddPassCon.Text) );
        if  (nTemp <> 0) or (EditUserAdd.Text='') then
        begin
              MessageBox(Application.Handle, '密码和密码确认不一致或用户名未输入', '联网报警中心-更改密码', MB_OK);
        end
        else
        begin
              strSQL := 'select * from use where name =' +  '"'+ EditUserAdd.Text + '"';
              FormLogon.ADOQuery1.SQL.Text := strSQL;
              FormLogon.ADOQuery1.Open;
              if FormLogon.ADOQuery1.Eof then
              begin
                strSQL := 'Insert into use(name,pass) values(' +
                  '"' + EditUserAdd.Text + '"' + ',' + '"' + AddPass.Text + '"' + ')';
                FormLogon.ADOQuery1.Close;
                FormLogon.ADOQuery1.SQL.Clear;
                FormLogon.ADOQuery1.SQL.Text := strSQL;
                FormLogon.ADOQuery1.ExecSQL;
                MessageBox(Application.Handle, '添加用户成功！', '添加用户', MB_OK);

                ComboBoxChangeUser.Clear;
                ComboBoxDelUser.Clear;
                strSQL := 'select * from use';
                FormLogon.ADOQuery1.SQL.Text := strSQL;
                FormLogon.ADOQuery1.Open;
                while not LogonSrc.FormLogon.ADOQuery1.Eof do
                begin
                  ComboBoxChangeUser.Items.Add(LogonSrc.FormLogon.ADOQuery1.FieldByName('name').AsString);
                  ComboBoxDelUser.Items.Add(LogonSrc.FormLogon.ADOQuery1.FieldByName('name').AsString);
                  LogonSrc.FormLogon.ADOQuery1.Next;
                end;
                ComboBoxChangeUser.ItemIndex := 0;
                ComboBoxDelUser.ItemIndex := 0;
                FormLogon.ADOQuery1.close;
              end
              else
              begin
                   MessageBox(Application.Handle, '该用户已经存在！', '添加用户', MB_OK);
              end;
        end;
end;
end.