一个简单的Tk界面(可以录入和查询)

最新推荐文章于 2022-12-26 08:29:32 发布

scan724

最新推荐文章于 2022-12-26 08:29:32 发布

阅读量2.4k

点赞数 1

分类专栏： Perl Tk模块

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

版权

Perl Tk模块专栏收录该内容

43 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl的Tk模块创建的GUI应用程序，包含多个按钮，用于查询CPU、内存、磁盘等信息。每个按钮都连接到同一个函数push_button6，但根据按钮的不同会查询不同的数据库（如DB2、MySQL、SQL Server等）。程序还包含一个用于输入数据的按钮push_botton3，数据将插入到名为'register_info'的表中。

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

#!/usr/local/bin/perl
use Tk;
use dbi;
#Global Variables
my $age = 10;
# Main Window
my $mw = new MainWindow;
#GUI Building Area
use Encode qw/encode decode/;


#Age

my $but1 = $mw -> Button(-text=>"view cpu", -command =>\&push_button1); ## 执行函数push_butto
my $but2 = $mw -> Button(-text=>"view memory", -command =>\&push_button2); ## 执行函数push_butto
my $but3 = $mw -> Button(-text=>"view disk", -command =>\&push_button3); ## 执行函数push_butto
my $but4 = $mw -> Button(-text=>"view err", -command =>\&push_button4); ## 执行函数push_butto
my $but5 = $mw -> Button(-text=>"view syslog", -command =>\&push

了解本专栏