Delphi连接MySql数据库房

    在看Delpih6数据库开发实例导航这本书时,里面的数据库管理系统用的InterBase,但是Delphi11中已经没有这个东西了,我就想到利用MS的access但是里面有很多的SQL语句不支持,比如设置字段的默认值等,后来我想到连接到MySQL,也是在网上查了很我资料。现在再学习一下:

一、打开phpstudy 启动 WNMP

/*创建学生表*/
create table STUDENT(
    ID CHAR(6) NOT NULL,
    NAME VARCHAR(20) NOT NULL,
    SEX CHAR(1) DEFAULT 'M' NOT NULL,
    CLASS CHAR(4),
    DEPARTMENT SMALLINT NOT NULL,
    BIRTHDAY DATE NOT NULL,
    NATIVE_PLACE VARCHAR(20) NOT NULL
);
ALTER TABLE STUDENT
ADD CONSTRAINT ID
PRIMARY KEY(ID);


/*创建学籍变更信息表*/
CREATE TABLE CHANGE_B(
    ID SMALLINT NOT NULL,
    STUDENT CHAR(6) NOT NULL,
    CHANGE_B CHAR(1) NOT NULL,
    REC_TIME DATE NOT NULL,
    DESCRIPTION VARCHAR(4000)
);
ALTER TABLE CHANGE_B
ADD CONSTRAINT CHANGE_B_ID
PRIMARY KEY(ID);


/*奖励记录信息表*/
CREATE TABLE REWARD(
    ID SMALLINT NOT NULL,
    STUDENT CHAR(6) NOT NULL,
    LEVELS CHAR(1) NOT NULL,
    REC_TIME DATE NOT NULL,
    DESCRIPTION VARCHAR(4000)
);
ALTER TABLE REWARD
ADD CONSTRAINT REWARD_ID
PRIMARY KEY(ID);


/*处罚记录信息表*/
CREATE TABLE PUNISHMENT(
    ID SMALLINT NOT NULL,
    STUDENT CHAR(6) NOT NULL,
    LEVELS CHAR(1) NOT NULL,
    REC_TIME DATE NOT NULL,
    ENABLE CHAR(1) DEFAULT 'T' NOT NULL,
    DESCRIPTION VARCHAR(4000)
);
ALTER TABLE PUNISHMENT
ADD CONSTRAINT PUNISHMENT_ID
PRIMARY KEY(ID);


/*创建院系信息表*/
CREATE TABLE DEPARTMENT(
    ID SMALLINT NOT NULL,
    NAME VARCHAR(50) NOT NULL
);
ALTER TABLE DEPARTMENT
ADD CONSTRAINT DEPARTMENT_ID
PRIMARY KEY(ID );


/*创建班级信息表*/
CREATE TABLE CLASS(
    ID CHAR(4) NOT NULL,
    NAME VARCHAR(50) NOT NULL,
    MONITOR  CHAR(6),
    DEPARTMENT SMALLINT NOT NULL 
);
ALTER TABLE CLASS
ADD CONSTRAINT CLASS_ID
PRIMARY KEY(ID);


/*创建学籍变动代码表*/
CREATE TABLE CHANGE_B_CODE(
    CODE CHAR(1) NOT NULL,
    DESCRIPTION VARCHAR(50)
);
ALTER TABLE CHANGE_B_CODE
ADD CONSTRAINT CHANGE_B_CODE_CODE
PRIMARY KEY(CODE);


/*创建奖励等级代码表*/
CREATE TABLE REWARD_LEVELS(
    CODE CHAR(1) NOT NULL,
    DESCRIPTION VARCHAR(50) NOT NULL
);
ALTER TABLE REWARD_LEVELS
ADD CONSTRAINT REWARD_CODE_LEVELS
PRIMARY KEY(CODE);


/*创建惩罚等级代码表*/
CREATE TABLE PUNISHMENT_LEVELS(
    CODE CHAR(1) NOT NULL,
    DESCRIPTION VARCHAR(50) NOT NULL
);
ALTER TABLE PUNISHMENT_LEVELS
ADD CONSTRAINT PUNISHMENT_CODE_LEVELS
PRIMARY KEY(CODE);


