view release on metacpan or  search on metacpan

db/orac_Sybase.pm  view on Meta::CPAN

    Tk::grid($l5,-row=>5,-column=>0,-sticky=>'w');                                
    Tk::grid($l6,-row=>5,-column=>1,-sticky=>'w');                                
    Tk::grid($l7,-row=>5,-column=>2,-sticky=>'w');                                
    Tk::grid($l8,-row=>5,-column=>3,-sticky=>'w');                                
    Tk::grid($ps_d,-row=>6,-column=>0,-sticky=>'ew');
    Tk::grid($ps_s,-row=>6,-column=>1,-sticky=>'w');                                
    Tk::grid($ps_op,-row=>6,-column=>2,-sticky=>'w');        
    Tk::grid($ps_op1,-row=>6,-column=>3,-sticky=>'w');        
    Tk::grid($ps_ba,-row=>6,-column=>4,-sticky=>'ew');        
    Tk::grid($ps_br,-row=>7,-column=>4,-sticky=>'nw');        
    Tk::grid($ps_ls,-row=>7,-column=>0,-columnspan=>4,-sticky=>'ew');        

    $d->gridRowconfigure(1,-weight=>1);
    my $button = $d->Show;
    my $i;
    my ($data, $log) = (' on', ' log on');
    for $i (0..$ps_ls->size - 1) {
	push @listData, $ps_ls->get($i);
	my ($devTmp, $sizeTmp, $typeTmp) = split(/\s+/, $ps_ls->get($i));
	$data .= " $devTmp = $sizeTmp," if ($typeTmp eq 'data');
	$log .= " $devTmp = $sizeTmp," if ($typeTmp eq 'log');

db/orac_Sybase.pm  view on Meta::CPAN

    Tk::grid($l9,-row=>5,-column=>4,-sticky=>'w');
    Tk::grid($l10,-row=>5,-column=>5,-sticky=>'w');
    Tk::grid($ps_colname,-row=>6,-column=>0,-sticky=>'ew');
    Tk::grid($ps_dttype,-row=>6,-column=>1,-sticky=>'ew');
    Tk::grid($ps_length,-row=>6,-column=>2,-sticky=>'w');
    Tk::grid($ps_prec,-row=>6,-column=>3,-sticky=>'ew');
    Tk::grid($ps_scale,-row=>6,-column=>4,-sticky=>'w');
    Tk::grid($ps_nulls,-row=>6,-column=>5,-sticky=>'ew');
    Tk::grid($ps_ba,-row=>6,-column=>6,-sticky=>'ew');
    Tk::grid($ps_br,-row=>7,-column=>6,-sticky=>'nw');
    Tk::grid($ps_ls,-row=>7,-column=>0,-columnspan=>6,-sticky=>'ew');

    $d->gridRowconfigure(1,-weight=>1);

    for (@colDataGl) {
	$ps_ls->insert("end", $_);
    }

    my $button = $d->Show;

    my($cmd) = sprintf "CREATE TABLE %s.%s (", $tbowner,$tbname;

db/orac_Sybase.pm  view on Meta::CPAN

    Tk::grid($l9,-row=>8,-column=>0,-sticky=>'e');                                
    Tk::grid($ps9,-row=>8,-column=>1,-sticky=>'ew');        
    Tk::grid($l10,-row=>9,-column=>0,-sticky=>'e');                                
    Tk::grid($ps10,-row=>9,-column=>1,-sticky=>'ew');        
    Tk::grid($l11,-row=>10,-column=>0,-sticky=>'e');                                
    Tk::grid($ps11,-row=>10,-column=>1,-sticky=>'ew');        
    Tk::grid($l12,-row=>11,-column=>0,-sticky=>'e');                                
    Tk::grid($ps12,-row=>11,-column=>1,-sticky=>'ew');        
    Tk::grid($l13,-row=>12,-column=>0,-sticky=>'e');                                
    Tk::grid($ps13,-row=>12,-column=>1,-sticky=>'ew');        
    Tk::grid($l0,-row=>15,-column=>0,-rowspan=>3, -columnspan=>2, -sticky=>'ew');                                

    $d->gridRowconfigure(1,-weight=>1);
    my $button = $d->Show;
    $self->f_clr( $main::v_clr );
}


sub show_sql_dialog {
    my $self = shift;
    my($title, $cmd, $parent) = @_;