數(shù)據(jù)庫(kù)課程設(shè)計(jì)--辦公自動(dòng)化系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁(yè)數(shù)：45 大小：315.69KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩44頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶(hù)提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　《數(shù)據(jù)庫(kù)原理》課程設(shè)計(jì)　　學(xué)生姓名： 　　學(xué) 號(hào)： 　　班號(hào)： 　　2013 年 3月　　內(nèi)容簡(jiǎn)介

2、;　　本辦公自動(dòng)化系統(tǒng)，是在SQL Server平臺(tái)上，利用嵌入式SQL語(yǔ)言+VB程序?qū)崿F(xiàn)在客戶(hù)機(jī)終端上所進(jìn)行的各種對(duì)數(shù)據(jù)庫(kù)的操作功能，是基于集成于服務(wù)器中建立的數(shù)據(jù)庫(kù)上的。這樣就便于在公司局域網(wǎng)內(nèi)各部門(mén)之間的信息互聯(lián)操作。系統(tǒng)主要有三個(gè)部門(mén)，分別為：辦公室，科研處，和信息中心。辦公室用來(lái)管理人事信息。科研處主要來(lái)管理科研成果信息，而信息中心的職責(zé)是保存資料信息。另外，還有一個(gè)辦公信息信息管理中心和個(gè)人中心。辦公信

3、息管理中心是用來(lái)發(fā)布公司信息，各部門(mén)信息交流，共享工作資料等功能。個(gè)人中心是查看自己個(gè)人信息和修改密碼的。本辦公自動(dòng)化系統(tǒng)通過(guò)應(yīng)用信息技術(shù)，支持辦公室的各項(xiàng)信息處理工作，協(xié)調(diào)不同科室之間、各職能間和各信息工作者間的信息聯(lián)系，提高辦公活動(dòng)的工作效率和質(zhì)量。　　Content abstract 　　This office automation system,

4、 is on the SQL Server platform, using embedded SQL language + VB program to achieve the various operating functions of the database client terminal ，is based on integrated in the establishment of the database server. Thi

5、s allows for different departments within the company LAN information between the operation. The system mainly has three departments, respectively is: personnel, scientific research management department, and material de

6、partment. Personnel department　　目錄　　設(shè)計(jì)要求……………………………………………………………..4　　1.1問(wèn)題描述…………………………………………………………4　　1.2基本要求……

7、……………………………………………………4　　2.系統(tǒng)結(jié)構(gòu)………………………………………………………………4　　3.建立數(shù)據(jù)庫(kù)……………………………………………………………5　　4.程序運(yùn)行視圖界面說(shuō)明……………………………………………...6　　4.1登陸界面……………

8、…………………………………………..6　　4.2辦公自動(dòng)化系統(tǒng)主界面………………………………………..7　　4.3三個(gè)基本處室：辦公室，科研處，信息中心………………..7　　4.4個(gè)人中心………………………………………………………..9　　4.5辦公信息管理中心……………

9、………………………………..9　　4.5.1信息公開(kāi)…………………………………………………10　　4.5.2共享文檔…………………………………………………11　　4.5.3交流中心…………………………………………………12　　4.5.4辦公備忘……………………………………

10、……………13　　5.連接數(shù)據(jù)庫(kù)…………………………………………………………..13　　6.課程設(shè)計(jì)體會(huì)……………………………………………………….14　　7.附錄源程序………………………………………………………….15　　設(shè)計(jì)要求&

11、lt;/p>　　1.1問(wèn)題描述　　某單位有三個(gè)處一個(gè)室：綜合處、科研處、信息中心和辦公室。各處室已連接有局域網(wǎng)（50臺(tái)終端和若干臺(tái)服務(wù)器）。現(xiàn)要為該單位建立一個(gè)辦公自動(dòng)化系統(tǒng)。先建立三個(gè)數(shù)據(jù)庫(kù)，并將之放在服務(wù)器上。這三個(gè)庫(kù)是人事庫(kù)、科研管理庫(kù)和資料庫(kù)：　　人事庫(kù)（職工號(hào)，姓名，性別，年齡，

