main.pas

高校学生学籍管理系统源码

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ExtCtrls, XPMenu,datadomule;

type
  Tmainfrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N14: TMenuItem;
    N68: TMenuItem;
    N12: TMenuItem;
    N3: TMenuItem;
    N2: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N22: TMenuItem;
    N15: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N4: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N42: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N5: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N6: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N54: TMenuItem;
    N8: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N9: TMenuItem;
    N64: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    N26: TMenuItem;
    N30: TMenuItem;
    XPMenu1: TXPMenu;
    N53: TMenuItem;
    N13: TMenuItem;
    N36: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N10: TMenuItem;
    N41: TMenuItem;
    N43: TMenuItem;
    N7: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N64Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfrm: Tmainfrm;

implementation

uses jbsrunit, gkxxunit, jbxxunit, fplrunit, fslrunit, cjxytempunit,
  bkcjunit, bkcjxyunit, cxcjunit, cxcjxyunit, kcxxunit, cjxgunit,
  cjxgtempunit, jlsrunit, cfsrunit, jlcxunit, cfcxnit, cjcxunit, bycpunit,
  byfsunit, byxyunit, bdxxunit, bdfxunit, bdtxunit, bdswunit, bdkcunit,
  bdlxunit, bdzxunit, bdjyunit, bdljunit, wxzrunit, wzyzrunit, zcwzyunit,
  bdcxunit, bdblunit, zyrsunit, cjfbunit, bjgunit, dzdyunit, bjgdyunit,
  bddytempunit, fpdyunit, zyglunit, cjdytempunit, xsdatempunit, mddyunit,
  jcdyunit, xwcsunit, bjcjunit, cjzbtempunit, sjdrunit;



{$R *.dfm}

procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[2].text:=datetimetostr(now);
end;

procedure Tmainfrm.N14Click(Sender: TObject);
begin
gkxxfrm:=tgkxxfrm.create(self);
gkxxfrm.showmodal;
end;

procedure Tmainfrm.N68Click(Sender: TObject);
begin
jbsrtemp:=tjbsrtemp.create(self);
jbsrtemp.showmodal;
end;

procedure Tmainfrm.N11Click(Sender: TObject);
begin
jbxx:=tjbxx.create(self);
jbxx.showmodal;
end;

procedure Tmainfrm.N16Click(Sender: TObject);
begin
fplrfrm:=tfplrfrm.create(self);
fplrfrm.showmodal;
end;

procedure Tmainfrm.N17Click(Sender: TObject);
begin
fslrfrm:=tfslrfrm.create(self);
fslrfrm.showmodal;
end;

procedure Tmainfrm.N18Click(Sender: TObject);
begin
cjxytemp:=tcjxytemp.create(self);
cjxytemp.showmodal;
end;

procedure Tmainfrm.N24Click(Sender: TObject);
begin
bkcjfrm:=tbkcjfrm.create(self);
bkcjfrm.showmodal;
end;

procedure Tmainfrm.N25Click(Sender: TObject);
begin
bkcjxytemp:=tbkcjxytemp.create(self);
bkcjxytemp.showmodal;
end;

procedure Tmainfrm.N28Click(Sender: TObject);
begin
cxcjfrm:=tcxcjfrm.create(self);
cxcjfrm.showmodal;
end;

procedure Tmainfrm.N29Click(Sender: TObject);
begin

cxcjxyfrm:=tcxcjxyfrm.create(self);
cxcjxyfrm.showmodal;
end;

procedure Tmainfrm.N32Click(Sender: TObject);
begin

kcxxfrm:=tkcxxfrm.create(self);
kcxxfrm.showmodal;
end;

procedure Tmainfrm.N31Click(Sender: TObject);
begin

cjxgtemp:=tcjxgtemp.create(self);
cjxgtemp.showmodal;
end;

procedure Tmainfrm.N48Click(Sender: TObject);
begin
jlsr:=tjlsr.create(self);
jlsr.showmodal;
end;

procedure Tmainfrm.N49Click(Sender: TObject);
begin
cfsr:=tcfsr.create(self);
cfsr.showmodal;
end;

procedure Tmainfrm.N59Click(Sender: TObject);
begin
jlcx:=tjlcx.create(self);
jlcx.showmodal;
end;

procedure Tmainfrm.N60Click(Sender: TObject);
begin
cfcx:=tcfcx.create(self);
cfcx.showmodal;
end;

procedure Tmainfrm.N63Click(Sender: TObject);
begin
cjcx:=tcjcx.create(self);
cjcx.showmodal;
end;

procedure Tmainfrm.N26Click(Sender: TObject);
begin
bycp:=tbycp.create(self);
bycp.showmodal;
end;

procedure Tmainfrm.N30Click(Sender: TObject);
begin
byfs:=tbyfs.create(self);
byfs.showmodal;
end;

procedure Tmainfrm.N53Click(Sender: TObject);
begin

byxytemp:=tbyxytemp.create(self);
byxytemp.showmodal;
end;

procedure Tmainfrm.N34Click(Sender: TObject);
begin

bdxx:=tbdxx.create(self);
bdxx.showmodal;
end;

procedure Tmainfrm.N35Click(Sender: TObject);
begin
bdfx:=tbdfx.create(self);
bdfx.showmodal;
end;

procedure Tmainfrm.N38Click(Sender: TObject);
begin
bdtx:=tbdtx.create(self);
bdtx.showmodal;
end;

procedure Tmainfrm.N13Click(Sender: TObject);
begin
bdsw:=tbdsw.create(self);
bdsw.showmodal;
end;

procedure Tmainfrm.N37Click(Sender: TObject);
begin
bdkc:=tbdkc.create(self);
bdkc.showmodal;
end;

