main.pas

某计算机学院的毕业设计及论文

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, XPMan, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids,
  Menus,uVar;

type
  TfrMain = class(TForm)
    XPManifest1: TXPManifest;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Xi: TADOTable;
    XiID: TWideStringField;
    XiName: TWideStringField;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frMain: TfrMain;

implementation
uses
  TJJS,NJ,SZ,CZ,DL,TJYH,XGMM;
{$R *.dfm}

procedure TfrMain.FormShow(Sender: TObject);
var
  i:integer;
begin
//  ADOTable1.Open;
  if DLForm.ShowModal=mrNo then
  Close;
  
  Xi.Open;
  uXiCount:=xi.RecordCount;
  if uXiCount>0 then
  begin
    SetLength(uXi,uXiCount);
    xi.First;
    i:=0;
    while not xi.Eof do
    begin
      uXi[i].ID := Xi.FieldByName('ID').AsString;
      uXi[i].Name := Xi.FieldByName('Name').AsString;
      inc(i);
      xi.Next;
    end;
  end;
  Xi.Close;
  uNJ[0]:='一年级';
  uNJ[1]:='二年级';
  uNJ[2]:='三年级';
  uNJ[3]:='四年级';
  uZhou[0]:='周日';
  uZhou[1]:='周一';
  uZhou[2]:='周二';
  uZhou[3]:='周三';
  uZhou[4]:='周四';
  uZhou[5]:='周五';
  uZhou[6]:='周六';
  uJie[1]:='第一节';
  uJie[2]:='第二节';
  uJie[3]:='第三节';
  uJie[4]:='第四节';
  uJie[5]:='第五节';

end;

procedure TfrMain.N3Click(Sender: TObject);
begin
  NJ.frXi.ShowModal;
end;

procedure TfrMain.N4Click(Sender: TObject);
begin
  SZ.frSZ.ShowModal;
end;

procedure TfrMain.N2Click(Sender: TObject);
begin
  TJJS.frJS.ShowModal;
end;

procedure TfrMain.N5Click(Sender: TObject);
begin
  CZ.frCZ.ShowModal;
end;

procedure TfrMain.N7Click(Sender: TObject);
begin
  XGMMForm.ShowModal;
end;

procedure TfrMain.N8Click(Sender: TObject);
begin
  TJYHForm.ShowModal;
end;

end.