managers.~pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

unit managers;

interface

uses Windows, Messages, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, XPMenu;

type
  TOKBottomDlg3 = class(TForm)
    SpeedButton1: TSpeedButton;
    GroupBox1: TGroupBox;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    XPMenu1: TXPMenu;
    Label4: TLabel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg3: TOKBottomDlg3;

implementation

uses cgmain,passs;

{$R *.dfm}

procedure TOKBottomDlg3.SpeedButton2Click(Sender: TObject);
begin
    close;
end;

procedure TOKBottomDlg3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then { 判断是按执行键}
  Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
   end;
end;

procedure TOKBottomDlg3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then { 判断是按执行键}
  Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
   end;
 
end;

procedure TOKBottomDlg3.SpeedButton3Click(Sender: TObject);
begin
     if trim(okbottomdlg3.Edit3.Text)='19881212' then
     begin
      form1.tempquery.SQL.Clear;
      form1.tempquery.SQL.Add('delete from users where xm=:p1');
      form1.tempquery.ParamByName('p1').Value:=trim(okbottomdlg3.edit1.Text);
     try
      form1.tempquery.ExecSQL;
       application.MessageBox('用户删除成功！','提示',MB_ok);
      except
       application.MessageBox('用户删除不成功！','提示',MB_ok);
      end;
      okbottomdlg3.edit2.Clear;
      okbottomdlg3.edit3.Clear;
      okbottomdlg3.edit1.Clear;
      exit;
     end;
     form1.tempquery.Close;
     form1.tempquery.SQL.Clear;
     form1.tempquery.SQL.Add('select * from users where xm=:p1');
     form1.tempquery.ParamByName('p1').Value:=trim(okbottomdlg3.edit1.Text);
     form1.tempquery.open;
     if form1.tempquery.RecordCount<=0 then begin application.MessageBox('用户名不存在！！！！','警告',MB_ok);okbottomdlg3.Edit1.Clear;okbottomdlg3.Edit2.Clear;okbottomdlg3.Edit3.Clear;exit;end;
     if trim(okbottomdlg3.Edit2.Text)<> trim(okbottomdlg3.Edit3.Text) then begin application.MessageBox('密码和校验码不一致，请重试！！！！','警告',MB_ok);okbottomdlg3.Edit2.Clear;okbottomdlg3.Edit3.Clear; exit; end;
     if trim(okbottomdlg3.Edit2.Text)<>DataModule1.Decrypt(trim(form1.tempquery['pass']),5) then begin application.MessageBox('密码错误，请重试！！！！','警告',MB_ok);okbottomdlg3.Edit3.Clear;okbottomdlg3.Edit3.Clear;exit; end;
      form1.tempquery.Close;
     form1.tempquery.SQL.Clear;
     form1.tempquery.SQL.Add('delete from users where xm=:p1');
     form1.tempquery.ParamByName('p1').Value:=trim(okbottomdlg3.edit1.Text);
     try
      form1.tempquery.ExecSQL;
       application.MessageBox('用户删除成功！','提示',MB_ok);
      except
       application.MessageBox('用户删除不成功！','提示',MB_ok);
      end;
      okbottomdlg3.edit2.Clear;
      okbottomdlg3.edit3.Clear;
      okbottomdlg3.edit1.Clear;
end;

procedure TOKBottomDlg3.SpeedButton1Click(Sender: TObject);
begin
     form1.tempquery.Close;
     form1.tempquery.SQL.Clear;
     form1.tempquery.SQL.Add('select * from users where xm=:p1');
     form1.tempquery.ParamByName('p1').Value:=trim(okbottomdlg3.edit1.Text);
     form1.tempquery.open;
     if form1.tempquery.RecordCount>0 then
      begin application.MessageBox('用户名已存在，如再要添加它，请先删除它！！！！','警告',MB_ok);okbottomdlg3.Edit2.Clear;okbottomdlg3.Edit3.Clear;form1.tempquery.Close;exit;end;
      form1.tempquery.Edit;
      form1.tempquery.Append;
      form1.tempquery['xm']:=trim(okbottomdlg3.Edit1.Text);
      form1.tempquery['pass']:=datamodule1.Encrypt(trim(okbottomdlg3.edit2.Text),5);
      try
      form1.tempquery.Post;
       application.MessageBox('用户添加成功！','提示',MB_ok);
      except
       application.MessageBox('用户添加不成功！','提示',MB_ok);
      end;
      form1.tempquery.Close;
      okbottomdlg3.edit2.Clear;
      okbottomdlg3.edit3.Clear;
end;

procedure TOKBottomDlg3.Edit2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if StrLen(PChar(trim(edit2.Text)))>5 then begin application.MessageBox('用户不能大于5位数！','提示',MB_ok); edit2.Clear;edit3.Clear;exit;end;
end;

procedure TOKBottomDlg3.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   form1.tempquery.Close;
end;

end.