u_login.~pas

《机动车驾驶员模拟考试系统2008》软件全面、准确地包含了公安部2007年4月1日新发布的全国统一题库

unit U_Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, PDJ_XPB, ExtCtrls, jpeg, OleCtrls, SHDocVw,shellapi;

type
  TFrm_Login = class(TForm)
    Image1: TImage;
    Btn_A1B1A3: TPDJXPButton;
    Btn_A2B2: TPDJXPButton;
    Btn_C14: TPDJXPButton;
    Btn_M: TPDJXPButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Btn_fuwuabc: TButton;
    Button1: TButton;
    Label5: TLabel;
    Label6: TLabel;
    procedure Btn_A1B1A3Click(Sender: TObject);
    procedure Btn_A2B2Click(Sender: TObject);
    procedure Btn_C14Click(Sender: TObject);
    procedure Btn_MClick(Sender: TObject);
    procedure Btn_fuwuabcClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Login: TFrm_Login;

implementation

uses U_Main;

{$R *.dfm}

procedure TFrm_Login.Btn_A1B1A3Click(Sender: TObject);
begin
         Frm_Login.ModalResult:=mrOK;
         Frm_Main.Btn_xzstClick(Sender);
         Frm_Main.Btn_charuClick(Sender);
         Frm_Main.Button1Click(Sender);
         Frm_Login.Close;
end;

procedure TFrm_Login.Btn_A2B2Click(Sender: TObject);
begin
         Frm_Login.ModalResult:=mrOK;
         Frm_Main.Btn_A2B2Click(Sender);
         Frm_Main.Btn_charuClick(Sender);
         Frm_Main.Button1Click(Sender);
         Frm_Login.Close;
end;

procedure TFrm_Login.Btn_C14Click(Sender: TObject);
begin
         Frm_Login.ModalResult:=mrOK;
         Frm_Main.Btn_C14Click(Sender);
         Frm_Main.Btn_charuClick(Sender);
         Frm_Main.Button1Click(Sender);
         Frm_Login.Close;
end;

procedure TFrm_Login.Btn_MClick(Sender: TObject);
begin
         Frm_Login.ModalResult:=mrOK;
         Frm_Main.Btn_MClick(Sender);
         Frm_Main.Btn_charuClick(Sender);
         Frm_Main.Button1Click(Sender);
         Frm_Login.Close;
end;

procedure TFrm_Login.Btn_fuwuabcClick(Sender: TObject);
begin
 // WebBrowser1.Navigate('http://www.fuwuabc.cn/adv.htm');
  //WebBrowser1.OleObject.document.body.style.borderStyle:='none';
end;

procedure TFrm_Login.FormShow(Sender: TObject);
begin
    //Button1Click(Sender);
 //  WebBrowser1.OleObject.document.body.style.borderStyle:='none';
  
 // WebBrowser1.OleObj.OleObject
  //.Document.Body.Scroll := 'no';
end;

procedure TFrm_Login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if Frm_Login.ModalResult=mrOK then
     begin
          Frm_Main.Visible:=True;
     end
  else
          Application.Terminate;
end;

procedure TFrm_Login.Button1Click(Sender: TObject);
begin
 // WebBrowser1.OleObject.document.body.style.borderStyle:='none';
end;

procedure TFrm_Login.FormCreate(Sender: TObject);
begin
 // WebBrowser1.Visible:=True;
//  Btn_fuwuabcClick(Sender);
  //Button1Click(Sender);
end;

procedure TFrm_Login.Label5Click(Sender: TObject);
begin
shellexecute(handle,'open','http://www.fuwuabc.cn',nil,nil,SW_show);
end;

end.