ser310_01.pas.svn-base

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

  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

procedure TSer310_01Form.ActRefreshExecute(Sender: TObject);
begin
  inherited;
//刷新
  sbSearch.Click;
end;

procedure TSer310_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if dbgSer500.Focused then
  begin
    if qrySer500.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer500);
  end else
  if dbgSer510.Focused then
  begin
    if qrySer510.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer510);
  end else
  if dbgSer521.Focused then
  begin
    if qrySer521.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer521);
  end else
  if dbgSer522.Focused then
  begin
    if qrySer522.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer522);
  end else
  if dbgSer523.Focused then
  begin
    if qrySer523.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer523);
  end else
  begin
    if qrySer524.IsEmpty then
    begin
      ShowMsg('UMS10000002');  //表记录为空，操作无效
      Abort;
    end;
    LocateDialog(dsSer524);
  end;
end;

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

procedure TSer310_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  if dbgSer500.Focused then
      FilterDialog(dsSer500)
   else
  if dbgSer510.Focused then
      FilterDialog(dsSer510)
   else
  if dbgSer521.Focused then
      FilterDialog(dsSer521)
   else
  if dbgSer522.Focused then
      FilterDialog(dsSer522)
   else
  if dbgSer523.Focused then
      FilterDialog(dsSer523)
   else
      FilterDialog(dsSer524)
//  SYSDM.wwFilterDialog1.OnSelectField:=nil;
end;

procedure TSer310_01Form.ActPrintExecute(Sender: TObject);
begin
//打印
  inherited;
  SelectReport(qrySer500,AProgramID,AReportName,ReportGetValue);
  ActRefresh.Execute;
end;

procedure TSer310_01Form.ActExitExecute(Sender: TObject);
begin
  inherited;         //退出
  Close;
end;

procedure TSer310_01Form.qryTas520T520_003GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  Text:=GetPersonName(TField(Sender).AsString);
end;

procedure TSer310_01Form.ActOpenExecute(Sender: TObject);
//var
//  ACode:string;
begin
  inherited;
//查看(&N)
{  if dbgTas500.Focused then
  begin
    if qryTas500.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas500T500_001.Value;
    Ser500_02Form:=TSer500_02Form.Create(Application);
    Ser500_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser500_02Form.ShowModal;
  end else
  if dbgTas510.Focused then
  begin
    if qryTas510.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas510T510_001.Value;
    Ser510_02Form:=TSer510_02Form.Create(Application);
    Ser510_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser510_02Form.ShowModal;
  end else
  if dbgTas520.Focused then
  begin
    if qryTas520.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas520T520_001.Value;
    Ser520_02Form:=TSer520_02Form.Create(Application);
    Ser520_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser520_02Form.ShowModal;
  end else
  if dbgTas530.Focused then
  begin
    if qryTas530.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas530T530_001.Value;
    Ser530_02Form:=TSer530_02Form.Create(Application);
    Ser530_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ser530_02Form.ShowModal;
  end; }
end;

procedure TSer310_01Form.dbgSer510DblClick(Sender: TObject);
begin
  inherited;
