sub doDBItable {
	my $top = MainWindow->new;
	my $tkdbi = $top->DBITable (
			-sql => 'select * from user',
			-dbh => $dbh,
			-display_id => 1,
			-debug => 1,)->pack(expand => 1, -fill => 'both');
}