w_main.~pas

系统管理程序的源码

unit w_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Menus;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    z1: TMenuItem;
    z1_1: TMenuItem;
    N35: TMenuItem;
    z1_2: TMenuItem;
    z2: TMenuItem;
    z2_1: TMenuItem;
    z3: TMenuItem;
    z3_1: TMenuItem;
    z3_2: TMenuItem;
    z3_3: TMenuItem;
    z3_4: TMenuItem;
    z4: TMenuItem;
    z4_1: TMenuItem;
    z4_2: TMenuItem;
    z4_3: TMenuItem;
    z4_5: TMenuItem;
    z5: TMenuItem;
    z8: TMenuItem;
    z8_1: TMenuItem;
    z8_2: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    Memo1: TMemo;
    z2_1_2: TMenuItem;
    z2_1_3: TMenuItem;
    z2_1_1: TMenuItem;
    z2_2: TMenuItem;
    z2_2_1: TMenuItem;
    z2_2_2: TMenuItem;
    z2_2_3: TMenuItem;
    z3_5: TMenuItem;
    z4_6: TMenuItem;
    z6: TMenuItem;
    z6_1: TMenuItem;
    z6_2: TMenuItem;
    z6_3: TMenuItem;
    z6_4: TMenuItem;
    z7: TMenuItem;
    z7_1: TMenuItem;
    z7_2: TMenuItem;
    z7_3: TMenuItem;
    z3_6: TMenuItem;
    z4_7: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    StatusBar1: TStatusBar;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    procedure z1_1Click(Sender: TObject);
    procedure z1_2Click(Sender: TObject);
    procedure z2_1_1Click(Sender: TObject);
    procedure z2_1_2Click(Sender: TObject);
    procedure z2_1_3Click(Sender: TObject);
    procedure z2_2_1Click(Sender: TObject);
    procedure z2_2_2Click(Sender: TObject);
    procedure z2_2_3Click(Sender: TObject);
    procedure z3_1Click(Sender: TObject);
    procedure z3_2Click(Sender: TObject);
    procedure z3_3Click(Sender: TObject);
    procedure z3_4Click(Sender: TObject);
    procedure z3_5Click(Sender: TObject);
    procedure z3_6Click(Sender: TObject);
    procedure z4_1Click(Sender: TObject);
    procedure z4_2Click(Sender: TObject);
    procedure z4_3Click(Sender: TObject);
    procedure z4_5Click(Sender: TObject);
    procedure z4_6Click(Sender: TObject);
    procedure z4_7Click(Sender: TObject);
    procedure z6_1Click(Sender: TObject);
    procedure z6_2Click(Sender: TObject);
    procedure ToolButton23Click(Sender: TObject);
    procedure z7_1Click(Sender: TObject);
    procedure z6_3Click(Sender: TObject);
    procedure z6_4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure z8_1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton15Click(Sender: TObject);
    procedure ToolButton17Click(Sender: TObject);
    procedure ToolButton18Click(Sender: TObject);
    procedure ToolButton20Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure z7_2Click(Sender: TObject);
    procedure z8_2Click(Sender: TObject);
    procedure ToolButton21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main: Tmain;

implementation

uses start, add_cjgly, del_cjgly, amend_cjglykl, add_ptgly, del_ptgly,
  amend_ptglykl, w_xsxxll, add_xsxx, W_xsxxcx, w_xsxxxg, w_xsydxx,
  w_xsydxxcx, w_xscjll, w_xscjlr, w_xscjcx, w_xscjxg, w_xsbkxx, w_xsbkxxcx,
  w_tjbjzrs, W_grchhg, w_xsgrxjbb, w_tjbjcjhg, w_bkxxtj, w_grxjbb, w_bjxjbb,
  w_grcjbb, w_sjzd, w_sjbf, mydata, w_about, w_sjhf, w_xsgrcjbb;

{$R *.dfm}

procedure Tmain.z1_1Click(Sender: TObject);
begin
main.Hide ;
password.show;
end;

procedure Tmain.z1_2Click(Sender: TObject);
begin
application.Terminate ;
end;

procedure Tmain.z2_1_1Click(Sender: TObject);
begin
tjcjgly.showmodal;

end;

procedure Tmain.z2_1_2Click(Sender: TObject);
begin
sccjgly.showmodal;

end;

procedure Tmain.z2_1_3Click(Sender: TObject);
begin
xgcjglykl.showmodal;
end;

procedure Tmain.z2_2_1Click(Sender: TObject);
begin
tjptgly.showmodal;
end;

procedure Tmain.z2_2_2Click(Sender: TObject);
begin
scptgly.showmodal;
end;

procedure Tmain.z2_2_3Click(Sender: TObject);
begin
xgptglykl.showmodal;
end;