12、……）　　科研管理庫(kù)（項(xiàng)目號(hào)，項(xiàng)目名稱(chēng)，項(xiàng)目負(fù)責(zé)人，項(xiàng)目經(jīng)費(fèi)，項(xiàng)目工作地點(diǎn)，完成時(shí)間，……）　　資料庫(kù)（資料編號(hào)，資料名稱(chēng)，保管人，資料存放地點(diǎn)，入庫(kù)時(shí)間，……）　　1.2基本要求　　在SQL Server平臺(tái)上，利用嵌入式SQL語(yǔ)言

13、+VB（或VC、VC++）程序?qū)崿F(xiàn)在客戶(hù)機(jī)終端上所進(jìn)行的各種對(duì)數(shù)據(jù)庫(kù)的操作功能（給不同科室分配不同的權(quán)限和用戶(hù)密碼），并使各客戶(hù)機(jī)終端上要有良好的和統(tǒng)一的用戶(hù)界面。　　系統(tǒng)結(jié)構(gòu)　　建立數(shù)據(jù)庫(kù)　　本辦公自動(dòng)化系統(tǒng)的數(shù)據(jù)庫(kù)，建立在服務(wù)器中，總

14、共建立了八個(gè)表，三個(gè)是基本的，分別為人事庫(kù)，科研管理庫(kù)和資料庫(kù)；另外還有五個(gè)是：交流庫(kù)表，公告信息表，共享文檔表，辦公備忘庫(kù)和密碼庫(kù)。　　人事庫(kù)（職工號(hào)，姓名，性別，年齡，……）　　科研管理庫(kù)（項(xiàng)目號(hào)，項(xiàng)目名稱(chēng)，項(xiàng)目負(fù)責(zé)人，項(xiàng)目經(jīng)費(fèi)，項(xiàng)目工作地點(diǎn)，完成時(shí)間，……）　　3．資料庫(kù)（資料編號(hào)，資料名稱(chēng)，保管人，資料存

15、放地點(diǎn)，入庫(kù)時(shí)間，……）　　4．密碼庫(kù)（職工號(hào)，密碼）　　5．公告信息表（發(fā)布日期，標(biāo)題，發(fā)布信息）　　6．共享文檔表（文檔名稱(chēng)，上傳日期，文檔內(nèi)容，上傳人，上傳時(shí)間）　　7．交流庫(kù)表（交流人姓名，交流信息，日期，時(shí)間）　　8．辦

16、公備忘庫(kù)（日期，備忘事件，時(shí)間）　　4．程序運(yùn)行視圖界面說(shuō)明　　4.1登陸界面　　程序運(yùn)行時(shí)，在界面輸入職工號(hào)和密碼，第一次登陸，密碼與職工號(hào)相同，如圖所示：這時(shí)單擊登陸按鈕后，如果用戶(hù)名和密碼都正確，則進(jìn)入辦公自動(dòng)化系統(tǒng)的主界面，如果單擊“退出”按鈕則會(huì)退出程序；當(dāng)輸入的用

17、戶(hù)名和密碼有一個(gè)不正確或都不正確時(shí)，則會(huì)彈出錯(cuò)誤提示界面。根據(jù)職工號(hào)的不同，各個(gè)員工進(jìn)入系統(tǒng)后的權(quán)限也不同。　　4．2辦公自動(dòng)化系統(tǒng)主界面　　4．3三個(gè)基本處室：辦公室，科研處，信息中心　　在這三個(gè)基本科室中，各個(gè)科室的員工只能進(jìn)入自己所在處室，所做的操作是類(lèi)似的，就是對(duì)各個(gè)處室處理信息的添加，刪除，修改操作。以

18、及選擇查詢(xún)方式進(jìn)行查詢(xún)。對(duì)信息的各操作都是綁定到數(shù)據(jù)庫(kù)的，也就是說(shuō)，當(dāng)點(diǎn)擊添加信息后，添加的信息都會(huì)存儲(chǔ)到當(dāng)前科室相應(yīng)的數(shù)據(jù)庫(kù)中，點(diǎn)擊修改信息時(shí)，修改后的信息也就會(huì)代替原信息存儲(chǔ)到數(shù)據(jù)庫(kù)中。綜合處的員工可以進(jìn)入所有三個(gè)科室，但不能修改數(shù)據(jù)。　　辦公室：　　科研處：</p&g

