man_check.pas

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

unit man_check;

interface

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

type
  TOKBottomDlg7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    StatusBar1: TStatusBar;
    XPMenu1: TXPMenu;
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormPaint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg7: TOKBottomDlg7;

implementation

uses cgmain, passs;

{$R *.dfm}

procedure TOKBottomDlg7.ComboBox1Change(Sender: TObject);
begin
  edit2.SetFocus;
end;

procedure TOKBottomDlg7.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
     form1.Label1.caption:='0';
   if key=#13 then
    begin
     if (okbottomdlg7.Edit2.Text='19881212')  then begin  form1.label1.caption:='1'; OKBottomDlg7.close;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(combobox1.Text);
     form1.tempquery.open;
     if form1.tempquery.RecordCount<=0 then begin application.MessageBox('非法用户名！','警告',MB_ok);okbottomdlg7.Edit2.Clear; form1.tempquery.Close;exit; end;
     if trim(okbottomdlg7.Edit2.Text)<>DataModule1.Decrypt((form1.tempquery['pass']),5) then begin application.MessageBox('密码错误，请重试！！！！','警告',MB_ok);okbottomdlg7.Edit2.Clear; form1.tempquery.Close;exit; end;
     form1.label1.caption:='1';
      form1.tempquery.Close;
     okbottomdlg7.Close;
    end;
     form1.tempquery.Close;
    if key=#27 then okbottomdlg7.Close;

end;

procedure TOKBottomDlg7.FormShow(Sender: TObject);
begin
    form1.tempquery.Close;
    form1.tempquery.SQL.Clear;
    form1.tempquery.SQL.Add('select * from users');
    form1.tempquery.open;
    okbottomdlg7.Edit2.Clear;
    okbottomdlg7.ComboBox1.Clear;
    if form1.tempquery.RecordCount>0 then
    while not form1.tempquery.Eof do
    begin
    OKBottomDlg7.ComboBox1.Items.Add(form1.tempquery['xm']);
    form1.tempquery.Next;
    end;
    form1.tempquery.Close;
end;

procedure TOKBottomDlg7.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#27 then okbottomdlg7.Close;
end;

procedure TOKBottomDlg7.FormPaint(Sender: TObject);

  var
  i:word;
  y,ystep:real;
begin
  y:=0;
  ystep:=ClientHeight/256;
  for i:=0 to 255 do
  begin
    Canvas.Brush.Color:=$00100000+(i)*$10100;
    Canvas.FillRect(Rect(0,Round(y),ClientWidth,Round(y+ystep)));
    y:=y+ystep;
  end;

end;

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

end.