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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：45 大?。?15.69KB 人氣指數(shù)：12 舉報 版權申訴

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

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

文檔簡介

1、　　《數(shù)據(jù)庫原理》課程設計　　學生姓名： 　　學號： 　　班號： 　　2013 年 3月　　內容簡介

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

3、息管理中心是用來發(fā)布公司信息，各部門信息交流，共享工作資料等功能。個人中心是查看自己個人信息和修改密碼的。本辦公自動化系統(tǒng)通過應用信息技術，支持辦公室的各項信息處理工作，協(xié)調不同科室之間、各職能間和各信息工作者間的信息聯(lián)系，提高辦公活動的工作效率和質量。　　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　　目錄　　設計要求……………………………………………………………..4　　1.1問題描述…………………………………………………………4　　1.2基本要求……

7、……………………………………………………4　　2.系統(tǒng)結構………………………………………………………………4　　3.建立數(shù)據(jù)庫……………………………………………………………5　　4.程序運行視圖界面說明……………………………………………...6　　4.1登陸界面……………

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

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

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

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

12、……）　　科研管理庫（項目號，項目名稱，項目負責人，項目經(jīng)費，項目工作地點，完成時間，……）　　資料庫（資料編號，資料名稱，保管人，資料存放地點，入庫時間，……）　　1.2基本要求　　在SQL Server平臺上，利用嵌入式SQL語言

13、+VB（或VC、VC++）程序實現(xiàn)在客戶機終端上所進行的各種對數(shù)據(jù)庫的操作功能（給不同科室分配不同的權限和用戶密碼），并使各客戶機終端上要有良好的和統(tǒng)一的用戶界面。　　系統(tǒng)結構　　建立數(shù)據(jù)庫　　本辦公自動化系統(tǒng)的數(shù)據(jù)庫，建立在服務器中，總

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

15、放地點，入庫時間，……）　　4．密碼庫（職工號，密碼）　　5．公告信息表（發(fā)布日期，標題，發(fā)布信息）　　6．共享文檔表（文檔名稱，上傳日期，文檔內容，上傳人，上傳時間）　　7．交流庫表（交流人姓名，交流信息，日期，時間）　　8．辦

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

32、/b>　　Else　　MsgBox "密碼輸入錯誤，請重新輸入！", 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 "對不起，您不能訪問該科室的信息", vbOKOnly, "提示"　　End If<

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

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

38、p>　　If n = 0 Or n = 2 Then　　Data.Show　　Else　　MsgBox "對不起，您不能訪問該科室的信息", 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 = "職工號" 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 人事庫"

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 '光標放在text1中　　End Sub　　Private Sub Command8_Click()　　On Error Resume Next '產生錯誤，執(zhí)行下一句代碼　　Dim m As Int

79、eger　　m = MsgBox("您是否要刪除當前信息？", 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=辦公自動化系統(tǒng)"　　con.Open　　Dim com As New Command　　com.ActiveConnection = con　　com.CommandType = ad

88、CmdText　　com.CommandText = "insert into 密碼庫(職工號,密碼) 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 人事庫 where 職工號='" & TNumber.Text & "'"　　Adodc1.Refresh&l

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

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

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

94、;　　If Age.Visible = True Then　　Adodc1.CommandType = adCmdText　　Adodc1.RecordSource = "select * from 人事庫 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 人事庫 where 所在科室='" & TPlace.Text & "'"　　Adodc1.Refresh</p&g

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

98、.AddItem "職工號"　　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 = "項目號" Then　　LNumber.Vis

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

103、ombo1.Text = "項目名稱" Then　　LNumber.Visible = False　　LName.Visible = True　　LPerson.Visible = False　　LTime.Visible = False</p&

104、gt;　　End If　　If Combo1.Text = "項目負責人" Then　　LNumber.Visible = False　　LName.Visible = False　　LPer

105、son.Visible = True　　LTime.Visible = False　　End If　　If Combo1.Text = "完成時間" 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 科研管理庫"　　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("您是否要刪除當前信息？", 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&

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

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載