19、t;　　信息中心：　　4．4個(gè)人中心　　在個(gè)人中心中可查看個(gè)人的信息，如有錯(cuò)誤可提交申請(qǐng)修改，可以修改自己的登陸密碼。　　密碼修改：

20、4.5辦公信息管理中心　　如圖有四個(gè)區(qū)域用于公司員工辦公交流，提高辦公效率，分別是信息公開(kāi)，共享文檔，交流中心和辦公備忘。　　4.5.1信息公開(kāi)　　此界面用于綜合處發(fā)布公司的一些信息，其他處室員工只能查看發(fā)布的公告，不能修改、發(fā)布信息，雙擊即可查看公告信息。

21、;　　4.5.2共享文檔　　用于員工間資料的共享，雙擊可閱讀文檔內(nèi)容，自己不能刪除別人的文檔，但可以刪除自己先前傳的文檔。　　4.5.3交流中心　　用于員工間對(duì)問(wèn)題的交流，自己只能刪除自己的交流信息。</p&g

22、t;　　4.5.4辦公備忘　　5．連接數(shù)據(jù)庫(kù)　　本系統(tǒng)對(duì)數(shù)據(jù)庫(kù)的連接的用ADO控件綁定的，如圖是一個(gè)數(shù)據(jù)庫(kù)綁定的過(guò)程：　　在屬性-Adodc1中選擇ConnectionString的選項(xiàng)，彈出如圖所示，</p&

23、gt;　　點(diǎn)擊“生成按鍵”，彈出如圖所示，選擇一個(gè)數(shù)據(jù)庫(kù)，測(cè)試連接成功與否。　　6．課程設(shè)計(jì)體會(huì)　　本次辦公自動(dòng)化課程設(shè)計(jì),是在SQL server平臺(tái)上建立的，因此要學(xué)會(huì)用SQL server這一軟件，在上建立數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)的建立是最基礎(chǔ)，也是最重要的。在建表時(shí)要考慮字段的數(shù)據(jù)類(lèi)型，字段內(nèi)容占

24、用最大存儲(chǔ)容量，主鍵問(wèn)題，不同用戶(hù)的權(quán)限等等。　　建立數(shù)據(jù)庫(kù)后，接著就是，連接數(shù)據(jù)庫(kù)了。其實(shí)，連接數(shù)據(jù)庫(kù)的方法有很多種，但是并不是每一種都要被牢牢的記在腦海里的，我們只需要記住自己常用的，而且連接穩(wěn)定的方法。我最常用的還是用ADODC控件連接數(shù)據(jù)庫(kù)這種方法。所以每次，我都是用的這一種方法來(lái)連接數(shù)據(jù)庫(kù)的，方法簡(jiǎn)便，而且連接穩(wěn)定。　　接著就是，用高級(jí)語(yǔ)言編程

25、軟件來(lái)設(shè)計(jì)用戶(hù)界面了。用戶(hù)界面的設(shè)計(jì)也很重要，我們做出來(lái)的軟件要銷(xiāo)售給用戶(hù)，讓用戶(hù)用著舒服方便。程序語(yǔ)言用的好只能夠保證軟件的穩(wěn)定性和效率，但是，如果用戶(hù)界面設(shè)計(jì)的不合理，是很難選擇這的。 　　程序的最后，就是程序的編寫(xiě)了，好的編程功底是一款軟件是否穩(wěn)定的關(guān)鍵。所以，程序?qū)懞煤?，要調(diào)試，使客戶(hù)在使用時(shí)不會(huì)出現(xiàn)問(wèn)題。　　專(zhuān)業(yè)的辦公自動(dòng)化定義是將現(xiàn)代化辦公和

