utable.~pas

来自「已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码」· ~PAS 代码 · 共 96 行

unit UTable;

interface
uses UsysPub,ADODB,U_dm;
{操作日记}
type
	TPRZ = class( TAdoRet )
	private //Attribute
	private //Operate
	public //Attribute
		RZXH:TMyField;
    CZBM:TMyField;
    CZLX:TMyField;
    CQNR:TMyField;
    CHNR:TMyField;
    CZYM:TMyField;
    CZSJ:TMyField;
    BZXX:TMyField;
	public //Operate
		constructor Create( var clconn:TAdoConnection );
end;
{系统功能}
Type
  TXTGN= class( TAdoRet )
  private //Attribute
  private //Operate
  public //Attribute
    MKID:TMyField;
    GNID:TMyField;
    GNMC:TMyField;
    BZXX:TMyField;
  public //Operate
    constructor Create( var clconn:TAdoConnection );
End;
Type
  TGZZQ= class( TAdoRet )
  private //Attribute
  private //Operate
  public //Attribute
    GZID:TMyField;
    GZZM:TMyField;
    ZNQX:TMyField;
    BZXX:TMyField;
  public //Operate
    constructor Create( var clconn:TAdoConnection );
End;
Type
  TCZYX= class( TAdoRet )
  private //Attribute
  private //Operate
  public //Attribute
    CZID:TMyField;
    GZID:TMyField;
    CZYM:TMyField;
    DLMM:TMyField;
    RYXB:TMyField;
    LXDH:TMyField;
    BZXX:TMyField;
  public //Operate
    constructor Create( var clconn:TAdoConnection );
End;
implementation
constructor TPRZ.Create( var clconn:TAdoConnection );
begin
	InitAdoRet( clconn );
	SetTableName( 'PRZ' );
	
	RZXH := TMyField.Create();
  CZBM := TMyField.Create();
  CZLX := TMyField.Create();
  CQNR := TMyField.Create();
  CHNR := TMyField.Create();
  CZYM := TMyField.Create();
  CZSJ := TMyField.Create();
  BZXX := TMyField.Create();
                            
  RZXH.SetField( 'RZXH', DATA_DOUBLE, 1, 1 );
  CZBM.SetField( 'CZBM', DATA_CHAR,   0, 0 );
  CZLX.SetField( 'CZLX', DATA_DOUBLE, 0, 0 );
  CQNR.SetField( 'CQNR', DATA_CHAR,   0, 0 );
  CHNR.SetField( 'CHNR', DATA_CHAR,   0, 0 );
  CZYM.SetField( 'CZYM', DATA_CHAR,   0, 0 );
  CZSJ.SetField( 'CZSJ', DATA_CHAR,   0, 0 );
  BZXX.SetField( 'BZXX', DATA_CHAR,   0, 0 );

  AddField( RZXH );
  AddField( CZBM );
  AddField( CZLX );
  AddField( CQNR );
  AddField( CHNR );
  AddField( CZYM );
  AddField( CZSJ );
  AddField( BZXX );
end;
end.