【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:VB计算机图片管理系统源代码 - 讲义教程绩等信息,祝愿广大网友取得需要的信息,参考学习。
VB计算机图片
管理系统源
代码 Dim a As String B As String Private Sub Command1_Click a Trimtext1.Text B TrimText2.Text Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If a Adodc1.Recordsetxh Then If B Adodc1.Recordsetma Then MsgBox 你好欢迎登录长江师范学院图书管理
系统 65 提示 图书管理.Show 登录界面.Visible False Exit Sub Else MsgBox 密码错误请重新输入 65 提示 text1.SetFocus text1.Text Text2.Text Exit Sub End If Else Adodc1.Recordset.MoveNext End If Loop If Adodc1.Recordset.EOF Then MsgBox 用户名错误请重新输入 65 提示 text1.SetFocus text1.Text Text2.Text End If End Sub Private Sub Command2_Click Unload Me End Sub Private Sub Form_Load Text2.Pass
wordChar Me.Show text1.SetFocus End Sub Private Sub Picture1_Click End SubPrivate Sub Command2_Click 读者信息.Hide 图书管理.Show End Sub Private Sub Picture1_Click End Sub Private Sub Command2_ClickIndex As Integer 还书管理.Hide 图书管理.Show End Sub Private Sub Frame1_DragDropSource As Control X As Single Y As Single End SubPrivate Sub Combo1_Click Combo2.ListIndex Combo1.ListIndex End Sub Private Sub Combo2_Click Combo1.ListIndex Combo2.ListIndex End Sub Private Sub Command1_Click Dim tsxxb As New ADODB.Recordset Dim sql As String If shumu maxnum Then MsgBox 该读者借书数额已满 vbOKOnly vbExclamation Exit Sub End If sql select from tsxxb where 索引号 book_num rs_borrowbook.Fields7 是 MsgBox 本书借阅成功 vbOKOnly vbExclamation Unload Me End Sub Private Sub Command2_Click 借书管理.Hide 图书管理.Show End Sub Private Sub Form_Load Dim rs_borrow As New ADODB.Recordset Dim sql As String Dim shumu As Integer Dim maxnum As Integer End Sub Private Sub Command1_Click Dim sql As String Dim rs_add As New ADODB.Recordset If TrimText1.Text Then MsgBox 用户名不能为空 vbOKOnly vbExclamation Exit Sub Text1.SetFocus Else sql select from tzxxb If TrimText2.Text TrimText3.Text Then MsgBox 两次密码不一致 vbOKOnly vbExclamation Text2.SetFocus Text2.Text Text3.Text Exit Sub Else MsgBox 添加用户成功 vbOKOnly vbExclamation Unload Me End If End If End Sub Private Sub Command2_Click 添加用户.Hide 图书管理.Show End Sub Private Sub Form_Load End SubPrivate Sub Command1_Click Dim rs_findbook As New ADODB.Recordset Dim sql As String If Check1.Value vbChecked Then sql 书名 TrimText1.Text End If If Check3.Value vbChecked Then If Trimsql Then sql 作者 TrimText2.Text Else sql sql and 作者 TrimText2.Text End If End If If Check4.Value vbChecked Then If Trimsql Then
sql 出版社 TrimText3.Text Else sql sql and 出版社 TrimText3.Text End If End If If Check5.Value vbChecked Then If Trimsql Then sql 索引号 TrimText4.Text Else sql sql and 索引号 TrimText4.Text End If End If If Trimsql Then MsgBox 请选择查询方式 vbOKOnly vbExclamation Exit Sub End If sql select from tsxxb where sql DataGrid1.AllowAddNew False DataGrid1.AllowDelete False DataGrid1.AllowUpdate False Set DataGrid1.DataSource rs_findbook End Sub Private Sub Command2_Click 图书
查询.Hide 图书管理.Show End Sub Private Sub Command3_Click If Trimbook_num Then MsgBox 请选择要借阅的图书 vbOKOnly vbExclamation Exit Sub End If If panduan 是 Then MsgBox 此书已被借出 vbOKOnly vbExclamation Exit Sub End If End Sub Private Sub DataGrid1_RowColChangeLastRow As Variant ByVal LastCol As Integer book_num DataGrid1.Columns0.CellValueDataGrid1.Bookmark panduan DataGrid1.Columns7.CellValueDataGrid1.Bookmark End Sub Private Sub DataGrid1_Click End Sub Private Sub Form_Load Dim rs_find As New ADODB.Recordset Dim panduan As String End Sub Private Sub ghczy_Click 图书管理.Hide 添加用户.Show End Sub Private Sub ghkl_Click 图书管理.Hide 修改密码.Show End Sub Private Sub hsxx_Click 图书管理.Hide 还书管理.Show End Sub Private Sub jsgl_Click 图书管理.Hide 借书管理.Show End Sub Private Sub MDIForm_Load End Sub Private Sub tscx_Click 图书管理.Hide 图书查询.Show End Sub Private Sub tsxx_Click 图书管理.Hide 图书信息.Show End Sub Private Sub tzxx_Click 图书管理.Hide 读者信息.Show End Sub Private Sub xsxi_Click 图书管理.Hide 图书信息.Show End Sub Private Sub xtwh_Click End End SubPrivate Sub Command2_Click 图书管理.Show 图书信息.Hide End Sub Private Sub Form_Load End SubPrivate Sub Text4_Change End SubPrivate Sub Command1_Click Dim rs_chang As New ADODB.Recordset Dim sql As String If TrimText1.Text TrimText2.Text Then MsgBox 密码不一致 vbOKOnly vbExclamation Text1.SetFocus Text1.Text Text2.Text Else sql select from 系统管理 where 用户名 userID rs_chang.Fields1 Text1.Text rs_chang.Update rs_chang.Close MsgBox 密码修改成功 vbOKOnly vbExclamation Unload Me End If End Sub Private Sub Command2_Click 修改密码.Hide 图书管理.Show End Sub Private Sub Form_Load End Sub