
饭店菜品点单系统(使用VB语言开发)。
5星
- 浏览量: 0
- 大小:None
- 文件类型:None
简介:
该程序提供了一个可爱的图形界面,并包含可执行的代码菜谱管理功能。首先,创建了一个 ADODB.Connection 对象,命名为 cnn,用于连接到数据库。随后,创建了一个 ADODB.Recordset 对象,命名为 rsImage,用于存储图像数据。程序定义了两个常量:ChunkSize 和 lngDataFile,分别用于指定块大小和文件标识符。此外,还定义了变量 cnn、rsImage、Chunk()、lngLengh、intChunks 和 intFragment,用于处理文件读取和图像块的分割。
接下来,`back_Click()` 子程序被定义(虽然未实现),`Command1_Click(Index As Integer)` 子程序用于删除指定名称的菜谱信息。它首先构建一个 SQL 语句 `delete * from huncai where cname= & (Text1(2).Text) & `, 用于从 huncai 表中删除符合条件的记录。然后连接到数据库并执行该 SQL 语句以完成删除操作。成功删除后显示消息框提示用户。`Command2_Click()` 和 `Command3_Click()` 子程序也未实现。
`Command3_Click()` 子程序负责插入新的菜谱信息。首先检查输入字段是否为空,如果为空则显示错误消息框并退出程序。然后构建一个 SQL 语句 `insert into huncai(sort,cname,price) values ( & (Combo1.Text) & , & (Text3.Text) & , & Val(Text4.Text) & )`, 用于将新菜谱信息插入到 huncai 表中。如果未选择文件路径则显示提示信息并退出程序。接着打开指定的文件进行二进制读取操作,获取文件长度 `lngLengh` 。如果文件长度为0则关闭文件并退出程序。计算块的数量 `intChunks` 和剩余块的数量 `intFragment` 。重新定义 Chunk 数组的大小以适应剩余块的数量. 然后循环读取文件数据到 Chunk 数组中, 并将每个 Chunk 添加到 rsImage!picImage 中, 最后更新 rsImage 并刷新数据集. 最后调用 ShowPic 函数来显示图片.
`cmdBrowse_Click()` 子程序用于浏览文件选择对话框, 选择JPG或BMP格式的文件, 并将文件名保存到 txtFilePath 文本框中, 同时加载图片到 Picture1 的 Picture 属性中. `ShowPic()` 函数用于将图片临时存储到文件中, 然后加载该图片到 Picture1 的 Picture 属性中. `Command4_Click()` 子程序隐藏 Form7 并显示它. `Command5_Click()` 子程序清空所有文本框的数据源, 然后刷新 DataGrid1 和 Text1 的数据源, 以及 Text1(3) 的数据源. 在 Form Load 事件中初始化 Text1(0), Text1(2), Text1(3) 的文本框内容为空, 设置 rsImage 的锁定类型为 adLockOptimistic , 设置 rsImage 的游标类型为 adOpenKeyset , 设置 cnn 的 Provider 为 Microsoft.Jet.OLEDB.4.0 , 构建 SQL 连接字符串 F:\课程设计\数据库\菜谱.mdb, 打开数据库连接, 并执行 Select * From huncai 查询语句以获取菜谱数据并填充 rsImage 对象
全部评论 (0)


