物流管理系统毕业设计论文范文，内附代码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
漂亮的界面，可执行的代码 菜谱管理： Dim cnn As New ADODB.Connection Dim rsImage As New ADODB.Recordset Dim Chunk() As Byte Dim lngLengh As Long Dim intChunks As Integer Dim intFragment As Integer Const ChunkSize = 1000 Const lngDataFile = 1 Dim sql As String Private
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
