unit2.pas

报名系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, Buttons;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    PopupMenu1: TPopupMenu;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    Sb1: TSpeedButton;
    Sb2: TSpeedButton;
    Sb3: TSpeedButton;
    Sb4: TSpeedButton;
    Sb5: TSpeedButton;
    pm2: TPopupMenu;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    procedure N18Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Sb1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Sb2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Sb5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Sb3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Sb4Click(Sender: TObject);
    procedure Sb4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N15Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3, Unit4, Unit5, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure TForm2.N18Click(Sender: TObject);
begin
if (messagedlg('退出系统吗？',mtconfirmation,[mbyes,mbno],0)=mryes) then
application.Terminate;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
form3.showmodal;
end;

procedure TForm2.N4Click(Sender: TObject);
begin
form4.showmodal;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
form5.showmodal;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
form7.showmodal;
end;

procedure TForm2.Sb1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
sb1.Font.Color:=clblue;
sb1.Flat:=true;
sb1.Cursor:=crhandpoint;
end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sb1.Flat:=false;
sb2.Flat:=false;
sb3.Flat:=false;
sb4.Flat:=false;
sb5.Flat:=false;
sb1.Font.Color:=clWindowText;
sb2.Font.Color:=clWindowText;
sb3.Font.Color:=clWindowText;
sb4.Font.Color:=clWindowText;
sb5.Font.Color:=clWindowText;
form2.Cursor:=crdefault;
end;

procedure TForm2.Sb2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sb2.Flat:=true;
sb2.Font.Color:=clblue;
sb2.Cursor:=crhandpoint;
end;

procedure TForm2.Sb5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sb5.Font.Color:=clblue;
sb5.Flat:=true;
sb5.Cursor:=crhandpoint;
end;

procedure TForm2.Sb3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sb3.Font.Color:=clblue;
sb3.Cursor:=crhandpoint;
sb3.Flat:=true;
end;

procedure TForm2.Sb4Click(Sender: TObject);
begin
pm2.Popup(530,405);
end;

procedure TForm2.Sb4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sb4.Font.Color:=clblue;
sb4.Cursor:=crhandpoint;
sb4.Flat:=true;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
form2.Hide;
form8.Showmodal;
end;

procedure TForm2.N13Click(Sender: TObject);
begin
form9.ADOTable1.Active:=false;
form9.ADOTable1.active:=true; 
form9.qr1.preview;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
form10.ADOTable1.Active:=false;
form10.ADOTable1.Active:=true;
form10.qr1.preview;
end;

end.