main.pas

银行学生助学贷款管理系统 随着社会的进步

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin, jpeg, StdCtrls, ImgList,
  XPMenu, WinSkinData, RxGIF, SkinCaption;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    GLXTMenuItem: TMenuItem;
    SQmenuitem: TMenuItem;
    SMMenuItem: TMenuItem;
    About: TMenuItem;
    priviewschool: TMenuItem;
    AddUser: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    ExitSitem: TMenuItem;
    JpMenuItem: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton6: TToolButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    N19: TMenuItem;
    N1: TMenuItem;
    ImageList1: TImageList;
    Timer1: TTimer;
    ToolButton7: TToolButton;
    Mdfyitem: TMenuItem;
    N2: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    SkinData1: TSkinData;
    mdfname: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N11: TMenuItem;
    SkinCaption1: TSkinCaption;
    procedure priviewschoolClick(Sender: TObject);
    procedure RoomManageitemClick(Sender: TObject);
    procedure EdwitemClick(Sender: TObject);
    procedure AddUserClick(Sender: TObject);
    procedure ExitSitemClick(Sender: TObject);
    procedure ClassItemClick(Sender: TObject);
    procedure FHItemClick(Sender: TObject);
    procedure JpMenuItemClick(Sender: TObject);
    procedure XPJCMenuItemClick(Sender: TObject);
    procedure GRCWPLMenuItemClick(Sender: TObject);
    procedure XSLXMenuItemClick(Sender: TObject);
    procedure CCMenuItemClick(Sender: TObject);
    procedure RWMenuItemClick(Sender: TObject);
    procedure AboutClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SBItemClick(Sender: TObject);
    procedure PSItemClick(Sender: TObject);
    procedure SRitemClick(Sender: TObject);
    procedure EVItemClick(Sender: TObject);
    procedure EEitemClick(Sender: TObject);
    procedure EBItemClick(Sender: TObject);
    procedure MdfyitemClick(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure mdfnameClick(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation
uses login,Empleer,AddUser,Query,INput,checkin,
about,modify,mdfypwd, colleage,MD,MdfyPWDname, visit;

{$R *.dfm}

// 设置楼房具体情况
procedure Tmainform.priviewschoolClick(Sender: TObject);
begin
  Form1.ShowModal;
end;
//设置楼房基本信息
procedure Tmainform.RoomManageitemClick(Sender: TObject);
begin

end;
//录入员工信息
procedure Tmainform.EdwitemClick(Sender: TObject);
begin
//
end;
//增加用户
procedure Tmainform.AddUserClick(Sender: TObject);
begin
Application.CreateForm(TAddUserForm,AddUserForm);
AddUserForm.ShowModal;
AddUserForm.Free;
end;
//程序关闭
procedure Tmainform.ExitSitemClick(Sender: TObject);
begin
Application.Terminate;
end;
//查询情况开始
procedure Tmainform.ClassItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.ShowModal;
QueryForm.Free;
end;
//查询情况菜单项
procedure Tmainform.FHItemClick(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.ShowModal;
QueryForm.Free;
end;
//录入学生基本情况菜单项
procedure Tmainform.JpMenuItemClick(Sender: TObject);
begin
   if ToolButton3.Enabled = true then
   begin
      ToolButton3Click(sender);
   end;
end;
//注册菜单项
procedure Tmainform.XPJCMenuItemClick(Sender: TObject);
begin

end;
//人员登记
procedure Tmainform.GRCWPLMenuItemClick(Sender: TObject);
begin

end;
//出楼登记
procedure Tmainform.XSLXMenuItemClick(Sender: TObject);
begin

end;
//货物出楼菜单项
procedure Tmainform.CCMenuItemClick(Sender: TObject);
begin
Application.CreateForm(TPLForm,PLForm);
PLForm.ShowModal;
PlForm.Free;
end;
//亲人来访菜单项
procedure Tmainform.RWMenuItemClick(Sender: TObject);
begin
//application.CreateForm(TVisitForm,Visitform);
//Visitform.ShowModal;
//visitform.Free;
end;
//关于对话框
procedure Tmainform.AboutClick(Sender: TObject);
begin
application.CreateForm(TAboutform,aboutform);
aboutform.ShowModal;
aboutform.Free;
end;
//关闭系统
procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataMd.ADOConnection1.Connected:=false;
//DataMd.Free ;
application.Terminate;
end;
//toolbutton1 学生情况录入
procedure Tmainform.ToolButton1Click(Sender: TObject);
begin
application.CreateForm(TinputForm,inputform);
inputform.ShowModal;
inputform.Free;
end;
//toolbutton2查询学生情况
procedure Tmainform.ToolButton2Click(Sender: TObject);
begin
Application.CreateForm(TQueryForm,QueryForm);
QueryForm.ShowModal;
QueryForm.Free;
end;
//来访登记
procedure Tmainform.ToolButton3Click(Sender: TObject);
begin
application.CreateForm(TVisitForm,Visitform);
Visitform.ShowModal;
visitform.Free;
end;
//按钮,出楼登记
procedure Tmainform.ToolButton4Click(Sender: TObject);
begin
Application.CreateForm(TPLForm,PLForm);
PLForm.ShowModal;
PlForm.Free;
end;
//快捷按钮,学生离校修改
procedure Tmainform.ToolButton5Click(Sender: TObject);
begin

end;
//快捷按钮,学生离校修改
procedure Tmainform.ToolButton6Click(Sender: TObject);
begin

end;
//在主界面中显示时间
procedure Tmainform.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels.Items[5].Text:=timetostr(time);
end;
//showmitem根据修改资料菜单项去激活修改表单中的相应选项
procedure showMitem(i:integer);
begin
application.CreateForm(TModifyForm,ModifyForm);
ModifyForm.PageControl1.ActivePageIndex:=i;
ModifyForm.ShowModal;
ModifyForm.Free;
end;
//修改学生的基本资料菜单选项
procedure Tmainform.SBItemClick(Sender: TObject);
begin
showMitem(0);
end;
//修改个人财物菜单选项
procedure Tmainform.PSItemClick(Sender: TObject);
begin
showMitem(1);
end;
//学生注册修改
procedure Tmainform.SRitemClick(Sender: TObject);
begin
showMitem(4);
end;
//来访登记修改
procedure Tmainform.EVItemClick(Sender: TObject);
begin
showMitem(3);
end;
//财物出楼修改
procedure Tmainform.EEitemClick(Sender: TObject);
begin
showMitem(2);
end;
//员工资料的修改
procedure Tmainform.EBItemClick(Sender: TObject);
begin
showMitem(5);
end;
//修改密码
procedure Tmainform.MdfyitemClick(Sender: TObject);
begin
application.CreateForm(TMPWDForm,MPWDForm);
MPWDForm.ShowModal;
Mpwdform.Free;
end;
//基本资料的修改
procedure Tmainform.ToolButton7Click(Sender: TObject);
begin
application.CreateForm(Tmodifyform,modifyform);
modifyform.ShowModal;
modifyform.Free;
end;

procedure Tmainform.mdfnameClick(Sender: TObject);
begin
  application.CreateForm(TMPWDnameForm,MPWDnameForm);
  MPWDnameForm.ShowModal;
  MPWDnameForm.Free;
end;

procedure Tmainform.N10Click(Sender: TObject);
begin
  application.CreateForm(TEmpleerForm,EmpleerForm);
  EmpleerForm.ShowModal;
  EmpleerForm.Free;
end;

procedure Tmainform.N6Click(Sender: TObject);
begin
   if ToolButton7.Enabled = true then
   begin
      ToolButton7Click(sender);
   end;
end;

procedure Tmainform.N3Click(Sender: TObject);
begin
   if ToolButton7.Enabled = true then
   begin
      ToolButton7Click(sender);
   end;
end;

procedure Tmainform.N2Click(Sender: TObject);
begin
  ToolButton4Click(sender);
end;

procedure Tmainform.N7Click(Sender: TObject);
begin
   if ToolButton1.Enabled = true then
   begin
      ToolButton1Click(sender);
   end;
end;

procedure Tmainform.N11Click(Sender: TObject);
begin
   ToolButton2Click(sender);
end;

procedure Tmainform.N4Click(Sender: TObject);
begin
//  application.CreateForm(TShowRForm,ShowRForm);
//  ShowRForm.ShowModal;
//  ShowRForm.Free;

end;

end.