cwaw00_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

  adsLists.First;
  cbType.ItemIndex:=0;
  cbTypeChange(cbType);
end;

procedure TCwaW00_01Form.FormCreate(Sender: TObject);
begin
  SetInterface;
  GetYears(cbYear);
  GetMonths(StrToInt(cbYear.Text),cbMonth);
  //查询报表
  GetAllReport(adsReports,ActionList1,'CWA');
  //取得考勤项目资料
  RefreshCheckItem;
  ActReg.Visible:=ADemoFlag;
  N1.Visible:=ADemoFlag;
end;

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

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

procedure TCwaW00_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 TCwaW00_01Form.cbTypeChange(Sender: TObject);
begin
  if cbYear.Text='' then Exit;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select C150_001 from CWA150 where C150_003='+''''+cbType.Text+'''');
  SYSDM.qryQuery.Open;
  if SYSDM.qryQuery.IsEmpty then
    ATypeNo:=0
  else
    ATypeNo:=SYSDM.qryQuery.Fields[0].AsInteger;   //事务类型
  sbSearch.Click;
end;

procedure TCwaW00_01Form.sbSearchClick(Sender: TObject);
begin
//查询
  if (cbYear.Text='') or (cbMonth.Text='') or (cbType.Text='') then Exit;
  //取得期段的起始结束日期
  GetPeriodDate(cbYear.Text,cbMonth.Text,AStartDate,AEndDate,APeriod);
  qryMaster.Close;
  qryMaster.SQL.Clear;
  if ATypeNo=0 then
    qryMaster.SQL.Add('select * from CWA500 where C500_005>='+GetDateString(AStartDate)+' and C500_005<='+GetDateString(AEndDate))
  else
    qryMaster.SQL.Add('select * from CWA500 where C500_001='+IntToStr(ATypeNo)+' and C500_005>='+GetDateString(AStartDate)+' and C500_005<='+GetDateString(AEndDate));
  qryMaster.Open;
end;

procedure TCwaW00_01Form.cbYearChange(Sender: TObject);
begin
  GetMonths(StrToInt(cbYear.Text),cbMonth);
  sbSearch.Click;
end;

procedure TCwaW00_01Form.cbMonthChange(Sender: TObject);
begin
  //取得期段的起始结束日期
  GetPeriodDate(cbYear.Text,cbMonth.Text,AStartDate,AEndDate,APeriod);
  sbSearch.Click;
end;

procedure TCwaW00_01Form.qryMasterC500_009GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  if qryMaster.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AUnit[0];  //分钟
    1:Text:=AUnit[1];  //小时
    2:Text:=AUnit[2];  //天
    3:Text:=AUnit[3];  //次
    4:Text:=AUnit[4];  //月
    5:Text:=AUnit[5];  //年
  end;
end;

procedure TCwaW00_01Form.tvListsDblClick(Sender: TObject);
begin
//项目选择
  if tvLists.Items.Count=0 then Exit;
  tvLists.Items.BeginUpdate;
  tvLists.Items[0].Expand(True);
  tvLists.Items.EndUpdate;
  cbType.ItemIndex:=cbType.Items.IndexOf(adsListsName.Value);
  cbTypeChange(cbType);
end;

procedure TCwaW00_01Form.tvListsGetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
  if Node.HasChildren then
  begin
    Node.ImageIndex:=0;
    Node.SelectedIndex:=0;
  end else
  begin
    Node.ImageIndex:=1;
    Node.SelectedIndex:=1;
  end;
end;

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

