ord310_01.pas.svn-base

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

  qryInv500.SQL.Add('       C.I150_002,C.I150_003,C.I150_004,');
  qryInv500.SQL.Add('       D.I140_002,D.I140_003,');
  qryInv500.SQL.Add('       B.I500B_005');
  qryInv500.SQL.Add('from INV500A A,INV500B B,INV150 C,INV140 D,INV550 E');
  qryInv500.SQL.Add('where A.I500A_001=B.I500B_001 and B.I500B_003=C.I150_001 and B.I500B_004=D.I140_001 and');
  qryInv500.SQL.Add('      A.I500A_002=E.I550_001 and E.I550_005=1 and B.I500B_011=:P510A_001');
  qryInv500.SQL.Add('order by I500A_001');
  qryInv500.Open;

  qryHrm150.Open;

  Screen.Cursor:=crDefault;
end;

procedure TOrd310_01Form.dbgOrd510CustomDrawCell(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[dbgTas510T120_005.Index]<>null then AFont.Color:=ANode.Values[dbgTas510T120_005.Index];
end;

procedure TOrd310_01Form.cbClassChange(Sender: TObject);
begin
  inherited;
  sbSearch.Click;
end;

procedure TOrd310_01Form.ActFirstExecute(Sender: TObject);
begin
  inherited;
//最前
  if qryOrd500.IsEmpty then Exit;
  qryOrd500.First;
  ActFirst.Enabled:=False;
  ActPrior.Enabled:=False;
  ActNext.Enabled:=True;
  ActLast.Enabled:=True;
end;

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

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

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

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

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

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

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

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

procedure TOrd310_01Form.ActOpenExecute(Sender: TObject);
var
  ACode:string;
begin
  inherited;
//查看(&N)
  if dbgOrd500.Focused then
  begin
    if qryOrd500.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryOrd500O500A_001.Value;
    Ord500_02Form:=TOrd500_02Form.Create(Application);
    Ord500_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ord500_02Form.ShowModal;
  end else
  if dbgOrd510.Focused then
  begin
    if qryOrd510.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryOrd510O510A_001.Value;
    Ord510_02Form:=TOrd510_02Form.Create(Application);
    Ord510_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Ord510_02Form.ShowModal;
  end else
  if dbgPur510.Focused then
  begin
    if qryPur510.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryPur510P510A_001.Value;
    Pur510_02Form:=TPur510_02Form.Create(Application);
    Pur510_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Pur510_02Form.ShowModal;
  end else
  if dbgInv500.Focused then
  begin
    if qryInv500.IsEmpty then Exit;
    Screen.Cursor:=crHourGlass;
    ACode:=qryInv500I500A_001.Value;
    Inv500_02Form:=TInv500_02Form.Create(Application);
    Inv500_02Form.OpenData(ACode);
    Screen.Cursor:=crDefault;
    Inv500_02Form.ShowModal;
  end;
end;

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

procedure TOrd310_01Form.dbgOrd500CustomDrawCell(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 TOrd310_01Form.qryOrd500AfterScroll(DataSet: TDataSet);
begin
  inherited;
  if not Active then Exit;
  ActNext.Enabled:=not qryOrd500.Eof;
  ActLast.Enabled:=not qryOrd500.Eof;
  ActFirst.Enabled:=not qryOrd500.Bof;
  ActPrior.Enabled:=not qryOrd500.Bof;
end;

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

procedure TOrd310_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 TOrd310_01Form.qryOrd500O500A_004GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AQuoteStatus[Sender.AsInteger];
end;

procedure TOrd310_01Form.qryOrd500O500A_010GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AQuoteFrom[Sender.AsInteger];
end;

procedure TOrd310_01Form.qryOrd500O500A_019GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AQuotePick[Sender.AsInteger];
end;

procedure TOrd310_01Form.qryOrd510O510A_004GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AOrderStatus[Sender.AsInteger];
end;

procedure TOrd310_01Form.qryOrd510O510A_010GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AOrderFrom[Sender.AsInteger];
end;

procedure TOrd310_01Form.qryOrd510O510A_019GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Text:=AOrderPick[Sender.AsInteger];
end;

initialization
  RegisterClass(TOrd310_01Form);

finalization
  UnRegisterClass(TOrd310_01Form);

end.