menu.pas

毕业论文选题系统,用Delphi编的,希望对大家有帮助

unit menu;

interface

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

type
  Tmenu1 = 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;
    Panel1: TPanel;
    N12: TMenuItem;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DataSource1: TDataSource;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  menu1: Tmenu1;

implementation
 uses student,subject,xuanke,moudle,xuanti;

{$R *.dfm}

procedure Tmenu1.N2Click(Sender: TObject);
begin
  student1.show;
  student1.PageControl1.ActivePageIndex:=1;
end;

procedure Tmenu1.N3Click(Sender: TObject);
begin
    student1.show;
    student1.PageControl1.ActivePageIndex:=0;
end;

procedure Tmenu1.N5Click(Sender: TObject);
begin
   subject1.Show;
   subject1.PageControl1.ActivePageIndex:=1;
end;

procedure Tmenu1.N6Click(Sender: TObject);
begin
   subject1.Show;
   subject1.PageControl1.ActivePageIndex:=0;
end;

procedure Tmenu1.N11Click(Sender: TObject);
begin
    Application.Terminate;
end;

procedure Tmenu1.N8Click(Sender: TObject);
begin
  xuanke1.Show;
  xuanke1.PageControl1.ActivePageIndex:=0;
end;

procedure Tmenu1.N9Click(Sender: TObject);
begin
  xuanke1.Show;
  xuanke1.PageControl1.ActivePageIndex:=1;
end;

procedure Tmenu1.FormCreate(Sender: TObject);
begin
  DBEdit1.Enabled:=false;
  DBEdit2.Enabled:=false;
  speedbutton1.Enabled:=false;
  speedbutton2.Enabled:=false;
  speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
end;

procedure Tmenu1.N12Click(Sender: TObject);
begin
   DBEdit1.Enabled:=true;
   DBEdit2.Enabled:=true;
   speedbutton1.Enabled:=true;
   speedbutton2.Enabled:=true;
   speedbutton3.Enabled:=true;
   speedbutton4.Enabled:=true;
end;

procedure Tmenu1.SpeedButton1Click(Sender: TObject);
begin
  DBEdit1.Enabled:=true;
 // DBedit3.Text:=inttostr(strtoint(DBedit3.Text)+1);
  MyDataModule.ADOQueryM.Append;
end;

procedure Tmenu1.SpeedButton2Click(Sender: TObject);
begin
   DBedit1.Enabled:=false;
   
  MyDataModule.ADOQueryM.Edit;
end;

procedure Tmenu1.SpeedButton3Click(Sender: TObject);
begin
  MyDataModule.ADOQueryM.Delete;
end;

procedure Tmenu1.SpeedButton4Click(Sender: TObject);
begin
   MyDataModule.ADOQueryM.Post;
end;

procedure Tmenu1.N13Click(Sender: TObject);
begin
 xuanke1.Show;
  xuanke1.PageControl1.ActivePageIndex:=2;
end;

procedure Tmenu1.N15Click(Sender: TObject);
begin
  xuanti1.Show;
  xuanti1.PageControl1.ActivePageIndex:=1;
end;

procedure Tmenu1.N16Click(Sender: TObject);
begin
  xuanti1.Show;
  xuanti1.PageControl1.ActivePageIndex:=0;
end;

end.