tas200_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Tas200_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_03, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, StdCtrls, Buttons,
  dxDBTLCl, dxGrClms;

type
  TTas200_01Form = class(TBas200_03Form)
    sbSearch: TSpeedButton;
    lblDate: TLabel;
    edtDays: TEdit;
    ADOQuery1T510_001: TWideStringField;
    ADOQuery1T510_002: TWideStringField;
    ADOQuery1T510_005: TSmallintField;
    ADOQuery1T510_006: TDateTimeField;
    ADOQuery1T510_007: TDateTimeField;
    ADOQuery1T510_008: TSmallintField;
    ADOQuery1T510_009: TWideStringField;
    ADOQuery1T510_010: TIntegerField;
    ADOQuery1T510_011: TWideStringField;
    ADOQuery1T510_012: TBCDField;
    ADOQuery1T510_013: TBCDField;
    ADOQuery1T510_014: TBCDField;
    ADOQuery1T510_015: TIntegerField;
    ADOQuery1T510_018: TWideStringField;
    ADOQuery1T510_019: TMemoField;
    ADOQuery1T510_024: TIntegerField;
    ADOQuery1T120_003: TWideStringField;
    ADOQuery1T100_002: TWideStringField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    dxDBGrid1T510_001: TdxDBGridColumn;
    dxDBGrid1T510_002: TdxDBGridColumn;
    dxDBGrid1T120_003: TdxDBGridColumn;
    dxDBGrid1T100_002: TdxDBGridColumn;
    dxDBGrid1T510_005: TdxDBGridMaskColumn;
    dxDBGrid1T510_006: TdxDBGridDateColumn;
    dxDBGrid1T510_007: TdxDBGridDateColumn;
    dxDBGrid1T510_008: TdxDBGridMaskColumn;
    dxDBGrid1T510_009: TdxDBGridColumn;
    dxDBGrid1T510_010: TdxDBGridMaskColumn;
    dxDBGrid1T510_011: TdxDBGridColumn;
    dxDBGrid1T510_012: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_013: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_014: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_015: TdxDBGridMaskColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1T510_018: TdxDBGridColumn;
    dxDBGrid1T510_019: TdxDBGridMemoColumn;
    dxDBGrid1T510_024: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure sbSearchClick(Sender: TObject);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Tas200_01Form: TTas200_01Form;

implementation

uses SYSDATA, CommFun, Tas510_02;

{$R *.dfm}

procedure TTas200_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS20001001');  //拖期任务报告
  lblDate.Caption:=GetDBString('TAS20001002');  //拖期天数
  sbSearch.Caption:=GetDBString('TAS20001004');  //查询
  ADOQuery1T510_001.DisplayLabel:=GetDBString('TAS20001005');  //任务编号
  ADOQuery1T510_002.DisplayLabel:=GetDBString('TAS20001006');  //任务名称
  ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS20001007');  //任务状态
  ADOQuery1T100_002.DisplayLabel:=GetDBString('TAS20001008');  //任务类别
  ADOQuery1T510_005.DisplayLabel:=GetDBString('TAS20001009');  //优先级别
  ADOQuery1T510_006.DisplayLabel:=GetDBString('TAS20001010');  //申报日期
  ADOQuery1T510_007.DisplayLabel:=GetDBString('TAS20001011');  //需求日期
  ADOQuery1T510_008.DisplayLabel:=GetDBString('TAS20001012');  //来源类型
  ADOQuery1T510_009.DisplayLabel:=GetDBString('TAS20001013');  //来源单号
  ADOQuery1T510_010.DisplayLabel:=GetDBString('TAS20001014');  //单据行号
  ADOQuery1T510_011.DisplayLabel:=GetDBString('TAS20001015');  //时间单位
  ADOQuery1T510_012.DisplayLabel:=GetDBString('TAS20001016');  //预计工时
  ADOQuery1T510_013.DisplayLabel:=GetDBString('TAS20001017');  //实际工时
  ADOQuery1T510_014.DisplayLabel:=GetDBString('TAS20001018');  //完工比率
  ADOQuery1T510_015.DisplayLabel:=GetDBString('TAS20001019');  //工单总数
  ADOQuery1O150_002.DisplayLabel:=GetDBString('TAS20001020');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('TAS20001025');  //客户名称
  ADOQuery1I150_002.DisplayLabel:=GetDBString('TAS20001021');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('TAS20001026');  //产品名称
  ADOQuery1T510_018.DisplayLabel:=GetDBString('TAS20001022');  //机身编号
  ADOQuery1T510_019.DisplayLabel:=GetDBString('TAS20001023');  //任务说明
  ADOQuery1T510_024.DisplayLabel:=GetDBString('TAS20001024');  //责任人员
  edtDays.Text:='3';
