tas530_01.pas.svn-base

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

unit Tas530_01;

interface

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

type
  TTas530_01Form = class(TBas200_10Form)
    ADOQuery1T530_001: TWideStringField;
    ADOQuery1T530_002: TWideStringField;
    ADOQuery1T510_001: TWideStringField;
    ADOQuery1T510_005: TSmallintField;
    ADOQuery1T510_002: TWideStringField;
    ADOQuery1T100_002: TWideStringField;
    ADOQuery1T530_003: TBCDField;
    ADOQuery1T530_004: TBCDField;
    ADOQuery1T530_007: TWideStringField;
    ADOQuery1T530_005: TDateTimeField;
    ADOQuery1T530_006: TDateTimeField;
    ADOQuery1W150_002: TWideStringField;
    ADOQuery1W150_003: TWideStringField;
    ADOQuery1T530_017: TWideStringField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1T510_018: TWideStringField;
    ADOQuery1I120_003: TWideStringField;
    ADOQuery1T530_015: TWideStringField;
    ADOQuery1T530_009: TWideStringField;
    ADOQuery1T530_010: TIntegerField;
    ADOQuery1T530_011: TDateTimeField;
    ADOQuery1T530_012: TWideStringField;
    ADOQuery1T530_013: TDateTimeField;
    ADOQuery1T530_014: TWideStringField;
    dxDBGrid1T530_001: TdxDBGridColumn;
    dxDBGrid1T530_002: TdxDBGridColumn;
    dxDBGrid1T510_001: TdxDBGridColumn;
    dxDBGrid1T510_005: TdxDBGridMaskColumn;
    dxDBGrid1T510_002: TdxDBGridColumn;
    dxDBGrid1T100_002: TdxDBGridColumn;
    dxDBGrid1T530_003: TdxDBGridCurrencyColumn;
    dxDBGrid1T530_004: TdxDBGridCurrencyColumn;
    dxDBGrid1FUnit: TdxDBGridColumn;
    dxDBGrid1T530_005: TdxDBGridDateColumn;
    dxDBGrid1T530_006: TdxDBGridDateColumn;
    dxDBGrid1W150_002: TdxDBGridColumn;
    dxDBGrid1W150_003: TdxDBGridColumn;
    dxDBGrid1T530_017: TdxDBGridColumn;
    dxDBGrid1T530_018: TdxDBGridMaskColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1T510_018: TdxDBGridColumn;
    dxDBGrid1I120_003: TdxDBGridColumn;
    dxDBGrid1T530_009: TdxDBGridColumn;
    dxDBGrid1T530_011: TdxDBGridDateColumn;
    dxDBGrid1T530_012: TdxDBGridColumn;
    dxDBGrid1T530_013: TdxDBGridDateColumn;
    dxDBGrid1T530_014: TdxDBGridColumn;
    ADOQuery1T530_018: TBCDField;
    lblTasks: TLabel;
    sbSearch: TSpeedButton;
    edtTasks: TEdit;
    sbTasks: TSpeedButton;
    qryTas510: TADOQuery;
    qryTas510T510_001: TWideStringField;
    qryTas510T510_002: TWideStringField;
    ADOQuery1T530_016: TIntegerField;
    ADOQuery1T510_016: TIntegerField;
    ADOQuery1T530_008: TMemoField;
    qryOrd150: TADOQuery;
    ADOQuery1T120_003: TWideStringField;
    ADOQuery1T520_005: TBCDField;
    ADOQuery1T520_006: TDateTimeField;
    ADOQuery1T520_007: TDateTimeField;
    ADOQuery1T510_019: TMemoField;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    dxDBGrid1T520_019: TdxDBGridColumn;
    ADOQuery1T510_0162: TIntegerField;
    ADOQuery1T510_0172: TIntegerField;
    dxDBGrid1T120_003: TdxDBGridColumn;
    dxDBGrid1T530_008: TdxDBGridMemoColumn;
    ADOQuery1FUnit: TStringField;
    qryInv150: TADOQuery;
    ADOQuery1T520_019: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure sbTasksClick(Sender: TObject);
    procedure edtTasksExit(Sender: TObject);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure dxDBGrid1T530_001DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
  private
    AUnit:array[0..3] of string;
    { Private declarations }
  public
    ARecordCount:Integer;
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Tas530_01Form: TTas530_01Form;

implementation

uses SYSDATA, CommFun, Tas530_02, TasComm, HwSelData;

{$R *.dfm}

