mainform.pas

校园综合管理系统

unit mainform;

interface

uses
  Windows, Messages, shellapi,SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, jpeg, Spin,
  ActnList, Buttons;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    xsjfgl: TMenuItem;
    xsdagl: TMenuItem;
    zgrsgl: TMenuItem;
    bzxt: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N21: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N38: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    sjwh: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N50: TMenuItem;
    N54: TMenuItem;
    N7: TMenuItem;
    ImageList1: TImageList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton26: TSpeedButton;
    CoolBar2: TCoolBar;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    N8: TMenuItem;
    SpeedButton32: TSpeedButton;
    SpeedButton31: TSpeedButton;
    Panel1: TPanel;
    Image1: TImage;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel3: TPanel;
    SpeedButton27: TSpeedButton;
    N14: TMenuItem;
    N15: TMenuItem;
    SpeedButton2: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton3: TToolButton;
    N19: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    xtgn: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N40: TMenuItem;
    Panel7: TPanel;
    N20: TMenuItem;
    N44: TMenuItem;
    SpeedButton3: TSpeedButton;
    N4: TMenuItem;
    N5: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure showhint(sender:tobject);
    procedure N16Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure SpeedButton27Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 var
  main: Tmain;
 implementation
 uses  main_xfgl_qftjform,printform,  main_xfgl_jflrform, main_xfgl_xftjcxform,
  main_xfgl_xxllform, main_xfgl_jftjform, main_xfgl_bbdyform,
  main_xjgl_xjlrform, main_xjgl_xjtjform, main_xjgl_tjcxform,
  main_yggl_yglrform, main_yggl_tjcxform, main_yggl_zhglform,
  main_sjwh_xwhform, main_sjwh_njwhform, main_sjwh_zywhform,
  main_sjwh_mzwhform, main_sjwh_bmwhform, main_sjwh_zwwhform,
  main_sjwh_zcwhform, main_sjwh_jfbzwhform, main_sjwh_sjwhform,
  main_xtsz_xgmmform, main_xtsz_tsform, main_helpform,
  main_xtsz_yhqxform, main_tb_jftbform, main_tb_zgtbform, main_tb_xstbform,
  main_passwordform, main_AboutBoxform, main_sjwh_bjwhform,
  main_xtsz_yhxxform, main_xjgl_xjllform;
{$R *.DFM}
procedure tmain.showhint(sender:tobject);
begin
  statusbar1.panels[0].text:=application.hint;
end;
procedure Tmain.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[2].Text:='系统时间:'+timetostr(time)+'   '+datetostr(date);
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
 Application.OnHint:=ShowHint;
end;
procedure Tmain.N16Click(Sender: TObject);    //调入交费窗口
begin
main_xfgl_jflr:=tmain_xfgl_jflr.Create(nil);
try
 main_xfgl_jflr.ShowModal;
 finally
  main_xfgl_jflr.free;
 end;
end;

procedure Tmain.N30Click(Sender: TObject);
begin
 main_yggl_yglr:=tmain_yggl_yglr.Create(nil);
 try
  main_yggl_yglr.ShowModal;
  finally
  main_yggl_yglr.free;
 end;
end;

procedure Tmain.N17Click(Sender: TObject);    //调入交费查询浏览窗口
begin
 main_xfgl_xxll:=tmain_xfgl_xxll.Create(nil);
 try
   main_xfgl_xxll.Showmodal;
 finally
   main_xfgl_xxll.free;
 end;
end;

procedure Tmain.N27Click(Sender: TObject);   //调入学生档案录入窗口
begin
 main_xjgl_xjlr:=tmain_xjgl_xjlr.Create(nil);
 try
  main_xjgl_xjlr.showmodal;
 finally
  main_xjgl_xjlr.free;
 end;
end;

