unit2.pas

劳模信息综合管理

unit Unit2;

interface

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

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    ControlBar1: TControlBar;
    Image1: TImage;
    StatusBar1: TStatusBar;
    N13: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N9: TMenuItem;
    N14: TMenuItem;
    N17: TMenuItem;
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

uses Unit1, Unit3,unit4,unit5,Unit7,unit8,unit9,unit13,unit10,unit12,unit11,unit14,unit15,unit16;

{$R *.dfm}

procedure TMain.N11Click(Sender: TObject);
begin
     loginform.ADOQ_user.Close;
     loginform.show;
      main.Close;
     loginform.edit_username.text:='';
     loginform.edit_password.Text:='';
end;

procedure TMain.N12Click(Sender: TObject);
begin
          loginform.Close;
          exit;
end;

procedure TMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     //loginform.Visible:=true;
     // main.Close;
    // loginform.edit_username.text:='';
    // loginform.edit_password.Text:='';
end;

procedure TMain.FormShow(Sender: TObject);
    var
         int_day:Integer;
         Str_day: String;
begin
       if user_grade='一般用户'  then
       begin
           n7.Enabled:=false;
           n8.Enabled:=false;
          // n9.Enabled:=false;
           n2.Enabled:=false;
           n3.Enabled:=false ;
           n5.Enabled:=false;
           n14.Enabled:=false;
           n17.Enabled:=false;
           //n14.Enabled:=false;
           n16.Enabled:=false;

       end ;
       if user_grade='管理员'  then
       begin
           n7.Enabled:=true;
           n8.Enabled:=true;
          // n9.Enabled:=true;
           n2.Enabled:=true;
           n3.Enabled:=true ;
           n5.Enabled:=true;
          // n14.Enabled:=true;
           n16.Enabled:=true;
           n14.Enabled:=true;
           n17.Enabled:=true;
       end ;
        int_day:=DayOfWeek(Now);
       case  int_day   of
        2:begin
           Str_day:='星期一';
          end;
        3:begin
             Str_day:='星期二';
          end;
        4:begin
             Str_day:='星期三';
          end;
        5:begin
             Str_day:='星期四';
          end;
        6:begin
             Str_day:='星期五';
          end;
        7:begin
             Str_day:='星期六';
          end;
          else
             begin
                Str_day:='星期日';
             end;
         end;
        statusbar1.Panels.Items[2].Text:='       今天是：    '+DateToStr(Date)+'  '+Str_day;
          statusbar1.Panels.Items[1].Text:='          当前用户： '+username+'   用户等级： '+user_grade;
end;

procedure TMain.N13Click(Sender: TObject);
begin
          form_search.ShowModal;
end;

procedure TMain.N4Click(Sender: TObject);
begin
   form_changepw.ShowModal
end;

procedure TMain.N2Click(Sender: TObject);
begin
  form_lm_add.ShowModal;
end;

procedure TMain.N7Click(Sender: TObject);
begin
  form8.ShowModal;
end;

procedure TMain.N8Click(Sender: TObject);
begin
   form_userinfo.ShowModal;
end;

procedure TMain.N3Click(Sender: TObject);
begin
     form_lminfo.ShowModal;
end;

procedure TMain.N5Click(Sender: TObject);
begin
    form_areainfo.ShowModal;
end;

procedure TMain.N16Click(Sender: TObject);
begin
  form_year_lm.ShowModal;
end;

procedure TMain.N15Click(Sender: TObject);
begin
form13.ShowModal;
end;

procedure TMain.N9Click(Sender: TObject);
begin
  form_search_nlm.ShowModal;
end;

procedure TMain.N14Click(Sender: TObject);
begin
 form_lm1_add.ShowModal;
end;

procedure TMain.N17Click(Sender: TObject);
begin
form_lminfo1.ShowModal;
end;

end.