




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、供应商管理模块开发说明第一部分 基本知识一、 程序界面二、 对象属性设置对象属性名属性值Form1Caption供应商管理模块Label1Caption供应商编号Label2Caption供应商名称Label3Caption供应商Label4Caption供应商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption确定Command2Caption取消三、 主要程序代码 1. 在界面上双击确定按钮后,输入如下代码:Private Sub Command1_Click()If Text1.Text = ""
2、Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then MsgBox "请输入供应商完整信息!", , "提示"Else MsgBox "供应商信息已成功提交!", , "提交成功" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""E
3、nd IfEnd Sub2. 在界面上双击取消按钮后,输入如下代码:Private Sub Command2_Click() EndEnd Sub第二部分 数据库应用一、 在Access中建表二、在控件面板上添加ADO 控件1) 选择ADO和DataGrid 控件2)在界面上添加这两个控件3) 连接数据源4)选择建立的数据表4) set data source for DataGrid control5) Add a record into a tableAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“供应商编号”)=”1001”Adodc1.U
4、pdate6) Delete the current record from a tableAdodc1.Recordset.DeleteAdodc1.Update7) Some common methodsAdodc1.Recordset.MoveFirstAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveNextAdodc1.Recordset.MovePrevious8) FilterDim str as stringstr = Text1.TextAdodc1.Recordset.Filter = "供应商名称='"
5、 + Str + "'"9) MsgBoxMsgBox “The data has been saved successfully”第三部分 实例1 界面2 数据库表3 程序Private Sub cmdInquire_Click() '查询功能Dim key, keyValue As String 'key表示查询的字段,keyValue表示查询的容key = Combo1.TextkeyValue = Text2.TextIf key = "出生年月日" Then '字段为日期型Adodc1.Recordset.Fil
6、ter = key + "=" + "#" + keyValue + "#"ElseIf key = "" Or key = "职位" Then '字段为字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工资" Or key = "编号" Then '字段为数值型Ad
7、odc1.Recordset.Filter = key + "=" + keyValueEnd IfEnd Sub-Private Sub Command2_Click() '统计功能Sum = 0Adodc1.Recordset.MoveFirstWhile Not Adodc1.Recordset.EOFSum = Sum + Adodc1.Recordset.Fields("工资").ValueAdodc1.Recordset.MoveNextWendText1.Text = Str(Sum)End Sub4基本方法(1)查询Adodc1.
8、Recordset.Filter =表达式字符串格式:字段名 关系运算符 查询值当字段名为日期型时,查询值两端加“#”符号当字段名为字符型时,查询值两端加“#”符号当字段名为数值型时,查询值两端不加任何符号如:Dim key, keyValue As String 'key表示查询的字段,keyValue表示查询的容key = Combo1.TextkeyValue = Text2.TextIf key = "出生年月日" Then '字段为日期型Adodc1.Recordset.Filter = key + "=" + "#&
9、quot; + keyValue + "#"ElseIf key = "" Or key = "职位" Then '字段为字符型Adodc1.Recordset.Filter = key + "=" + "'" + keyValue + "'"ElseIf key = "工资" Or key = "编号" Then '字段为数值型Adodc1.Recordset.Filter = key + "=" + keyValueEnd If(2)统计使用循环语句,如:Sum = 0Adodc1.Recordset.M
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 城市污水处理厂智能化升级改造对城市水环境治理的促进作用报告
- 2025年生态旅游可持续发展规划与管理旅游生态旅游区旅游文化遗产保护研究报告
- 农业机械化智能化在农业生产信息化中的应用案例报告
- 聚焦2025年城市地下综合管廊建设资金申请及环境保护研究报告
- 2025年3D打印建筑一体化设计成果鉴定报告
- 2025年乡村文化旅游项目资金申请配套支持政策研究报告
- 幼儿园反恐防暴方案(模板)
- 2025年环境监测智能化发展中的数据质量控制与智能监控报告
- 收费站冬季防寒防冻安全培训
- 2025年金融租赁公司业务创新模式与风险控制体系构建实践案例报告
- 2024年涡流考试题目
- 矿山建设项目应急预案及防控措施
- 北师大版一年级上册数学全册教案(教学设计)及教学反思
- 公司人效提升方案
- VTE防控管理相关制度(VTE患者管理与随访的相关管理制度)
- 2024年新人教版七年级上册英语全册课件
- 专题12名著阅读-七年级上册语文期末专项热点必刷100题(含答案)
- 职业素养-企业新型学徒制培训教材素质类-配套课件(下)
- 房屋建筑和市政基础设施工程岩土工程勘察施工图设计文件技术审查要点
- 安全文明施工奖罚明细表
- 《电机与变压器》教案
评论
0/150
提交评论