📄 tas520_01.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Tas520_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, fr_Class;

type
  TTas520_01Form = class(TBas200_10Form)
    ADOQuery1T520_001: TWideStringField;
    ADOQuery1T520_002: TWideStringField;
    ADOQuery1T510_002: TWideStringField;
    ADOQuery1T100_002: TWideStringField;
    ADOQuery1T510_005: TSmallintField;
    ADOQuery1T520_005: TBCDField;
    ADOQuery1T520_006: TDateTimeField;
    ADOQuery1T520_007: TDateTimeField;
    ADOQuery1T520_004: TWideStringField;
    ADOQuery1T520_008: TBCDField;
    ADOQuery1T520_009: TDateTimeField;
    ADOQuery1T520_010: TDateTimeField;
    ADOQuery1T120_003: TWideStringField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1I150_002: TWideStringField;
    ADOQuery1I150_003: TWideStringField;
    ADOQuery1T510_018: TWideStringField;
    ADOQuery1I120_003: TWideStringField;
    ADOQuery1T520_012: TDateTimeField;
    ADOQuery1T520_013: TWideStringField;
    ADOQuery1T520_014: TDateTimeField;
    ADOQuery1T520_015: TWideStringField;
    dxDBGrid1T520_001: TdxDBGridColumn;
    dxDBGrid1T520_002: TdxDBGridColumn;
    dxDBGrid1T510_002: TdxDBGridColumn;
    dxDBGrid1T100_002: TdxDBGridColumn;
    dxDBGrid1T510_005: TdxDBGridMaskColumn;
    dxDBGrid1T520_005: TdxDBGridCurrencyColumn;
    dxDBGrid1T520_006: TdxDBGridDateColumn;
    dxDBGrid1T520_007: TdxDBGridDateColumn;
    dxDBGrid1FUnit: TdxDBGridColumn;
    dxDBGrid1T520_008: TdxDBGridCurrencyColumn;
    dxDBGrid1T520_009: TdxDBGridDateColumn;
    dxDBGrid1T520_010: TdxDBGridDateColumn;
    dxDBGrid1T120_003: TdxDBGridColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1I150_002: TdxDBGridColumn;
    dxDBGrid1I150_003: TdxDBGridColumn;
    dxDBGrid1T510_018: TdxDBGridColumn;
    dxDBGrid1T520_012: TdxDBGridDateColumn;
    dxDBGrid1T520_013: TdxDBGridColumn;
    dxDBGrid1T520_014: TdxDBGridDateColumn;
    dxDBGrid1T520_015: TdxDBGridColumn;
    sbSearch: TSpeedButton;
    lblTasks: TLabel;
    edtTasks: TEdit;
    sbTasks: TSpeedButton;
    ADOQuery1O150_001: TIntegerField;
    ADOQuery1T520_016: TIntegerField;
    qryTas510: TADOQuery;
    qryTas510T510_001: TWideStringField;
    qryTas510T510_002: TWideStringField;
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    dxDBGrid1T520_019: TdxDBGridColumn;
    ADOQuery1T510_016: TIntegerField;
    ADOQuery1T510_017: TIntegerField;
    qryInv150: TADOQuery;
    ADOQuery1T510_019: TMemoField;
    ADOQuery1I150_004: TWideStringField;
    ADOQuery1M150_002: TWideStringField;
    ADOQuery1M150_003: TWideStringField;
    ADOQuery1T100_001: TAutoIncField;
    ADOQuery1T100_003: TIntegerField;
    ADOQuery1T520_011: TMemoField;
    ADOQuery1FUnit: TStringField;
    ADOQuery1T520_019: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure edtTasksExit(Sender: TObject);
    procedure sbTasksClick(Sender: TObject);
    procedure dxDBGrid1T520_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
    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;
    { Public declarations }
  end;

var
  Tas520_01Form: TTas520_01Form;

implementation

uses SYSDATA, CommFun, Tas520_02, TasComm, HwSelData;

{$R *.dfm}

