數(shù)據(jù)庫課程設計--房產(chǎn)信息管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：29 大?。?.91MB 人氣指數(shù)：12 舉報 版權(quán)申訴

數(shù)據(jù)庫課程設計--房產(chǎn)信息管理系統(tǒng)_第1頁

已閱讀1頁，還剩28頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領

文檔簡介

1、　　摘要　　本系統(tǒng)的主要功能是客房信息的管理及對各種信息的查詢，增加，修改，更新。本系統(tǒng)的數(shù)據(jù)庫是用SQL server 2000軟件進行創(chuàng)建與設計，分別包括客房信息，客戶信息，職工信息和系統(tǒng)信息四個表。通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對系統(tǒng)的窗口進行設計，包括歡迎界面、登陸界面、注冊新用戶界面、

2、主菜單界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進行登陸操作，對輸入的用戶信息進行驗證，和注冊新用戶操作，以及最重要的操作是對數(shù)據(jù)庫中信息進行瀏覽與查詢。并可以對數(shù)據(jù)進行添加與刪除，做到及時更新。　　關鍵詞：房產(chǎn)信息管理 SQL server 2000 VB　　摘要1<

3、;p>　　第1章系統(tǒng)功能概述2　　1.1 系統(tǒng)功能2　　1.2 系統(tǒng)結(jié)構(gòu)總圖3　　第2章數(shù)據(jù)庫設計3　　2.1 需求分析3　　2.2 E-R模型4　　2.

4、3 關系模型6　　2.4 表結(jié)構(gòu)設6　　第3章系統(tǒng)各功能模塊的詳細設計7　　3.1各窗體的設計7　　3.1.1 封面…………………………………………………………………………...7　　3.1.2登錄………………………

5、……………………………………………………8　　3.1.3 主菜單…………………………………………………………………………9　　3.1.4 注冊新用戶窗體……………………………………………………………..11　　3.1.5 密碼找回窗體………………………………………………………………..12

6、　　總結(jié)28　　參考文獻28　　第1章系統(tǒng)功能概述　　1.1 系統(tǒng)功能　?。?）．房產(chǎn)信息的管理<p

7、>　?。?）．信息增、刪、改　?。?）．房產(chǎn)信息查詢　　（4）．用戶登錄系統(tǒng)及密碼找回　　1.2 系統(tǒng)結(jié)構(gòu)總圖　　第2章數(shù)據(jù)庫設計　　2.1 需求分析&l

8、t;p>　　建立一套功能完善的管理信息系統(tǒng)，既能滿足業(yè)務人員日常處理的需要，增強企業(yè)經(jīng)營全過程的數(shù)字化管理水平；又能滿足管理人員決策分析的需要，提高公司管理層對公司經(jīng)營反饋信息的響應速度。從而大幅度提高工作效率，提高實施管理的準確性、科學性，使擔負管理的工作人員從繁雜的手工勞作中解脫出來。因而程序需要實現(xiàn)的功能有如下：　　樓盤信息管理：樓盤信息查詢、添加、刪除操作。

9、　　樓房信息管理：樓房信息查詢、添加、刪除操作。　　戶型信息管理：戶型信息查詢、添加、刪除操作。　　系統(tǒng) 管理：注冊用戶信息及密碼找回系統(tǒng)。　　2.2 E-R模型　　2.3 關系模型

10、　　一個實體型轉(zhuǎn)換為一個關系模式。實體的屬性就是關系的屬性，實體的碼就是關系的碼。根據(jù)E-R圖向關系模型轉(zhuǎn)換的原則，把E-R圖轉(zhuǎn)換為關系模型。關系的碼用下橫線標出。　?。?）．樓盤信息（樓盤編號、樓盤名稱、位置、總建筑面積）　?。?）．樓房信息（樓號、單元號、樓層、房號、單價、樓盤編號）　?。?

11、）．戶型信息（戶型編號、戶型結(jié)構(gòu)、建筑面積、套內(nèi)面積、戶型簡介、樓號）　　（4）．系統(tǒng)信息（用戶名、密碼、性別、員工號、密保提問、密保答案）　　2.4 表結(jié)構(gòu)設　　本系統(tǒng)需在SQL Server中建立四個表，分別為樓盤信息，樓房信息，戶型信息和系統(tǒng)信息

