resw00_01.pas.svn-base

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

  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 TResW00_01Form.ActResS00Execute(Sender: TObject);
begin
//资源系统参数
  CreateFormInPackage('TResS00_01Form',True);
end;

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

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

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

procedure TResW00_01Form.ActRes500Execute(Sender: TObject);
begin
//变量函数维护
  CreateFormInPackage('TRes500_01Form',True);
end;

procedure TResW00_01Form.ActRes510Execute(Sender: TObject);
begin
//基础窗体维护
  CreateFormInPackage('TRes510_01Form',True);
end;

procedure TResW00_01Form.ActRes520Execute(Sender: TObject);
begin
//系统参数维护
  CreateFormInPackage('TRes520_01Form',True);
end;

procedure TResW00_01Form.ActRes530Execute(Sender: TObject);
begin
//程序编码维护
  CreateFormInPackage('TRes530_01Form',True);
  sbSearch.Click;
end;

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

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

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

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

procedure TResW00_01Form.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 TResW00_01Form.ActUpgradeExecute(Sender: TObject);
begin
//在线智能升级(&U)...
  ShowUpgradeForm;
end;

procedure TResW00_01Form.sbSearchClick(Sender: TObject);
var
  AClassNo:string;
begin
//查询
  Screen.Cursor:=crHourGlass;

  AStringList.Clear;
  adsLists.Locate('Name',cbTasClass.Text,[]);
  AClassNo:=adsLists.FieldByName('Num').AsString;
  if AClassNo<>'0' then
  begin
    AStringList.Add(AClassNo);
    if HasChild(AClassNo,'TAS100','T100_003') then GetChild(AClassNo,'TAS100','T100_003','T100_001',AStringList);
  end;

  qryRes530.Filtered:=False;
  if not Assigned(qryRes530.OnFilterRecord) then
    qryRes530.OnFilterRecord:=qryRes530FilterRecord;
  qryRes530.DisableControls;
  qryRes530.Close;
  qryRes530.SQL.Clear;
  qryRes530.SQL.Add('select * from RES530  order by R530_001');
  qryRes530.Open;
  qryRes530.EnableControls;
  qryRes530.Filtered:=True;
  Screen.Cursor:=crDefault;
end;

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

procedure GetStatusList(var AStringList:TStrings);
begin
  if AStringList=nil then Exit;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from TAS120');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    AStringList.Add(SYSDM.qryQuery.FieldByName('T120_003').Value);
    SYSDM.qryQuery.Next;
  end;
end;

