utable.pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

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;
constructor TXTGN.Create( var clconn:TAdoConnection );
Begin
  InitAdoRet( clconn );
  SetTableName( 'XTGN');

  MKID := TMyField.Create();
  GNID := TMyField.Create();
  GNMC := TMyField.Create();
  BZXX := TMyField.Create();

  MKID.SetField( 'MKID', DATA_CHAR, 1, 0 );
  GNID.SetField( 'GNID', DATA_DOUBLE, 1, 0 );
  GNMC.SetField( 'GNMC', DATA_CHAR, 0, 0 );
  BZXX.SetField( 'BZXX', DATA_CHAR, 0, 0 );

  AddField( MKID );
  AddField( GNID );
  AddField( GNMC );
  AddField( BZXX );

End;

constructor TGZZQ.Create( var clconn:TAdoConnection );
Begin
  InitAdoRet( clconn );
  SetTableName( 'GZZQ');

  GZID := TMyField.Create();
  GZZM := TMyField.Create();
  ZNQX := TMyField.Create();
  BZXX := TMyField.Create();

  GZID.SetField( 'GZID', DATA_CHAR, 1, 0 );
  GZZM.SetField( 'GZZM', DATA_CHAR, 0, 0 );
  ZNQX.SetField( 'ZNQX', DATA_CHAR, 0, 0 );
  BZXX.SetField( 'BZXX', DATA_CHAR, 0, 0 );

  AddField( GZID );
  AddField( GZZM );
  AddField( ZNQX );
  AddField( BZXX );

End;


constructor TCZYX.Create( var clconn:TAdoConnection );
Begin
  InitAdoRet( clconn );
  SetTableName( 'CZYX');

  CZID := TMyField.Create();
  GZID := TMyField.Create();
  CZYM := TMyField.Create();
  DLMM := TMyField.Create();
  RYXB := TMyField.Create();
  LXDH := TMyField.Create();
  BZXX := TMyField.Create();

  CZID.SetField( 'CZID', DATA_CHAR, 1, 0 );
  GZID.SetField( 'GZID', DATA_CHAR, 0, 0 );
  CZYM.SetField( 'CZYM', DATA_CHAR, 0, 0 );
  DLMM.SetField( 'DLMM', DATA_CHAR, 0, 0 );
  RYXB.SetField( 'RYXB', DATA_CHAR, 0, 0 );
  LXDH.SetField( 'LXDH', DATA_CHAR, 0, 0 );
  BZXX.SetField( 'BZXX', DATA_CHAR, 0, 0 );

  AddField( CZID );
  AddField( GZID );
  AddField( CZYM );
  AddField( DLMM );
  AddField( RYXB );
  AddField( LXDH );
  AddField( BZXX );

End;
end.