TermProject.pptVIP

Term Project Jian-Chih Ou 載入資料庫 CommonDialog1.ShowOpen Form1.Caption = CommonDialog1.FileTitle conn.Open Provider=Microsoft.Jet.OLEDB.4.0; + _ Data Source= + CommonDialog1.FileName + ; + _ Persist Security Info=False rs1.ActiveConnection = conn rs1.CursorType = adOpenDynamic rs1.LockType = adLockOptimistic rs1.CursorLocation = adUseClient rs1.Open select * from student 移到第一筆 rs1.MoveFirst Command2.Enabled = True Command3.Enabled = False Call update_Text 移到下一筆 Command3.Enabled = True rs1.MoveNext If rs1.EOF = True Then rs1.MovePrevious Command2.Enabled = False MsgBox 已經是最後一筆囉 Else Call update_Text End If 修改資料 (修改cursor指向的紀錄） rs1.Fields(schoolno) = Text1.Text rs1.Fields(name) = Text2.Text rs1.Fields(phone) = Text3.Text rs1.Fields(address) = Text4.Text rs1.Update MsgBox Text2.Text 的資料修改完成 刪除資料 If MsgBox(確定要刪除 rs1.Fields(name) 的資料嗎?, vbYesNo, 警告) = vbYes Then rs1.Delete rs1.Update rs1.MoveNext If rs1.EOF = False Then … 排序 If List1.ListIndex = -1 Then MsgBox 請點選排序的條件 Exit Sub End If rs1.Sort = List1.List(List1.ListIndex) desc Call update_Text 排序(cont’d) For i = 0 To rs1.Fields.Count - 1 Form1.List1.AddItem (rs1.Fields(i).Name) Next i 跳至新增畫面 Frame1.Visible = True Frame1.Left = 0 Frame1.Top = 0 回主畫面 Frame1.Visible = False 新增資料 rs1.AddNew 新增一筆空白紀錄 rs1.Fields(schoolno) = Trim(Text9.Text) rs1.Fields(name) = Trim(Text8.Text) rs1.Fields(phone) = Trim(Text7.Text) rs1.Fields(address) = Trim(Text6.Text) rs1.Update Frame1.Visible = False Call update_Text * * Text1.text=rs1.fields(1) Text2.text=rs1.fields(2) . .