gsmain.~pas

有需要的同仁载回去慢慢研究

unit GSMAIN;

interface

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

type
  TFrmGsMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    SbGs: TStatusBar;
    N10: TMenuItem;
    N15: TMenuItem;
    N6: TMenuItem;
    N9: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N17: TMenuItem;
    N5: TMenuItem;
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
    procedure hintshow(Sender: TObject);
    Procedure menushow();
  public
    { Public declarations }
  end;

var
  FrmGsMain: TFrmGsMain;

implementation

uses  mycommon, GSGRHB, DGSDM, GSTTHB,  GSGZXM,
  GsTodayByBm, GSGSGZXM, GSGSZX, UserChgPwd, UserAuthor, BMXX, YGXX,
  LBXX, LBFZ, BMGZXM, BMZXTJ, BMGZXMTJ, BMFZGZXMTJ, RYFZ;

{$R *.DFM}


procedure TFrmGsMain.menushow();
begin
  if MyPermission[1]<>'Y' then N22.Enabled:=false;
  if MyPermission[2]<>'Y' then N23.Enabled:=false;
  if MyPermission[3]<>'Y' then N24.Enabled:=false;
  if MyPermission[4]<>'Y' then N25.Enabled:=false;
  if MyPermission[5]<>'Y' then N26.Enabled:=false;
  if MyPermission[6]<>'Y' then N13.Enabled:=false;
  if MyPermission[7]<>'Y' then N14.Enabled:=false;
  if MyPermission[8]<>'Y' then N2.Enabled:=false;
  if MyPermission[9]<>'Y' then N3.Enabled:=false;
  if MyPermission[10]<>'Y' then N9.Enabled:=false;
  if MyPermission[11]<>'Y' then N16.Enabled:=false;
  if MyPermission[12]<>'Y' then N18.Enabled:=false;
  if MyPermission[13]<>'Y' then N19.Enabled:=false;
  if MyPermission[14]<>'Y' then N7.Enabled:=false;
  if MyPermission[15]<>'Y' then N8.Enabled:=false;
  if MyPermission[16]<>'Y' then N20.Enabled:=false;
end;

procedure TFrmGsMain.hintshow(Sender: TObject);
begin
  SbGs.Panels[0].Text := application.hint;
end;

procedure TFrmGsMain.N11Click(Sender: TObject);
begin
  if MessageDlg('真的退出工时汇报系统吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Application.Terminate;
end;

procedure TFrmGsMain.N13Click(Sender: TObject);
begin
  FrmGsGzxm := TFrmGsGzxm.Create(Application);
  FrmGsGzxm.ShowModal;
  FrmGsGzxm.Release;
end;

procedure TFrmGsMain.N2Click(Sender: TObject);
begin
  FrmGrhb := TFrmGrhb.Create(Application);
  FrmGrhb.ShowModal;
  FrmGrhb.Release;
end;

procedure TFrmGsMain.FormShow(Sender: TObject);
begin
  Menushow;
  with DM_GSGL do
  begin
    if QryTemp.Active=true then
      QryTemp.Close;
    QryTemp.SQL.Clear;
    QryTemp.SQL.Add('SELECT 部门名称,部门信息.部门编号');
    QryTemp.SQL.Add('FROM 员工信息,部门信息');
    QryTemp.SQL.Add('Where 工号='+''''+username+'''');
    QryTemp.SQL.Add(' and 员工信息.部门编号=部门信息.部门编号');
    QryTemp.Open;
    SbGs.Panels[1].text:='操作员：'+QryTemp.FieldByName('部门名称').AsString+'('+
            QryTemp.FieldByName('部门编号').AsString+')  '+username;
    if QryTemp.Active=true then
      QryTemp.Close;
  end;
  SbGs.Panels[2].text:=formatdatetime('yyyy"年"mm"月"dd"日"',Date);
end;

procedure TFrmGsMain.FormCreate(Sender: TObject);
begin
  application.OnHint:=hintshow;    //显示状态栏文字
end;

procedure TFrmGsMain.N10Click(Sender: TObject);
begin
  if userName<>'' then
    UserChgPwd.ChangPasswd(userName);
end;

procedure TFrmGsMain.N3Click(Sender: TObject);
begin
  FrmTthb := TFrmTthb.Create(Application);
  FrmTthb.ShowModal;
  FrmTthb.Release;
end;

procedure TFrmGsMain.N7Click(Sender: TObject);
begin
  FrmBmGzxmTj := TFrmBmGzxmTj.Create(Application);
  FrmBmGzxmTj.ShowModal;
  FrmBmGzxmTj.Release;
end;

procedure TFrmGsMain.N8Click(Sender: TObject);
begin
  FrmBmZxTj := TFrmBmZxTj.Create(Application);
  FrmBmZxTj.ShowModal;
  FrmBmZxTj.Release;
end;

procedure TFrmGsMain.N14Click(Sender: TObject);
begin
  FrmBmGzxm := TFrmBmGzxm.Create(Application);
  FrmBmGzxm.ShowModal;
  FrmBmGzxm.Release;
end;

procedure TFrmGsMain.N9Click(Sender: TObject);
begin
  FrmToday := TFrmToday.Create(Application);
  FrmToday.ShowModal;
  FrmToday.Release;
end;

procedure TFrmGsMain.N16Click(Sender: TObject);
begin
  FrmGsGzxmTj := TFrmGsGzxmTj.Create(Application);
  FrmGsGzxmTj.ShowModal;
  FrmGsGzxmTj.Release;
end;

procedure TFrmGsMain.N18Click(Sender: TObject);
begin
  FrmGsZx := TFrmGsZx.Create(Application);
  FrmGsZx.ShowModal;
  FrmGsZx.Release;
end;

procedure TFrmGsMain.N19Click(Sender: TObject);
begin
  FrmBmFzGzxmTj := TFrmBmFzGzxmTj.Create(Application);
  FrmBmFzGzxmTj.ShowModal;
  FrmBmFzGzxmTj.Release;
end;

procedure TFrmGsMain.N20Click(Sender: TObject);
begin
  frmAuthor := TfrmAuthor.Create(Application);
  frmAuthor.ShowModal;
  frmAuthor.Release;
end;

procedure TFrmGsMain.N22Click(Sender: TObject);
begin
  frmBmxx := TfrmBmxx.Create(Application);
  frmBmxx.ShowModal;
  frmBmxx.Release;
end;

procedure TFrmGsMain.N23Click(Sender: TObject);
begin
  frmYgxx := TfrmYgxx.Create(Application);
  frmYgxx.ShowModal;
  frmYgxx.Release;
end;

procedure TFrmGsMain.N24Click(Sender: TObject);
begin
  frmLbxx := TfrmLbxx.Create(Application);
  frmLbxx.ShowModal;
  frmLbxx.Release;
end;

procedure TFrmGsMain.N25Click(Sender: TObject);
begin
  FrmLbfz := TFrmLbfz.Create(Application);
  FrmLbfz.ShowModal;
  FrmLbfz.Release;
end;

procedure TFrmGsMain.N26Click(Sender: TObject);
begin
  FrmRyFz := TFrmRyFz.Create(Application);
  FrmRyFz.ShowModal;
  FrmRyFz.Release;
end;

procedure TFrmGsMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if MessageDlg('真的退出工时汇报系统吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    CanClose:=True
  else
    CanClose:=False;
end;

end.