12、　　（1）樓盤信息表的建立與基本數(shù)據(jù)：　　SQL 語句如下：　　create table 樓盤信息　　(樓盤編號 varchar(50)primary key,　　樓盤名稱varchar(50),位置varchar

13、(50),總建筑面積varchar(50),　　foreign key (房號)references 客房信息(房號)　　);　?。?）樓房信息表的建立與基本數(shù)據(jù)：　　SQL 語句如下：</

14、p>　　create table 樓房信息　　(樓號varchar(50)primary key,　　單元號varchar(50),樓層varchar(50),房號varchar(50),單價varchar(50),　　);

15、　　戶型信息表的建立與基本數(shù)據(jù)：　　SQL 語句如下：　　create table 戶型信息　　(戶型編號varchar(50)primary key,　　戶型結(jié)構(gòu)varchar(50),建筑面積varchar(50

16、),套內(nèi)面積varchar(50),戶型簡介varchar(50),　　);　　系統(tǒng)信息表的建立與基本數(shù)據(jù)：　　SQL語句如下：　　Create table 系統(tǒng)信息<

17、;p>　　(用戶名 varchar(50），密碼 varchar(50)，員工號varchar(50)，密保提問varchar(50)，　　密保答案varchar(50)，性別varchar(50));　　第3章系統(tǒng)各功能模塊的詳細設計　　3.1各窗體的設計</

18、p>　　本房產(chǎn)信息管理系統(tǒng)共包括15個窗體，分別為歡迎界面，登錄窗體，用戶注冊，管理窗體，戶型信息，樓盤信息，樓房信息，戶型信息添加，樓盤信息添加，樓房信息添加，密碼顯示，密碼找回，密碼找回B，用戶管理，視圖查詢，歡迎窗口，其中主窗體為管理窗體。　　下面介紹各個窗體的設計語句及實現(xiàn)功能。　　3.1.1 封面&

19、lt;/b>　　封面，如圖3.2.1，標題為“房產(chǎn)信息管理系統(tǒng)”，為此標題添加一個Timer，編輯代碼使其可以定時變色。點擊鼠標左鍵就可以關閉本窗體并打開登錄窗體。　　封面代碼如下：　　Private Sub Timer1_Timer()

20、 Private Sub Label1_Click()　　Static n As Integer 登錄窗口.Show　　n = n + 1 Unload Me　　If n > 15 Th

21、en End Sub　　n = 0　　End If　　Label1.ForeColor = QBColor(n)　　E

22、nd Sub　　3.1.2登錄　　將打開“登錄”對話框，用戶輸入用戶名和密碼，如圖3.2.2，若正確則打開下面的主窗體，如圖3.2.3。登錄代碼如下：　　Dim miCount As Integer '用于記錄輸入密碼次數(shù)

23、　　Private Sub CmdLand_Click()　　Dim SQLStr As String　　SQLStr = "Select * From 系統(tǒng)信息 Where 用戶名= '" & Text1.Text & "'"<p

24、>　　Adodc1.RecordSource = SQLStr　　Adodc1.Refresh　　If Adodc1.Recordset.BOF Then '若沒找到符合Where條件的記錄　　MsgBox "用戶名錯誤，重新輸入", vbExclamation, "

25、警告"　　Text1.Text = ""　　Text1.SetFocus ' Text1獲得焦點　　Else　　If Adodc1.Recordset.Fields("密碼&qu

26、ot;) = Text2 Then　　登錄窗口.Hide　　管理窗體.Show　　Else　　MsgBox "密碼錯誤，重新輸入 ", v

27、bExclamation, "警告"　　Text2.Text = ""　　Text2.SetFocus　　End If　　End If

28、　　miCount = miCount + 1　　If miCount = 3 Then Unload Me　　End Sub　　Private Sub CmdCancel_Click() Private Sub CmdZH_Clic

29、k()　　Unload Me Unload Me　　End Sub End Sub　　Private Sub Form_Load() Private

30、Sub Form_Unload(Cancel As Integer)　　'Initialize each button color. RemoveButton CmdLand.hWnd　　SetButton CmdLand.hWnd, vbRed RemoveButton Cmd

31、Cancel.hWnd　　SetButton CmdCancel.hWnd, vbRed End Sub　　End Sub　　Private Sub 找回_Click() Private Sub 注冊

32、_Click()　　密碼找回.Show 用戶注冊.Show　　Unload Me Unload Me　　End Sub

