服务器：
#include "widget.h"
#include "ui_widget.h"Widget::Widget(QWidget *parent): QWidget(parent), ui(new Ui::Widget)
{ui->setupUi(this);//给服务器指针实例化空间server=new QTcpServer(this);
}Widget::~Widget()
{delete ui;
}//启动服务器按钮对应的槽函数
void Widget::on_startBtn_clicked()
{//获取ui界面上的端口号quint16 port=ui->portEdit->text().toInt();//将服务器设置成监听状态//函数原型: bool listen(const QHostAddress &address = QHostAddress : :Any，quintl6 port = 0);//功能:监听客户端发来的连接请求//参数1:要监听的主机地址，any表示监听任意主机地址，也可以给定特定主机地址//参数2:提供的端口号，如果是0，表示让系统自动分配端口号//返回值: bool，成功监听返回true，失败返回falseif(server->listen(QHostAddress::Any,port)){QMessageBox::information(this,"","服务器启动成功");}else{QMessageBox::information(this,"","服务器启动失败");}//此时服务器已经进入监听状态，如果有客户端发来连接请求，那么该服务器就会自动发射一个newConnection信号//我们可以将该信号连接到自定义的槽函数中处理新连接的套接字connect(server,&QTcpServer::newConnection,this,&Widget::newConnect_slot);
}//处理newConnection信号的槽函数
void Widget::newConnect_slot()
{qDebug()<<"有新客户连接";//获取最新连接的客户端套接字//函数原型:virtual QTcpSocket *nextPendingConnection() ;//功能:获取最新连接客户端的套接字//参数:无//返回值:套接字指针QTcpSocket* s = server->nextPendingConnection();//将该套接字放入到客户端容器中socketList.push_back(s);//此时，客户端与服务器已经建立起来连接//如果有客户端向服务器发来数据，那么该客户端会自动发射一个readyRead信号//我们可以在该信号对应的槽函数中，读取客户端中的数据connect(s,&QTcpSocket::readyRead,this,&Widget::readyRead_slot);}
//关于readyRead信号对应槽函数的实现
void Widget::readyRead_slot()
{//移除无效客户端for(int i=0;i<socketList.count();i++){// socketList.at(i)->state(); //任意一个客户端的状态//函数原型: Socketstate state() const;//功能:返回套接字的状态//参数:无//返回值:套接字状态，是个枚举值，如果为o，表示无效连接if(socketList.at(i)->state()==0){//移除该客户端socketList.removeAt(i); //将下标为i的套接字从链表中移除}}//遍历客户端套接字，寻找是哪个客户端有数据待读for(int i=0;i<socketList.count();i++){//判断当前套接字是否有数据待读//函数原型: qint64 bytesAvailable() const override;//功能:求出当前套接字中待读数据的个数//参数:无//返回值:待读数据的个数if(socketList.at(i)->bytesAvailable()!=0){//说明当前套接字中有数据//读取当前套接字中的数据//函数原型:QByteArray readAll();//功能:读取套接字中的所有数据//参数:无//返回值:QByteArray读取下来的数据QByteArray msg=socketList.at(i)->readAll();//将数据展示到ui界面ui->msgWidgit->addItem(QString::fromLocal8Bit(msg));//将数据发送给所有客户端for(int j=0;j<socketList.count();j++){//将数据写入到所有客户端套接字中socketList.at(j)->write(msg);}}}}
客户端：
#include "widget.h"
#include "ui_widget.h"Widget::Widget(QWidget *parent): QWidget(parent), ui(new Ui::Widget)
{ui->setupUi(this);//初始化界面ui->sendBtn->setEnabled(false);ui->msgEdit->setEnabled(false);ui->disconnectBtn->setEnabled(false);//给客户端指针实例化空间socket=new QTcpSocket(this);//如果成功连接了服务器，那么该客户端就会自动发射一个connected的信号//我们可以将该信号连接到自定义槽函数中处理相关逻辑，由于只需连接一次，所以定义在构造函数中connect(socket,&QTcpSocket::connected,this,&Widget::connected_slot);//如果服务器有数据发送给该客户端，那么该套接字就会自动发射一个readyRead信号//我们可以将该信号连接到自定义的槽函数中，处理发来的数据，由于只需要连接一次，可以放在构造函数中connect(socket,&QTcpSocket::readyRead,this,&Widget::readyRead_slot);//当成功与服务器断开连接后，该客户端就会自动发射一个disconnected的信号//我们可以在该信号对应的槽函数中处理后续操作。由于只需要连接一次，可以放在构造函数中connect(socket,&QTcpSocket::disconnected,this,&Widget::disconnect_slot);}Widget::~Widget()
{delete ui;
}//连接服务器按钮对应的槽函数
void Widget::on_connectBtn_clicked()
{//获取ui界面上的主机地址和端口号QString ip=ui->ipEdit->text();quint16 port=ui->portEdit->text().toInt();//将客户端连接到主机//函数原型: virtual void connectToHost(const Qstring &hostName，quint16 port)//功能:将客户端连接到服务器//参数1:服务器主机地址//参数2:服务器端口号//返回值:无socket->connectToHost(ip,port);//如果成功连接了服务器，那么该客户端就会自动发射一个connected的信号//我们可以将该信号连接到自定义槽函数中处理相关逻辑，由于只需连接一次，所以定义在构造函数中
}//关于connected信号对应槽函数的实现
void Widget::connected_slot()
{QMessageBox::information(this,"","连接服务器成功");//告诉服务器谁连接了userName=ui->useNameEdit->text(); //获取ui界面上用户名QString msg=userName + ":进入聊天室";//将信息发送给服务器socket->write(msg.toLocal8Bit());//将ui界面上的相关组件设置ui->msgEdit->setEnabled(true);ui->sendBtn->setEnabled(true);ui->disconnectBtn->setEnabled(true);ui->useNameEdit->setEnabled(false);ui->ipEdit->setEnabled(false);ui->portEdit->setEnabled(false);ui->connectBtn->setEnabled(false);//此时客户端与服务器已经成功建立起来连接//如果服务器有数据发送给该客户端，那么该套接字就会自动发射一个readyRead信号//我们可以将该信号连接到自定义的槽函数中，处理发来的数据，由于只需要连接一次，可以放在构造函数中}//处理readyRead信号的槽函数
void Widget::readyRead_slot()
{//将客户端的数据读取出来QByteArray msg=socket->readAll();//将数据展示到自己ui界面上ui->msgWidget->addItem(QString::fromLocal8Bit(msg));
}//发送按钮对应的槽函数
void Widget::on_sendBtn_clicked()
{//获取ui界面中要发送的数据QString msg=ui->msgEdit->text();//整合数据msg = userName+ ": "+msg;//将数据发送给服务器socket->write(msg.toLocal8Bit());//清空发送框的数据ui->msgEdit->clear();}//断开服务器按钮对应的槽函数
void Widget::on_disconnectBtn_clicked()
{//告诉谁离开聊天室QString msg=userName +":离开聊天室";socket->write(msg.toLocal8Bit());//断开连接//函数原型: virtual void disconnectFromHost( ) ;//功能:断开该客户端的连接//参数:返回值:无socket->disconnectFromHost();//当成功与服务器断开连接后，该客户端就会自动发射一个disconnected的信号//我们可以在该信号对应的槽函数中处理后续操作。由于只需要连接一次，可以放在构造函数中}void Widget::disconnect_slot()
{//将ui界面上的相关组件设置ui->msgEdit->setEnabled(false);ui->sendBtn->setEnabled(false);ui->disconnectBtn->setEnabled(false);ui->useNameEdit->setEnabled(true);ui->ipEdit->setEnabled(true);ui->portEdit->setEnabled(true);ui->connectBtn->setEnabled(true);
}
学生信息管理系统（头文件）：
#ifndef WIDGET_H
#define WIDGET_H#include <QWidget>
#include <QSqlDatabase>//数据库管理类
#include <QSqlQuery>//执行sql语句的类
#include <QSqlRecord>//数据库记录类
#include <QSqlError>//错误类
#include <QMessageBox>
#include <QDebug>
QT_BEGIN_NAMESPACE
namespace Ui { class Widget; }
QT_END_NAMESPACEclass Widget : public QWidget
{Q_OBJECTpublic:Widget(QWidget *parent = nullptr);~Widget();private slots:void on_addBtn_clicked();void on_showBtn_clicked();private:Ui::Widget *ui;//实例化一个数据库对象QSqlDatabase db;
};
#endif // WIDGET_H
学生信息管理系统（源文件）：
#include "widget.h"
#include "ui_widget.h"Widget::Widget(QWidget *parent): QWidget(parent), ui(new Ui::Widget)
{ui->setupUi(this);//判断是否包含所需的数据库文件//函数原型： static bool contains(const QString& connectionName = QLatin1String(defaultConnection));//功能:判断该对象中是否包含给定的数据库//参数:数据库的名字//返回值: bool类型，包含返回真，不包含返回假if(!db.contains("stuInfo.db")){//添加一个数据库db=QSqlDatabase::addDatabase("QSQLITE"); //添加一个数据库，数据库的驱动为sqlite 3//给刚刚添加的数据库设置名称db.setDatabaseName("stuInfo.db");}//打开数据库if(!db.open()){QMessageBox::information(this,"","数据库打开失败");return;}//程序运行至此，则表明数据库已经打开，就可以使用sql语句进行创建表的相关操作了//想要执行sql语句，需要实例化一个QSqlQuerry的类对象，通过该类对象执行sql语句QSqlQuery querry;//准备sql语句QString sql="create table if not exists stu_info_table(""id integer primary key autoincrement,""numb integer,""name varchar(20),""sex varchar(4),""score integer)";//执行sql语句if(querry.exec(sql)){QMessageBox::information(this,"","数据表创建成功");}else{QMessageBox::information(this,"","数据表创建失败");return;}
}Widget::~Widget()
{delete ui;
}//添加数据按钮对应的槽函数
void Widget::on_addBtn_clicked()
{//将ui界面中要获取的数据取出int numb=ui->numEdit->text().toInt();QString name=ui->nameEdit->text();QString sex=ui->sexEdit->text();int score=ui->scoreEdit->text().toInt();//判断用户是否漏填数据if(numb==0||name.isEmpty()||sex.isEmpty()||score==0){QMessageBox::information(this,"","请将数据填写完整");return ;}//数据完整，可以将该数据存放入数据库中QSqlQuery querry;//定义语句执行者//准备sql语句QString sql=QString("insert into stu_info_table(numb,name,sex,score)""values(%1,'%2','%3',%4)").arg(numb).arg(name).arg(sex).arg(score);//执行sql语句if(querry.exec(sql)){QMessageBox::information(this,"","添加成功");}else{QMessageBox::information(this,"","添加失败");}
}//show按钮对应的槽函数
void Widget::on_showBtn_clicked()
{//准备sql语句QString sql="select *from stu_info_table";//定义一个执行者QSqlQuery querry;//执行sql语句if(!querry.exec(sql)){QMessageBox::information(this,"","查询失败");return ;}//此时将查询的结果都放入该对象内部了，可以使用next进行遍历查询后的内容int i=0;while(querry.next()){//querry.value(i):表示的是当前记录的第i+1项内容(从0开始)//querry.record()::返回的是当前的一整条记录//querry.record().count():返回的是当前记录的键的个数·//qDebug()<<querry.record().count();//qDebug()<<querry.value(2);for(int j=0;j<querry.record().count();j++){// querry.value(j):表示第i行的第j列的元素值ui->tableWidget->setItem(i,j,new QTableWidgetItem(querry.value(j+1).toString()));}i++; //继续遍历下一条记录}
}
![R语言无法调用stats.dll的问题解决方案[补充]](https://img-blog.csdnimg.cn/img_convert/4f03963b6716440cf661480ad574ce37.png)
