[perl-win32-gui-users] get value from list

[Michael S. <MSo...@3s...>]

I am querying a database and putting the output into a listview

What I would like to next is to click on an item in the list and then
drilldown into the data base

The question is how can I return the value from a List

I am fairly new at using Win32::GUI and apologise if this is a stupid
question.

Should I be using a different type than listview and if so what should I be
using?



use strict;
use Socket;
use Win32::GUI;
use Win32::ODBC;

#set variables
my (%Data, %new, $result, $Window, $width);
my $Dir 		= "//neptune/tech_dept/databases";
my $DBase 		= "asset.mdb";
my $DriverType 	= "Microsoft Access Driver (*.mdb)";
my $Desc 		= "Description=The Win32::ODBC Test DSN for Perl";
my $DSN 		= "tmpdsn";

$Window = new GUI::Window(
    -name   => "Window",
    -text   => "Win32::GUI::ListView test",
    -width  => 350,
    -height => 500,
    -left   => 100,
    -top    => 100,
);


$Window->AddListView(
    -name      => "ListView",
    -left      => 10,
    -top       => 10,
    -width     => 330,
    -height    => 383,
    -style     => WS_VISIBLE | 1,
    -gridlines => 1,
);

$width = $Window->ListView->ScaleWidth;

$Window->ListView->InsertColumn(
    -index => 0,
    -width => $width/2,
    -text  => "Asset No",
);

$Window->ListView->InsertColumn(
    -index   => 1,
    -width   => $width/2,
    -text    => "IP Address",
);

$Window->AddRadioButton(
	-name    => "Radio1",
	-left    => 8,
	-top     => 410,
	-text    => "192 Network  ",
	-tabstop => 1,
);

$Window->AddRadioButton(
	-name    => "Radio2",
	-left    => 8,
	-top     => 430,
	-text    => "212 XTML  ",
	-tabstop => 1,
);


$Window->AddRadioButton(
	-name    => "Radio3",
	-left    => 8,
	-top     => 450,
	-text    => "212 EasyNet  ",
	-tabstop => 1,
);
#$Window->ListView->TextColor(hex("0000FF"));

$Window->Show();

$Window->Dialog();


sub MAIN {
	#set up dsn
	Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, ("DSN=$DSN",
"Description=The Win32 ODBC Test DSN for Perl", "DBQ=$Dir\\$DBase",
"DEFAULTDIR=$Dir", "UID=", "PWD="));

	#open connection as $0
	my $cO = new Win32::ODBC($DSN);

	#run sql
	$cO->Sql("SELECT assetid, ipaddress FROM ip_address where ipaddress
like '${result}%'");

	#reset new
	%new = ();

	# Fetch the next rowset
	while($cO->FetchRow()){
		%Data = $cO->DataHash();
		#convert to binary
		$new{inet_aton($Data{ipaddress})} =
"$Data{assetid},$Data{ipaddress}";
	}

	#close database
	$cO->Close();

	#remove tempdsn
	Win32::ODBC::ConfigDSN(ODBC_REMOVE_DSN, $DriverType, "DSN=$DSN");

	#clear items
	$Window->ListView->Clear();  

	foreach (sort keys %new) {
			my ($asset, $ip ) = split(",",$new{$_});

		$Window->ListView->InsertItem(-text => [ "$asset", "$ip" ]
);
	};
}


sub MAIN1 {
	#clear items
	$Window->ListView->Clear();  

	foreach (sort numeric values %new) {
			my ($asset, $ip ) = split(",",$_);
		$Window->ListView->InsertItem(-text => [ "$asset", "$ip" ]
);
	};
}

sub numeric { $a <=> $b };

sub Radio1_Click {
	if($Window->Radio1->Checked()) {
		$result = "192";
		&MAIN;
	} elsif($Window->Radio2->Checked()) {
		$result = "212.88";
		&MAIN;
	} elsif($Window->Radio3->Checked()) {
		$result = "212.74";
		&MAIN;
	}
}
sub Radio2_Click { Radio1_Click(); }
sub Radio3_Click { Radio1_Click(); }

sub ListView_ColumnClick {
	my $column = shift;
	if ($result ne "" ) {
		if ( $column == 1 ) {&MAIN;}
		if ( $column == 0 ) {&MAIN1;}
	}
	
}
__END__

Regards


Mike Solomon
Technical Manager
Work     01582 831125
Mobile 07941 537 172
email   mso...@3s...

============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential.  If you are
not
the named recipient please notify us immediately.  You must not copy or
disclose
the contents to any third party.

Internet e-mail is not a fully secure communications medium.  Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks. 

www.3s-group.com

=========================================================================