33、　　3.1.3 主菜單　　設計為MDI窗體如圖3.2.3，含有主菜單：[文件]、[查詢]、[添加]。　　[文件]菜單包含以下子菜單及其功能：　　[登錄]菜單：打開“登錄”窗體　　[用戶管理]：打開“用戶管理”窗體

34、　　[退出]：回到程序最初狀態(tài)即回到歡迎界面。　　[查詢] 包含以下子菜單：　　[視圖查詢]菜單：顯示“視圖查詢”窗體　　[圖表查詢]包含以下子菜單：　　[樓盤信息查詢] 菜單：顯示“樓盤信息”窗體<

35、p>　　[戶型信息查詢] 菜單：顯示“戶型信息”窗體　　[樓房信息查詢] 菜單：顯示“樓房信息”窗體　　[添加]包含以下子菜單：　　[樓盤信息添加]菜單：顯示“樓盤信息添加”窗體　　[樓房信息添加]菜單：顯示“樓房信息添加”窗體<p&g

36、t;　　[戶型信息添加]菜單：顯示“戶型信息添加”窗體　　代碼如下：　　Private Sub MDIForm_Load()　　Dim str As String　　str = " Select * From 系統(tǒng)信息

37、 Where 系統(tǒng)信息.用戶名 = '" & Trim(登錄窗口.Text1.Text) & "'"　　Adodc1.RecordSource = str　　Adodc1.Refresh　　If Adodc1.Recordset.Fields(&quo

38、t;職權(quán)") = "1" Then　　mYH.Enabled = True　　Else: mYH.Enabled = False　　End If　　End Sub&l

39、t;/p>　　Private Sub mHX_Click() Private Sub mDengLu_Click()　　戶型信息.Show 登錄窗口.Show　　Unload Me

40、 Unload Me　　End Sub End Sub　　Private Sub mLF_Click() Private Sub mLP_Click()　　樓房信息.Show

41、樓盤信息.Show　　Unload Me Unload Me　　End Sub End Sub　　Private Sub mHXT_Cl

42、ick() Private Sub mLFT_Click()　　戶型信息.Show 樓房信息.Show　　Unload Me Unload Me　　End

43、 Sub End Sub　　Private Sub mLPT_Click() Private Sub mSChaXun_Click()　　樓盤信息.Show 視圖查詢.Show</p&g

44、t;　　Unload Me Unload Me　　End Sub End Sub　　Private Sub mTuiChu_Click() Private Sub mY

45、H_Click()　　歡迎窗體.Show 用戶管理.Show　　Unload Me Unload Me　　End Sub

46、 End Sub　　3.1.4 注冊新用戶窗體　　注冊新用戶窗體用于添加新的用戶名和密碼。單擊“注冊新用戶”菜單，打開對話框。　　若輸入正確，則將入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關閉本窗體，如圖3.2.4，圖3.2.5。代碼如下：　　Private

47、 Sub 提交_Click()　　Dim SQLStr As String　　If Text1 = "" Then　　MsgBox "請輸入用戶名！", vbExclamation, "確認用戶名"　　Text1

48、.SetFocus　　Exit Sub　　Else　　SQLStr = "Select * from 系統(tǒng)信息 where 用戶名='" & Text1 & "'"&

49、lt;/p>　　Adodc1.RecordSource = SQLStr　　Adodc1.Refresh　　If Adodc1.Recordset.EOF = False Then　　MsgBox "用戶名已存在，請重新輸入！", vbExclamation, &q

50、uot;檢驗用戶名"　　Text1 = ""　　Text1.SetFocus　　Exit Sub　　End If<b&

51、gt;　　End If　　If Text2 <> Text3 Then　　MsgBox "二次輸入的密碼不一致，請重新輸入", vbExclamation, "檢驗密碼"　　Text2 = "": Text3 = &quo

52、t;"　　Text2.SetFocus　　Exit Sub　　ElseIf Text2 = "" Then　　MsgBox "密碼不能為空！", vbExclamation, &quo

53、t;檢驗密碼"　　Text2.SetFocus　　Else　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("用戶名") = Trim(Text1)&l

54、t;/p>　　Adodc1.Recordset.Fields("密碼") = Trim(Text2)　　Adodc1.Recordset.Fields("員工號") = Trim(Text4)　　Adodc1.Recordset.Fields("密保提問") = Tr

55、im(Text5)　　Adodc1.Recordset.Fields("密保答案") = Trim(Text6)　　Adodc1.Recordset.Update　　Me.Hide　　MsgBox "成功

