求一易语言简单的录入、删除、查找、修改的小程序

发个连接好吗,谢谢!

这里的清除只是清空"编辑框1",如果要删除记录,请清空"编辑框1",再点击"修改按钮"

-----------------------------------------------

.版本 2


.程序集 窗口程序集1

.程序集变量 文本, 文本型, , "0"

.程序集变量 文本内容, 文本型

.程序集变量 记录, 整数型


.子程序 __启动窗口_创建完毕


清除数组 (文本)

文本内容 = 到文本 (读入文件 (取运行目录 () + “\新建.txt”))

文本 = 分割文本 (文本内容, #换行符, )

修改按钮.禁止 = 真

录入按钮.禁止 = 假

_清除按钮_被单击 ()


.子程序 _录入按钮_被单击


.如果真 (编辑框1.内容 = “”)

    信息框 (“请输入内容!”, 0, )

    返回 ()

.如果真结束

加入成员 (文本, 编辑框1.内容)

写入数据 ()

_清除按钮_被单击 ()


.子程序 _清除按钮_被单击


编辑框1.内容 = “”

编辑框1.获取焦点 ()


.子程序 _修改按钮_被单击


文本 [记录] = 编辑框1.内容

写入数据 ()


.子程序 _查找按钮_被单击


.如果真 (编辑框2.内容 = “”)

    信息框 (“请输入关键词!”, 0, )

    返回 ()

.如果真结束

.计次循环首 (取数组成员数 (文本), 记录)

    .如果真 (寻找文本 (文本 [记录], 编辑框2.内容, , 假) ≠ -1)

        跳出循环 ()

    .如果真结束


.计次循环尾 ()

.如果真 (记录 > 取数组成员数 (文本))

    信息框 (“未找到你要的记录,请减少关键词!”, 0, )

    返回 ()

.如果真结束

修改按钮.禁止 = 假

录入按钮.禁止 = 真

编辑框1.内容 = 文本 [记录]


.子程序 写入数据


文本内容 = “”

.计次循环首 (取数组成员数 (文本), 记录)

    .如果真 (文本 [记录] = “”)

        到循环尾 ()

    .如果真结束

    文本内容 = 文本内容 + 文本 [记录] + #换行符

.计次循环尾 ()

写到文件 (取运行目录 () + “\新建.txt”, 到字节集 (文本内容))

__启动窗口_创建完毕 ()



追问

能不能在点击:查找后,跳出对话框里面显示内容呀?

追答

在".子程序 _录入按钮_被单击"中,最后一句"_清除按钮_被单击 ()",删除掉

温馨提示:内容为网友见解,仅供参考
无其他回答

求易语言一个简单的小程序
删除名字 ()信息框 (“姓名:” + 编辑框1.内容 + “ 已删除”, 0, ).如果真结束 读数据库 ().子程序 删除名字, 逻辑型 跳到 (记录)删除 ()彻底删除 ()返回 (真).子程序 _列表_左键单击表项 编辑框1.内容 = 列表.取标题 (列表.现行选中项, 0)编辑框2.内容 = 列表.取标题 ...

用易语言 做个小程序,修改INI文件内容。
可以判断每个节名下的 IpAddr=192.168.1.70 时 BootDisk=XP3*0|DPAN*0|GAME*0|NETGAME*0 否则 BootDisk=SYS*0|DPAN*0|GAME*0|NETGAME*0 但 里面 ini文件名 的 路径 你要改一下哦 \/\/\/ .版本 2 .子程序 _按钮1_被单击 .局部变量 ini文件名, 文本型 .局部变量 配置节名, 文本...

怎么用易语言编写一个简单的商品条码和名称录入软件?
要想快捷的自动录入操作,可以用专门的脚本软件《阿冲全能点击王》来完成,这款阿冲全能点击王软件是支持批量录入数据的。

易语言 超级列表框 查找功能!
1、首先,运行易语言,然后选择“Windows窗口程序”并点击“确定”按钮,进入“Windows窗口程序”设计界面。2、在窗口上绘制超级列表框组件,今天我们做一个小程序,就是往超级列表框中,添加信息,类似学生信息数据表。3、修改相关组件的标题和其他属性,规范命名各组件的名称,以方便后续的代码编写。4、正...

用易语言制作一个小程序的问题 输入身份证 直接 得到 出生年月日_百度...
.程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 编辑框1.输入方式 = 3 编辑框1.最大允许长度 = 18 .子程序 _按钮1_被单击 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型 .判断开始 (取文本长度 (编辑框1.内容) ≠ 18)信息框 (“身份证号码错误!”, 0, ...

怎么用易语言调用已经做好的按键小精灵、、、
首先你要设置小精灵自动运行,然后小精灵里的配置也可以用易语言读取,你可以参考易语言知识库的【写配置项】,然后只要修改配置项在运行小精灵就行了。如果要停止可以投递信息,最简单还是直接结束小精灵。

易语言 超级列表框内容查找
1、首先,运行易语言,然后选择“Windows窗口程序”并点击“确定”按钮,进入“Windows窗口程序”设计界面。2、在窗口上绘制超级列表框组件,今天我们做一个小程序,就是往超级列表框中,添加信息,类似学生信息数据表。3、修改相关组件的标题和其他属性,规范命名各组件的名称,以方便后续的代码编写。4、...

易语言穷举ip的小程序
计次循环首(4,i){ 整数型变量=整数型变量+左移(到整数(文本数组[i]),(i-1)*8)} 返回(整数型变量)} 返回文本型 整数型到ip(整数参数){ 字节集变量=到字节集(整数参数)文本变量=到文本(字节集变量[1])计次循环首(3,i){ 文本变量=文本变量+"."+到文本(字节集变量[i...

求高手用VB6或者易语言帮忙写个小程序,就几行代码
.版本 2 .支持库 eAPI .判断循环首 (真).如果真 (文件是否存在 (“E:\\123\\456.txt ”)) ' 检测E:\\123\\456.txt 终止进程 (“789.exe”) ' 如果文件存在,则关闭789.exe .如果真结束 延时 (10 × 1000) ' 延时10秒后再次检测456.txt的存在...如果真 (取运行目录 () = “”...

求一个简单的易语言源码,取系统运行时间的
代码如下:.版本 2 .支持库 spec .子程序 _按钮1_被单击 .局部变量 运行时间, 整数型, , , 毫秒 运行时间 = 取启动时间 ()调试输出 (取毫秒到天 (运行时间)).子程序 取毫秒到天, 文本型 .参数 参_秒, 整数型 .局部变量 参_秒, 整数型 .局部变量 天, 整数型 .局部变量 小时, 整数...

相似回答