




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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版建筑企业工程挂靠合作项目管理合同范本
- 2025版定制家具展览展示设计与施工合同
- 2025年度建筑节能项目投融资合同范本
- 2025版专业铲车与翻斗车租赁及运输服务合同
- 二零二五年体育场馆广告租赁服务协议
- 2025年度电力设备调试电工程承包合同
- 2025年度加固工程加固设计与施工环保合同
- 二零二五年度建筑吊篮租赁与施工现场安全防护协议
- VTE防控管理相关制度(VTE患者管理与随访的相关管理制度)
- 2024年新人教版七年级上册英语全册课件
- 专题12名著阅读-七年级上册语文期末专项热点必刷100题(含答案)
- 职业素养-企业新型学徒制培训教材素质类-配套课件(下)
- 房屋建筑和市政基础设施工程岩土工程勘察施工图设计文件技术审查要点
- 安全文明施工奖罚明细表
- 急诊科院感培训
- 中国居民口腔健康状况第四次中国口腔健康流行病学调查报告
- 《电机与变压器》教案
- 中医体质辨识标准(评分表)
- 2020年8月自考00420物理工试题及答案含解析
评论
0/150
提交评论