56、注冊新用戶！", vbInformation, "添加用戶"　　登錄窗口.Show　　End If　　End Sub　　Priv

57、ate Sub 取消_Click()　　登錄窗口.Show　　Unload Me　　End Sub　　3.1.5 密碼找回窗體<

58、p>　　密碼找回窗體用于用戶在密碼丟失和遺忘是找回密碼。單擊“密碼找回”菜打開對話框。　　若輸入正確，則將在數(shù)據(jù)庫中查找相應密保提問，并打開“密碼找回b”窗體在窗體中現(xiàn)實密保提問如密保答案回答正確提示“密碼找回成功”打開“密碼現(xiàn)實”窗體顯示密碼點擊“返回”按鈕關閉本窗體打開“用戶登錄”窗體，代碼如下：　　Private Sub 取消_Click()

59、　　登錄窗口.Show　　Unload Me　　End Sub　　Private Sub 提交_Click()　　D

60、im SQLStr As String　　SQLStr = "Select * From 系統(tǒng)信息 Where 用戶名= '" & Text1.Text & "'"　　Adodc1.RecordSource = SQLStr　　Adodc1.

61、Refresh　　If Adodc1.Recordset.BOF Then '若沒找到符合Where條件的記錄　　MsgBox "用戶名錯誤，重新輸入", vbExclamation, "警告"　　Text1.Text = ""</p&g

62、t;　　Text1.SetFocus ' Text1獲得焦點　　Else　　If Adodc1.Recordset.Fields("員工號") = Text2 Then　　密碼找回.Hide</

63、b>　　密碼找回b.Show　　Else　　MsgBox "員工號錯誤，重新輸入 ", vbExclamation, "警告"　　Text2.Text = ""<

64、/p>　　Text2.SetFocus　　End If　　End If　　miCount = miCount + 1　　If miCount = 3 Then Unlo

65、ad Me　　End Sub　　Private Sub Form_Load()　　Dim str As String　　str = " Select * From 系統(tǒng)信息 Where 系統(tǒng)信息.用戶名 = '

66、" & Trim(密碼找回.Text1.Text) & "'"　　Adodc1.RecordSource = str　　Adodc1.Refresh　　End Sub　　Priva

67、te Sub 取消_Click()　　密碼找回.Show　　Unload Me　　End Sub　　Private Sub 提交_Click()</p&

68、gt;　　Dim SQLStr As String　　SQLStr = " Select * From 系統(tǒng)信息 Where 系統(tǒng)信息.用戶名 ='" & Trim(密碼找回.Text1.Text) & "'"　　Adodc1.RecordSource =

69、 SQLStr　　Adodc1.Refresh　　If Adodc1.Recordset.Fields("密保答案") = Text6 Then　　密碼顯示.Show　　Unload Me<

70、/b>　　Else　　MsgBox "答案輸入錯誤，重新輸入 ", vbExclamation, "警告"　　Text6.Text = ""　　Text6.SetFoc

71、us　　End If　　miCount = miCount + 1　　If miCount = 3 Then Unload Me　　End Sub　　Pr

72、ivate Sub Form_Load()　　Dim str As String　　str = " Select * From 系統(tǒng)信息 Where 系統(tǒng)信息.用戶名 ='" & Trim(密碼找回.Text1.Text) & "' "

73、　　Adodc1.RecordSource = str　　Adodc1.Refresh　　End Sub　　Private Sub 返回_Click()　　登錄窗口.Show

74、　　Unload Me　　End Sub　　3.1.6視圖查詢窗體　　可以在所選信息中進行深入查詢，如在DataGrid1中點擊需要的樓盤數(shù)據(jù)則在DataGrid2中會現(xiàn)實相對應的樓房信息?？梢园锤鞣N條件查找，且具有模

75、糊查詢功能，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容如圖3.2.6所示，單擊[查詢]按鈕，查詢結(jié)果、代碼如下：　　Private Sub Cmd1_Click()　　Dim str As String　　str = "select * from 樓盤信息"&l

76、t;/p>　　str = str & " Where 樓盤信息." & Combo1.Text & " Like'" & Text2 & "%' "　　Adodc1.RecordSource = str　　Ado

77、dc1.Refresh　　End Sub　　Private Sub Command2_Click()　　管理窗體.Show　　Unload Me</p&

78、gt;　　End Sub　　Private Sub Form_Load()　　Combo1.AddItem "樓盤編號" '　　Combo1.AddItem "樓盤名稱"<

