【正文】 \) SQLs = Select * from TouShu Set Rs = (SQLs, dbOpenSnapshot) On Error Resume Next While Not Set itmX = = (投訴編號(hào)) (1) = (投訴住戶) (2) = (接待人員) (3) = (投訴日期) (4) = (投訴內(nèi)容) (5) = (處理人員) (6) = (處理情況) Wend Set itmX = Nothing Set Rs = Nothing Set Db = Nothing Set Ws = NothingEnd FunctionPrivate Function AddTouShu() As Boolean 39。(住戶編號(hào)) = (戶主名稱) = (聯(lián)系電話) = (樓宇名稱) = (樓層) = (房屋號(hào)) = (單元) = (遷入日期) = (房型) = (備注) = ，以保存數(shù)據(jù) MsgBox 修改成功!, 64, 小區(qū)物業(yè)管理系統(tǒng) UpdateBaseInfo = True Else MsgBox 無(wú)此住戶信息!, 64, 小區(qū)物業(yè)管理系統(tǒng) UpdateBaseInfo = False End If //關(guān)閉數(shù)據(jù)庫(kù)對(duì)象 Set Rs = Nothing //釋放存儲(chǔ)空間 Set Db = Nothing Set Ws = NothingEnd FunctionPrivate Sub SetButton(ByVal bolStatue As Boolean) = bolStatue //設(shè)定新增、刪除、修改按鈕的有效性 = bolStatue = bolStatueEnd SubPrivate Sub SetInputBox //清輸入框?yàn)榭?) = //清空Text控件，以便輸入數(shù)據(jù) = = = = = = = = End SubPrivate Sub ListView1_Click() //ListView單擊事件Call GetData //調(diào)用此方法，將當(dāng)前記錄值，存入text的對(duì)應(yīng)控件End SubPrivate Sub GetData() //從當(dāng)前記錄獲取數(shù)據(jù) On Error Resume Next With = .Text //獲取數(shù)據(jù)住戶投訴功能管理代碼：Private Sub InitList1() With .Add , , 投訴編號(hào), 1000 .Add , , 投訴住戶, 1000 .Add , , 接待人員, 1000 .Add , , 投訴日期, 1000 .Add , , 投訴內(nèi)容, 2000 .Add , , 處理人員, 1000 .Add , , 處理情況, 2000 End WithEnd SubPrivate Sub Command1_Click() intType = 1 = True = True SetButton (False) SetInputBoxEnd SubPrivate Sub Command2_Click() DelTouShu Call ListTouShu(ListView1)End SubPrivate Sub Command3_Click() intType = 2 = True = True Call SetButton(False)End SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub Command5_Click() If intType = 1 Then If AddTouShu Then SetButton (True) = False = False Call ListTouShu(ListView1) End If ElseIf intType = 2 Then If UpdateTouShu Then Call ListTouShu(ListView1) SetButton (True) = False = False End If End IfEnd SubPrivate Sub Command6_Click() SetButton (True) = False = FalseEnd SubPrivate Sub Command7_Click() FormChoose = 2 Load frmChooseUserEnd SubPrivate Sub Form_Load() InitList1 SetInputBox Call ListTouShu(ListView1) = False = FalseEnd SubPrivate Sub SetInputBox() = = = = = = End SubPrivate Sub SetButton(ByVal bolStatue As Boolean) = bolStatue = bolStatue = bolStatueEnd SubPrivate Function ListTouShu(ByRef ListView As ListView) 39。 39。 amp。修改住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) //創(chuàng)建到數(shù)據(jù)庫(kù)的連接 Set Db = ( amp。 39。 amp。刪除住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0)//創(chuàng)建到數(shù)據(jù)庫(kù)的連接 Set Db = ( amp。
39。 amp。添加住戶信息 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Set Ws = (0) //創(chuàng)建到數(shù)據(jù)庫(kù)的連接 Set Db = ( amp。*主要代碼如下：**************************/Private Sub Command1_Click() //新增按鈕單擊事件 intType = 1 //當(dāng)前執(zhí)行新增操作 = True //使控件有效，可訪問(wèn) = True SetButton (False) //設(shè)定按鈕不可訪問(wèn) SetInputBox //清輸入框?yàn)榭誆nd SubPrivate Sub Command2_Click() //刪除按鈕單擊事件 DelBaseInfo //實(shí)現(xiàn)數(shù)據(jù)庫(kù)記錄刪除 Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù)End SubPrivate Sub Command3_Click() intType = 2 //當(dāng)前執(zhí)行修改操作 = True //使控件有效，可訪問(wèn) = True Call CSetButton(False) //設(shè)按鈕不可用End SubPrivate Sub Command4_Click() Unload Me //釋放自己，結(jié)束運(yùn)行End SubPrivate Sub Command5_Click() If intType = 1 //當(dāng)前執(zhí)行新增操作 Then If AddBaseInfo = True Then Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = False End If ElseIf intType = 2 //當(dāng)前執(zhí)行修改操作 Then If UpdateBaseInfo Then Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = False End If End IfEnd SubPrivate Sub Command6_Click() //放棄文本框中輸入數(shù)據(jù) SetButton (True) //設(shè)按鈕可用 = False //設(shè)按鈕不可用 = FalseEnd SubPrivate Sub Form_Load() Call SetInputBox //清輸入框?yàn)榭? Call InitList1 //初始化ListView Call ListBaseInfo(ListView1) //在ListView中顯示數(shù)據(jù) = False //設(shè)按鈕不可用 = FalseEnd SubPrivate Sub InitList1() //初始化ListView控制，標(biāo)題欄 With .Add , , 住戶編號(hào), 1000 //調(diào)用增加方法，錄入 .Add , , 戶主名稱, 1000 .Add , , 聯(lián)系電話, 1000 .Add , , 樓宇名稱, 1000 .Add , , 樓層, 1000 .Add , , 房屋號(hào), 1000 .Add , , 單元, 1000 .Add , , 遷入日期, 1000 .Add , , 房型, 1000 .Add , , 備注, 1000 End WithEnd SubPrivate Function ListBaseInfo(ByRef ListView As ListView) //列出住戶信息,以便新增到ListView控件中 Dim Ws As Workspace //定義變量 Dim Db As Database Dim Rs As Recordset Dim SQLs As String Dim itmX As ListItem Set Ws = (0) //創(chuàng)建到數(shù)據(jù)庫(kù)的連接 Set Db = ( amp。 39。 amp。 39。 amp。附 錄/***************************登錄代碼：*************************/Private Sub Command1_Click() //新增按鈕單擊事件 //確定按鈕事件 If CheckLogin Then ，則隱去登錄窗體，顯示主界面 Else MsgBox (用戶名或密碼錯(cuò)) //顯示出錯(cuò)信息 End IfEnd SubPrivate Function CheckLogin() As Boolean //登錄檢查函數(shù)