利用回调函数响应事件

最新推荐文章于 2021-03-06 01:53:01 发布

scan724

最新推荐文章于 2021-03-06 01:53:01 发布

阅读量864

点赞数

分类专栏： Perl Tk模块

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42785727

版权

Perl Tk模块专栏收录该内容

43 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这个博客展示了如何在Tk图形界面中利用回调函数响应按钮点击事件。通过创建多个按钮并为它们设置命令，当用户点击按钮时，将执行指定的push_button子例程。在该子例程中，连接到Oracle数据库，执行SQL查询获取用户表信息，并打印结果。

摘要由CSDN通过智能技术生成

<pre name="code" class="sql">use Tk;
use strict;  
use DBI; 
# Main Window
my $mw = new MainWindow;
my $but1 = $mw -> Button(-text => "view cpu",-width=>80,
-command =>\&push_button);
$but1 -> pack();

my $but2 = $mw -> Button(-text => "view memory",-width=>80);

$but2 -> pack();

my $but3 = $mw -> Button(-text => "view disk",-width=>80);

$but3 -> pack();

my $but3 = $mw -> Button(-text => "view Event",-width=>80);

$but3 -> pack();
MainLoop;

#This is executed when the button is pressed
sub push_button {
 system("cls");
my $dbName = 'june';  
my $dbUser = 'te

了解本专栏