79、p>　　Combo1.AddItem "位置"　　Combo1.AddItem "總建筑面積"　　Text2.Text = "" ' 清空文本框　　End Sub</p&g

80、t;　　Private Sub DataGrid1_Click()　　Dim SQLStr As String　　SQLStr = "Select * From 樓房信息 Where 樓盤編號 = '" & Adodc1.Recordset.Fields("樓盤編號") &am

81、p; "'"　　Adodc2.RecordSource = SQLStr ' 設置Adodc 2連接的記錄源　　Adodc2.Refresh　　End Sub　　Private Sub Data

82、Grid2_Click()　　Dim SQLStrb As String　　SQLStrb = "Select * From 戶型信息 Where 樓號 = '" & Adodc2.Recordset.Fields("樓號") & "'"&

83、lt;p>　　Adodc3.RecordSource = SQLStrb ' 設置Adodc 3連接的記錄源　　Adodc3.Refresh　　End Sub　　3.1.7三種圖表型信息查詢窗體　　可以按各種條件查找

84、，且具有模糊查詢功能，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容如圖3.2.6所示，單擊[查詢]按鈕，查詢結(jié)果、代碼如下：　　Private Sub CmdBack_Click() Private Sub cmdSR_Click()　　管理窗體.Show

85、樓房信息.Show　　Unload Me Unload Me　　End Sub End Sub　　Private Sub Fo

86、rm_Load() CmdNext.Enabled = True ' [后移]按鈕有效　　Text1.Locked = True CmdLast.Enabled = True ' [末記錄]按鈕有效　　Text2.Locked = T

87、rue CmdFirst.Enabled = False ' [首記錄]按鈕無效　　Text3.Locked = True CmdPre.Enabled = False ' [前移]按鈕無效　　Text4.Locked = T

88、rue　　Combo1.AddItem "樓盤編號" '　　Combo1.AddItem "樓盤名稱"　　Combo1.AddItem "位置"　　Combo1.AddItem "總建筑面積

89、"　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub<

90、p>　　Private Sub CmdFirst_Click()　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）　　CmdFirst.Enabled = False ' 讓[首記錄]按鈕無效　　CmdPre.Enabled = Fal

91、se ' 讓[前移]按鈕無效　　CmdNext.Enabled = True ' 讓[后移]按鈕有效　　CmdLast.Enabled = True ' 讓[末記錄]按鈕有效　　'在Label6上顯示當前記錄號/記錄總數(shù)：<

92、p>　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub　　Private Sub Cmd

93、Pre_Click()　　Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄　　CmdNext.Enabled = True　　CmdLast.Enabled = True　　If Adodc1.Recordset.BOF T

94、hen ' 如果記錄指針移到首記錄之前,　　Adodc1.Recordset.MoveFirst '則記錄指針移到首記錄上　　CmdFirst.Enabled = False　　CmdPre.Enabled = False　　En

95、d If　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub</p&g

96、t;　　Private Sub CmdNext_Click()　　Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄　　CmdFirst.Enabled = True　　CmdPre.Enabled = True

97、If Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后　　Adodc1.Recordset.MoveLast '則記錄指針移到末記錄上　　CmdNext.Enabled = False　　CmdLast.Enabled = False&

98、lt;p>　　End If　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End

99、Sub　　Private Sub CmdLast_Click()　　Adodc1.Recordset.MoveLast ' 移到末記錄　　CmdFirst.Enabled = True　　CmdPre.Enabled = True</p&

100、gt;　　CmdNext.Enabled = False　　CmdLast.Enabled = False　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Records

101、et.RecordCount　　End Sub　　Private Sub Cmd1_Click()　　Dim str As String　　str = "select * from 樓盤信息"

102、　　str = str & " Where 樓盤信息." & Combo1.Text & " Like'" & Text8 & "%' "　　Adodc1.RecordSource = str　　Adodc1.Refre

103、sh　　Private Sub CmdBack_Click() Private Sub cmdSR_Click()　　管理窗體.Show 戶型信息.Show　　Unload Me

104、 Unload Me　　End Sub End Sub　　Private Sub Form_Load() CmdNext.Enabled = True ' [后移]按鈕有效<

105、/p>　　Text1.Locked = True CmdLast.Enabled = True ' [末記錄]按鈕有效　　Text2.Locked = True CmdFirst.Enabled = False ' [首記錄]按鈕無效<

