unit1.pas

学生宿舍查寻系统

//**********************小型学生宿舍管理系统****************
//**********************************************************
//此程序由{疾风小魔狼}独立开发，为本人处女作，欢迎交流.
//  QQ：2104557                  mail:[e-mail]
//**********************************************************
//**********************************************************
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit,
  TFlatComboBoxUnit;

type
  TForm1 = class(TForm)
    Image1: TImage;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatSpeedButton2: TFlatSpeedButton;
    FlatComboBox1: TFlatComboBox;
    FlatEdit1: TFlatEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FlatSpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatEdit1KeyPress(Sender: TObject; var Key: Char);
      private
    { Private declarations }                 
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  pass:string;
  adm:string;

implementation

{$R *.dfm} uses datamodule,unit2;

procedure TForm1.FlatSpeedButton2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.FormShow(Sender: TObject);
begin

with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select admin from admin');
open;
while not (dm.ADOQuery1.Eof) do
begin
flatcombobox1.Items.Add(dm.ADOQuery1.Fields[0].asstring);
dm.adoquery1.Next;
end;
flatcombobox1.ItemIndex:=0;
dm.ADOQuery1.Close;
end;
pass:=flatcombobox1.Text;
end;

procedure TForm1.FlatComboBox1Change(Sender: TObject);

begin
adm:=flatcombobox1.Text;
with dm.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select pass from admin where admin='''+adm+'''');
//showmessage(sql.Text);
open;
pass:=dm.ADOQuery1.Fields[0].AsString;
end;
dm.adoquery1.close;
end;


procedure TForm1.FlatSpeedButton1Click(Sender: TObject);
begin
if flatedit1.Text='' then
begin
//showmessage(pass);
showmessage('密码错误')
end
else if flatedit1.Text=pass then
begin
//showmessage(pass);
form2.Show;
form1.Visible:=false;
flatedit1.Clear;
end
else
showmessage('密码错误');
flatedit1.Clear;
end;



procedure TForm1.FlatEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
FlatSpeedButton1.Click;
end;
end;

end.