VB餐飲部辦公室管理系統(tǒng)

1、計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)專業(yè)畢業(yè)設(shè)計(jì)論文題目： 酒店餐飲部辦公室管理系統(tǒng) 分 校： 工作站： 學(xué)生類別： 開放教育 專 業(yè)： 計(jì)算機(jī)網(wǎng)絡(luò)技術(shù) 學(xué) 號(hào)： 姓 名： 指導(dǎo)教師： 職 稱： 餐飲部辦公室管理系統(tǒng)前言 酒店會(huì)設(shè)立系統(tǒng)的管理制度，往往對(duì)于部門卻沒有很好的設(shè)立管理制度，而部門的靈活性和特殊使用都不能在酒店系統(tǒng)中完成。為了提高工作效率，高效的完成工作就需要有針對(duì)崗位，針對(duì)對(duì)象而設(shè)定專門的管理系統(tǒng)。摘要 隨著經(jīng)濟(jì)社會(huì)的快速發(fā)展和構(gòu)建和諧社會(huì)步伐的加快，傳統(tǒng)的紙質(zhì)文件交流、人員信息管理跟不上時(shí)代的腳步，一個(gè)適合的管理系統(tǒng)取代了傳統(tǒng)的記錄方式，加強(qiáng)了工作效率，提高了工作水平。 論文主要介紹了本課題的開發(fā)背景

2、，所要完成的功能和開發(fā)的過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。關(guān)鍵字：ACCESS數(shù)據(jù)庫，VisualBasic 6.0一、 引言應(yīng)用背景與研究意義杭州香溢大酒店是浙江煙草的旗艦酒店，就餐飲部而言員工約200人，如傳統(tǒng)的紙質(zhì)記錄人員信息，不僅浪費(fèi)能源還不便于查找，費(fèi)時(shí)又費(fèi)力。對(duì)于文件的管理也是如此，如何才能高效、安全的管理，提高辦公效率將是本人考慮的問題。在此崗位半年多以對(duì)此崗位的了解結(jié)合實(shí)際工作的需要結(jié)合所學(xué)知識(shí)，利用微軟公司的VisualBasic 6.0結(jié)合ACCESS數(shù)據(jù)庫編寫一款單機(jī)的辦公室管理軟件，能有效的提高日常的工作效率。 二、 系統(tǒng)設(shè)計(jì)結(jié)構(gòu)1. 總體

3、設(shè)計(jì)結(jié)構(gòu) 功能劃分餐飲部辦公軟件是辦公室對(duì)餐飲部管理的一個(gè)重要的根據(jù)，本次設(shè)計(jì)的管理系統(tǒng)有7個(gè)模塊，分別是：人員管理模塊、文件管理模塊、款待單管理模塊、備忘錄模塊、事件管理模塊、登陸信息模塊、用戶管理模塊其中各個(gè)模塊說明如下:1. 人員管理模塊:該模塊對(duì)人員的信息管理，添加、刪除、修改、打印等。2. 文件管理模塊:該模塊主要負(fù)責(zé)記錄memo文件，添加、刪除、修改等。3. 款待單管理模塊：記錄酒店日?？畲畔?. 備忘錄模塊:該模塊主要針對(duì)日常事務(wù)記錄以及提醒。5. 事件管理:該模塊主要記錄人員的各種事件。6、登陸信息模塊:該模塊主要對(duì)登陸人員所操作的個(gè)別信息記錄。7、用戶管理模塊：主要對(duì)系統(tǒng)使

4、用的用戶進(jìn)行管理。 功能描述添加、刪除、修改日常工作所需信息，能有效的查詢員工信息、工資、聯(lián)系方式等。能對(duì)日常事務(wù)進(jìn)行管理，有效的進(jìn)行提醒，大大的減少工作的遺忘，提高工作的效率。 軟件分層模塊結(jié)構(gòu)應(yīng)用程序數(shù)據(jù)庫服務(wù)器 用戶通過軟件可以登錄到應(yīng)用程序進(jìn)行相應(yīng)操作，應(yīng)用程序是用VisualBasic 6.0環(huán)境下發(fā)布。數(shù)據(jù)庫access添加2.詳細(xì)設(shè)計(jì)刪除 備忘錄提醒用戶登錄刪除添加修改添加修改刪除員工信息款待單Memo文件權(quán)限添加受限用戶管理員刪除瀏覽用戶用戶管理修改系統(tǒng)權(quán)限權(quán)限管理查詢查詢查詢管理日志打印打印 修改頭像 系統(tǒng)功能圖修改密碼修改用戶信息3.數(shù)據(jù)庫設(shè)計(jì) 根據(jù)工作環(huán)境，結(jié)合實(shí)際需要本

