hrmw00_01.pas.svn-base

一个用Delphi开发的ERP软件

  cbDeptChange(cbDept);
end;

procedure THrmW00_01Form.FormCreate(Sender: TObject);
begin
  AStringList:=TStringList.Create;
  SetInterface;
  //查询报表
  GetAllReport(adsReports,ActionList1,'HRM');

  //取得所有部门
  RefreshDepartment;

  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure THrmW00_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  AStringList.Free;
  Action := caFree;
end;

procedure THrmW00_01Form.FormActivate(Sender: TObject);
begin
  Animate1.ResName:='HOWWELL';
  Animate1.Play(1,100,0);
  AModule:='HRM';
end;

procedure THrmW00_01Form.dbgMasterBackgroundDrawEvent(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect);
var
  AText:string;
begin
  ARect.Left:=0;
  ARect.Top:=0;
  ACanvas.Brush.Color:=dbgMaster.GroupPanelColor;
  ACanvas.Font.Color:=dbgMaster.GroupPanelFontColor;
  //您可以把列标题拖放到此处使记录按此列进行分组
  if dbgMaster.GroupColumnCount=0 then AText:=' '+GetDBString('NOT10001012') else AText:='';
  Windows.FillRect(ACanvas.Handle, ARect, 0);
  DrawText(ACanvas.Handle, PChar(AText), Length(AText), ARect, DT_LEFT or DT_EXPANDTABS or DT_NOPREFIX or DT_SINGLELINE or DT_VCENTER);
end;

procedure THrmW00_01Form.ActHrmS00Execute(Sender: TObject);
begin
//人力资源参数
  CreateFormInPackage('THrmS00_01Form',True);
end;

procedure THrmW00_01Form.ActHrm100Execute(Sender: TObject);
begin
//部门资料维护
  CreateFormInPackage('THrm100_01Form',True);
  RefreshDepartment;
end;

procedure THrmW00_01Form.ActHrm120Execute(Sender: TObject);
begin
//岗位资料维护
  CreateFormInPackage('THrm120_01Form',True);
  RefreshDepartment;
end;

procedure THrmW00_01Form.ActHrm130Execute(Sender: TObject);
begin
//员工状态维护
  CreateFormInPackage('THrm130_01Form',True);
  RefreshDepartment;
end;

procedure THrmW00_01Form.ActHrm150Execute(Sender: TObject);
begin
//员工资料维护
  CreateFormInPackage('THrm150_01Form',True);
end;

procedure THrmW00_01Form.ActHrm152Execute(Sender: TObject);
begin
//暂住证维护
  CreateFormInPackage('THrm152_01Form',True);
end;

procedure THrmW00_01Form.ActPassExecute(Sender: TObject);
begin
//更改登录密码(&C)...
  AStartTime:=GetTickCount;
  Sys600_01Form:=TSys600_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Sys600_01Form.ShowModal;
end;

procedure THrmW00_01Form.ActLonginExecute(Sender: TObject);
begin
//更换操作员(&U)...
  ReLogin;
end;

procedure THrmW00_01Form.ActExitExecute(Sender: TObject);
begin
//退出(&X)
  Application.MainForm.Close;
end;

procedure THrmW00_01Form.ActHrm500Execute(Sender: TObject);
begin
//职务调动处理
  CreateFormInPackage('THrm500_01Form',True);
end;

procedure THrmW00_01Form.ActHrm510Execute(Sender: TObject);
begin
//员工状态调整
  CreateFormInPackage('THrm510_01Form',True);
end;

procedure THrmW00_01Form.ActHrm200Execute(Sender: TObject);
begin
//人事查询报表
  CreateFormInPackage('THrm200_01Form',True);
end;

procedure THrmW00_01Form.ActHrm210Execute(Sender: TObject);
begin
//新进员工查询
  CreateFormInPackage('THrm210_01Form',True);
end;

