tas510_01.pas.svn-base

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

unit Tas510_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, dxdbtrel, wwdbdatetimepicker;

type
  TTas510_01Form = class(TBas200_10Form)
    ADOQuery1T510_001: TWideStringField;
    ADOQuery1T510_002: TWideStringField;
    ADOQuery1T120_003: TWideStringField;
    ADOQuery1T100_002: TWideStringField;
    ADOQuery1T510_005: TSmallintField;
    ADOQuery1T510_006: TDateTimeField;
    ADOQuery1T510_007: TDateTimeField;
    ADOQuery1T510_008: TSmallintField;
    ADOQuery1T510_009: TWideStringField;
    ADOQuery1T510_011: TWideStringField;
    ADOQuery1T510_012: TBCDField;
    ADOQuery1T510_013: TBCDField;
    ADOQuery1T510_014: TBCDField;
    ADOQuery1T510_015: TIntegerField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1I120_003: TWideStringField;
    ADOQuery1T510_018: TWideStringField;
    ADOQuery1T510_019: TMemoField;
    ADOQuery1T510_020: TDateTimeField;
    ADOQuery1T510_021: TWideStringField;
    ADOQuery1T510_022: TDateTimeField;
    ADOQuery1T510_023: TWideStringField;
    dxDBGrid1T510_001: TdxDBGridColumn;
    dxDBGrid1T510_002: TdxDBGridColumn;
    dxDBGrid1T120_003: TdxDBGridColumn;
    dxDBGrid1T100_002: TdxDBGridColumn;
    dxDBGrid1T510_005: TdxDBGridMaskColumn;
    dxDBGrid1T510_006: TdxDBGridDateColumn;
    dxDBGrid1T510_007: TdxDBGridDateColumn;
    dxDBGrid1FType: TdxDBGridMaskColumn;
    dxDBGrid1T510_009: TdxDBGridColumn;
    dxDBGrid1FUnit: TdxDBGridColumn;
    dxDBGrid1T510_012: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_013: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_014: TdxDBGridCurrencyColumn;
    dxDBGrid1T510_015: TdxDBGridMaskColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1I120_003: TdxDBGridColumn;
    dxDBGrid1T510_018: TdxDBGridColumn;
    dxDBGrid1T510_020: TdxDBGridDateColumn;
    dxDBGrid1T510_021: TdxDBGridColumn;
    dxDBGrid1T510_022: TdxDBGridDateColumn;
    dxDBGrid1T510_023: TdxDBGridColumn;
    ADOQuery1T510_003: TIntegerField;
    ADOQuery1T510_004: TIntegerField;
    ADOQuery1T510_010: TIntegerField;
    ADOQuery1T510_016: TIntegerField;
    ADOQuery1T510_017: TIntegerField;
    ADOQuery1T510_024: TIntegerField;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_003: TStringField;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    sbSearch: TSpeedButton;
    cbClass: TComboBox;
    lblClass: TLabel;
    ADOQuery1T120_005: TIntegerField;
    dxDBGrid1T120_005: TdxDBGridMaskColumn;
    ADOQuery1T510_025: TDateTimeField;
    ADOQuery1T510_026: TDateTimeField;
    ADOQuery1T510_027: TDateTimeField;
    ADOQuery1T510_028: TDateTimeField;
    dxDBGrid1T510_025: TdxDBGridDateColumn;
    dxDBGrid1T510_026: TdxDBGridDateColumn;
    dxDBGrid1T510_027: TdxDBGridDateColumn;
    dxDBGrid1T510_028: TdxDBGridDateColumn;
    qryInv150: TADOQuery;
    ADOQuery1FType: TStringField;
    ADOQuery1FUnit: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure dxDBGrid1CustomDrawCell(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);
    procedure cbClassChange(Sender: TObject);
    procedure dxDBGrid1T510_001DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
    procedure ActPrintExecute(Sender: TObject);
  private
    AType:array[0..3] of string;
    AUnit:array[0..3] of string;
    { Private declarations }
  public
    AField:string;
    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;
    procedure FilterDialogSelectField(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings); override;
    { Public declarations }
  end;

var
  Tas510_01Form: TTas510_01Form;

implementation

uses SYSDATA, CommFun, Tas510_02, Tas520_02, TasComm;

{$R *.dfm}

procedure TTas510_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS51001001');  //任务计划维护
  ADOQuery1T510_001.DisplayLabel:=GetDBString('TAS51001002');  //任务编号
  ADOQuery1T510_002.DisplayLabel:=GetDBString('TAS51001003');  //任务名称
  ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS51001004');  //任务状态
  ADOQuery1T100_002.DisplayLabel:=GetDBString('TAS51001005');  //任务类别
  ADOQuery1T510_005.DisplayLabel:=GetDBString('TAS51001006');  //优先级别
  ADOQuery1T510_006.DisplayLabel:=GetDBString('TAS51001007');  //申报日期
  ADOQuery1T510_007.DisplayLabel:=GetDBString('TAS51001008');  //需求日期
  ADOQuery1T510_008.DisplayLabel:=GetDBString('TAS51001009');  //来源类型
  ADOQuery1T510_009.DisplayLabel:=GetDBString('TAS51001010');  //来源单号
  ADOQuery1T510_011.DisplayLabel:=GetDBString('TAS51001011');  //时间单位
  ADOQuery1T510_012.DisplayLabel:=GetDBString('TAS51001012');  //预计工时
  ADOQuery1T510_013.DisplayLabel:=GetDBString('TAS51001013');  //实际工时
  ADOQuery1T510_014.DisplayLabel:=GetDBString('TAS51001014');  //完工比率
  ADOQuery1T510_015.DisplayLabel:=GetDBString('TAS51001015');  //工单总数
  ADOQuery1O150_002.DisplayLabel:=GetDBString('TAS51001016');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('TAS51001017');  //客户名称