procedure Tmain.N38Click(Sender: TObject);     //关于窗口
begin
main_AboutBox:=tmain_AboutBox.Create(nil);
try
 main_AboutBox.Showmodal;
 finally
 main_AboutBox.free;
end;
end;
procedure Tmain.N42Click(Sender: TObject);
begin
main_sjwh_xwh:=tmain_sjwh_xwh.Create(nil);
try
  main_sjwh_xwh.showmodal;
 finally
  main_sjwh_xwh.free;
end;
end;

procedure Tmain.N43Click(Sender: TObject);
begin
main_sjwh_njwh:=tmain_sjwh_njwh.Create(nil);
try
 main_sjwh_njwh.showmodal;
finally
 main_sjwh_njwh.free;
end;
end;

procedure Tmain.N50Click(Sender: TObject);
begin
 main_sjwh_bjwh:=tmain_sjwh_bjwh.Create(nil);
 try
   main_sjwh_bjwh.ShowModal;
 finally
   main_sjwh_bjwh.free;
 end;
end;

procedure Tmain.N2Click(Sender: TObject);
begin
 main_sjwh_zywh:=tmain_sjwh_zywh.Create(nil);
 try
  main_sjwh_zywh.showmodal;
  finally
  main_sjwh_zywh.free;
 end;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
main_sjwh_mzwh:=tmain_sjwh_mzwh.Create(nil);
try
 main_sjwh_mzwh.ShowModal;
finally
 main_sjwh_mzwh.free;
end;
end;

procedure Tmain.N11Click(Sender: TObject);
begin
main_sjwh_bmwh:=tmain_sjwh_bmwh.Create(nil);
try
 main_sjwh_bmwh.ShowModal;
finally
 main_sjwh_bmwh.free;
end;
end;

procedure Tmain.N12Click(Sender: TObject);
begin
main_sjwh_zwwh:=tmain_sjwh_zwwh.Create(nil);
try
  main_sjwh_zwwh.showmodal;
finally
  main_sjwh_zwwh.free;
end;
end;

procedure Tmain.N13Click(Sender: TObject);
begin
 main_sjwh_zcwh:=tmain_sjwh_zcwh.Create(nil);
 try
   main_sjwh_zcwh.ShowModal;
 finally
   main_sjwh_zcwh.free;
 end;
end;

procedure Tmain.N31Click(Sender: TObject);
begin
main_yggl_zhgl:=tmain_yggl_zhgl.Create(nil);
try
  main_yggl_zhgl.ShowModal;
 finally
  main_yggl_zhgl.free;
end;
end;

procedure Tmain.N21Click(Sender: TObject);  //调入欠费查询统计窗口
begin
main_xfgl_qftj:=tmain_xfgl_qftj.Create(nil);
 try
  main_xfgl_qftj.ShowModal;
 finally
  main_xfgl_qftj.free;
 end;
end;

procedure Tmain.N7Click(Sender: TObject);  //调入交费查询统计窗口
begin
main_xfgl_jftj:=tmain_xfgl_jftj.Create(nil);
try
 main_xfgl_jftj.ShowModal;
finally
 main_xfgl_jftj.free;
end;
end;

procedure Tmain.N28Click(Sender: TObject);    //调入学生档案查询窗口
begin
main_xjgl_xjcx:=tmain_xjgl_xjcx.Create(nil);
try
  main_xjgl_xjcx.showmodal;
 finally
  main_xjgl_xjcx.free;
end;
end;
procedure Tmain.N8Click(Sender: TObject);    //调入学生档案统计窗口
begin
main_xjgl_xjtj:=tmain_xjgl_xjtj.Create(nil);
try
  main_xjgl_xjtj.showmodal;
finally
  main_xjgl_xjtj.free;
end;
end;


procedure Tmain.Label6Click(Sender: TObject);
begin
 close;
end;

procedure Tmain.SpeedButton27Click(Sender: TObject);
begin
 shellexecute(handle,nil,pchar('http://www.mingrisoft.com/nu'),nil,nil,sw_shownormal);