5、次設(shè)計(jì)目標(biāo)僅供個(gè)人使用，所以采用單機(jī)版數(shù)據(jù)庫access。數(shù)據(jù)庫命名為FB（Food & Beverage Dept.）一共有7張表，來用來存儲(chǔ)不同的信息.詳細(xì)信息如下:數(shù)據(jù)庫類圖結(jié)構(gòu)數(shù)據(jù)庫庫表結(jié)構(gòu)表1：Memo文件：字段：表2：Note記事本：字段：表3：登錄信息：字段：表4：款待單:字段：表5：事件：字段：表6：用戶管理字段：表7員工信息字段：三、 系統(tǒng)實(shí)現(xiàn) 本章將對(duì)部門管理系統(tǒng)的功能進(jìn)行介紹.1、 登陸窗口功能概述用個(gè)性化的方式增加了頭像功能，從用戶中選擇用戶登陸，設(shè)計(jì)目標(biāo)使辦公不在枯燥無味。增加鼠標(biāo)移動(dòng)事件，加強(qiáng)視覺效果。登陸模塊主要代碼：Private Sub Form_Load()

6、 Call WHScreen rtn = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) 運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)使窗體置前的功能 Me.Caption = 餐飲部管理系統(tǒng) V1.0 改變標(biāo)題 bMoveFlag = False OpenTable Adodc1, 用戶管理 打開用戶管理表 Image1.Stretch = True 使圖片完整顯示 Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加載圖片 Adodc1.Refresh adodc刷新

7、 OpenTable Adodc1, 用戶管理 打開用戶管理表 Adodc1.Refresh adodc刷新 If Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False 將操作員信息添加到ListView控件當(dāng)中 key = Adodc1.Recordset.Fields(xm) Set itmX = ListView1.ListItems.Add

8、(, , key, 1) Adodc1.Recordset.MoveNext Loop Else ListView1.Enabled = False End If Text2.ToolTipText = 輸入用戶名Text1.ToolTipText = 輸入用戶密碼End SubPrivate Sub Command1_Click() rtn = SetWindowPos(Me.hWnd, -2, 0, 0, 0, 0, 3) 運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能On Error Resume Next Dim sql As String 使用sql語言進(jìn)行數(shù)據(jù)庫的

9、查找 sql = select mm from user where xm= & Combo1 & 使用find語句查找數(shù)據(jù)庫；（不能刷新） Adodc1.Recordset.Find username= & txtUserName & , , adSearchForward, 1 Adodc1.RecordSource = sql Adodc1.Refresh If Not Adodc1.Recordset.EOF Then If Adodc1.Recordset!mm Text1 Then MsgBox 密碼不正確,請(qǐng)您確認(rèn)后重新輸入, , 系統(tǒng)提示 Text1.SetFocus Text

10、1 = ElseIf Adodc1.Recordset!mm = Text1 Then 主界面.Show 記錄登錄人員信息- OpenTable Adodc1, 登錄信息 Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset!登錄時(shí)間 = Now Adodc1.Recordset!事件 = 登陸 Adodc1.Recordset!人員 = Text2.Text Adodc1.Recordset.Update Adodc1.Refresh 記錄登錄人員信息- Me.Hide MsgBox 登陸成功，歡迎使用本系統(tǒng)！, vbOKOnly +

11、 vbInformation, 龍哥 備忘錄.Show 備忘錄.Hide 主界面.Show End If ElseIf Adodc1.Recordset.EOF Then MsgBox 對(duì)不起 沒有此用戶的信息, 64, 系統(tǒng)提示 Combo1.SetFocus Combo1 = Text1 = End IfEnd SubPrivate Sub ListView1_Click() Text2.Text = ListView1.SelectedItem Adodc1.RecordSource = select * from 用戶管理 where xm= + Text2.Text + Adodc1

