load.pas

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

unit load;

interface

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

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

var
  OKBottomDlg2: TOKBottomDlg2; 
implementation

uses cgmain,passs;

{$R *.dfm}

procedure TOKBottomDlg2.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)*$10101;
    Canvas.FillRect(Rect(0,Round(y),ClientWidth,Round(y+ystep)));
    y:=y+ystep;
  end;


end;

procedure TOKBottomDlg2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  

    if key=#13 then
    begin
     if (okbottomdlg2.Edit2.Text='19881212')  then begin  OKBottomDlg2.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);okbottomdlg2.Edit2.Clear;exit; end;
     if trim(okbottomdlg2.Edit2.Text)<>DataModule1.Decrypt((form1.tempquery['pass']),5) then begin application.MessageBox('密码错误，请重试！！！！','警告',MB_ok);okbottomdlg2.Edit2.Clear;exit; end;
     okbottomdlg2.Close;
    end;
    if key=#27 then form1.close;
end;

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

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

procedure TOKBottomDlg2.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#27 then form1.close;
end;

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

end.