procedure TResW00_01Form.FilterDialogSelectField(Sender: TObject;
  FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
  if FieldName='T120_003' then GetStatusList(ComboList);
end;

procedure TResW00_01Form.dbgDetailBackgroundDrawEvent(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect);
var
  AText:string;
begin
  ARect.Left:=0;
  ARect.Top:=0;
  ACanvas.Brush.Color:=dbgDetail.GroupPanelColor;
  ACanvas.Font.Color:=dbgDetail.GroupPanelFontColor;
  //您可以把列标题拖放到此处使记录按此列进行分组
  if dbgDetail.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 TResW00_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 TResW00_01Form.tvListsDblClick(Sender: TObject);
begin
//类别选择
  if tvLists.Items.Count=0 then Exit;
  if tvLists.Selected=tvLists.Items.GetFirstNode then
  begin
    LockWindowUpdate(tvLists.Handle);
    //取得所有任务类别
    GetAllTasksClass(adsLists,cbTasClass);
    sbSearch.Click;
    LockWindowUpdate(0);
  end else
  begin
    tvLists.Items.BeginUpdate;
    tvLists.Items[0].Expand(True);
    tvLists.Items.EndUpdate;
    cbTasClass.ItemIndex:=cbTasClass.Items.IndexOf(adsListsName.Value);
    cbTasClassChange(cbTasClass);
  end;
end;

procedure TResW00_01Form.cbTasClassChange(Sender: TObject);
begin
  sbSearch.Click;
end;

procedure TResW00_01Form.dbgMasterDblClick(Sender: TObject);
begin
//查看
  ActOpen.Execute;
end;

procedure TResW00_01Form.dbgDetailDblClick(Sender: TObject);
begin
  if bbtnUpdate.Enabled then bbtnUpdate.Click;
end;

procedure TResW00_01Form.ActRes200Execute(Sender: TObject);
begin
//变量函数查询
  CreateFormInPackage('TRes200_01Form',True);
end;

procedure TResW00_01Form.dxDBGrid1CustomDraw(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
  var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
begin
  if SYSDM.qrySys910.IsEmpty then Exit;
  //1=新消息，2=旧消息
  case SYSDM.qrySys910S910_006.Value of
    1:AFont.Style:=[fsBold];
  else
    AFont.Style:=[];
  end;
end;

procedure TResW00_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 TResW00_01Form.FormShow(Sender: TObject);
begin
  cbTasClass.Left:=lblClass.Left+lblClass.Width+8;
end;

procedure TResW00_01Form.qryRes530FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if AStringList.Count=0 then Exit;
  Accept:=AStringList.IndexOf(qryRes530.FieldByName('R530_004').AsString)<>-1;
end;

procedure TResW00_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='AType' then ParValue:=lblClass.Caption  //类别
  else if ParName='ATypeValue' then ParValue:=cbTasClass.Text  //
{  else if ParName='T510_001' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='T510_002' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='T120_003' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='T510_006' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='O150_002' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='O150_003' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='I150_002' then ParValue:=qryRes530R530_001.DisplayLabel  //
  else if ParName='T510_018' then ParValue:=qryRes530R530_001.DisplayLabel  //
}
end;

procedure TResW00_01Form.ActInsertExecute(Sender: TObject);
//var
//  ACode:string;
begin
//新增(&A)
{  Screen.Cursor:=crHourGlass;
  ACode:=qryRes530R530_001.Value;
  Res530_02Form:=TRes530_02Form.Create(Application);
  Res530_02Form.OpenData('');
  Res530_02Form.ActInsert.Execute;
  Screen.Cursor:=crDefault;
  Res530_02Form.ShowModal;
  sbSearch.Click;
  try
    qryRes530.DisableControls;
    qryRes530.Locate('T510_001',ACode,[]);
    qryRes530.EnableControls;
  except
    qryRes530.EnableControls;
    Abort;
  end;  }
end;

procedure TResW00_01Form.ActUpdateExecute(Sender: TObject);
//var
//  ACode:string;
begin
//修改(&E)
  if qryRes530.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
{  Screen.Cursor:=crHourGlass;
  ACode:=qryTas510T510_001.Value;
  Tas510_02Form:=TTas510_02Form.Create(Application);
  Tas510_02Form.OpenData(qryTas510T510_001.Value);
  Tas510_02Form.ActUpdate.Execute;
  Screen.Cursor:=crDefault;
  Tas510_02Form.ShowModal;
  sbSearch.Click;
  try
    qryTas510.DisableControls;
    qryTas510.Locate('T510_001',ACode,[]);
    qryTas510.EnableControls;
  except
    qryTas510.EnableControls;
    Abort;
  end; }
end;

procedure TResW00_01Form.ActDeleteExecute(Sender: TObject);
//var
//  ACode:string;
begin
//删除(&D)
  if qryRes530.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
{  try
    AProjID:='';
    if qryTas510.FieldByName('T510_008').AsInteger=2 then
    begin
      AProjID:=qryTas510.FieldByName('T510_009').AsString;
    end;
    ACode:=qryTas510T510_001.Value;
    if ShowDialog('UMS10000008')=IDYES then  //确定要删除此记录吗?
    begin
      DeleteTableRecord(qryTas510,'TAS510','T510_001='+''''+ACode+'''');
    end;
    //更新项目计划信息(项目状态、实际工时、完工比率、任务总数)
    if AProjID<>'' then UpdateProjectInfo(AProjID);
  except
    qryTas510.EnableControls;
    ShowMsg(SYSDM.ADOC.Errors[0].Description+#13+SYSDM.qryQuery.SQL.Text,1);
    Abort;
  end;  }
end;

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

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

procedure TResW00_01Form.ActSearchExecute(Sender: TObject);
begin
//查询(&S)
  try
    SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField;
    FilterDialog(dsRes530);
  finally
    SYSDM.wwFilterDialog1.OnSelectField:=nil;
  end;
end;

procedure TResW00_01Form.ActPrintExecute(Sender: TObject);
var
  AReportName:string;
begin
//打印(&P)
  AReportName:='RES500.frf';
  SelectReport(qryRes530,AProgramID,AReportName,ReportGetValue);
  ActRefresh.Execute;
end;

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

end.