12、.Refresh If Adodc1.Recordset.RecordCount 0 Then Label3.Caption = 操作員： & Adodc1.Recordset!zw 頭像設(shè)定 If IsNull(Adodc1.Recordset!Tx.Value) Then Image1.Picture = LoadPicture( & App.Path & Tx67.bmp) 加載圖片 Else Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加載圖片 End If Text1.SetFocus En

13、d IfEnd Sub2、 主界面3、 主要功能1. 個(gè)性化顯示頭像2. 心情功能3. 權(quán)限狀態(tài)4. 修改用戶密碼實(shí)現(xiàn)功能代碼：Private Sub Command1_Click()If Text1.Text = 登錄.Adodc1.Recordset!mm Then If Text2.Text = Text3.Text Then MsgBox 修改成功!, vbOKOnly + vbInformation, 提示 登錄.Adodc1.Recordset!mm = Text2.Text 登錄.Adodc1.Recordset.Update Else MsgBox 兩次輸入的密碼不一致!, v

14、bExclamation + vbOKOnly, 提示 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End IfElse MsgBox 舊密碼輸入錯(cuò)誤!, vbOKOnly + vbInformation, 提示 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubEnd IfEnd Sub5. 用戶切換6. 用戶管理7. 備忘錄8. Memo文件9. 款待單10. 員工信息11. 日常提醒主界面以目前流行的聊天方QQ的形式來制作主界面，同

15、時(shí)使用API功能模仿QQ隱藏方式。同時(shí)對(duì)picturebox 控件透明做透明和在窗體中居中處理，-picturebox 控件透明Private Sub Picture1_Paint()Dim l As Long, t As Longl = (Picture1.Width - Picture1.ScaleWidth) / 2 求左右邊偏差t = (Picture1.Height - Picture1.ScaleHeight) / 2 求上下邊偏差Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Left + l, Picture1.Top

16、+ t, Picture1.ScaleWidth, Picture1.ScaleHeight 載入圖片,就用這行Picture1.PaintPicture Me.Image, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight 復(fù)制的圖片,就用這行End Sub顯示日常事務(wù)提醒，使日常事務(wù)一目了然，減少忘記的幾率。主要顯示備忘錄代碼： 加載今日提醒列表 初始化 intMinNote = LBound(arrRemind) intMaxNote = UBound(arrR

17、emind) - 1 intCurrentNote = intMinNote 今日沒有提醒 If intMaxNote intMinNote Then RichTextBox1.Text = 今日沒有提醒 Label13.Caption = 平安日 Label11.Enabled = False Label12.Enabled = FalseElse 顯示第一條提醒內(nèi)容 ShowNote Label11.Enabled = True Label12.Enabled = True End If主界面load（）代碼：Private Sub Form_Load() Call WHScreen rt

18、n = SetWindowPos(Me.hWnd, -1, 0, 0, 0, 0, 3) 運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)使窗體置前的功能 Image16.Top = RichTextBox1.Top Image16.Left = RichTextBox1.Left Image16.Width = RichTextBox1.Width Image16.Height = RichTextBox1.Height SetWindowLong RichTextBox1.hWnd, GWL_EXSTYLE, GetWindowLong(RichTextBox1.hWnd, GWL_EXST

19、YLE) Or WS_EX_TRANSPARENT SetWindowLong RichTextBox2.hWnd, GWL_EXSTYLE, GetWindowLong(RichTextBox1.hWnd, GWL_EXSTYLE) Or WS_EX_TRANSPARENT Me.KeyPreview = False StatusBar1.Panels(1) = Now OpenTable Adodc1, 用戶管理 Adodc1.Refresh Adodc1.RecordSource = select * from 用戶管理 where xm = & 登錄.Text2 & Adodc1.Re

20、fresh If Adodc1.Recordset!管理員 = 1 Then QXstr = admin Image15.Visible = True Image15.Picture = LoadPicture( & App.Path & image6.gif) 加載圖片 Image6.Visible = True Image6.Picture = LoadPicture( & App.Path & image01.gif) 加載圖片 Label16.Visible = True ElseIf Adodc1.Recordset!普通 = 1 Then QXstr = readonly Imag