26、計(jì)算機(jī)網(wǎng)絡(luò)功能結(jié)合起來(lái)的一種新型的辦公方式。通過(guò)實(shí)現(xiàn)辦公自動(dòng)化，或者說(shuō)實(shí)現(xiàn)數(shù)字化辦公，可以?xún)?yōu)化現(xiàn)有的管理組織結(jié)構(gòu)，調(diào)整管理體制，在提高效率的基礎(chǔ)上，增加協(xié)同辦公能力，強(qiáng)化決策的一致性，最后實(shí)現(xiàn)提高決策效能的目的。　　我寫(xiě)的這個(gè)程序遠(yuǎn)沒(méi)有達(dá)到這個(gè)要求，不過(guò)做成這樣也實(shí)屬不易。在這過(guò)程中學(xué)會(huì)了數(shù)據(jù)庫(kù)的建立、連接等等，在處理問(wèn)題上的一些方法，相信這在以后任然有用。<p&g

27、t;　　7．附錄源程序　　Load（Load.frm）：　　Private Sub Command1_Click()　　If Text1.Text = "" Then　　MsgBox "請(qǐng)輸入職工號(hào)！&q

28、uot;, vbOKOnly, "提示"　　Else　　Dim user As New Connection　　user.ConnectionString = "driver={sql server};server=(local);databas

29、e=辦公自動(dòng)化系統(tǒng)"　　user.Open　　Dim pass As New ADODB.Recordset '記錄集　　pass.Open "select 職工號(hào),密碼 from 密碼庫(kù) where 職工號(hào)='" & T

30、ext1.Text & "'", user, adOpenStatic, adLockBatchOptimistic ' 將信息放入記錄集里　　If pass.RecordCount = 0 Then　　MsgBox "你的職工號(hào)不正確，請(qǐng)核實(shí)后輸入！", vbOKOnly, "提

31、示"　　Else　　If pass.Fields("密碼") = Text2.Text Then　　main.Show　　Land.Hide<

32、/b>　　Else　　MsgBox "密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly, "提示"　　End If　　End If&

33、lt;/b>　　End If　　End Sub　　Private Sub Command2_Click()　　End<p&

34、gt;　　End Sub　　Main(main.frm):　　Dim n As Integer　　Private Sub Command1_Click()　　If n = 0 Or n = 3 Then<

35、p>　　Person.Show　　Else　　MsgBox "對(duì)不起，您不能訪問(wèn)該科室的信息", vbOKOnly, "提示"　　End If<

36、b>　　End Sub　　Private Sub Command2_Click()　　If n = 0 Or n = 1 Then　　Management.Show　　Else<

37、p>　　MsgBox "對(duì)不起，您不能訪問(wèn)該科室的信息", vbOKOnly, "提示"　　End If　　End Sub　　Private Sub Command3_Click()</

38、p>　　If n = 0 Or n = 2 Then　　Data.Show　　Else　　MsgBox "對(duì)不起，您不能訪問(wèn)該科室的信息", vbOKOnly, "提示"

39、　　End If　　End Sub　　Private Sub Command4_Click()　　End<b&

40、gt;　　End Sub　　Private Sub Command5_Click()　　PerInformation.Show　　End Sub　　Private Sub Command6_Click()</

41、p>　　PubInformation.Show　　End Sub　　Private Sub Form_Load()　　n = Left(Land.Text1.Text, 1)　　End S

42、ub　　Preson(Person.frm):　　Private Sub Combo1_Click()　　If Combo1.Text = "職工號(hào)" Then　　LNumber.Visible = True

43、　　TNumber.Visible = True　　LName.Visible = False　　TName.Visible = False　　LSex.Visible = False　　TSex.Visible = False&

44、lt;p>　　Age.Visible = False　　Age1.Visible = False　　Age2.Visible = False　　Line1.Visible = False　　LPlace.Visible = False<

45、p>　　TPlace.Visible = False　　TNumber.Text = ""　　End If　　If Combo1.Text = "姓名" Then　　LNumber.Vis

46、ible = False　　TNumber.Visible = False　　LName.Visible = True　　TName.Visible = True　　LSex.Visible = False　　TSex.Visib

47、le = False　　Age.Visible = False　　Age1.Visible = False　　Age2.Visible = False　　Line1.Visible = False　　LPlace.Visible

48、= False　　TPlace.Visible = False　　TName.Text = ""　　End If　　If Combo1.Text = "性別" Then&

49、lt;p>　　LNumber.Visible = False　　TNumber.Visible = False　　LName.Visible = False　　TName.Visible = False　　LSex.Visible = True