/*创建计数保存表*/
CREATE TABLE COUNTER(
    ID CHAR(1) NOT NULL,
    COUNTER_VALUE SMALLINT NOT NULL
);
ALTER TABLE COUNTER
ADD CONSTRAINT COUNTER_ID
PRIMARY KEY(ID);

三、下面开始怎么用Delphi11连接MySql数据库房中的student表

        1、在窗体上添加一个FDconnection1,设置其Params下面的属性:

         

先设置右边的属性,CharacterSet是设置字符编码为utf8,是中文支持。最后设置connected 为True 时输入Mysql的Login User name:root, Password:root,点击ok。这样连接到mysql了。

四、要把数据显示出来

        1、添加FDQuerry,设置connect属性为:FDConnection1,

                                        设置select * from student,

             也可双击FDQuerry1控件后,在对话框中设置,测试:

    5、加入DataSource1控件,设置其DataSet为FDQuery1,

          加入DBGrid1控件,设置其DataSource为DataSource1,

          之后DBGrid1控件显示上图中的RecordSet中的内容:

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:/a/981304.html

如若内容造成侵权/违法违规/事实不符,请联系我们进行投诉反馈qq邮箱809451989@qq.com,一经查实,立即删除!

相关文章

[51 单片机] --串口编程

1,通讯方式基本概念 1,按照 --> 数据传送方式串行通讯:使用一条数据线,将数据一位一位地依次传输,每一位数据占据一个固定的时间长度,串行通信的特点:传输线少,长距离传送时成本…

基础算法——模拟