21、e13.Visible = True Image13.Picture = LoadPicture( & App.Path & image5.gif) 加載圖片 End If If Adodc1.Recordset!刪除 = 1 Then QX1 = True Image8.Visible = True Image8.Picture = LoadPicture( & App.Path & image4.gif) 加載圖片 End If If Adodc1.Recordset!修改 = 1 Then QX2 = True Image10.Visible = True Image10.Picture

22、 = LoadPicture( & App.Path & image3.gif) 加載圖片 End If If Adodc1.Recordset!添加 = 1 Then QX3 = True Image9.Visible = True Image9.Picture = LoadPicture( & App.Path & image2.gif) 加載圖片 End If If Adodc1.Recordset!瀏覽 = 1 Then QX4 = True Image7.Visible = True Image7.Picture = LoadPicture( & App.Path & image1.

23、gif) 加載圖片 End If Label3.Caption = 當(dāng)前操作員： & 登錄.Text2 If QXstr = admin Then ZhuangTai = 管理員 ElseIf QXstr = readonly Then ZhuangTai = 只讀用戶 Else ZhuangTai = 普通用戶 End If 簽名設(shè)定 If IsNull(Adodc1.Recordset!qm.Value) Then Label2.Caption = “歡迎使用餐飲部辦公軟件” Else Label2.Caption = Adodc1.Recordset!qm End If Image1.S

24、tretch = True 使圖片完整顯示 頭像設(shè)定 If IsNull(Adodc1.Recordset!Tx.Value) Then Image1.Picture = LoadPicture( & App.Path & Tx1.bmp) 加載圖片 Else Image1.Picture = LoadPicture( & App.Path & Tx + Adodc1.Recordset!Tx) 加載圖片 End If StatusBar1.Panels(2) = 狀態(tài)： & ZhuangTai Label3.Caption = 歡迎您： + Adodc1.Recordset!xm Text2

25、.Text = Set c_Subclass = New iSubClass c_Subclass.SetMsgHook Me.hWnd Label2.ToolTipText = Label2 加載今日提醒列表 初始化 intMinNote = LBound(arrRemind) intMaxNote = UBound(arrRemind) - 1 intCurrentNote = intMinNote 今日沒有提醒 If intMaxNote intMinNote Then RichTextBox1.Text = 今日沒有提醒 Label13.Caption = 平安日 Label11.En

26、abled = False Label12.Enabled = FalseElse 顯示第一條提醒內(nèi)容 ShowNote Label11.Enabled = True Label12.Enabled = True End IfEnd Sub3、備忘錄功能可以用不同的方式進(jìn)行提醒：1.提示框提示任何提示將在最前端顯示，保證用戶一定能收到提醒2.聲音播放提示3.定時(shí)運(yùn)行程序主要提醒代碼：Private Sub timCheck_Timer()檢查提醒Dim i As Integer 循環(huán)變量Dim arrTemp() As String 臨時(shí)數(shù)組 For i = LBound(arrRemind)

27、 To UBound(arrRemind) - 1 arrTemp = Split(arrRemind(i), ) 時(shí)間到了嗎？ If arrTemp(0) = FormatTime(Now(), 1010) Then 到了，顯示提醒框 ShowRemind arrTemp(1), arrTemp(2) 執(zhí)行提醒動(dòng)作 Select Case arrTemp(3) Case 1 播放聲音 wmpPlayer.URL = arrTemp(4) Case 2 執(zhí)行程序 ShellExecute 0, vbNullString, arrTemp(4), vbNullString, vbNullStri