end;

procedure Tmain.N19Click(Sender: TObject); //调入交费条件查询窗口
begin
main_xfgl_xftjcx:=tmain_xfgl_xftjcx.Create(nil);
try
  main_xfgl_xftjcx.ShowModal;
finally
  main_xfgl_xftjcx.free;
end;
end;

procedure Tmain.N25Click(Sender: TObject);     //调入学生档案条件查询窗口
begin
main_xjgl_tjcx:=tmain_xjgl_tjcx.Create(nil);
try
  main_xjgl_tjcx.ShowModal;
finally
  main_xjgl_tjcx.free;
end;
end;

procedure Tmain.N40Click(Sender: TObject);
begin
 main_yggl_tjcx:=tmain_yggl_tjcx.Create(nil);
 try
   main_yggl_tjcx.ShowModal;
 finally
   main_yggl_tjcx.free;
 end;
end;

procedure Tmain.SpeedButton2Click(Sender: TObject);
begin
main_password:=tmain_password.Create(nil);
try
  main_password.ShowModal;
 finally
  main_password.free;
end;
end;



procedure Tmain.N18Click(Sender: TObject);  //调入打印报表窗口
begin
main_xfgl_bbdy.showmodal;
end;

procedure Tmain.N54Click(Sender: TObject);
begin
main_help:=tmain_help.Create(nil);
try
  main_help.ShowModal;
finally
  main_help.free;
end;
end;

procedure Tmain.N34Click(Sender: TObject);
begin
main_xtsz_ts:=tmain_xtsz_ts.Create(nil);
try
main_xtsz_ts.ShowModal;
finally
 main_xtsz_ts.free;
end;
end;

procedure Tmain.N36Click(Sender: TObject);
begin
main_xtsz_xgmm:=tmain_xtsz_xgmm.Create(nil);
try
 main_xtsz_xgmm.ShowModal;
 finally
  main_xtsz_xgmm.free;
end;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
 main_sjwh_sjwh:=tmain_sjwh_sjwh.Create(nil);
try
  main_sjwh_sjwh.ShowModal;
finally
  main_sjwh_sjwh.free;
end;
end;

procedure Tmain.SpeedButton4Click(Sender: TObject);
begin
 main_tb_zgtb:=tmain_tb_zgtb.Create(nil);
 try
  main_tb_zgtb.ShowModal;
  finally
   main_tb_zgtb.free;
 end;
end;
procedure Tmain.SpeedButton6Click(Sender: TObject);
begin
main_tb_xstb:=tmain_tb_xstb.Create(nil);
try
  main_tb_xstb.ShowModal;
finally
  main_tb_xstb.free;
 end;
end;

procedure Tmain.SpeedButton7Click(Sender: TObject);
begin
main_tb_jftb:=tmain_tb_jftb.Create(nil);
try
  main_tb_jftb.ShowModal;
finally
  main_tb_jftb.free;
 end;
end;
procedure Tmain.SpeedButton32Click(Sender: TObject);
begin
close;
end;
procedure Tmain.N15Click(Sender: TObject);
begin
main_sjwh_jfbzwh:=tmain_sjwh_jfbzwh.Create(nil);
try
  main_sjwh_jfbzwh.ShowModal;
finally
  main_sjwh_jfbzwh.free;
 end;
end;

procedure Tmain.N20Click(Sender: TObject);
begin
main_xtsz_yhqx:=tmain_xtsz_yhqx.Create(nil);
try
  main_xtsz_yhqx.ShowModal;
finally
  main_xtsz_yhqx.free;
end;
end;

procedure Tmain.N35Click(Sender: TObject);
begin
main_xtsz_yhxx:=tmain_xtsz_yhxx.Create(nil);
try
 main_xtsz_yhxx.ShowModal;
 finally
  main_xtsz_yhxx.free;
end;
end;

end.