毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB图书管理系统 第7页

更新时间:2008-3-1:  来源:毕业论文

VB图书管理系统 第7页
 sqlfind = "select * from 图书资料 where 编号
between '" & _

  
Combo1(0).Text & "'" & " and " & "'" & Combo1(1).Text & "'"

  
End If

  
If Option2.Value = True Then

  
find_date1 = Format(CDate(Comboy(0).Text & "-" & _

  
Combom(0).Text & "-" & Combod(0).Text), "yyyy-mm-dd")

  
find_date2 = Format(CDate(Comboy(1).Text & "-" & _

  
Combom(1).Text & "-" & Combod(1).Text), "yyyy-mm-dd")

  sqlfind = "select * from 图书资料 where 购买日期
between #" & _

  
find_date1 & "#" & " and" & " #" & find_date2 & "#"

  
End If

  
rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic

  
frmdatamanage.displaygrid1

  
Unload Me

  
cmderror:

  
If Err.Number <> 0 Then

  
MsgBox Err.Description

  
End If

  
End Sub

  运行查询子窗体时,组合框中就已经从数据库中提取了货单号和年月日两个待查条件。


  Dim i As Integer

  
Dim sql As String

  
If findok = True Then

  
rs_data1.Close

  
End If

  sql = "select * from 图书资料 order by 编号
desc"

  
rs_find.CursorLocation = adUseClient

  
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic

  If rs_find.EOF = False Then ' 添加编号


  With rs_find

  
Do While Not .EOF

  
Combo1(0).AddItem .Fields(0)

  
Combo1(1).AddItem .Fields(0)

  
.MoveNext

  
Loop

  
End With

  
End If

  For i = 2001 To 2005 ' 添加年


  Comboy(0).AddItem i

  
Comboy(1).AddItem i

  
Next i

  For i = 1 To 12 ' 添加月


  Combom(0).AddItem i

  
Combom(1).AddItem i

  
Next i

  For i = 1 To 31 ' 添加日


  Combod(0).AddItem i

  
Combod(1).AddItem i

  
Next i

  
End Sub

  查询完毕后,输出查询结果,如图42所示。


   若图片无法显示请联系站长QQ752018766

  图42 查询结果


  http://book.csdn.net 2006-31 16:26:00

  显示目录


  (6) 用户登录子窗体代码

  运行的用户登录子窗体如图43所示。

  若图片无法显示请联系站长QQ752018766

  图43 运行的用户登录子窗体

  在本项目中,用户登录子窗体是运行的第一个界面,它的作用是检查用户名和密码是否正确。由于用户的资料是存放在数据库中,所以在启动该子窗体时,就已经连接了数据库。其代码如下:

  
Private Sub Form_Load()

  
Dim connectionstring As String

  
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _

  
"data source=book.mdb"

  
conn.Open connectionstring

  
cnt = 0

  
End Sub

  确定按钮的作用是检查输入的数据是否与数据库中的数据一致。


  Private Sub Command1_Click()

  
Dim sql As String

  
Dim rs_login As New ADODB.Recordset

  If Trim(txtuser.Text) = "" Then ' 判断输入的用户名是否为空


  MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

  
txtuser.SetFocus

  
Else

  sql = "select * from 系统管理 where 用户名
='" & txtuser.Text & "'"

  
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

  
If rs_login.EOF = True Then

  MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页

VB图书管理系统 第7页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。