28、ng, vbNormalFocus End Select End If Next 顯示時(shí)間 lblTime.Caption = FormatTime(Now(), 1111) 每天0:00時(shí)惻新提醒列表 If Hour(Now() = 0 And Minute(Now() = 0 And Second(Now() = 0 Then LoadNote End IfEnd Sub4、款待單管理主要功能：1.添加款待單記錄2.刪除款待單記錄3預(yù)覽款待單記錄利用反綁定方法查看數(shù)據(jù)主要代碼：Private Sub JionBack()Dim SLen As Integer If Adodc1.Recor

29、dset.RecordCount 0 Then StrNum = Val(Adodc1.Recordset.Fields(編號(hào)) SLen = Len(Trim(StrNum) Select Case SLen 位數(shù)不足者補(bǔ)0 Case 1 strTemp = 00000 Case 2 strTemp = 0000 Case 3 strTemp = 000 Case 4 strTemp = 00 Case 5 strTemp = 0 Case 6 strTemp = End Select On Error Resume Next 執(zhí)行錯(cuò)誤處理 .Text2(4).Text = Adodc1.R

30、ecordset(0) 款待單查看.Label11.Caption = Adodc1.Recordset(1) 款待單查看.Label12.Caption = Adodc1.Recordset(2) 款待單查看.Label10.Caption = Adodc1.Recordset(3) 款待單查看.Label19.Caption = Adodc1.Recordset(4) 款待單查看.Label15.Caption = Adodc1.Recordset(5) 款待單查看.Label16.Caption = Adodc1.Recordset(6) 款待單查看.Label14.Caption =

31、款待： & Adodc1.Recordset(7) & & Adodc1.Recordset(9) & 元 款待單查看.Label17.Caption = Adodc1.Recordset(8) 款待單查看.Label17.Caption = Adodc1.Recordset(9) 款待單查看.Label18.Caption = Adodc1.Recordset(10) 款待單查看.Label13.Caption = Adodc1.Recordset(11) End IfEnd Sub Private Sub DataGrid1_Click() Call JionBack 調(diào)用數(shù)據(jù)反綁定過程

32、調(diào)用數(shù)據(jù)反綁定過程 款待單查看.ShowEnd Sub同時(shí)用time控件計(jì)算顯示數(shù)量Private Sub Timer1_Timer() If Adodc1.Recordset.RecordCount 0 Then Label7.Caption = 目前數(shù)據(jù)庫中共有 & Adodc1.Recordset.RecordCount & 條款待單數(shù)據(jù) End IfEnd Sub根據(jù)需要進(jìn)行模糊查詢：Private Sub Text3_Change() On Error Resume Next 執(zhí)行錯(cuò)誤處理 Adodc1.RecordSource = select * from 款待單 where +

33、 Combo1.Text + like % + Text3.Text + % Adodc1.RefreshEnd Sub款待單添加：添加代碼： Adodc1.Recordset.AddNew Adodc1.Recordset!申請(qǐng)時(shí)間 = DTPicker1.Value Adodc1.Recordset!單位 = Text1.Text Adodc1.Recordset!款待時(shí)間 = DTPicker2.Value Adodc1.Recordset!事由 = Text2.Text Adodc1.Recordset!款待內(nèi)容 = Combo1.Text Adodc1.Recordset!款待金額

34、= Text3.Text Adodc1.Recordset!部門 = Combo2.Text Adodc1.Recordset!申請(qǐng) = Text4.Text Adodc1.Recordset!部門經(jīng)理 = Text5.Text Adodc1.Recordset!批準(zhǔn)人 = Combo3.Text Adodc1.Recordset!地點(diǎn) = Combo4.Text Adodc1.Recordset!經(jīng)辦 = 登錄.Text2 Adodc1.Recordset.Update Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Tex

35、t = Combo1.Text = Combo2.Text = Combo4.Text = Adodc1.Refresh 款待單.DataGrid1.Refresh Label11.Caption = 添加成功，請(qǐng)繼續(xù) Command1.Visible = False Command3.Visible = True4、員工信息管理代碼：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注釋：鼠標(biāo)指針在窗體上Image3.Visible = FalseImage2.Vi

36、sible = FalseImage1.Visible = FalseEnd SubPrivate Sub label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注釋：鼠標(biāo)指針在按鈕上時(shí)，Image1.Visible = TrueEnd SubPrivate Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注釋：鼠標(biāo)指針在按鈕上時(shí)，Image1.Visible = True

37、End SubPrivate Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注釋：鼠標(biāo)指針在按鈕上時(shí)，Image3.Visible = True End SubPrivate Sub label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)注釋：鼠標(biāo)指針在按鈕上時(shí)，Image3.Visible = True End SubPrivate Sub Form_Load() Com

38、bo1.List(0) = 餐飲部 Combo1.List(1) = 大堂吧 Combo1.List(2) = 溢咖啡 Combo1.List(3) = 香溢坊 Combo1.List(4) = 西餐廳 Combo1.List(5) = 西廚房 Combo1.List(6) = 中餐廳 Combo1.List(7) = 中廚房 Combo1.List(8) = 溢德銘府 Combo1.List(9) = 管事部 Combo1.List(10) = 香溢宮 Combo2.List(0) = 實(shí)習(xí)生 Combo2.List(1) = 員工 Combo2.List(2) = 領(lǐng)班 Combo2.Li

39、st(3) = 代班 Combo2.List(4) = 主管 Combo2.List(5) = 經(jīng)理 Combo3.List(0) = 0.8 Combo3.List(1) = 0.9 Combo3.List(2) = 1.0 Combo3.List(3) = 1.3 Combo3.List(4) = 1.6 Combo3.List(5) = 2.0 Combo3.List(6) = 2.5 Combo4.List(0) = 男 Combo4.List(1) = 女 End SubPrivate Sub Label1_Click()If Text1.Text = Then MsgBox (請(qǐng)輸

40、入員工身份證號(hào)碼！)Else 員工信息.Adodc1.RecordSource = select * from 員工信息 where ID= & Text1.Text & 員工信息.Adodc1.Refresh 判斷是否重復(fù) If 員工信息.Adodc1.Recordset.EOF = False Then MsgBox 已經(jīng)存在該身份證號(hào)碼！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit SubElse On Error Resume

41、 Next 執(zhí)行錯(cuò)誤處理 員工信息.Adodc1.Recordset.AddNew 員工信息.Adodc1.Recordset!ID = Text1.Text 員工信息.Adodc1.Recordset!姓名 = Text2.Text 員工信息.Adodc1.Recordset!電話1 = Text3.Text 員工信息.Adodc1.Recordset!電話2 = Text9.Text 員工信息.Adodc1.Recordset!地址1 = Text4.Text 員工信息.Adodc1.Recordset!地址2 = Text10.Text 員工信息.Adodc1.Recordset!獎(jiǎng)金

42、= Text6.Text 員工信息.Adodc1.Recordset!工資 = Text7.Text 員工信息.Adodc1.Recordset!QQ = Text5.Text 員工信息.Adodc1.Recordset!py = Text8.Text 員工信息.Adodc1.Recordset!生日 = DTPicker1.Value 員工信息.Adodc1.Recordset!入店 = DTPicker2.Value 員工信息.Adodc1.Recordset!部門 = Combo1.Text 員工信息.Adodc1.Recordset!崗位 = Combo2.Text 員工信息.Adod

43、c1.Recordset!性別 = Combo4.Text 員工信息.Adodc1.Recordset!績效 = Combo3.Text 員工信息.Adodc1.Recordset.Update 員工信息.Adodc1.RefreshMsgBox (添加 ： “ + Text2.Text + ” 的個(gè)人信息成功) 記錄登錄人員信息- OpenTable 登錄.Adodc1, 登錄信息 登錄.Adodc1.Refresh 登錄.Adodc1.Recordset.AddNew 登錄.Adodc1.Recordset!登錄時(shí)間 = Now 登錄.Adodc1.Recordset!人員 = 登錄.Te

44、xt2.Text 登錄.Adodc1.Recordset!事件 = 員工添加 登錄.Adodc1.Recordset!內(nèi)容 = 姓名： + Text2.Text & 部門： + Combo1.Text 登錄.Adodc1.Recordset.Update 登錄.Adodc1.Refresh 記錄登錄人員信息- 員工信息.DataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Label15_Click() Label15.Visible = False 添加label隱藏 Label1.Visible = True 保存label出現(xiàn) Label2.Vi

45、sible = True 取消label出現(xiàn) Label5.Visible = False 添加label隱藏End SubPrivate Sub label2_click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Label15.Visible = True 添加label隱藏 Label1.Visible = False 保存label出現(xiàn) Label2.Visible = False 取消label出現(xiàn) Label5.Visible = True 添加label隱藏End SubPrivate Sub label5_click() Unload MeEnd Sub代碼：Private Sub DataGr