end;

procedure TTas200_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  sbSearch.Click;
end;

procedure TTas200_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
  if trim(edtDays.Text)='' then
  begin
    ShowMsg('UMS10000321');  //拖期天数不能为空
    edtDays.SetFocus;
    Abort;
  end;
  try
    StrToInt(edtDays.text);
  except
    ShowMsg('UMS10000322');  //输入的值无效，请输入数字
    edtDays.SetFocus;
    Abort;
  end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select T510_001,T510_002, T120_003, T100_002,T510_005,T510_006,');
  ADOQuery1.SQL.Add('T510_007,T510_008,T510_009,T510_010,T510_011,T510_012,T510_013,');
  ADOQuery1.SQL.Add('T510_014,T510_015,O150_002,O150_003,I150_002,I150_003,');
  ADOQuery1.SQL.Add('T510_018,T510_019,T510_024');
  ADOQuery1.SQL.Add('from TAS510,TAS120,TAS100,ORD150,INV150');
  ADOQuery1.SQL.Add('where T510_003=T120_001 and T510_004=T100_001 and T510_016=O150_001 and T510_017=I150_001 and T510_003<>3 and (T510_013-T510_012)>='+edtDays.Text);
  ADOQuery1.Open;
end;

procedure TTas200_01Form.dxDBGrid1DblClick(Sender: TObject);
begin
  inherited;
  if ADOQuery1.IsEmpty then Exit;
  Screen.Cursor:=crHourGlass;
  Tas510_02Form:=TTas510_02Form.Create(Application);
  Tas510_02Form.OpenData(ADOQuery1T510_001.AsString);
  Screen.Cursor:=crDefault;
  Tas510_02Form.ShowModal;
end;

procedure TTas200_01Form.ActPrintExecute(Sender: TObject);
begin
  try
    SYSDM.frReport2.OnGetValue:=ReportGetValue;
    inherited;
  finally
    SYSDM.frReport2.OnGetValue:=nil;
  end;
end;

procedure TTas200_01Form.ReportGetValue(const ParName: String; var ParValue: Variant);
begin
  inherited;
  if ParName='ADays' then ParValue:=lblDate.Caption  //拖期天数
  else if ParName='AValue' then ParValue:=edtDays.Text  //天数
  else if ParName='T510_001' then ParValue:=ADOQuery1T510_001.DisplayLabel  //任务编号
  else if ParName='T510_002' then ParValue:=ADOQuery1T510_002.DisplayLabel  //任务名称
  else if ParName='T120_003' then ParValue:=ADOQuery1T120_003.DisplayLabel  //任务状态
  else if ParName='T510_006' then ParValue:=ADOQuery1T510_006.DisplayLabel  //申报日期
  else if ParName='O150_002' then ParValue:=ADOQuery1O150_002.DisplayLabel  //客戶编号
  else if ParName='O150_003' then ParValue:=ADOQuery1O150_003.DisplayLabel  //客戶名称
  else if ParName='I150_002' then ParValue:=ADOQuery1I150_002.DisplayLabel  //产品编号
  else if ParName='T510_018' then ParValue:=ADOQuery1T510_018.DisplayLabel  //机身编号
end;

initialization
  RegisterClass(TTas200_01Form);

finalization
  UnRegisterClass(TTas200_01Form);

end.