main.~pas

能够动态的实现数据库表的创建

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, ComCtrls, DB, ADODB, Menus, StdCtrls,
  jpeg, Buttons;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    Image1: TImage;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ADOConnection1: TADOConnection;
    BitBtn1: TBitBtn;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,
  Unit12,unit13;
{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject);
begin
student.show;
end;

procedure TForm2.N3Click(Sender: TObject);
begin
stuselect.show;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
edu.show;
end;

procedure TForm2.N6Click(Sender: TObject);
begin
course.show;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
alertcount.show;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
countsel.show;
end;


procedure TForm2.N14Click(Sender: TObject);
begin
form11.show;
end;

procedure TForm2.N15Click(Sender: TObject);
begin
form12.show;
end;

procedure TForm2.N19Click(Sender: TObject);
begin
 form13.show;
end;

procedure TForm2.N11Click(Sender: TObject);

 
 var i:integer;
begin
    i:=application.MessageBox('确定要备份吗','提示',mb_YesNO);
    if i=7 then
    exit;
    copyfile('student.mdb','backup\stu.mdb',true);
end;

procedure TForm2.N12Click(Sender: TObject);
 var i:integer;
begin
    i:=application.MessageBox('恢复后只能有备份的内容,确定要恢复吗？','注意',mb_YesNO);
    if i=7 then
    exit;
    copyfile('backup\stu.mdb','student.mdb',true);
    end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var
i:integer;
begin
i:=application.MessageBox('你确定要退出吗？','系统提示',mb_YesNO);
 if i=7 then
 exit;
 application.Terminate;
end;

procedure TForm2.N16Click(Sender: TObject);
begin
form9.show;
end;

procedure TForm2.N17Click(Sender: TObject);
begin
form10.show;
end;
end.