供应商管理手册模块开发简要说明

1、供应商管理模块开发说明第一部分 基本知识程序界面对象属性设置对象属性名属性值Form1Caption供应商管理模块Label1Caption供应商编号Label2Caption供应商名称Label3Caption供应商电话Label4Caption供应商地址Text1Text置空Text2Text置空Text3Text置空Text4Text置空Command1Caption确定Command2Caption取消主要程序代码 在界面上双击确定按钮后，输入如下代码：Private Sub Command1_Click()If = Or = Or = Or = Then MsgBox 请输入供应商完

2、整信息！, , 提示Else MsgBox 供应商信息已成功提交！, , 提交成功 = = = = End IfEnd Sub在界面上双击取消按钮后，输入如下代码：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 table供应商编号”)=”10016) Delete th

3、e current record from a table Some common methods FilterDim str as stringstr = = 供应商名称= + Str + 9) MsgBoxMsgBox “The data has been saved successfully”第三部分 实例1 界面2 数据库表3 程序Private Sub cmdInquire_Click() 查询功能Dim key, keyValue As String key表示查询的字段，keyValue表示查询的内容key = keyValue = If key = 出生年月日 Then 字段为

4、日期型 = key + = + # + keyValue + #ElseIf key = 姓名 Or key = 职位 Then 字段为字符型 = key + = + + keyValue + ElseIf key = 工资 Or key = 编号 Then 字段为数值型 = key + = + keyValueEnd IfEnd Sub-Private Sub Command2_Click() 统计功能Sum = 0 Not = Sum + 工资).Value = Str(Sum)End Sub4基本方法（1）查询 =表达式字符串格式：字段名 关系运算符 查询值当字段名为日期型时，查询值两端加“#”符号当字段名为字符型时，查询值两端加“#”符号当字段名为数值型时，查询值两端不加任何符号如：Dim key, keyValue As String key表示查询的字段，keyValue表示查询的内容key = keyValue = If key = 出生年月日 Then 字段为日期型 = key + = + # + keyValue + #ElseIf key = 姓名 Or key = 职位 Then 字段为字符型 = key + = + + keyValue + ElseIf key = 工资 Or key = 编号 Then 字段为数值型 =