tas310_01.pas.svn-base

一个用Delphi开发的ERP软件

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

procedure TTas310_01Form.ActPriorExecute(Sender: TObject);
begin
  inherited;
//上移
  if qryTas510.IsEmpty then Exit;
  qryTas510.Prior;
  ActNext.Enabled:=not qryTas510.Eof;
  ActLast.Enabled:=not qryTas510.Eof;
  ActFirst.Enabled:=not qryTas510.Bof;
  ActPrior.Enabled:=not qryTas510.Bof;
end;

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

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

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

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

procedure TTas310_01Form.ActSearchExecute(Sender: TObject);
begin
  inherited;
//查询
  try
    SYSDM.wwFilterDialog1.OnSelectField:=FilterDialogSelectField;
    FilterDialog(dsTas510);
  finally
    SYSDM.wwFilterDialog1.OnSelectField:=nil;
  end;
end;

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

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

procedure TTas310_01Form.qryTas510AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if not Active then Exit;
  ActNext.Enabled:=not qryTas510.Eof;
  ActLast.Enabled:=not qryTas510.Eof;
  ActFirst.Enabled:=not qryTas510.Bof;
  ActPrior.Enabled:=not qryTas510.Bof;
end;

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

procedure TTas310_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 TTas310_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 TTas310_01Form.ActOpenExecute(Sender: TObject);
var
  ACode:string;
begin
  inherited;
//查看(&N)
  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 TTas310_01Form.dbgTas510DblClick(Sender: TObject);
begin
  inherited;
//查看
  ActOpen.Execute;
end;

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

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

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

initialization
  RegisterClass(TTas310_01Form);

finalization
  UnRegisterClass(TTas310_01Form);

end.