procedure Tmainfrm.N39Click(Sender: TObject);
begin
bdlx:=tbdlx.create(self);
bdlx.showmodal;
end;

procedure Tmainfrm.N45Click(Sender: TObject);
begin
bdjy:=tbdjy.create(self);
bdjy.showmodal;
end;

procedure Tmainfrm.N40Click(Sender: TObject);
begin
bdlj:=tbdlj.create(self);
bdlj.showmodal;
end;

procedure Tmainfrm.N69Click(Sender: TObject);
begin
bdzx:=tbdzx.create(self);
bdzx.showmodal;
end;

procedure Tmainfrm.N36Click(Sender: TObject);
begin
wxzr:=twxzr.create(self);
wxzr.showmodal;
end;

procedure Tmainfrm.N70Click(Sender: TObject);
begin

wzyzr:=twzyzr.create(self);
wzyzr.showmodal;
end;

procedure Tmainfrm.N71Click(Sender: TObject);
begin
zcwzy:=tzcwzy.create(self);
zcwzy.showmodal;
end;

procedure Tmainfrm.N46Click(Sender: TObject);
begin
bdcx:=tbdcx.create(self);
bdcx.showmodal;
end;

procedure Tmainfrm.N61Click(Sender: TObject);
begin
bdcx:=tbdcx.create(self);
bdcx.showmodal;
end;

procedure Tmainfrm.N44Click(Sender: TObject);
begin

bdbl:=tbdbl.create(self);
bdbl.showmodal;
end;

procedure Tmainfrm.N62Click(Sender: TObject);
begin
zyrs:=tzyrs.create(self);
zyrs.showmodal;
end;

procedure Tmainfrm.N55Click(Sender: TObject);
begin
cjfb:=tcjfb.create(self);
cjfb.showmodal;
end;

procedure Tmainfrm.N57Click(Sender: TObject);
begin
bjg:=tbjg.create(self);
bjg.showmodal;
end;

procedure Tmainfrm.N19Click(Sender: TObject);
begin
dzdy:=tdzdy.create(self);
dzdy.showmodal;
end;

procedure Tmainfrm.N20Click(Sender: TObject);
begin
bjgtemp:=tbjgtemp.create(self);
bjgtemp.showmodal;
end;

procedure Tmainfrm.N47Click(Sender: TObject);
begin

bddytemp:=tbddytemp.create(self);
bddytemp.showmodal;
end;

procedure Tmainfrm.N52Click(Sender: TObject);
begin

fpdytemp:=tfpdytemp.create(self);
fpdytemp.showmodal;
end;

procedure Tmainfrm.N10Click(Sender: TObject);
begin
zygl:=tzygl.create(self);
zygl.showmodal;
end;

procedure Tmainfrm.N21Click(Sender: TObject);
begin
cjdytemp:=tcjdytemp.create(self);
cjdytemp.showmodal;
end;

procedure Tmainfrm.N58Click(Sender: TObject);
begin

xsdatemp:=txsdatemp.create(self);
xsdatemp.showmodal;
end;

procedure Tmainfrm.N12Click(Sender: TObject);
begin
mddy:=tmddy.create(self);
mddy.showmodal;
end;

procedure Tmainfrm.N50Click(Sender: TObject);
begin
jcdy:=tjcdy.create(self);
jcdy.showmodal;
end;

procedure Tmainfrm.N41Click(Sender: TObject);
begin
cjfb:=tcjfb.create(self);
cjfb.showmodal;
end;

procedure Tmainfrm.N43Click(Sender: TObject);
begin
bjg:=tbjg.create(self);
bjg.showmodal;
end;

procedure Tmainfrm.N54Click(Sender: TObject);
begin
xwcs:=txwcs.create(self);
xwcs.showmodal;
end;

procedure Tmainfrm.N7Click(Sender: TObject);
begin
bjcjtemp:=tbjcjtemp.create(self);
bjcjtemp.showmodal;
end;

procedure Tmainfrm.N22Click(Sender: TObject);
begin

cjzbtemp:=tcjzbtemp.create(self);
cjzbtemp.showmodal;
end;

procedure Tmainfrm.FormCreate(Sender: TObject);
var f:textfile;
  i:integer;
  qx,gqx:string;
begin

  IF not FileExists('qx.ini') then
  begin
    MessageBox(handle,'对不起,您没有权限进入！','操作提示',MB_OK or MB_ICONERROR);
    application.Terminate;
    exit;
  end;

  
  AssignFile(f, 'qx.ini');
  Reset(f);
  for i := 0 to 2 do
  begin
    readln(f,QX);
  end;

  CloseFile(f);
  GQX:=copy(qx,3,1);
  if gqx='0' then
  begin
  n2.Enabled:=false;
  n23.Enabled:=false;
  n27.Enabled:=false;
  n51.Enabled:=false;
N11.Enabled:=false;
N14.Enabled:=false;
n68.Enabled:=false;
n10.Enabled:=false;
n16.Enabled:=false;
n17.Enabled:=false;
n18.Enabled:=false;
n24.Enabled:=false;
n25.Enabled:=false;
n28.Enabled:=false;
n29.Enabled:=false;
n31.Enabled:=false;
n32.Enabled:=false;
n33.Enabled:=false;
n48.Enabled:=false;
n49.Enabled:=false;
n26.Enabled:=false;
n30.Enabled:=false;
n53.Enabled:=false;
n54.Enabled:=false;
n64.Enabled:=false;



  end;
end;

procedure Tmainfrm.N64Click(Sender: TObject);
begin
sjdr:=tsjdr.create(self);
sjdr.showmodal;
end;

end.