procedure THrmW00_01Form.ActHrm220Execute(Sender: TObject);
begin
//离职员工查询
  CreateFormInPackage('THrm220_01Form',True);
end;

procedure THrmW00_01Form.ActHrm230Execute(Sender: TObject);
begin
//员工结构分析
  CreateFormInPackage('THrm230_01Form',True);
end;

procedure THrmW00_01Form.ActHrm250Execute(Sender: TObject);
begin
//寿星员工统计
  CreateFormInPackage('THrm250_01Form',True);
end;

procedure THrmW00_01Form.ActHrm260Execute(Sender: TObject);
begin
//暂住证明细表
  CreateFormInPackage('THrm260_01Form',True);
end;

procedure THrmW00_01Form.ActContentsExecute(Sender: TObject);
begin
//帮助主题(&H)
  Application.HelpCommand(HELP_FINDER,0);
end;

procedure THrmW00_01Form.ActEmailExecute(Sender: TObject);
begin
//写信给作者(&E)...
  Screen.Cursor:=crHourGlass;
  ShellExecute(Handle, nil, PChar('mailto:'+AEmail),nil,nil,SW_NORMAL);
  Screen.Cursor:=crDefault;
end;

procedure THrmW00_01Form.ActHomePageExecute(Sender: TObject);
begin
//网上浩晖(&P)...
  Screen.Cursor:=crHourGlass;
  ShellExecute(Handle, nil, PChar(AHome),nil,nil,SW_NORMAL);
  Screen.Cursor:=crDefault;
end;

procedure THrmW00_01Form.ActAboutExecute(Sender: TObject);
begin
//关于浩晖(&A)...
  WelcomeForm:=TWelcomeForm.Create(Application);
  WelcomeForm.AFlag:=True;
  WelcomeForm.ShowModal;
end;

procedure THrmW00_01Form.ActRegExecute(Sender: TObject);
begin
//软件注册(&R)...
  AStartTime:=GetTickCount;
  HwRegisterForm:=THwRegisterForm.Create(Application);
  ShowRunTime;  //显示程序执行时间
  HwRegisterForm.ShowModal;
  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

procedure THrmW00_01Form.ActUpgradeExecute(Sender: TObject);
begin
//在线智能升级(&U)...
  ShowUpgradeForm;
end;

procedure THrmW00_01Form.cbDeptChange(Sender: TObject);
begin
  sbSearch.Click;
end;

procedure THrmW00_01Form.sbSearchClick(Sender: TObject);
var
  ANo:string;
begin
//查询
  AStringList.Clear;
  adsLists.Locate('Name',cbDept.Text,[]);
  ANo:=adsLists.FieldByName('Num').AsString;
  if ANo<>'0' then
  begin
    AStringList.Add(ANo);
    if HasChild(ANo,'HRM100','H100_003') then GetChild(ANo,'HRM100','H100_003','H100_001',AStringList);
  end;
  qryMaster.Close;
  qryMaster.Open;
end;

procedure THrmW00_01Form.qryMasterFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if AStringList.Count=0 then Accept:=True else Accept:=AStringList.IndexOf(qryMaster.FieldByName('H150_005').AsString)<>-1;
  //所有职务
  if cbPosit.ItemIndex=0 then
    if cbStatus.ItemIndex=0 then
      Accept:=Accept
    else
      Accept:=(Accept) and (cbStatus.Text=qryMasterH130_003.AsString)
  else  //某一职务
    if cbStatus.ItemIndex=0 then
      Accept:=(Accept) and (cbPosit.Text=qryMasterH120_003.AsString)
    else
      Accept:=(Accept) and (cbPosit.Text=qryMasterH120_003.AsString) and (cbStatus.Text=qryMasterH130_003.AsString)
end;

procedure THrmW00_01Form.tvReportsDblClick(Sender: TObject);
begin
  if adsReports.IsEmpty then Exit;
  CreateFormInPackage('T'+adsReports.FieldByName('Code').Value+'_01Form',True);
end;