procedure TTas520_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS52001001');  //任务工单维护
  ADOQuery1T520_001.DisplayLabel:=GetDBString('TAS52001002');  //工单编号
  ADOQuery1T520_002.DisplayLabel:=GetDBString('TAS52001003');  //任务编号
  ADOQuery1T510_002.DisplayLabel:=GetDBString('TAS52001004');  //任务名称
  ADOQuery1T100_002.DisplayLabel:=GetDBString('TAS52001005');  //任务类别
  ADOQuery1T510_005.DisplayLabel:=GetDBString('TAS52001006');  //优先级别
  ADOQuery1T520_019.DisplayLabel:=GetDBString('TAS52001007');  //执行人员
  ADOQuery1T520_005.DisplayLabel:=GetDBString('TAS52001008');  //预计工时
  ADOQuery1T520_006.DisplayLabel:=GetDBString('TAS52001009');  //预计开始日期
  ADOQuery1T520_007.DisplayLabel:=GetDBString('TAS52001010');  //预计完成日期
  ADOQuery1T520_004.DisplayLabel:=GetDBString('TAS52001011');  //时间单位
  ADOQuery1T520_008.DisplayLabel:=GetDBString('TAS52001012');  //实际工时
  ADOQuery1T520_009.DisplayLabel:=GetDBString('TAS52001013');  //实际开始日期
  ADOQuery1T520_010.DisplayLabel:=GetDBString('TAS52001014');  //实际完成日期
  ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS52001015');  //任务状态
  ADOQuery1O150_002.DisplayLabel:=GetDBString('TAS52001016');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('TAS52001017');  //客户名称
  ADOQuery1I150_002.DisplayLabel:=GetDBString('TAS52001023');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('TAS52001024');  //产品名称
  ADOQuery1T510_018.DisplayLabel:=GetDBString('TAS52001025');  //机身编号
  ADOQuery1I150_004.DisplayLabel:=GetDBString('TAS52001026');  //规格型号
  ADOQuery1I120_003.DisplayLabel:=GetDBString('TAS52001027');  //产品类别
  ADOQuery1M150_002.DisplayLabel:=GetDBString('TAS52001028');  //制造商号
  ADOQuery1M150_003.DisplayLabel:=GetDBString('TAS52001029');  //制造商名
  ADOQuery1T510_019.DisplayLabel:=GetDBString('TAS52001030');  //任务说明
//  ADOQuery1T520_011.DisplayLabel:=GetDBString('TAS52001031');  //解决方法
  ADOQuery1T520_012.DisplayLabel:=GetDBString('TAS52001032');  //制单日期
  ADOQuery1T520_013.DisplayLabel:=GetDBString('TAS52001033');  //制单人员
  ADOQuery1T520_014.DisplayLabel:=GetDBString('TAS52001034');  //修改日期
  ADOQuery1T520_015.DisplayLabel:=GetDBString('TAS52001035');  //修改人员
  AUnit[0]:=GetDBString('TAS52001036');  //时
  AUnit[1]:=GetDBString('TAS52001037');  //天
  AUnit[2]:=GetDBString('TAS52001038');  //周
  AUnit[3]:=GetDBString('TAS52001039');  //月

  lblTasks.Caption:=GetDBString('TAS52001003');  //任务编号
  lblDate.Caption:=GetDBString('TAS52001041');  //日期
  sbSearch.Caption:=GetDBString('TAS52001040');  //查询
  qryTas510T510_001.DisplayLabel:=GetDBString('TAS52001003');  //任务编号
  qryTas510T510_002.DisplayLabel:=GetDBString('TAS52001004');  //任务名称
end;

procedure TTas520_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  AField:='T520_006';   //预计开始日期    T520_009       //实际开始日期
  inherited;
  qryTas510.Open;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  AReportName:='';
end;

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

procedure TTas520_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
//查询
  if edtTasks.Text<>'' then
  begin
    if not IsExists('select * from TAS520 where T520_002='+''''+edtTasks.Text+'''') then
    begin
      ShowMsg('UMS10000285');  //输入的任务编号无效
      edtTasks.SetFocus;
      Abort;
    end;
  end;
  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;
  Screen.Cursor:=crHourGlass;
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  if edtTasks.Text='' then
  begin
    ADOQuery1.SQL.Add('select A.*,B.*,C.T100_001,C.T100_002,C.T100_003,D.T120_003,');
    ADOQuery1.SQL.Add('       G.O150_001,G.O150_002,G.O150_003');
    ADOQuery1.SQL.Add('from TAS520 A,TAS510 B,TAS100 C,TAS120 D,ORD150 G');
    ADOQuery1.SQL.Add('where A.T520_002=B.T510_001 and B.T510_004=C.T100_001 and B.T510_003=D.T120_001 and');
    ADOQuery1.SQL.Add('      B.T510_016=G.O150_001 and ');
    ADOQuery1.SQL.Add('      '+AField+'>='+GetDateString(edtFromDate.Date)+' and '+AField+'<='+GetDateString(edtToDate.Date));
    ADOQuery1.SQL.Add('order by T520_001');
  end else
  begin
    ADOQuery1.SQL.Add('select A.*,B.*,C.T100_001,C.T100_002,C.T100_003,D.T120_003,');
    ADOQuery1.SQL.Add('       G.O150_001,G.O150_002,G.O150_003');
    ADOQuery1.SQL.Add('from TAS520 A,TAS510 B,TAS100 C,TAS120 D,ORD150 G');
    ADOQuery1.SQL.Add('where A.T520_002=B.T510_001 and B.T510_004=C.T100_001 and B.T510_003=D.T120_001 and');
    ADOQuery1.SQL.Add('      B.T510_016=G.O150_001 and ');
    ADOQuery1.SQL.Add('      A.T520_002='+''''+edtTasks.Text+''''+' and '+AField+'>='+GetDateString(edtFromDate.Date)+' and '+AField+'<='+GetDateString(edtToDate.Date));
    ADOQuery1.SQL.Add('order by T520_001');
  end;
  ADOQuery1.Open;
  ADOQuery1.EnableControls;
  ARecordCount:=GetDataSetCount(ADOQuery1);
  Screen.Cursor:=crDefault;
12 下一页
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -