unit3.pas

本系统为学生管理系统,可实现选课和退选

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, Menus, jpeg, ExtCtrls, ShellAPI, DB,
  DBTables;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    P2: TMenuItem;
    P1: TMenuItem;
    H1: TMenuItem;
    N11: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Pardaon1: TMenuItem;
    ACESS1: TMenuItem;
    Table2: TTable;
    Database1: TDatabase;
    procedure ToolButton14Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure Pardaon1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton24Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ss:string;
  end;

var
  MainForm: TMainForm;

implementation

uses Unit2, Unit4, Unit5, Unit8, Unit10, Unit11, Unit7, Unit9;

{$R *.dfm}

procedure TMainForm.ToolButton14Click(Sender: TObject);
begin
 N2click(sender);
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
TForm2.Create(self);
Form2.ShowModal;
end;

procedure TMainForm.ToolButton13Click(Sender: TObject);


begin
 form10.show;

end;

procedure TMainForm.ToolButton23Click(Sender: TObject);
begin
n11.Click;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
tForm4.create(self);
Form4.show;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
Toolbutton13.Click;
end;

procedure TMainForm.N7Click(Sender: TObject);
begin
TForm5.create(self);
Form5.show;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
TForm8.create(self);
Form8.show;
end;

procedure TMainForm.ToolButton17Click(Sender: TObject);
begin
n9.Click;
end;

procedure TMainForm.ToolButton15Click(Sender: TObject);
begin
TForm5.Create(self);
Form5.show;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
TForm9.create(self);
Form9.QuickRep1.Preview;
end;

procedure TMainForm.ToolButton18Click(Sender: TObject);
begin
TForm11.create(self);
Form11.show;
end;

procedure TMainForm.Pardaon1Click(Sender: TObject);
begin
       toolbutton18.Click;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
database1.Connected:=false;
database1.Params.Clear;
database1.Params.Values['path']:=extractfilepath(application.ExeName);
database1.Connected:=true;

end;

procedure TMainForm.ToolButton24Click(Sender: TObject);
begin
 mainform.Close;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
ss:=INPUTBOx('请输入课程号','请输入课程名','');
qrmdform.qrsysdata2.text:=ss;
qrmdform.quickrep1.preview;
end;

end.