//  ADOQuery1O150_005.DisplayLabel:=GetDBString('TAS51001018');  //电话号码
//  ADOQuery1O150_012.DisplayLabel:=GetDBString('TAS51001019');  //客户地址
//  ADOQuery1O151_002.DisplayLabel:=GetDBString('TAS51001020');  //联系人员
//  ADOQuery1O151_004.DisplayLabel:=GetDBString('TAS51001021');  //职务名称
//  ADOQuery1O150_007.DisplayLabel:=GetDBString('TAS51001022');  //电子邮件
  ADOQuery1I150_002.DisplayLabel:=GetDBString('TAS51001023');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('TAS51001024');  //产品名称
//  ADOQuery1I150_004.DisplayLabel:=GetDBString('TAS51001025');  //规格型号
  ADOQuery1I120_003.DisplayLabel:=GetDBString('TAS51001026');  //产品类别
//  ADOQuery1M150_002.DisplayLabel:=GetDBString('TAS51001027');  //制造商号
//  ADOQuery1M150_003.DisplayLabel:=GetDBString('TAS51001028');  //制造商名
  ADOQuery1T510_018.DisplayLabel:=GetDBString('TAS51001029');  //机身编号
  ADOQuery1T510_019.DisplayLabel:=GetDBString('TAS51001030');  //任务说明
  ADOQuery1T510_020.DisplayLabel:=GetDBString('TAS51001031');  //制单日期
  ADOQuery1T510_021.DisplayLabel:=GetDBString('TAS51001032');  //制单人员
  ADOQuery1T510_022.DisplayLabel:=GetDBString('TAS51001033');  //修改日期
  ADOQuery1T510_023.DisplayLabel:=GetDBString('TAS51001034');  //修改人员

  ADOQuery1T510_025.DisplayLabel:=GetDBString('TAS51001048');  //预计开始日期
  ADOQuery1T510_026.DisplayLabel:=GetDBString('TAS51001049');  //预计完成日期
  ADOQuery1T510_027.DisplayLabel:=GetDBString('TAS51001050');  //实际开始日期
  ADOQuery1T510_028.DisplayLabel:=GetDBString('TAS51001051');  //实际完成日期

  AType[0]:=GetDBString('TAS51001035');  //销售订单
  AType[1]:=GetDBString('TAS51001036');  //来电记录
  AType[2]:=GetDBString('TAS51001037');  //项目计划
  AType[3]:=GetDBString('TAS51001038');  //手工输入
  AUnit[0]:=GetDBString('TAS51001039');  //时
  AUnit[1]:=GetDBString('TAS51001040');  //天
  AUnit[2]:=GetDBString('TAS51001041');  //周
  AUnit[3]:=GetDBString('TAS51001042');  //月
  Action1.Caption:=GetDBString('TAS51001046');  //完成
  Action2.Caption:=GetDBString('TAS51001047');  //返工
  Action1.Enabled:=ActInsert.Enabled;
  Action2.Enabled:=ActInsert.Enabled;

  lblClass.Caption:=GetDBString('TAS51001005');  //类别
  lblDate.Caption:=GetDBString('TAS51001044');  //日期
  sbSearch.Caption:=GetDBString('TAS51001043');  //查询

  cbClass.Clear;
  cbClass.Items.Add(GetDBString('TAS51001045'));  //所有任务
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from TAS100');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    cbClass.Items.Add(SYSDM.qryQuery.FieldByName('T100_002').AsString);
    SYSDM.qryQuery.Next;
  end;
  cbClass.ItemIndex:=0;
end;

procedure TTas510_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  AField:='T510_006';   //申报日期    T510_027       //实际开始日期
  inherited;
  //使用颜色标明任务的状态。如：计划=黑色，执行=蓝色，完成=灰色，返工=红色
  if GetSysParams('TAS0010')<>'Y' then dxDBGrid1.OnCustomDrawCell:=nil;
  Action1.Enabled:=ARights[2]='Y';
  Action2.Enabled:=ARights[2]='Y';
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  sbSearch.Click;
end;

procedure TTas510_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TTas510_01Form.sbSearchClick(Sender: TObject);
var
  AStringList:TStringList;
  AClassNo:string;
  I:Integer;
begin
  inherited;
//查询
  if (edtFromDate.Text='') or (edtToDate.Text='') then
  begin
    ShowMsg('UMS10000319');  //起止日期不可为空
    if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
    Abort;
  end;
  if edtFromDate.Date>edtToDate.Date then
  begin
    ShowMsg('UMS10000320');  //结束日期不能小于起始日期
    edtToDate.SetFocus;
    Abort;
  end;