tas120_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Tas120_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;

type
  TTas120_01Form = class(TBas200_10Form)
    ADOQuery1T120_001: TIntegerField;
    ADOQuery1T120_002: TWideStringField;
    ADOQuery1T120_003: TWideStringField;
    ADOQuery1T120_004: TWideStringField;
    ADOQuery1T120_005: TIntegerField;
    dxDBGrid1T120_002: TdxDBGridColumn;
    dxDBGrid1T120_003: TdxDBGridColumn;
    dxDBGrid1T120_004: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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);
  private
    { Private declarations }
  public
    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
  Tas120_01Form: TTas120_01Form;

implementation

uses SYSDATA, CommFun, Tas120_02;

{$R *.dfm}

procedure TTas120_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS12001001');  //任务状态维护
  ADOQuery1T120_002.DisplayLabel:=GetDBString('TAS12001002');  //状态编号
  ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS12001004');  //状态名称
  ADOQuery1T120_004.DisplayLabel:=GetDBString('TAS12001003');  //备注说明
end;

procedure TTas120_01Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

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

procedure TTas120_01Form.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);
begin
  inherited;
  if not AFocused then AFont.Color:=ADOQuery1T120_005.AsInteger;
end;

procedure TTas120_01Form.ReportGetValue(const ParName: String; var ParValue: Variant);
begin
  inherited;
  if ParName='T120_002' then ParValue:=ADOQuery1T120_002.DisplayLabel  //状态编号
  else if ParName='T120_003' then ParValue:=ADOQuery1T120_003.DisplayLabel  //状态名称
  else if ParName='T120_004' then ParValue:=ADOQuery1T120_004.DisplayLabel  //备注说明
end;

procedure TTas120_01Form.BrowseEvent;
begin
  inherited;

end;

procedure TTas120_01Form.DeleteEvent;
begin
  inherited;
//删除
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select 1 from TAS530 where T530_010='+ADOQuery1.FieldByName('T120_001').AsString);
  SYSDM.qryQuery.Open;
  if not SYSDM.qryQuery.IsEmpty then
  begin
    ShowMsg('UMS10000328');  //该状态编号被任务汇报单表引用，不能删除
    Abort;
  end;
  DeleteTableRecord(ADOQuery1,'TAS120','T120_001='+ADOQuery1T120_001.AsString);
end;

procedure TTas120_01Form.InsertEvent;
begin
  inherited;
//新增
  Tas120_02Form:=TTas120_02Form.Create(Application);
  Tas120_02Form.OpenData('');
  Tas120_02Form.ShowModal;
end;

procedure TTas120_01Form.UpdateEvent;
begin
  inherited;
//修改
  Tas120_02Form:=TTas120_02Form.Create(Application);
  Tas120_02Form.OpenData(ADOQuery1T120_002.AsString);
  Tas120_02Form.ShowModal;
end;

initialization
  RegisterClass(TTas120_01Form);

finalization
  UnRegisterClass(TTas120_01Form);

end.