procedure THrmW00_01Form.bbtnInsertClick(Sender: TObject);
begin
//新增(&A)
  Screen.Cursor:=crHourGlass;
  Hrm150_01Form:=THrm150_01Form.Create(Application);
  Hrm150_01Form.ActInsert.Execute;
  Screen.Cursor:=crDefault;
  Hrm150_01Form.ShowModal;
  sbSearch.Click;
end;

procedure THrmW00_01Form.bbtnUpdateClick(Sender: TObject);
begin
//修改
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  Screen.Cursor:=crHourGlass;
  Hrm150_01Form:=THrm150_01Form.Create(Application);
  Hrm150_01Form.ActUpdate.Execute;
  Screen.Cursor:=crDefault;
  Hrm150_01Form.ShowModal;
  sbSearch.Click;
end;

procedure THrmW00_01Form.bbtnDeleteClick(Sender: TObject);
begin
//删除
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    SYSDM.ADOC.BeginTrans;
    Screen.Cursor:=crHourGlass;
    try
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM151 where H151_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM152 where H152_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM153 where H153_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM154 where H154_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM155 where H155_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM156 where H156_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM157 where H157_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM158 where H158_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from HRM159 where H159_001='+qryMaster.FieldByName('H150_001').AsString);
      SYSDM.qryQuery.ExecSQL;
      qryMaster.Delete;
      SYSDM.ADOC.CommitTrans;
      sbSearch.Click;
      Screen.Cursor:=crDefault;
    except
      SYSDM.ADOC.RollbackTrans;
      Screen.Cursor:=crDefault;
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  end;
end;

procedure THrmW00_01Form.bbtnRefreshClick(Sender: TObject);
begin
//刷新(&R)
  sbSearch.Click;
end;

procedure THrmW00_01Form.bbtnLocateClick(Sender: TObject);
begin
//查找(&F)
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsMaster);
end;

procedure THrmW00_01Form.bbtnSearchClick(Sender: TObject);
begin
//查询(&S)
  FilterDialog(dsMaster);
end;

procedure THrmW00_01Form.bbtnPrintClick(Sender: TObject);
begin
//打印
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  HwPrintForm:=THwPrintForm.Create(Application);
  HwPrintForm.edtReportTitle.Text:=Caption;
  HwPrintForm.OpenPrint(qryMaster);
  HwPrintForm.ShowModal;
end;

procedure THrmW00_01Form.mmiReadedClick(Sender: TObject);
begin
//标识为“已阅读”
  if not SYSDM.qrySys910.Active then Exit;
  if SYSDM.qrySys910.IsEmpty then Exit;
  SYSDM.qrySys910.Edit;
  SYSDM.qrySys910S910_006.Value:=2;
  SYSDM.qrySys910.Post;
end;

procedure THrmW00_01Form.dbgMasterDblClick(Sender: TObject);
begin
  if qryMaster.IsEmpty then Exit;
  Screen.Cursor:=crHourGlass;
  Hrm150_01Form:=THrm150_01Form.Create(Application);
  Hrm150_01Form.OpenData(qryMasterH150_002.Value);
  Screen.Cursor:=crDefault;
  Hrm150_01Form.ShowModal;
  sbSearch.Click;
end;

procedure THrmW00_01Form.tvListsDblClick(Sender: TObject);
begin
//类别选择
  if tvLists.Items.Count=0 then Exit;
  tvLists.Items.BeginUpdate;
  tvLists.Items[0].Expand(True);
  tvLists.Items.EndUpdate;
  cbDept.ItemIndex:=cbDept.Items.IndexOf(adsListsName.Value);
  cbDeptChange(cbDept);
end;

procedure THrmW00_01Form.bbtnExcelClick(Sender: TObject);
begin
//导出数据
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  HwExportForm:=THwExportForm.Create(Application);
  HwExportForm.GetDataFields('HRM150',qryMaster);
  HwExportForm.ShowModal;
end;

end.