模拟,顾名思义,就是题⽬让你做什么你就做什么,考察的是将思路转化成代码的代码能⼒。 这类题⼀般较为简单,属于竞赛⾥⾯的签到题(但是,万事⽆绝对,也有可能会出现让⼈⾮常难受的 模拟题&#xf…

SparkStreaming之04:调优

SparkStreaming调优 一 、要点 4.1 SparkStreaming运行原理 深入理解 4.2 调优策略 4.2.1 调整BlockReceiver的数量 案例演示: object MultiReceiverNetworkWordCount {def main(args: Array[String]) {val sparkConf new SparkConf().setAppName("Networ…

Jenkins 删除历史构建记录

中文:系统管理 > 脚本命令行: 英文:Manage Jenkins > Script Console def jobName "Wens-Web" //删除的项目名称 def maxNumber 105 // 保留的最小编号,意味着小于该编号的构建都将被删除 Jenkins.instance.getItemByFullName(jobName).build…

全国青少年航天创新大赛各项目对比分析

全国青少年航天创新大赛各项目对比分析 一、比赛场地对比 项目名称场地尺寸场地特点组别差异筑梦天宫虚拟三维场景动态布局,小学组3停泊处,初高中组6停泊处;涉及传送带、机械臂、传感器等虚拟设备。初中/高中组任务复杂度更高,运…

探秘 Linux 系统编程:进程地址空间的奇妙世界

亲爱的读者朋友们😃,此文开启知识盛宴与思想碰撞🎉。 快来参与讨论💬,点赞👍、收藏⭐、分享📤,共创活力社区。 在 Linux 系统编程的领域里,进程地址空间可是个相当重要的…

vue videojs使用canvas截取视频画面

前言 刚开始做的时候太多坑,导致一直报错: Uncaught (in promise) TypeError: Failed to execute ‘drawImage’ on ‘CanvasRenderingContext2D’: The provided value is not of type ‘(CSSImageValue or HTMLCanvasElement or HTMLImageElement or H…

防火墙旁挂组网双机热备负载均衡

一,二层交换网络: 使用MSTPVRRP组网形式 VLAN 2--->SW3为主,SW4 作为备份 VLAN 3--->SW4为主,SW3 作为备份 MSTP 设计 --->SW3 、 4 、 5 运行 实例 1 : VLAN 2 实例 2 : VLAN 3 SW3 是实例 1 的主根,实…

记忆化搜索与动态规划:原理、实现与比较

记忆化搜索和动态规划是解决优化问题的两种重要方法,尤其在处理具有重叠子问题和最优子结构性质的问题时非常有效。 目录 1. 记忆化搜索(Memoization) 定义: 实现步骤: 示例代码(斐波那契数列&#xff0…

《几何原本》命题I.9

《几何原本》命题I.9 一个角可以切分成两个相等的角。 设 ∠ E A F \angle EAF ∠EAF 为给定角 在 A E , A F AE,AF AE,AF 上任取两点 B , C B,C B,C 使得 A B A C ABAC ABAC 连结 B C BC BC 在 A A A 下方作等边三角形 B C D BCD BCD 则 A B A C , B D C D , A D…

docker-compose安装anythingLLM

1、anythingLLM的docker-compose文件 version: 3.8 services:anythingllm:image: mintplexlabs/anythingllm:latestcontainer_name: anythingllmports:- "23001:3001"cap_add:- SYS_ADMINenvironment:# Adjust for your environment- STORAGE_DIR/app/server/storage…

DeepSeek 助力 Vue3 开发:打造丝滑的表格(Table)示例2: 分页和排序

前言:哈喽,大家好,今天给大家分享一篇文章!并提供具体代码帮助大家深入理解,彻底掌握!创作不易,如果能帮助到大家或者给大家一些灵感和启发,欢迎收藏+关注哦 💕 目录 DeepSeek 助力 Vue3 开发:打造丝滑的表格(Table)示例2: 分页和排序📚前言📚页面效果📚指令…

SQL命令详解之多表查询(连接查询)

目录 1 简介 2 内连接查询 2.1 内连接语法 2.2 内连接练习 3 外连接查询 3.1 外连接语法 3.2 外连接练习 4 总结 1 简介 连接的本质就是把各个表中的记录都取出来依次匹配的组合加入结果集并返回给用户。我们把 t1 和 t2 两个表连接起来的过程如下图所示: …

二、QT和驱动模块实现智能家居-----问题汇总1

1、文件地址改变后必须在QT下更改地址 2、指定了QT内Kits下的Sysroot头文件地址,但是还是找不到头文件: 3、提示无法执行QT程序:先干掉之前的QT程序 ps //查看程序PIDkill -9 PID 4、无法执行QT程序 1)未设置环境变量 …

CentOS7安装Mysql5.7(ARM64架构)

1.第一步:下载 arm 版本离线 mysql 5.7 安装包 arm 版本离线 mysql 5.7 安装包 2.第二步:查询并卸载 CentOS 自带的数据库 Mariadb 找到数据库 mariadb,如果有会给出一个结果,结果是 mariadb 名称 rpm -qa | grep mariadb 如果…

AI数字人口播源码开发全解析

——源码即未来:揭秘千亿级市场的技术底层逻辑 一、为什么源码开发是数字人赛道的“核武器”? 2025年全球AI数字人市场规模预计突破6402.7亿元,而源码开发能力正成为企业竞争的核心壁垒。与标准化SaaS工具相比,源码开发赋予三大…

Versal - XRT(CPP) 2024.1

目录 1.简介 2. XRT 2.1 XRT vs OpenCL 2.2 Takeways 2.3 XRT C APIs 2.4 Device and XCLBIN 2.5 Buffers 2.5.1 Buffer 创建 2.5.1.1 普通 Buffer 2.5.1.2 特殊 Buffer 2.5.1.3 用户指针 Buffer 2.5.2 Data Transfer 2.5.2.1 read/write API 2.5.2.2 map API 2…

GPPT: Graph Pre-training and Prompt Tuning to Generalize Graph Neural Networks

GPPT: Graph Pre-training and Prompt Tuning to Generalize Graph Neural Networks KDD22 推荐指数:#paper/⭐⭐#​ 动机 本文探讨了图神经网络(GNN)在迁移学习中“预训练-微调”框架的局限性及改进方向。现有方法通过预训练&#xff08…

微信小程序上如何使用图形验证码

1、php服务器生成图片验证码的代码片段如下: 注意红框部分的代码,生成的是ArrayBuffer类型的二进制图片 2、显示验证码 显示验证码,不要直接image组件加上src显示,那样拿不到cookie,没有办法做图形验证码的验证&…

MAX232数据手册:搭建电平转换桥梁,助力串口稳定通信

在现代电子设备的通信领域,串口通信因其简单可靠而被广泛应用。MAX232 芯片作为串口通信中的关键角色,发挥着不可或缺的作用。下面,我们将依据提供的资料,深入解读 MAX232 芯片的各项特性、参数以及应用要点。 一、引脚说明 MAX2…