物流管理系统毕业设计论文范文，内附代码Adodc1.ConnectionString = PublicStr Adodc1.RecordSource = "select * from tb_user" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Adodc1.Recordset.MoveFirst Cbx_Name.Clear '在添加数据时，首先清空控件中的内容 Do While Adodc1.Recordset.EO
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Not IsNumeric(Text1.Text) Then MsgBox "输入不符合条件，采购员编号必须为数字" Else Adodc1.RecordSource = "select * from T_cgyzl where 采购员编号='" + Text1.Text + "'" Adodc1.Refresh If
这是用VB编写的学生信息管理系统 1．用户登录界面的代码 Private Sub Command1_Click() Adodc1.RecordSource = "select * from 用户信息表 where 用户名='" & Text1 & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "没有这个用户，请重新输入正确的用户名", , "错误提示" Else If Text2 = Adodc1.Recordset.Fields
vbPrivate Sub Command1_Click() Unload Me Form2.Show End Sub Private Sub Command4_Click() Dim bh As String bh = InputBox("请输入要查找的信息：", "提示") Adodc1.RecordSource = "select * from 通讯录 where '姓名='" & "'" Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBo
基于VB集成环境数据库的建立与连接Public Sub kechengshowdata() Dim j As Integer Dim i As Integer Dim mrc As ADODB.Recordset Adodc1.RecordSource = "select * from allkecheng order by 课程名称" Adodc1.Refresh
Private Sub Form_Load() Adodc1.ConnectionString = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123" Adodc1.RecordSource = "select * from ask_info" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub
手机界面的电话号码查询,Private Sub Command1_Click() If Text1 "" Then Adodc1.RecordSource = "select * from call where 科室或姓名代码 like '%" & Text1 & "%' " Adodc1.Refresh End If End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() a = "Provider=Mic
Adodc1.RecordSource = "select * from 库存表 where 日期 like %" & Text1.Text & _ "% or 货物名称 like %" & Text1.Text & _ "% or 库存量 like %" & Text1.Text & _ "% or 单位 like %" & Text1.Text & _ "%" BangDing 绑定
VB 对分组统计数据进行分析，并使用柱状图来显示，按仓库分组小计。下面是相关代码： Private Sub Command1_Click() Adodc1.RecordSource = "select 仓库,现库存数量 from (SELECT sum(库存) as 现库存数量,仓库 from tb_kc group by 仓库)" Adodc1.Refresh Set MSChart1.DataSource = Adodc1 End Sub Private Su
VB利用变量查询日期型数据，结合SQLServer数据库实现的，可根据出生日期查询学生信息。查询部分的具体代码如下： Private Sub Cmd_Find_Click() 【查询】按钮 If Text1.Text = "" Then MsgBox "请输入要查询的出生年月！", , "信息提示" Text1.Text = "" Text1.SetFocus Exit Sub ElseIf Not IsDate(Text1.Text) Then M
