main.~pas

本程序是用delphi开发的新生报名管理系统 该程序的数据库是采用SQL server建的

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, DB, DBTables, jpeg, ExtCtrls, StdCtrls, Buttons,
  MPlayer;

type
  TMain_Form = class(TForm)
    MainMenu1: TMainMenu;
    StatusBar1: TStatusBar;
    Database1: TDatabase;
    N1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N5: TMenuItem;
    N51: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    N15: TMenuItem;
    SpeedButton1: TSpeedButton;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    N6: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    procedure FormClose(Sender:TObject;var Action:TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure StatusBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure N62Click(Sender: TObject);





  private
    { Private declarations }
  public
    { Public declarations }
     dlname:string;
     open_Form_number:integer;
     function getnettime:string;
  end;

var
  Main_Form: TMain_Form;             

implementation

uses usergl, modimm,login, bddgl, gygl, sfgl, sjgl,sf;

{$R *.dfm}

function TMain_Form.getnettime:string;
begin
  with TQuery.Create(nil)do
  begin
     try
     SessionName:=Main_Form.Database1.SessionName;
     DatabaseName:=Main_Form.Database1.DatabaseName;
     close;
     SQL.Clear;
     SQL.Add('select getdate()as aa');
     Open;
     Result:=FieldByName('aa').AsString;
     finally
      free;
      end;
     end;
end;
procedure TMain_Form.FormClose(Sender:TObject;var Action:TCloseAction);
begin

  if MessageDlg('请确认是否要退出系统?', mtconfirmation,[mbYes,mbNo],0)=mrYes
   then
   begin
   Database1.Close;
   Action:=caFree;
   end
   else
   Action:=caNone;
end;

procedure TMain_Form.N11Click(Sender: TObject);
begin

    Open_Form_number:=0;
    N15.Enabled:=false;
    Application.CreateForm(TLogin_Form,Login_Form);
    Login_Form.showModal;
    N11.Enabled:=False;

end;

procedure TMain_Form.N12Click(Sender: TObject);
begin
    Open_Form_number:=Open_Form_number+1;
    N15.Enabled:=false;
     Application.CreateForm(Tusergl_Form,usergl_Form);
     usergl_Form.show;
    N12.Enabled:=False;

end;

procedure TMain_Form.N13Click(Sender: TObject);
begin
   Open_Form_number:=Open_Form_number+1;
   N15.Enabled:=false;
   Application.CreateForm(TModiMM_Form,modimm_Form);
   modimm_Form.show;
   N13.Enabled:=False;

end;

procedure TMain_Form.N14Click(Sender: TObject);
begin

   close;

end;

procedure TMain_Form.N21Click(Sender: TObject);
begin
    Open_Form_number:=Open_Form_number+1;
    N15.Enabled:=false;
    Application.CreateForm(Tbddgl_Form,bddgl_Form);
    bddgl_Form.show;
    N21.Enabled:=False;

end;

procedure TMain_Form.N31Click(Sender: TObject);
begin
   Open_Form_number:=Open_Form_number+1;
    N15.Enabled:=false;
 Application.CreateForm(Tgygl_Form,gygl_Form);
   gygl_Form.show;
   N31.Enabled:=False;

end;

procedure TMain_Form.N41Click(Sender: TObject);
begin
   Open_Form_number:=Open_Form_number+1;
    N15.Enabled:=false;
   Application.CreateForm(Tsfgl_Form,sfgl_Form);
   sfgl_Form.show;
   N41.Enabled:=False;

end;

procedure TMain_Form.N51Click(Sender: TObject);
begin

   Open_Form_number:=Open_Form_number+1;
   N15.Enabled:=false;
   Application.CreateForm(Tsjgl_Form,sjgl_Form);
   sjgl_Form.show;
   N51.Enabled:=False;

end;



procedure TMain_Form.N15Click(Sender: TObject);
var sqlstr:string;
a,b:integer;
begin

   
   sqlstr:='select b.*from [users] a,[qxb] b where(a.用户名='''+dlname+''')and(a.用户名=b.用户名)order by b.菜单编号';
    With TQuery.Create(nil)do
        begin

            try
              SessionName:=Main_Form.Database1.SessionName;
              DatabaseName:=Main_Form.Database1.DatabaseName;
              Close;
              SQL.Clear;
              SQL.Add(sqlstr);
              Active:=True;
              if RecordCount>0 then
                begin
                   First;
                   while not Eof do
                   begin
                     a:=StrToInt(copy(FieldByName('菜单编号').AsString,1,1));
                     b:=StrToInt(copy(FieldByName('菜单编号').AsString,2,2));
                          if a<>0 then
                          MainMenu1.Items.Items[a].Visible:=false;
                          MainMenu1.Items.Items[a].Items[b].Visible:=false;

                     Next;
                   end;

                end;
                finally
              Free;
       end;
      end;




    N15.Enabled:=false;
    N11.Enabled:=true;
    StatusBar1.Panels[0].Text:='用户'+dlname+'退出系统!';
    statusBar1.Panels[1].Text:='退出系统时间是'+getnettime;

Main_Form.N6.Visible:=false;

end;

procedure TMain_Form.FormCreate(Sender: TObject);
begin
   
   open_Form_number:=0;
end;








procedure TMain_Form.StatusBar1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
        statusBar1.ShowHint:=true;
        statusBar1.Hint:='现在时间是：'+getnettime;
       // statusBar1.Panels[1].Text:='现在时间是：'+getnettime;
end;



procedure TMain_Form.FormShow(Sender: TObject);
begin
    
   N11.Click;

end;

procedure TMain_Form.N61Click(Sender: TObject);

begin
if opendialog1.Execute and FileExists(opendialog1.FileName) then
      begin

      mediaplayer1.FileName:=opendialog1.FileName;
      mediaplayer1.Open;
      mediaplayer1.Play;
      end;
  N62.Enabled:=true;
  N61.enabled:=false;

end;

procedure TMain_Form.N62Click(Sender: TObject);
begin
     mediaplayer1.Close;
     N62.Enabled:=false;
     N61.Enabled:=true;
end;

end.