procedure Tmain.z3_1Click(Sender: TObject);
begin
xsxxll.showmodal;
end;

procedure Tmain.z3_2Click(Sender: TObject);
begin
xsxxlr.showmodal;
end;

procedure Tmain.z3_3Click(Sender: TObject);
begin
xsxxcx.showmodal;
end;

procedure Tmain.z3_4Click(Sender: TObject);
begin
xsxxxg.showmodal;
end;

procedure Tmain.z3_5Click(Sender: TObject);
begin
xsydxx.showmodal;
end;

procedure Tmain.z3_6Click(Sender: TObject);
begin
xsydxxcx.showmodal;
end;

procedure Tmain.z4_1Click(Sender: TObject);
begin
xscjll.showmodal;
end;

procedure Tmain.z4_2Click(Sender: TObject);
begin
xscjlr.showmodal;
end;

procedure Tmain.z4_3Click(Sender: TObject);
begin
xscjcx.showmodal;
end;

procedure Tmain.z4_5Click(Sender: TObject);
begin
xscjxg.showmodal;
end;

procedure Tmain.z4_6Click(Sender: TObject);
begin
xsbkxx.showmodal;
end;

procedure Tmain.z4_7Click(Sender: TObject);
begin
xsbkxxcx.showmodal;
end;

procedure Tmain.z6_1Click(Sender: TObject);
begin
tjbjzrs.showmodal;
end;

procedure Tmain.z6_2Click(Sender: TObject);
begin
tjgrcjhg.showmodal;
end;

procedure Tmain.ToolButton23Click(Sender: TObject);
begin
application.Terminate 
end;

procedure Tmain.z7_1Click(Sender: TObject);
begin
frxjbb.showmodal ;
end;

procedure Tmain.z6_3Click(Sender: TObject);
begin
tjbjcjhg.showmodal;
end;

procedure Tmain.z6_4Click(Sender: TObject);
begin
bkxxtj.showmodal;
end;

procedure Tmain.N1Click(Sender: TObject);
begin
bjxjbb.showmodal;
end;

procedure Tmain.N3Click(Sender: TObject);
begin
sjzd.showmodal;
end;

procedure Tmain.N4Click(Sender: TObject);
begin
sjbf.showmodal;
end;

procedure Tmain.FormCreate(Sender: TObject);
begin
main.StatusBar1.Panels[0].text:='欢迎使用学生学籍管理系统欢迎使用学生学籍管理系统';
main.StatusBar1.Panels[3].Text:=datetostr(date);
end;

procedure Tmain.z8_1Click(Sender: TObject);
begin
about.showmodal;
end;

procedure Tmain.N5Click(Sender: TObject);
begin
sjhf.showmodal;
end;

procedure Tmain.ToolButton3Click(Sender: TObject);
begin
xsxxlr.showmodal;
end;

procedure Tmain.ToolButton4Click(Sender: TObject);
begin
xsxxxg.showmodal;
end;

procedure Tmain.ToolButton5Click(Sender: TObject);
begin
xsxxcx.showmodal;
end;

procedure Tmain.ToolButton7Click(Sender: TObject);
begin
xscjlr.showmodal;
end;

procedure Tmain.ToolButton8Click(Sender: TObject);
begin
xscjxg.showmodal;
end;

procedure Tmain.ToolButton9Click(Sender: TObject);
begin
xscjcx.showmodal;
end;

procedure Tmain.ToolButton11Click(Sender: TObject);
begin
xsbkxx.showmodal;
end;

procedure Tmain.ToolButton12Click(Sender: TObject);
begin
xsbkxxcx.showmodal;
end;

procedure Tmain.ToolButton14Click(Sender: TObject);
begin
xsydxx.showmodal;
end;

procedure Tmain.ToolButton15Click(Sender: TObject);
begin
xsydxxcx.showmodal;
end;

procedure Tmain.ToolButton17Click(Sender: TObject);
begin
tjbjzrs.showmodal;
end;

procedure Tmain.ToolButton18Click(Sender: TObject);
begin
bkxxtj.showmodal;
end;

procedure Tmain.ToolButton20Click(Sender: TObject);
begin
about.showmodal;
end;

procedure Tmain.ToolButton1Click(Sender: TObject);
begin
main.Hide ;
password.show;
end;

procedure Tmain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate ;
end;

procedure Tmain.z7_2Click(Sender: TObject);
begin
grcjbb.ShowModal ;
end;

procedure Tmain.z8_2Click(Sender: TObject);
begin
application.HelpCommand(5,0);
application.HelpCommand(help_finder,0); 
end;

procedure Tmain.ToolButton21Click(Sender: TObject);
begin
application.HelpCommand(15,0);
application.HelpCommand(help_finder,0);
end;

end.