unit15.pas

用Delphi做一个公寓管理系统

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, jpeg, ExtCtrls, Buttons,
  StdCtrls, DB, DBTables;

type
  TForm_flash = class(TForm)
    Image1: TImage;
    ShockwaveFlash1: TShockwaveFlash;
    Timer1: TTimer;
    Edit1: TEdit;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Query1: TQuery;
    Database1: TDatabase;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_flash: TForm_flash;

implementation

uses Unit1, Unit4;

{$R *.dfm}

procedure TForm_flash.FormCreate(Sender: TObject);
begin

  shockwaveflash1.Movie:=getcurrentdir+'\dd.swf';
  shockwaveflash1.Play;

    while not query1.Eof do
  begin
    ComboBox1.Items.Add(query1.Fields[0].asstring);
    query1.Next;
  end;
    if ComboBox1.Items.Count>0 then
    ComboBox1.ItemIndex:=0;
end;

procedure TForm_flash.Timer1Timer(Sender: TObject);
begin
  application.Initialize;
  ShockwaveFlash1.Visible:=false;
  ShockwaveFlash1.Enabled:=false;
  Label3.Visible:=false;
  Label4.Visible:=false;
  Label5.Visible:=false;
  Label6.Visible:=false;
  Label1.Visible:=true;
  Label2.Visible:=true;
  ComboBox1.Visible:=true;
  Edit1.Visible:=true;
  Edit1.SetFocus;
  SpeedButton1.Visible:=true;
  SpeedButton2.Visible:=true;

end;

procedure TForm_flash.SpeedButton2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm_flash.SpeedButton1Click(Sender: TObject);
var
logname,pawor:string;
begin
  query1.Close;
  query1.SQL.Clear;
  logname:=ComboBox1.Text;
  query1.SQL.Add('select * from userinfo where username=:username and password=:password');
  query1.ParamByName('username').AsString:=ComboBox1.Text;
  query1.ParamByName('password').AsString:=Edit1.Text;
  query1.Open;
  if query1.RecordCount>=1 then
  begin
    pawor:=query1.FieldList.Fields[2].Value;
    application.CreateForm(Tform_main,form_main);
    form_flash.Free;
    form_main.Show;
    form_main.StatusBar1.Panels[1].Text:=logname;
    form_main.StatusBar1.Panels[3].Text:=pawor;

    if pawor='超级用户' then
    form_main.menu_config_uesr.Enabled:=true; //超级用户可以使用用户设置菜单项
  end
  else
  begin
    showmessage('Error:密码错误！');
    edit1.Text:='';
    edit1.SetFocus;
  end ;
end;

end.