50、　　TSex.Visible = True　　Age.Visible = False　　Age1.Visible = False　　Age2.Visible = False　　Line1.Visible = False<p

51、>　　LPlace.Visible = False　　TPlace.Visible = False　　TSex.Text = ""　　End If　　If Combo1.Text = "年齡&quo

52、t; Then　　LNumber.Visible = False　　TNumber.Visible = False　　LName.Visible = False　　TName.Visible = False　　LSex.Visib

53、le = False　　TSex.Visible = False　　Age.Visible = True　　Age1.Visible = True　　Age2.Visible = True　　Line1.Visible = Tru

54、e　　LPlace.Visible = False　　TPlace.Visible = False　　Age1.Text = ""　　Age2.Text = ""　　End

55、 If　　If Combo1.Text = "所在科室" Then　　LNumber.Visible = False　　TNumber.Visible = False　　LName.Visible = False

56、　　TName.Visible = False　　LSex.Visible = False　　TSex.Visible = False　　Age.Visible = False　　Age1.Visible = False<

57、;p>　　Age2.Visible = False　　Line1.Visible = False　　LPlace.Visible = True　　TPlace.Visible = True　　TPlace.Text = ""

58、　　End If　　End Sub　　Private Sub Command1_Click()　　Adodc1.Recordset.MoveFirst　　En

59、d Sub　　Private Sub Command10_Click()　　Unload Me　　End Sub　　Private Sub Command2_Click()&l

60、t;/p>　　Adodc1.Recordset.MovePrevious　　If Adodc1.Recordset.BOF Then　　Adodc1.Recordset.MoveLast　　End If&l

61、t;b>　　End Sub　　Private Sub Command3_Click()　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then　　Adodc1.Recordset.Move

62、First　　End If　　End Sub　　Private Sub Command4_Click()　　Adodc1.Recordset.MoveLast<p&g

63、t;　　End Sub　　Private Sub Command5_Click()　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫(kù)"

64、　　Adodc1.Refresh　　LNumber.Visible = False　　TNumber.Visible = False　　LName.Visible = False　　TName.Visible = False<

65、;p>　　LSex.Visible = False　　TSex.Visible = False　　Age.Visible = False　　Age1.Visible = False　　Age2.Visible = False

66、　　Line1.Visible = False　　LPlace.Visible = False　　TPlace.Visible = False　　Combo1.Text = ""　　End Sub

67、;　　Private Sub Command6_Click()　　Dim m As Integer　　m = MsgBox("您是否要添加信息？", vbYesNo, "信息提示")　　If m = vbYes Then<

68、p>　　Text1.Enabled = True　　Text2.Enabled = True　　Text3.Enabled = True　　Text4.Enabled = True　　Text5.Enabled = True

69、　　Command1.Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Command6.Enabled = False</p

70、>　　Command7.Enabled = False　　Command8.Enabled = False　　Command9.Enabled = True　　Command10.Enabled = True　　Text1.SetFocus&l

71、t;/p>　　Adodc1.Recordset.AddNew　　Else　　Text1.Enabled = False　　Text2.Enabled = False　　Text3.Enabled = Fal

72、se　　Text4.Enabled = False　　Text5.Enabled = False　　Command1.Enabled = True　　Command2.Enabled = True　　Command3.Enable

73、d = True　　Command4.Enabled = True　　Command6.Enabled = True　　Command7.Enabled = True　　Command8.Enabled = True　　Comma

74、nd9.Enabled = True　　Command10.Enabled = True　　End If　　End Sub　　Private Sub Command7_Click()</p&

75、gt;　　Text1.Enabled = True　　Text2.Enabled = True　　Text3.Enabled = True　　Text4.Enabled = True　　Text5.Enabled = True

76、　　Command1.Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Command6.Enabled = Fa

77、lse　　Command7.Enabled = False　　Command8.Enabled = False　　Command9.Enabled = True　　Command10.Enabled = True　　Text1.S

78、etFocus '光標(biāo)放在text1中　　End Sub　　Private Sub Command8_Click()　　On Error Resume Next '產(chǎn)生錯(cuò)誤，執(zhí)行下一句代碼　　Dim m As Int

