hwwork.pas.svn-base

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

    AFont.Style:=[];
  end;
end;

procedure THwWorkForm.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 THwWorkForm.ActPassExecute(Sender: TObject);
begin
//更改登录密码(&C)...
  AStartTime:=GetTickCount;
  Sys600_01Form:=TSys600_01Form.Create(Application);
  ShowRunTime;  //显示程序执行时间
  Sys600_01Form.ShowModal;
end;

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

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

procedure THwWorkForm.ActContentsExecute(Sender: TObject);
begin
//帮助主题(&H)
  Screen.Cursor:=crHourGlass;
  Application.HelpCommand(HELP_FINDER,0);
  Screen.Cursor:=crDefault;
end;

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

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

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

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

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

procedure THwWorkForm.ActOpenExecute(Sender: TObject);
begin
//查看
  if dsMaster.DataSet.IsEmpty then Exit;
  try
    Screen.Cursor:=crHourGlass;
    BrowseEvent;
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActInsertExecute(Sender: TObject);
begin
//新增
  try
    Screen.Cursor:=crHourGlass;
    InsertEvent;
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActUpdateExecute(Sender: TObject);
begin
//修改
  if dsMaster.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    UpdateEvent;
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActDeleteExecute(Sender: TObject);
begin
//删除
  if dsMaster.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  if ShowDialog('UMS10000008')=IDNO then Abort;  //确定要删除此记录吗?
  try
    Screen.Cursor:=crHourGlass;
    DeleteEvent;
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActRefreshExecute(Sender: TObject);
var
  ABookmark:TBookmark;
begin
  inherited;
//刷新
  ABookmark:=dsMaster.DataSet.GetBookmark;
  try
    Screen.Cursor:=crHourGlass;
    dsMaster.DataSet.DisableControls;
    sbSearch.Click;
    ARecordCount:=GetDataSetCount(dsMaster.DataSet);
    if dsMaster.DataSet.BookmarkValid(ABookmark) then dsMaster.DataSet.GotoBookmark(ABookmark);
  finally
    dsMaster.DataSet.FreeBookmark(ABookmark);
    dsMaster.DataSet.EnableControls;
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActLocateExecute(Sender: TObject);
begin
//查找
  if dsMaster.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    LocateDialog(dsMaster);
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActSearchExecute(Sender: TObject);
begin
//查询
  try
    Screen.Cursor:=crHourGlass;
    FilterDialog(dsMaster);
    ARecordCount:=GetDataSetCount(dsMaster.DataSet);
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActPrintExecute(Sender: TObject);
begin
//打印
  try
    Screen.Cursor:=crHourGlass;
    SelectReport(dsMaster.DataSet,AProgramID,AReportName,ReportGetValue);
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.ActExportExecute(Sender: TObject);
begin
//导出数据
  if dsMaster.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    HwExportForm:=THwExportForm.Create(Application);
    HwExportForm.GetDataFields(AProgramID,dsMaster.DataSet);
    HwExportForm.ShowModal;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.BrowseEvent;
begin

end;

procedure THwWorkForm.DeleteEvent;
begin

end;

procedure THwWorkForm.GetAllClass(ADataSet: TADODataSet;
  AcbClass: TComboBox);
begin

end;

procedure THwWorkForm.InsertEvent;
begin

end;

procedure THwWorkForm.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
end;

procedure THwWorkForm.SearchEvent;
begin

end;

procedure THwWorkForm.SetModuleName;
begin

end;

procedure THwWorkForm.SetProgramRights;
begin

end;

procedure THwWorkForm.UpdateEvent;
begin

end;

procedure THwWorkForm.BitBtn4Click(Sender: TObject);
begin
//打印
  try
    Screen.Cursor:=crHourGlass;
    SelectReport(SYSDM.dsSys910.DataSet,AProgramID,AReportName,ReportGetValue);
    ActRefresh.Execute;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.BitBtn5Click(Sender: TObject);
begin
//导出数据
  if SYSDM.dsSys910.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    HwExportForm:=THwExportForm.Create(Application);
    HwExportForm.GetDataFields(AProgramID,SYSDM.dsSys910.DataSet);
    HwExportForm.ShowModal;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.BitBtn3Click(Sender: TObject);
begin
//查询
  try
    Screen.Cursor:=crHourGlass;
    FilterDialog(SYSDM.dsSys910);
    ARecordCount:=GetDataSetCount(SYSDM.dsSys910.DataSet);
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.BitBtn2Click(Sender: TObject);
begin
//查找
  if SYSDM.dsSys910.DataSet.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  try
    Screen.Cursor:=crHourGlass;
    LocateDialog(SYSDM.dsSys910);
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.BitBtn1Click(Sender: TObject);
var
  ABookmark:TBookmark;
begin
  inherited;
//刷新
  ABookmark:=SYSDM.dsSys910.DataSet.GetBookmark;
  try
    Screen.Cursor:=crHourGlass;
    SYSDM.dsSys910.DataSet.DisableControls;
    sbSearch.Click;
    ARecordCount:=GetDataSetCount(SYSDM.dsSys910.DataSet);
    if SYSDM.dsSys910.DataSet.BookmarkValid(ABookmark) then SYSDM.dsSys910.DataSet.GotoBookmark(ABookmark);
  finally
    SYSDM.dsSys910.DataSet.FreeBookmark(ABookmark);
    SYSDM.dsSys910.DataSet.EnableControls;
    Screen.Cursor:=crDefault;
  end;
end;

procedure THwWorkForm.dxDBGrid1BackgroundDrawEvent(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect);
var
  AText:string;
begin
  ARect.Left:=0;
  ARect.Top:=0;
  ACanvas.Brush.Color:=dxDBGrid1.GroupPanelColor;
  ACanvas.Font.Color:=dxDBGrid1.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;

end.