procedure TTas530_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS53001001');  //任务进度汇报
  ADOQuery1T530_001.DisplayLabel:=GetDBString('TAS53001002');  //汇报编号
  ADOQuery1T530_002.DisplayLabel:=GetDBString('TAS53001003');  //工单编号
  ADOQuery1T510_001.DisplayLabel:=GetDBString('TAS53001004');  //任务编号
  ADOQuery1T510_005.DisplayLabel:=GetDBString('TAS53001005');  //优先级别
  ADOQuery1T510_002.DisplayLabel:=GetDBString('TAS53001006');  //任务名称
  ADOQuery1T100_002.DisplayLabel:=GetDBString('TAS53001007');  //任务类别
  ADOQuery1T530_003.DisplayLabel:=GetDBString('TAS53001008');  //完工比率
  ADOQuery1T520_019.DisplayLabel:=GetDBString('TAS53001009');  //执行人员
  ADOQuery1T530_004.DisplayLabel:=GetDBString('TAS53001010');  //汇报工时
  ADOQuery1FUnit.DisplayLabel:=GetDBString('TAS53001011');  //时间单位
  ADOQuery1T530_005.DisplayLabel:=GetDBString('TAS53001012');  //开始日期
  ADOQuery1T530_006.DisplayLabel:=GetDBString('TAS53001013');  //结束日期
  ADOQuery1W150_002.DisplayLabel:=GetDBString('TAS53001014');  //协助公司编号
  ADOQuery1W150_003.DisplayLabel:=GetDBString('TAS53001015');  //协助公司名称
  ADOQuery1T530_017.DisplayLabel:=GetDBString('TAS53001016');  //协助人员
  ADOQuery1T530_018.DisplayLabel:=GetDBString('TAS53001017');  //协助工时
  ADOQuery1O150_002.DisplayLabel:=GetDBString('TAS53001018');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('TAS53001019');  //客户名称
//  ADOQuery1O150_005.DisplayLabel:=GetDBString('TAS53001020');  //电话号码
//  ADOQuery1O150_012.DisplayLabel:=GetDBString('TAS53001021');  //客户地址
//  ADOQuery1O151_002.DisplayLabel:=GetDBString('TAS53001022');  //联系人员
//  ADOQuery1O151_004.DisplayLabel:=GetDBString('TAS53001023');  //职务名称
//  ADOQuery1O150_007.DisplayLabel:=GetDBString('TAS53001024');  //电子邮箱
  ADOQuery1I150_002.DisplayLabel:=GetDBString('TAS53001025');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('TAS53001026');  //产品名称
  ADOQuery1T510_018.DisplayLabel:=GetDBString('TAS53001027');  //机身编号
//  ADOQuery1I150_004.DisplayLabel:=GetDBString('TAS53001028');  //规格型号
  ADOQuery1I120_003.DisplayLabel:=GetDBString('TAS53001029');  //产品类别
//  ADOQuery1M150_002.DisplayLabel:=GetDBString('TAS53001030');  //制造商号
//  ADOQuery1M150_003.DisplayLabel:=GetDBString('TAS53001031');  //制造商名
  ADOQuery1T530_015.DisplayLabel:=GetDBString('TAS53001032');  //原因说明
  ADOQuery1T530_008.DisplayLabel:=GetDBString('TAS53001033');  //汇报内容
  ADOQuery1T530_009.DisplayLabel:=GetDBString('TAS53001034');  //拖期原因
  ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS53001035');  //后续处理
  ADOQuery1T530_011.DisplayLabel:=GetDBString('TAS53001036');  //制单日期
  ADOQuery1T530_012.DisplayLabel:=GetDBString('TAS53001037');  //制单人员
  ADOQuery1T530_013.DisplayLabel:=GetDBString('TAS53001038');  //修改日期
  ADOQuery1T530_014.DisplayLabel:=GetDBString('TAS53001039');  //修改人员
  AUnit[0]:=GetDBString('TAS53001040');  //时
  AUnit[1]:=GetDBString('TAS53001041');  //天
  AUnit[2]:=GetDBString('TAS53001042');  //周
  AUnit[3]:=GetDBString('TAS53001043');  //月

  lblTasks.Caption:=GetDBString('TAS53001004');  //任务编号
  lblDate.Caption:=GetDBString('TAS53001045');  //日期
  sbSearch.Caption:=GetDBString('TAS53001044');  //查询
  qryTas510T510_001.DisplayLabel:=GetDBString('TAS53001004');  //任务编号
  qryTas510T510_002.DisplayLabel:=GetDBString('TAS53001006');  //任务名称
end;

procedure TTas530_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  inherited;
  qryTas510.Open;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  sbSearch.Click;
end;

procedure TTas530_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryTas510.Close;
end;