Enabled=False
Command1.Enabled=True
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowUpdate=True
Command2:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand3_Click()
DimanswerAsString
GoTocommand3error
answer=MsgBox("确定要删除吗?",vbYesNo,"")
Ifanswer=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
DataGrid1.Refresh
MsgBox"成功删除!",vbOKCancel+vbExclamation,""
DataGrid1.AllowDelete=False
Else
ExitSub
EndIf
command3error:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand4_Click()
IfNotIsNull(DataGrid1.Bookmark)Then
DataGrid1.Refresh
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
MsgBox"操作成功!",vbOKCancel+vbExclamation,""
EndSub
PrivateSubCommand5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubForm_Load()
Command4.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifuserpow="guest"Then
Frame2.Enabled=False
EndIf
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
EndSub
窗体名:Form4
代码:
PrivateSubCommand1_Click(IndexAsInteger)
DimsqlAsString
IfCheck1.Value=vbCheckedThen
sql="书名"&Trim(Text1.Text&"")&"'"
EndIf
IfCheck2.Value=vbcheckdeThen
IfTrim(sql)=""Then
sql="类别='"&Trim(Combo1.Text&"")&"'"
Else
sql=sql&"and书名='"&Trim(Combo1.Text&"'")&"'"
EndIf
EndIf
IfCheck3.Value=vbcheckdeThen
IfTrim(sql)=""Then
sql="作者='"&Trim(Text2.Text&"")&"'"
Else
sql=sql&"and作者='"&Trim(Text2.Text&"")&"'"
EndIf
EndIf
IfCheck4.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="出版社='"&Trim(Text3.Text&"")&"'"
Else
sql=sql&"and出版社='"&Trim(Text3.Text&"")&"'"
EndIf
EndIf
IfCheck5.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="书籍编号='"&Trim(Text4.Text&"")&"'"
Else
sql=sql&"and书籍编号='"&Trim(Text4.Text&"")&"'"
EndIf
EndIf
IfTrim(sql)=""Then
MsgBox"请选择查询方式!",vbOKOnly+vbExclamation
ExitSub
EndIf
Adodc1.RecordSource="select*fromsjxxwhere"&sql
Adodc1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
IfTrim(book_num)=""Then
MsgBox"请选择要借阅的图书!",vbOKOnly+vbExclamation
ExitSub
EndIf
Ifpanduan="是"Then
MsgBox"此书已被借出!",vbOKOnly+vbExclamation
ExitSub
EndIf
Form9.Show
EndSub
PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)
IfNotAdodc1.Recordset.EOFAndAdodc1.Recordset.EOFThen
book_num=DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan=DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)
EndIf
EndSub
PrivateSubForm_Load()
DimiAsInteger
DimsqlAsString
Combo1.Clear
Adodc2.Recordset.MoveFirst
Fori=0ToAdodc2.Recordset.RecordCount-1
Combo1.AddItemAdodc2.Recordset.Fields(0).Value
Adodc2.Recordset.MoveNext
Next
Combo1.ListIndex=0
EndSub
窗体名:Form5
代码:
PrivateSubCommand1_Click()
GoTocommand1error
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowAddNew=True
DataGrid1.AllowUpdate=True
ExitSub
commanderror:
MsgBoxErr.Description
EndSub
PrivateSubCommand2_Click()
GoToCommand2
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowUpdate=True
Command2:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand3_Click()
DimanswerAsString
GoTocommand3error
answer=MsgBox("确定要删除吗?",vbYesNo,"")
Ifanswer=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
DataGrid1.Refresh
MsgBox"成功删除!",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
Else
ExitSub
EndIf
command3error:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand4_Click()
IfNotIsNull(DataGrid1.BackColor)Then
DataGrid1.Refresh
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
MsgBox"操作成功!",vbOKOnly+vbExclamation,""
EndSub
PrivateSubCommand5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew=False
DataGrid1.AllowUpdate=False
Command2.Enabled=True
Command1.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
Command5.Enabled=False
EndSub
PrivateSubForm_Load()
Command4.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifuserpow="guest"Then
Frame2.Enabled=False
EndIf
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
窗体名:Form6
代码:
PrivateSubCommand1_Click()
GoTocommanderror
Command2.Enabled=False
Command3.Enabled=False
Command1.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
DataGrid1.AllowAddNew=True
DataGrid1.AllowUpdate=True
ExitSub
command1error:
MsgBoxErr.Description
EndSub
PrivateSubCommand2_Click()
GoToCommand2
Command1.Enabled=False
Command3.Enabled=False
Command2.Enabled=False
Command4.Enabled=True
Command5.Enabled=True
Command1.Enabled=True
DataGrid1.AllowUpdate=True
Command2:
IfError.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand3_Click()
DimanswerAsString
GoTocommand3error
answer=MsgBox("确定要删除吗:",vbYesNo,"")
Ifanswer=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
EndIf
DataGrid1.Refresh
MsgBox"成功删除!",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
Else
上一篇:
vb图书管理系统vb+access版论文+源代码+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
经济酒店发展:China''s economy hotel market development strategies