//查看
//  ActOpen.Execute;
end;
{
procedure TSer300_01Form.ActFirst2Execute(Sender: TObject);
begin
  inherited;
//最前
  if qryTas520.IsEmpty then Exit;
  qryTas520.First;
  ActFirst2.Enabled:=False;
  ActPrior2.Enabled:=False;
  ActNext2.Enabled:=True;
  ActLast2.Enabled:=True;
end;

procedure TSer300_01Form.ActPrior2Execute(Sender: TObject);
begin
  inherited;
//上移
  if qryTas520.IsEmpty then Exit;
  qryTas520.Prior;
  ActNext2.Enabled:=not qryTas520.Eof;
  ActLast2.Enabled:=not qryTas520.Eof;
  ActFirst2.Enabled:=not qryTas520.Bof;
  ActPrior2.Enabled:=not qryTas520.Bof;
end;

procedure TSer300_01Form.ActNext2Execute(Sender: TObject);
begin
  inherited;
//下移
  if qryTas520.IsEmpty then Exit;
  qryTas520.Next;
  ActNext2.Enabled:=not qryTas520.Eof;
  ActLast2.Enabled:=not qryTas520.Eof;
  ActFirst2.Enabled:=not qryTas520.Bof;
  ActPrior2.Enabled:=not qryTas520.Bof;
end;

procedure TSer300_01Form.ActLast2Execute(Sender: TObject);
begin
  inherited;
//最后
  if qryTas520.IsEmpty then Exit;
  qryTas520.Last;
  ActNext2.Enabled:=False;
  ActLast2.Enabled:=False;
  ActFirst2.Enabled:=True;
  ActPrior2.Enabled:=True;
end;
}
{
procedure TSer300_01Form.ActLocate2Execute(Sender: TObject);
begin
  inherited;
//查找
  if qryTas520.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsTas520);
end;
 }
procedure TSer310_01Form.ActFirst3Execute(Sender: TObject);
begin
  inherited;
//最前
  if qrySer520.IsEmpty then Exit;
  qrySer520.First;
  ActFirst3.Enabled:=False;
  ActPrior3.Enabled:=False;
  ActNext3.Enabled:=True;
  ActLast3.Enabled:=True;
end;

procedure TSer310_01Form.ActPrior3Execute(Sender: TObject);
begin
  inherited;
//上移
  if qrySer520.IsEmpty then Exit;
  qrySer520.Prior;
  ActNext3.Enabled:=not qrySer510.Eof;
  ActLast3.Enabled:=not qrySer510.Eof;
  ActFirst3.Enabled:=not qrySer510.Bof;
  ActPrior3.Enabled:=not qrySer510.Bof;
end;

procedure TSer310_01Form.ActNext3Execute(Sender: TObject);
begin
  inherited;
//下移
  if qrySer520.IsEmpty then Exit;
  qrySer520.Next;
  ActNext3.Enabled:=not qrySer510.Eof;
  ActLast3.Enabled:=not qrySer510.Eof;
  ActFirst3.Enabled:=not qrySer510.Bof;
  ActPrior3.Enabled:=not qrySer510.Bof;
end;

procedure TSer310_01Form.ActLast3Execute(Sender: TObject);
begin
  inherited;
//最后
  if qrySer520.IsEmpty then Exit;
  qrySer520.Last;
  ActNext3.Enabled:=False;
  ActLast3.Enabled:=False;
  ActFirst3.Enabled:=True;
  ActPrior3.Enabled:=True;
end;

procedure TSer310_01Form.ActLocate3Execute(Sender: TObject);
begin
  inherited;
//查找
  if qrySer520.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsSer520);
end;

procedure TSer310_01Form.dbgSer500CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
//  if ANode.HasChildren then Exit;
//  if not ASelected then
//    if ANode.Values[dbgTas500T120_005.Index]<>null then AFont.Color:=ANode.Values[dbgTas500T120_005.Index];
end;

procedure TSer310_01Form.qrySer500AfterScroll(DataSet: TDataSet);
begin
{  inherited;
  if not Active then Exit;
  ActNext.Enabled:=not qryTas500.Eof;
  ActLast.Enabled:=not qryTas500.Eof;
  ActFirst.Enabled:=not qryTas500.Bof;
  ActPrior.Enabled:=not qryTas500.Bof;
}end;

procedure TSer310_01Form.dbgSer500DblClick(Sender: TObject);
begin
  inherited;
//查看
//  ActOpen.Execute;
end;

procedure TSer310_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
end;

procedure TSer310_01Form.qrySer521S521_006GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qrySer521.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AUnit[0];  //时
    1:Text:=AUnit[1];  //天
    2:Text:=AUnit[2];  //周
    3:Text:=AUnit[3];  //月                                                        
  end;                                                                             
end;

initialization
  RegisterClass(TSer310_01Form);

finalization
  UnRegisterClass(TSer310_01Form);

end.