bom100_01.pas.svn-base

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

unit Bom100_01;

interface

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

type
  TBom100_01Form = class(TBas200_06Form)
    ADOQuery1B100_001: TAutoIncField;
    ADOQuery1B100_002: TStringField;
    ADOQuery1B100_003: TStringField;
    ADOQuery1B100_004: TStringField;
    dxDBGrid1B100_002: TdxDBGridMaskColumn;
    dxDBGrid1B100_003: TdxDBGridMaskColumn;
    dxDBGrid1B100_004: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Bom100_01Form: TBom100_01Form;

implementation

uses CommFun;

{$R *.dfm}

procedure TBom100_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('BOM10001001');  //工序资料维护
  ADOQuery1B100_002.DisplayLabel:=GetDBString('BOM10001002');  //工序编号
  ADOQuery1B100_003.DisplayLabel:=GetDBString('BOM10001003');  //工序名称
  ADOQuery1B100_004.DisplayLabel:=GetDBString('BOM10001004');  //备注
end;

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

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

procedure TBom100_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='B100_002' then ParValue:=GetDBString('BOM10001002')  //工序编号
  else if ParName='B100_003' then ParValue:=GetDBString('BOM10001003')  //工序名称
  else if ParName='B100_004' then ParValue:=GetDBString('BOM10001004')  //备注
end;

initialization
  RegisterClass(TBom100_01Form);

finalization
  UnRegisterClass(TBom100_01Form);

end.