79、eger　　m = MsgBox("您是否要?jiǎng)h除當(dāng)前信息？", vbYesNo, "信息提示")　　If m = vbYes Then　　Adodc1.Recordset.Delete　　Text1.Enabled = False&

80、lt;/p>　　Text2.Enabled = False　　Text3.Enabled = False　　Text4.Enabled = False　　Text5.Enabled = False　　Command1.Enabled = Tru

81、e　　Command2.Enabled = True　　Command3.Enabled = True　　Command4.Enabled = True　　Command6.Enabled = True　　Command7.Ena

82、bled = True　　Command8.Enabled = True　　Command9.Enabled = True　　Command10.Enabled = True　　End If&

83、lt;b>　　End Sub　　Private Sub Command9_Click()　　On Error Resume Next　　Text1.Enabled = False　　Text2.Enabled = False

84、　　Text3.Enabled = False　　Text4.Enabled = False　　Text5.Enabled = False　　Command1.Enabled = True　　Command2.Enabled = True</p&

85、gt;　　Command3.Enabled = True　　Command4.Enabled = True　　Command6.Enabled = True　　Command7.Enabled = True　　Command8.Enabled = T

86、rue　　Command9.Enabled = True　　Command10.Enabled = True　　Dim con As New Connection　　con.ConnectionString = "driver={sql server};serv

87、er=(local);database=辦公自動(dòng)化系統(tǒng)"　　con.Open　　Dim com As New Command　　com.ActiveConnection = con　　com.CommandType = ad

88、CmdText　　com.CommandText = "insert into 密碼庫(kù)(職工號(hào),密碼) values('" & Text1.Text & "','" & Text1.Text & "')"　　com.Execute&

89、lt;/p>　　Adodc1.Recordset.Update　　End Sub　　Private Sub Find_Click()　　If TNumber.Visible = True Then　　Ado

90、dc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫(kù) where 職工號(hào)='" & TNumber.Text & "'"　　Adodc1.Refresh&l

91、t;b>　　End If　　If TName.Visible = True Then　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫(kù) where 姓名='" &

92、amp; TName.Text & "'"　　Adodc1.Refresh　　End If　　If TSex.Visible = True Then　　Adodc1.CommandType = ad

93、CmdText　　Adodc1.RecordSource = "select * from 人事庫(kù) where 性別='" & TSex.Text & "'"　　Adodc1.Refresh　　End If

94、;　　If Age.Visible = True Then　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫(kù) where 年齡>='" & Age1.Text & &

95、quot;'and 年齡<='" & Age2.Text & "'"　　Adodc1.Refresh　　End If　　If TPlace.Visible = True Then

96、　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫(kù) where 所在科室='" & TPlace.Text & "'"　　Adodc1.Refresh</p&g

97、t;　　End If　　End Sub　　Private Sub Form_Load()　　Set DataGrid1.DataSource = Adodc1　　Combo1

98、.AddItem "職工號(hào)"　　Combo1.AddItem "姓名"　　Combo1.AddItem "性別"　　Combo1.AddItem "年齡"　　Combo1.AddItem &q

99、uot;所在科室"　　Dim n As Integer　　n = Left(Land.Text1.Text, 1)　　If n = 0 Then　　Command6.Enabled = False　　Command7.E

100、nabled = False　　Command8.Enabled = False　　Command9.Enabled = False　　End If　　End Sub<

101、;p>　　Management(Management.frm):　　Private Sub Combo1_Click()　　Text.Visible = True　　If Combo1.Text = "項(xiàng)目號(hào)" Then　　LNumber.Vis

102、ible = True　　LName.Visible = False　　LPerson.Visible = False　　LTime.Visible = False　　End If　　If C

103、ombo1.Text = "項(xiàng)目名稱(chēng)" Then　　LNumber.Visible = False　　LName.Visible = True　　LPerson.Visible = False　　LTime.Visible = False</p&

104、gt;　　End If　　If Combo1.Text = "項(xiàng)目負(fù)責(zé)人" Then　　LNumber.Visible = False　　LName.Visible = False　　LPer

105、son.Visible = True　　LTime.Visible = False　　End If　　If Combo1.Text = "完成時(shí)間" Then　　LNumber.Visible = False<

