tas300_01.pas.svn-base

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

  inherited;
//上移
  if qryTas500.IsEmpty then Exit;
  qryTas500.Prior;
  ActNext.Enabled:=not qryTas500.Eof;
  ActLast.Enabled:=not qryTas500.Eof;
  ActFirst.Enabled:=not qryTas500.Bof;
  ActPrior.Enabled:=not qryTas500.Bof;
end;

procedure TTas300_01Form.ActNextExecute(Sender: TObject);
begin
  inherited;
//下移
  if qryTas500.IsEmpty then Exit;
  qryTas500.Next;
  ActNext.Enabled:=not qryTas500.Eof;
  ActLast.Enabled:=not qryTas500.Eof;
  ActFirst.Enabled:=not qryTas500.Bof;
  ActPrior.Enabled:=not qryTas500.Bof;
end;

procedure TTas300_01Form.ActLastExecute(Sender: TObject);
begin
  inherited;
//最后
  if qryTas500.IsEmpty then Exit;
  qryTas500.Last;
  ActNext.Enabled:=False;
  ActLast.Enabled:=False;
  ActFirst.Enabled:=True;
  ActPrior.Enabled:=True;
end;

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

procedure TTas300_01Form.ActLocateExecute(Sender: TObject);
begin
  inherited;
//查找
  if qryTas500.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsTas500);
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 TTas300_01Form.FilterDialogSelectField1(Sender: TObject;
  FieldName: String; var PictureMask: String; ComboList: TStrings);
begin
  if FieldName='T120_003' then GetStatusList1(ComboList);
end;

procedure TTas300_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  try
    SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField1;
    FilterDialog(dsTas500);
  finally
    SYSDM.wwFilterDialog1.OnSelectField:=nil;
  end;
end;

procedure TTas300_01Form.ActPrintExecute(Sender: TObject);
var
  AfrReport:TfrReport;
begin
//打印
  inherited;
  AfrReport:=TfrReport.Create(nil);
  try
    PreparedReport(qryTas500,AReportName,AfrReport);
    SYSDM.frDBDataSet1.DataSet:=qryTas500;
    SYSDM.frDBDataSet1.RangeBegin:=rbCurrent;
    SYSDM.frDBDataSet1.RangeEnd:=reCurrent;
    SYSDM.frDBDataSet2.DataSet:=qryTas510;
    SYSDM.frDBDataSet3.DataSet:=ADOQuery1;
    SYSDM.frDBDataSet4.DataSet:=ADOQuery2;
    qryTas500.DisableControls;
    SYSDM.frReport2.OnGetValue:=ReportGetValue;
    SYSDM.frReport2.ShowPreparedReport;
    SYSDM.frReport2.ShowReport;
    qryTas500.EnableControls;
  finally
    qryTas500.EnableControls;
    SYSDM.frDBDataSet1.RangeBegin:=rbFirst;
    SYSDM.frDBDataSet1.RangeEnd:=reLast;
    SYSDM.frReport2.Clear;
//    AfrReport.Free;
  end;
end;

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

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

procedure TTas300_01Form.qryTas520T520_004GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas520.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;

procedure TTas300_01Form.qryTas530T530_007GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas530.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;

procedure TTas300_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;
    Tas500_02Form:=TTas500_02Form.Create(Application);
    Tas500_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Tas500_02Form.ShowModal;
  end else
  if dbgTas510.Focused then
  begin
    if qryTas510.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas510T510_001.Value;
    Tas510_02Form:=TTas510_02Form.Create(Application);
    Tas510_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Tas510_02Form.ShowModal;
  end else
  if dbgTas520.Focused then
  begin
    if qryTas520.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas520T520_001.Value;
    Tas520_02Form:=TTas520_02Form.Create(Application);
    Tas520_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Tas520_02Form.ShowModal;
  end else
  if dbgTas530.Focused then
  begin
    if qryTas530.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryTas530T530_001.Value;
    Tas530_02Form:=TTas530_02Form.Create(Application);
    Tas530_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Tas530_02Form.ShowModal;
  end;
end;

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

procedure TTas300_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 TTas300_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 TTas300_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 TTas300_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 TTas300_01Form.ActLocate2Execute(Sender: TObject);
begin
  inherited;
//查找
  if qryTas520.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;
  LocateDialog(dsTas520);
end;

procedure TTas300_01Form.ActFirst3Execute(Sender: TObject);
begin
  inherited;
//最前
  if qryTas530.IsEmpty then Exit;
  qryTas530.First;
  ActFirst3.Enabled:=False;
  ActPrior3.Enabled:=False;
  ActNext3.Enabled:=True;
  ActLast3.Enabled:=True;
end;

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

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

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

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

procedure TTas300_01Form.dbgTas500CustomDrawCell(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 TTas300_01Form.qryTas500AfterScroll(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 TTas300_01Form.qryTas500T500_007GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas500.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //销售订单
    1:Text:=AType[3];  //手工输入
  end;
end;

procedure TTas300_01Form.qryTas500T500_010GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if qryTas500.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;

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

procedure TTas300_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 TTas300_01Form.ADOQuery1T520_003GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  Text:=GetPersonName(TField(Sender).AsString);
end;

initialization
  RegisterClass(TTas300_01Form);

finalization
  UnRegisterClass(TTas300_01Form);

end.