employeemain.pas

delphi renyuanguanlixinxioxitong

unit EmployeeMain;

interface

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

type
  TfrmEmployeeMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Image1: TImage;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    tbtnLogin: TToolButton;
    tbtnPost: TToolButton;
    tbtnDepartment: TToolButton;
    tbtnEmployee: TToolButton;
    tbtnSearch: TToolButton;
    tbtnExit: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Label1: TLabel;
    N11: TMenuItem;
    procedure tbtnLoginClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEmployeeMain: TfrmEmployeeMain;

implementation
uses DataModual,DCNation,DCPost,Department,Employee,
     QueryEmployee,QueryDepartment,StatEmploye;
{$R *.dfm}
//业务处理
procedure TfrmEmployeeMain.tbtnLoginClick(Sender: TObject);
var
   sUserID :string;
   sEmployeeNo,sEmployeeName :string;
   nState :integer;
begin
   case ((Sender as TComponent).Tag ) of
     10: begin     //登录
           gfunOpenLogin(sUserID,1);      //通过登录表单的接口调用登录界面
           StatusBar1.Panels[0].Text := '操作者：'+sUserID;
         end;
     21: begin     //民族字典
           gfunOpenDCNation ;
         end;
     22: begin     //岗位字典
            gfunOpenDCPost;
         end;
     30: begin      //部门维护
            gfunOpenDepartment;
         end;
     40: begin      //员工维护
            gfunOpenEmployee();
         end;
     51: begin      //查询部门
           gfunOpenQueryDepartment();
         end;
     52: begin     //查询员工
           nState :=0;
           gfunOpenQueryEmployee(sEmployeeNo,sEmployeeName,nState);
         end;
     60: begin      //统计员工
           gfunOpenStatEmployee;
         end;
     100: begin     //退出
           close;
         end;
   end;
end;
//设置日期的显示格式
procedure TfrmEmployeeMain.FormShow(Sender: TObject);
begin
   DateSeparator :='-';
   ShortDateFormat :='yyyy-mm-dd';
   LongDateFormat :='yyyy-mm-dd hh:mm:ss';
end;
//在状态栏设置时间
procedure TfrmEmployeeMain.Timer1Timer(Sender: TObject);
begin
   StatusBar1.Panels[1].Text := DateTimeToStr(now());
   StatusBar1.Panels[1].Alignment := taCenter;
   StatusBar1.Panels[0].Alignment := taCenter;
end;

//当关闭窗口时询问是否关闭
procedure TfrmEmployeeMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if application.MessageBox('是否确信退出','提示',mb_yesno) = id_no then
     CanClose := False;
end;
//显示登陆窗口
procedure TfrmEmployeeMain.FormCreate(Sender: TObject);
var
   sUserID :string;
begin
   gfunOpenLogin(sUserID,0);   //通过登录表单的接口调用登录界面
   //将登录用户标识写入状态栏中
   StatusBar1.Panels[0].Text := '操作者：'+sUserID;
end;
//当应用结束时关闭ADO的连接
procedure TfrmEmployeeMain.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   if DataModule1.connOracle.Connected then
      DataModule1.connOracle.Close;
end;

end.