login.~pas

该程序不能实现全程售票

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, ExtCtrls;

type
  TLoginFrm = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginFrm: TLoginFrm;

implementation
    uses Main;
{$R *.dfm}

procedure TLoginFrm.Button1Click(Sender: TObject);
var username,password:string;
begin
   if edit1.Text=''then
   showmessage('请输入姓名')
   else
   if edit2.Text=''then
   showmessage('请输入密码')
   else
   begin
   username:=edit1.Text;
   password:=edit2.Text;
   with ADOQuery1 do
   begin
   close;
   sql.Clear;
   sql.Add('select * from 售票员 where sailorid=');
   sql.Add(''''+username+''''+'and sailorpassword='+''''+password+'''');
   open;
   first;
   if recordcount=1 then
   begin
   LoginFrm.Hide;
   MainFrm.Show;
   end
    else
    begin
   close;
   sql.Clear;
   sql.Add('select * from 管理员 where admiid=');
   sql.Add(''''+username+''''+'and admipassword='+''''+password+'''');
   open;
   first;
   if recordcount=1 then
   begin
   LoginFrm.Hide;
   MainFrm.Show;
   end
   else
   showmessage('密码不正确或该用户不存在!');
   end;
    end;
   end;
end;


procedure TLoginFrm.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TLoginFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('确定要退出系统吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
Application.Terminate
else
Application.Restore;
end;

end.