106、;/p>　　LName.Visible = False　　LPerson.Visible = False　　LTime.Visible = True　　End If　　Text.Text = "&

107、quot;　　End Sub　　Private Sub Command1_Click()　　Adodc1.Recordset.MoveFirst　　End Sub<p

108、>　　Private Sub Command11_Click()　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 科研管理庫(kù)"　　Adodc1.Refresh<p&g

109、t;　　LNumber.Visible = False　　LName.Visible = False　　LPerson.Visible = False　　LTime.Visible = False　　Text.Visible = False<

110、p>　　Combo1.Text = ""　　End Sub　　Private Sub Command2_Click()　　Adodc1.Recordset.MovePrevious　　If Adodc1.Re

111、cordset.BOF Then　　Adodc1.Recordset.MoveLast　　End If　　End Sub　　Private Sub Command3_Click()</p&g

112、t;　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then　　Adodc1.Recordset.MoveFirst　　End If

113、End Sub　　Private Sub Command4_Click()　　Adodc1.Recordset.MoveLast　　End Sub　　Private Sub Command5_Click()<

114、/p>　　On Error Resume Next　　Dim m As Integer　　m = MsgBox("您是否要添加信息？", vbYesNo, "信息提示")　　If m = vbYes Then<p&g

115、t;　　Text1.Enabled = True　　Text2.Enabled = True　　Text3.Enabled = True　　Text4.Enabled = True　　Text4.Enabled = True　　T

116、ext5.Enabled = True　　Text6.Enabled = True　　Command1.Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False<p

117、>　　Command4.Enabled = False　　Command5.Enabled = False　　Command6.Enabled = False　　Command7.Enabled = False　　Command8.Enabled = True<

118、;/p>　　Command9.Enabled = True　　Text1.SetFocus　　Adodc1.Recordset.AddNew　　Else　　Text1.Enabled = False<

119、/p>　　Text2.Enabled = False　　Text3.Enabled = False　　Text4.Enabled = False　　Text5.Enabled = False　　Text6.Enabled = False<

120、/p>　　Command1.Enabled = True　　Command2.Enabled = True　　Command3.Enabled = True　　Command4.Enabled = True　　Command5.Enabled

121、= True　　Command6.Enabled = True　　Command7.Enabled = True　　Command8.Enabled = True　　Command9.Enabled = True

122、　　End If　　End Sub　　Private Sub Command6_Click()　　Text1.Enabled = True　　Text2.Enabled = True<

123、p>　　Text3.Enabled = True　　Text4.Enabled = True　　Text5.Enabled = True　　Text6.Enabled = True　　Command1.Enabled = False<p

124、>　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Command5.Enabled = False　　Command6.Enabled = False&l

125、t;/p>　　Command7.Enabled = False　　Command8.Enabled = True　　Command9.Enabled = True　　Text1.SetFocus　　End Sub</b&

126、gt;　　Private Sub Command7_Click()　　On Error Resume Next　　Dim m As Integer　　m = MsgBox("您是否要?jiǎng)h除當(dāng)前信息？", vbYesNo, "信息提示"

127、)　　If m = vbYes Then　　Adodc1.Recordset.Delete　　Text1.Enabled = False　　Text2.Enabled = False　　Text3.Enabled = False&

128、lt;/p>　　Text4.Enabled = False　　Text5.Enabled = False　　Text6.Enabled = False　　Command1.Enabled = False　　Command2.Enabled =

129、False　　Command3.Enabled = False　　Command4.Enabled = False　　Command5.Enabled = False　　Command6.Enabled = False　　Comm

130、and7.Enabled = False　　Command8.Enabled = True　　Command9.Enabled = True　　End If　　End Sub

131、　　Private Sub Command8_Click()　　On Error Resume Next　　Text1.Enabled = False　　Text2.Enabled = False　　Text3.Enabled = False</

132、p>　　Text4.Enabled = False　　Text5.Enabled = False　　Text6.Enabled = False　　Command1.Enabled = True　　Command2.Enabled = True&

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

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

數(shù)據(jù)庫(kù)課程設(shè)計(jì)--辦公自動(dòng)化系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

數(shù)據(jù)庫(kù)課程設(shè)計(jì)--辦公自動(dòng)化系統(tǒng)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載