106、;/p>　　Text3.Locked = True CmdPre.Enabled = False ' [前移]按鈕無效　　Text4.Locked = True　　Combo1.AddItem "樓號" '

107、　　Combo1.AddItem "單元號"　　Combo1.AddItem "樓層"　　Combo1.AddItem "房號"　　Combo1.AddItem "單價"

108、Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub　　Private Sub CmdFirst_C

109、lick()　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）　　CmdFirst.Enabled = False ' 讓[首記錄]按鈕無效　　CmdPre.Enabled = False ' 讓[前移]按鈕無效</p

110、>　　CmdNext.Enabled = True ' 讓[后移]按鈕有效　　CmdLast.Enabled = True ' 讓[末記錄]按鈕有效　　'在Label6上顯示當前記錄號/記錄總數(shù)：　　Label6.Caption = "

111、;記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub　　Private Sub CmdPre_Click()<p&

112、gt;　　Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄　　CmdNext.Enabled = True　　CmdLast.Enabled = True　　If Adodc1.Recordset.BOF Then ' 如果記錄指針移到首記錄之前,<

113、/p>　　Adodc1.Recordset.MoveFirst '則記錄指針移到首記錄上　　CmdFirst.Enabled = False　　CmdPre.Enabled = False　　End If<

114、;p>　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub　　Private Sub Cm

115、dNext_Click()　　Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄　　CmdFirst.Enabled = True　　CmdPre.Enabled = True　　If Adodc1.Recordset.EOF Then

116、' 如果記錄指針移到了末記錄之后　　Adodc1.Recordset.MoveLast '則記錄指針移到末記錄上　　CmdNext.Enabled = False　　CmdLast.Enabled = False　　End If<

117、/b>　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub<

118、p>　　Private Sub CmdLast_Click()　　Adodc1.Recordset.MoveLast ' 移到末記錄　　CmdFirst.Enabled = True　　CmdPre.Enabled = True　　CmdNext.Enabl

119、ed = False　　CmdLast.Enabled = False　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount<

120、;p>　　End Sub　　Private Sub Cmd1_Click()　　Dim str As String　　str = "select * from 樓盤信息"　　str = str & &

121、quot; Where 樓盤信息." & Combo1.Text & " Like'" & Text8 & "%' "　　Adodc1.RecordSource = str　　Adodc1.Refresh　　Priv

122、ate Sub CmdBack_Click()　　管理窗體.Show　　Unload Me　　End Sub 　　Private Sub Form_Load(

123、) CmdNext.Enabled = True ' [后移]按鈕有效　　Text1.Locked = True CmdLast.Enabled = True ' [末記錄]按鈕有效　　Text2.Locked = True

124、 CmdFirst.Enabled = False ' [首記錄]按鈕無效　　Text3.Locked = True CmdPre.Enabled = False ' [前移]按鈕無效　　Text4.Locked = True</

125、p>　　Combo1.AddItem "戶型編號" '　　Combo1.AddItem "戶型結(jié)構(gòu)"　　Combo1.AddItem "建筑面積"　　Combo1.AddItem "套內(nèi)面積"&

126、lt;/p>　　Combo1.AddItem "用戶簡介"　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount<p&

127、gt;　　End Sub　　Private Sub CmdFirst_Click()　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）　　CmdFirst.Enabled = False ' 讓[首記錄]

128、按鈕無效　　CmdPre.Enabled = False ' 讓[前移]按鈕無效　　CmdNext.Enabled = True ' 讓[后移]按鈕有效　　CmdLast.Enabled = True ' 讓[末記錄]按鈕有效<p&

129、gt;　　'在Label6上顯示當前記錄號/記錄總數(shù)：　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount　　End Sub&

130、lt;/b>　　Private Sub CmdPre_Click()　　Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄　　CmdNext.Enabled = True　　CmdLast.Enabled = True&

131、lt;/p>　　If Adodc1.Recordset.BOF Then ' 如果記錄指針移到首記錄之前,　　Adodc1.Recordset.MoveFirst '則記錄指針移到首記錄上　　CmdFirst.Enabled = False　　CmdPre.En

132、abled = False　　End If　　Label6.Caption = "記錄" & Adodc1.Recordset.AbsolutePosition & "/" & Adodc1.Recordset.RecordCount

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權(quán)或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫課程設計--房產(chǎn)信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設計--房產(chǎn)信息管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載