package TestApp
@ISA = qw()

sub new
my ($module, @args) = @_;
return $ret;

sub DESTROY
my $this = shift;
	$this->SUPER::DESTROY(

sub OpenDB
my ($App, $config, $ShowErrorMessage) = @_;
return SQLDB2::OpenDBByDBConfigArray($App, $config, \@DBConfigArray, $ShowErrorMessage);

sub GetLogonLevel
my ($App, $Account, $Password, $ShowMessage) = (@_);