【正文】 Text1(1).Text) ”“ ThenIf str = ”“ Thenstr = ”姓名=39?！?+ Trim(Text1(1).Text)+ ”39?！癊lsestr = str + ” and 姓名=39。“ + Trim(Text1(1).Text)+ ”39?！癊nd IfEnd IfIf Trim(Text1(2).Text) ”“ ThenIf str = ”“ Thenstr = ”單位=39?！?+ Trim(Text1(2).Text)+ ”39?！癊lsestr = str + ” and 單位=39?！?+ Trim(Text1(2).Text)+ ”39?！癊nd IfEnd IfIf Trim(Text1(3).Text) ”“ ThenIf str = ”“ Thenstr = ”級別=39?！?+ Trim(Text1(3).Text)+ ”39。“Elsestr = str + ” and 級別=39?！?+ Trim(Text1(3).Text)+ ”39?！癊nd IfEnd IfIf Trim(Text1(4).Text) ”“ ThenIf str = ”“ Thenstr = ”性別=39?！?+ Trim(Text1(4).Text)+ ”39。“Elsestr = str + ” and 性別=39?！?+ Trim(Text1(4).Text)+ ”39?！癊nd IfEnd IfIf str ”“ Then = ”select * from reader where “ + strElse = ”select * from reader“End IfIf = 0 ThenMsgBox ”沒有任何滿足條件的記錄“, vbOKOnly, ”信息提示“End IfCall enm End SubPrivate Sub selcmd2_Click()39。設(shè)置條件重置Text1(0).Text = ”“Text1(1).Text = ”“Text1(2).Text = ”“Text1(3).Text = ”“Text1(4).Text = ”“ End SubPrivate Sub enm()39。自定義子過程:判斷Adodc1中是否存在記錄If = 0 Then = FalseElse = TrueEnd If End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End SubRetbook：Public rno As String Public bno As StringPrivate Sub Comm1_Click()bno = Trim()If bno ”“ ThenDim sqltxt As Stringsqltxt = ”select * from borrow where 圖書編號=39。“ + bno + ”39?！癝et brs = exesql(sqltxt)If = 0 ThenMsgBox ”該書不是從本圖書館所借的,不能歸還!“, vbOKOnly, ”信息提示“ElseIf Trim((”借書證號“)) rno ThenIf rno ”“ Then39。另一讀者還書,自動列出上一個還書人的罰款單dstr = ”罰款單“ + Chr(10)+ Chr(13)dstr = dstr amp。 ”姓名:“ amp。 Trim(Text2(1).Text)+ ”(“ + rno + ”)罰款總額:“ amp。 str(Text2(4).Text)amp。 ”元“MsgBox dstr, vbOKOnly, ”列罰款單“End Ifrno = Trim((”借書證號“))sqltxt = ”select * from book where 圖書編號=39?！?+ bno + ”39。“ 39。處理圖書記錄Set bs = exesql(sqltxt)(”借否“)= ”否“sqltxt = ”select * from reader where 借書證號=39?！?+ rno + ”39?！?39。處理讀者記錄Set rs = exesql(sqltxt)(”已借書數(shù)“)= (”已借書數(shù)“)(”已借書數(shù)“)If((”借書日期“)1If((”借書日期“)1Call enmEnd If End SubPrivate Sub Comm4_Click()Unload Me End SubPrivate Sub enm()If recs = 0 Then = False = FalseElse = True = TrueEnd If End SubSetuser1：Dim cond As StringPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenSendKeys ”{TAB}“End If End SubPrivate Sub Form_Load()If flag = 2 ThenText1(0).Text = (”用戶名“)Text1(1).Text = (”口令“) = (”級別“)End If End SubPrivate Sub Comm1_Click()If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim()= ”“ ThenMsgBox ”數(shù)據(jù)項不全,請重新設(shè)置“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfIf flag = 1 Then 39。添加操作If 0 Then 39。原記錄個數(shù)大于0cond = ”級別=39?！?+ Trim(Text1(0).Text)+ ”39?！?9。每次從頭開始查找(cond)If Not ()ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“Text1(0).SetFocusExit SubEnd IfEnd If(”用戶名“)= Trim(Text1(0).Text)(”口令“)= Val(Trim(Text1(1).Text))(”級別“)= Trim()recs = recs + 1Else39。修改操作n = cond = ”級別=39?！?+ Trim(Text1(0).Text)+ ”39?！?39。每次從頭開始查找(cond)If Not ()And n ThenMsgBox ”存在完全相同的記錄“, vbOKOnly, ”信息提示“39。這兩個語句恢復(fù)原記錄位置(n1)(”用戶名“)= Trim(Text1(0).Text)(”口令“)= Val(Trim(Text1(1).Text))(”級別“)= Trim()End IfUnload Me End SubPrivate Sub Comm2_Click()Unload Me End SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)Call endata(KeyAscii)End Sub模塊：Public userlevel As String 39。保存用戶級別Public flag As Integer39。用作記錄操作標記Public tna As String39。保存表名:用于調(diào)用edrec1窗體 Public cap As String39。保存標題名:用于調(diào)用edrec1窗體 Public recs As Integer39。保存記錄集中記錄個數(shù)Sub main() vbModal End SubPublic Function exesql(ByVal sql As String)As sql = Trim$(sql)Set conn = New Set rst = New = ”DSN=Library。UID=sa。PWD=?！癝et = conn = adLockOptimistic = adOpenKeyset sqlSet exesql = rstSet rst = NothingSet conn = Nothing End FunctionPublic Sub deldata(ByVal tn As String)刪除指定表中所有記錄,對于oper表添加一個系統(tǒng)用戶Dim sql As Stringsql = ”delete “ amp。 Trim$(tn)Set conn = New = ”DSN=Library。UID=sa。PWD=?！?sqlIf Trim(tn)= ”oper“ Thensql = ”insert oper values(39。123439。,39。123439。,39。系統(tǒng)管理員39。)“ sqlEnd If End Sub Public Sub endata(Keyasc As Integer)If Keyasc = 13 ThenSendKeys ”{TAB} 39。將回車鍵轉(zhuǎn)換成Tab鍵End If End Sub第五篇：VB學(xué)生管理系統(tǒng)主要代碼主要代碼如下：Dim As New Dim rst0 As New Dim rst1 As New Dim rst2 As New Dim rst3 As New Private Sub Cmd0add_Click() = False = True = False = True End SubPrivate Sub Cmd0del_Click() = True = True = False = True x = MsgBox(“確定要刪除嗎”, vbYesNoCancel + vbQuestion, “確認”)If x = vbYes Then End SubPrivate Sub Cmd0Exit_Click() Unload Me End SubPrivate Sub Cmd0save_Click() = True = False = True = True = “應(yīng)聘人編號” End SubPrivate Sub Cmd1Exit_Click() Unload Me End Sub Private Sub Cmd1Import_Click() For i = 1 To (“應(yīng)聘人編號”)= (“應(yīng)聘人編號”) Next i 39。 = False39。 = True39。 = TrueEnd SubPrivate Sub Cmd1OK_Click()(“綜合評分”)=(Val((“計算機能力”))+ (“業(yè)務(wù)能力”))* If (“綜合評分”)= 6 Then(“初選狀態(tài)”)= “通過”Else(“初選狀態(tài)”)= “未通過”End If = “應(yīng)聘人編號” End SubPrivate Sub Cmd2Exit_Click() Unload Me End SubPrivate Sub Cmd2Import_Click() “select * from 初選表 where 初選狀態(tài)=39。通過39?！? For i = 1 To (“應(yīng)聘人編號”)= (“應(yīng)聘人編號”)(“初選評分”)= (“綜合評分”) Next i = False End SubPrivate Sub Cmd2OK_Click()(“綜合評分”)=((“初選評分”)+ (“外表形象”)+ (“領(lǐng)悟反應(yīng)能力”))/ 3 If (“綜合評分”)= 6 Then(“錄用情況”)= “通過” Else(“錄用情況”)= “未通過” End If = “應(yīng)聘人編號” End SubPrivate Sub Cmd3Exit_Click() Unload Me End SubPrivate Sub Cmd3Import_Click() “selsct * from 面試表 where 錄用情況= 39。通過39。” For i = 1 To (“應(yīng)聘人編號”)= (“應(yīng)聘人編號”)(“面試分”)= (“綜合評分”)(“開始錄用時間”)= Date Next i = False End SubPrivate Sub Cmd3OK_Click()(“綜合考核分”)=((“面試分”)+ (“筆試分”))/ 2 If (“綜合考核分”)= 6 Then(“是否錄用”)= “是”Else(“是否錄用”)= “否”End If = “應(yīng)聘人編號” End SubPrivate Sub cxtg_Click() 1 End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load() = “DSN=xsgl。name=sa。pass=sa” = adUseClient = adLockPessimistic = adLockPessimistic = adLockPessimistic = adLockPessimistic “select * from 登記表”, Set = rst0 “select * from 初選表”, Set = rst1 If 0 Then = False End If “select * from 面試表”, Set = rst2 If 0 Then = False End If “select * from 錄用表”, Set = rst3 If 0 Then = False End If End Sub 學(xué)生基本信息瀏覽窗口主要代碼如下：string sql = (“select P_id from Tb_popedom order by P_id desc”)。if( == ){()。}SqlCommand c = new SqlCommand(sql, )。SqlDataReader reader = ()。if(()){string id = reader[“P_id”].ToString()。 =(((1,()))+ 1)+ “。}()。()。////加載一級菜單sql = ”select * from Tb_function where F_level=39。139。“。if( == ){()。}sda = new SqlDataAdapter(sql, )。(ds, ”fun)。……}