procedure TCwaW00_01Form.ActCwa100Execute(Sender: TObject);
begin
//工作日历维护
  CreateFormInPackage('TCwa100_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa110Execute(Sender: TObject);
begin
//班别文件维护
  CreateFormInPackage('TCwa110_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa120Execute(Sender: TObject);
begin
//员工班别维护
  CreateFormInPackage('TCwa120_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa150Execute(Sender: TObject);
begin
//考勤项目维护
  CreateFormInPackage('TCwa150_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa160Execute(Sender: TObject);
begin
//事务原因维护
  CreateFormInPackage('TCwa160_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa170Execute(Sender: TObject);
begin
//期段资料维护
  CreateFormInPackage('TCwa170_01Form',True);
end;

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

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

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

procedure TCwaW00_01Form.ActCwa500Execute(Sender: TObject);
begin
//考勤事务处理
  CreateFormInPackage('TCwa500_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa550Execute(Sender: TObject);
begin
//考勤资料核算
  CreateFormInPackage('TCwa550_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa200Execute(Sender: TObject);
begin
//考勤查询报表
  CreateFormInPackage('TCwa200_01Form',True);
end;

procedure TCwaW00_01Form.ActCwa210Execute(Sender: TObject);
begin
//考勤年度报表
  CreateFormInPackage('TCwa210_01Form',True);
end;

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

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

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

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

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

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

procedure TCwaW00_01Form.bbtnInsertClick(Sender: TObject);
begin
//新增(&A)
  Cwa500_05Form:=TCwa500_05Form.Create(Application);
  Cwa500_05Form.ShowModal;
  sbSearch.Click;
end;

procedure TCwaW00_01Form.bbtnUpdateClick(Sender: TObject);
begin
//修改(&E)
  Cwa500_05Form:=TCwa500_05Form.Create(Application);
  Cwa500_05Form.ShowModal;
  sbSearch.Click;
end;

procedure TCwaW00_01Form.bbtnDeleteClick(Sender: TObject);
begin
//删除(&D)
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
  begin
    //
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('delete CWA550 where C500_001= and C500_004= and C500_005= and C500_006= and C500_007=');
    SYSDM.qryQuery.ExecSQL;
    sbSearch.Click;
  end;
end;

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

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

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

procedure TCwaW00_01Form.bbtnPrintClick(Sender: TObject);
var
  AReportName:String;
begin
//打印(&P)
  AReportName:='Cwa500.frf';
  SelectReport(qryMaster,AProgramID,AReportName,ReportGetValue);
  sbSearch.Click;
end;

procedure TCwaW00_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  if ParName='USENM' then ParValue:=AUserName
  else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006')  //列印日期
  else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007')  //列印人員
  else if ParName='REPNM' then ParValue:=AReportTitle

  else if ParName='C150_002' then ParValue:=GetDBString('CWA50001017')  //类型编号
  else if ParName='C150_003' then ParValue:=GetDBString('CWA50001018')  //类型名称
  else if ParName='C160_002' then ParValue:=GetDBString('CWA50001019')  //原因编号
  else if ParName='C160_003' then ParValue:=GetDBString('CWA50001020')  //原因说明
  else if ParName='H150_002' then ParValue:=GetDBString('CWA50001008')  //员工编号
  else if ParName='H150_003' then ParValue:=GetDBString('CWA50001021')  //员工姓名
  else if ParName='C500_003' then ParValue:=GetDBString('CWA50001009')  //事务说明
  else if ParName='C500_005' then ParValue:=GetDBString('CWA50001010')  //事务日期
  else if ParName='C500_006' then ParValue:=GetDBString('CWA50001012')  //起始时间
  else if ParName='C500_007' then ParValue:=GetDBString('CWA50001013')  //结束时间
  else if ParName='C500_008' then ParValue:=GetDBString('CWA50001014')  //事务数值
  else if ParName='C500_009' then ParValue:=GetDBString('CWA50001015')  //计量单位
  else if ParName='C500_010' then ParValue:=GetDBString('CWA50001022')  //已审核否
end;

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

procedure TCwaW00_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 TCwaW00_01Form.bbtnExcelClick(Sender: TObject);
begin
//导出数据
  if qryMaster.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  HwExportForm:=THwExportForm.Create(Application);
  HwExportForm.GetDataFields('CWA500',qryMaster);
  HwExportForm.ShowModal;
end;

end.