社會(huì)保障管理系統(tǒng)數(shù)據(jù)庫

1、 沈陽理工大學(xué)課程設(shè)計(jì)專用紙 課程設(shè)計(jì)任務(wù)書學(xué) 院專 業(yè)信息與計(jì)算科學(xué)學(xué)生姓名班級(jí)學(xué)號(hào)課程設(shè)計(jì)題目社會(huì)保障管理系統(tǒng)實(shí)踐教學(xué)要求與任務(wù):設(shè)計(jì)為MDI窗體，含有主菜單：文件、管理社保信息、查詢社保信息。文件菜單包含以下子菜單及其功能：注冊(cè)：打開“注冊(cè)新用戶”窗體關(guān)閉：結(jié)束程序運(yùn)行登陸：登陸主界面管理社保信息 包含以下子菜單：養(yǎng)老保險(xiǎn)信息：顯示養(yǎng)老保險(xiǎn)信息瀏覽和編輯窗體失業(yè)保險(xiǎn)信息：顯示失業(yè)保險(xiǎn)信息瀏覽和編輯窗體醫(yī)療保險(xiǎn)信息：顯示醫(yī)療保險(xiǎn)信息瀏覽和編輯窗體查詢社保信息包含以下子菜單： 查詢養(yǎng)老保險(xiǎn)信息：顯示養(yǎng)老保險(xiǎn)信息查詢窗體查詢失業(yè)保險(xiǎn)信息：顯示失業(yè)保險(xiǎn)信息查詢窗體查詢醫(yī)療保險(xiǎn)信息：顯示醫(yī)療保險(xiǎn)信

2、息查詢窗體工作計(jì)劃與進(jìn)度安排:第一周：數(shù)據(jù)庫設(shè)計(jì)，利用SQL Server創(chuàng)建數(shù)據(jù)庫及數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁、登陸窗體及MDI窗體。第二周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體及打印報(bào)表功能。 撰寫課程設(shè)計(jì)報(bào)告，驗(yàn)收與答辯。指導(dǎo)教師： 2013年 12月 日專業(yè)負(fù)責(zé)人：2013年 12月 日學(xué)院教學(xué)副院長：2013 年12月 日沈陽理工大學(xué)摘 要 本系統(tǒng)的主要功能是建立社會(huì)保障管理系統(tǒng)，對(duì)養(yǎng)老保險(xiǎn)信息、失業(yè)保險(xiǎn)信息和醫(yī)療保險(xiǎn)信息的管理和查詢。本系統(tǒng)的數(shù)據(jù)庫是用SQL server 2000軟件進(jìn)行創(chuàng)建與設(shè)計(jì)，分別包括養(yǎng)老保險(xiǎn)信息、失業(yè)保險(xiǎn)信息、醫(yī)療保險(xiǎn)信息、登陸四個(gè)表。

3、通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，包括登錄界面、注冊(cè)新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進(jìn)行登錄操作，對(duì)輸入的用戶信息進(jìn)行驗(yàn)證，和注冊(cè)新用戶操作，以及最重要的操作是對(duì)數(shù)據(jù)庫中信息進(jìn)行修改與查詢。并可以對(duì)數(shù)據(jù)進(jìn)行添加與刪除，做到及時(shí)更新。關(guān)鍵詞： 社會(huì)保障 信息管理 SQL server 2000 VB目 錄1 系統(tǒng)功能概述11.1 系統(tǒng)功能11.2 系統(tǒng)結(jié)構(gòu)總圖12 數(shù)據(jù)庫設(shè)計(jì)22.1 需求分析22.2 E-R模型22.3 關(guān)系模型52.4 表結(jié)構(gòu)設(shè)計(jì)63 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)73.1 各窗體的設(shè)計(jì)：73

4、.2登錄窗體73.3MDI主窗體83.4注冊(cè)103.5養(yǎng)老保險(xiǎn)信息113.6失業(yè)保險(xiǎn)信息143.7醫(yī)療保險(xiǎn)信息183.8查詢養(yǎng)老保險(xiǎn)信息223.9查詢失業(yè)保險(xiǎn)信息233.10查詢醫(yī)療保險(xiǎn)信息243.11繳費(fèi)253.12查詢繳費(fèi)記錄26總 結(jié) 29參考文獻(xiàn)30iii沈陽理工大學(xué)1 系統(tǒng)功能概述1.1 系統(tǒng)功能 社會(huì)保障管理系統(tǒng)主要是實(shí)現(xiàn)養(yǎng)老保險(xiǎn)管理、失業(yè)保險(xiǎn)管理、醫(yī)療保險(xiǎn)管理。設(shè)計(jì)為MDI窗體，含有主菜單：文件、管理社保信息、查詢社保信息。文件菜單包含以下子菜單及其功能：注冊(cè)：打開“注冊(cè)新用戶”窗體關(guān)閉：結(jié)束程序運(yùn)行登陸：登陸主界面管理社保信息 包含以下子菜單：養(yǎng)老保險(xiǎn)信息菜單：顯示養(yǎng)老保險(xiǎn)信息

5、瀏覽和編輯窗體失業(yè)保險(xiǎn)信息菜單：顯示失業(yè)保險(xiǎn)信息瀏覽和編輯窗體醫(yī)療保險(xiǎn)信息菜單：顯示醫(yī)療保險(xiǎn)信息瀏覽和編輯窗體查詢社保信息包含以下子菜單： 查詢養(yǎng)老保險(xiǎn)信息：顯示養(yǎng)老保險(xiǎn)信息查詢窗體查詢失業(yè)保險(xiǎn)信息：顯示失業(yè)保險(xiǎn)信息查詢窗體查詢醫(yī)療保險(xiǎn)信息：顯示醫(yī)療保險(xiǎn)信息查詢窗體1.2 系統(tǒng)結(jié)構(gòu)總圖社會(huì)保障管理系統(tǒng)的結(jié)構(gòu)總圖，如下圖所示社會(huì)保障管理系統(tǒng)養(yǎng)老保險(xiǎn)信息失業(yè)保險(xiǎn)信息醫(yī)療保險(xiǎn)信息養(yǎng)老信息瀏覽編輯查詢養(yǎng)老保險(xiǎn)信息失業(yè)信息瀏覽編輯查詢失業(yè)保險(xiǎn)信息醫(yī)療信息瀏覽編輯查詢醫(yī)療保險(xiǎn)信息圖1.1社會(huì)保險(xiǎn)信息管理系統(tǒng)的結(jié)構(gòu)總圖2 數(shù)據(jù)庫設(shè)計(jì)2.1 需求分析隨著經(jīng)濟(jì)的發(fā)展，人們的物質(zhì)生活有了很大的改善，但人們的在面對(duì)

6、有些事情時(shí)還是力不從心。這其中大多數(shù)人會(huì)選擇保險(xiǎn)這個(gè)方法。隨著參加保險(xiǎn)的人員的增加，保險(xiǎn)種類的增設(shè)，投保人往往面臨選擇保險(xiǎn)種類的難題；另一方面，面對(duì)著巨大的數(shù)據(jù)，保險(xiǎn)公司的管理人員必須選擇一種不同于以往的方式去管理數(shù)據(jù)。所以，對(duì)于保險(xiǎn)公司的管理者而言，有效地提高工作效率是他們不得不面臨的問題。數(shù)據(jù)庫管理系統(tǒng)能快速的幫助管理者處理數(shù)據(jù)，提高工作效率。2.2 E-R模型 養(yǎng)老保險(xiǎn)信息E-R圖，如下圖所示養(yǎng)老保險(xiǎn)信息職工編號(hào)職工月繳費(fèi)基數(shù)開始繳費(fèi)時(shí)間人員類別圖2.1養(yǎng)老保險(xiǎn)信息實(shí)體屬性圖失業(yè)保險(xiǎn)信息E-R圖，如下圖所示失業(yè)保險(xiǎn)信息職工編號(hào)個(gè)人繳費(fèi)起始時(shí)間累計(jì)繳費(fèi)時(shí)間人員類別圖2.2失業(yè)保險(xiǎn)信息實(shí)體屬

7、性圖醫(yī)療保險(xiǎn)信息E-R圖，如下圖所示醫(yī)療保險(xiǎn)信息職工編號(hào)繳費(fèi)起始時(shí)間定點(diǎn)醫(yī)療機(jī)構(gòu)2保險(xiǎn)名稱繳費(fèi)終止時(shí)間定點(diǎn)醫(yī)療機(jī)構(gòu)1圖2.3醫(yī)療保險(xiǎn)信息實(shí)體屬性圖登陸E-R圖，如下圖所示登陸用戶名密碼圖2.4登陸實(shí)體屬性圖全局E-R圖，如下圖所示1m11mm1密碼用戶名登陸進(jìn)入醫(yī)療保險(xiǎn)信息職工編號(hào)繳費(fèi)起始時(shí)間定點(diǎn)醫(yī)療機(jī)構(gòu)2保險(xiǎn)名稱繳費(fèi)終止時(shí)間定點(diǎn)醫(yī)療機(jī)構(gòu)1投保職工信息投保投保失業(yè)保險(xiǎn)信息養(yǎng)老保險(xiǎn)信息職工編號(hào)人員類別累計(jì)繳費(fèi)時(shí)間職工編號(hào)人員類別累計(jì)繳費(fèi)時(shí)間1圖2.5全局E-R圖2.3 關(guān)系模型 一個(gè)實(shí)體型轉(zhuǎn)換為一個(gè)關(guān)系模式。實(shí)體的屬性就是關(guān)系的屬性，實(shí)體的碼就是關(guān)系的碼。根據(jù)E-R圖向關(guān)系模型轉(zhuǎn)換的原則，把E-

8、R圖轉(zhuǎn)換為關(guān)系模型。關(guān)系的碼用下橫線標(biāo)出。（1） 養(yǎng)老保險(xiǎn)信息（職工編號(hào)、開始繳費(fèi)時(shí)間、職工月繳費(fèi)基數(shù)、人員類別）職員編號(hào)為主碼（2） 失業(yè)保險(xiǎn)信息（職工編號(hào)、個(gè)人繳費(fèi)起始時(shí)間、累計(jì)繳費(fèi)時(shí)間、人員類別）職工編號(hào)為主碼（3）醫(yī)療保險(xiǎn)信息（職工編號(hào)、保險(xiǎn)名稱、繳費(fèi)起始時(shí)間、繳費(fèi)終止時(shí)間、定點(diǎn)醫(yī)療機(jī)構(gòu)1、定點(diǎn)醫(yī)療機(jī)構(gòu)2）職工編號(hào)為主碼（4）登陸（用戶名、密碼）用戶名為主碼2.4 表結(jié)構(gòu)設(shè)計(jì)（1） 養(yǎng)老保險(xiǎn)信息表結(jié)構(gòu)：圖2.6養(yǎng)老保險(xiǎn)信息表圖（2） 失業(yè)保險(xiǎn)信息表結(jié)構(gòu)：圖2.7失業(yè)保險(xiǎn)信息表圖（3） 醫(yī)療保險(xiǎn)信息表結(jié)構(gòu)：圖2.8醫(yī)療保險(xiǎn)信息表圖（4） 登陸表結(jié)構(gòu)圖2.9登陸表圖3 系統(tǒng)各功能模塊的詳細(xì)

9、設(shè)計(jì)3.1 各窗體的設(shè)計(jì)：本社會(huì)保障管理系統(tǒng)共包括11個(gè)窗體，分別為登錄，注冊(cè)新用戶，養(yǎng)老保險(xiǎn)信息查詢，失業(yè)保險(xiǎn)信息查詢，MDI窗體等。其中主窗體為MDI窗體。下面介紹各個(gè)窗體的設(shè)計(jì)語句及實(shí)現(xiàn)功能。3.2登錄窗體打開登錄界面后，輸入用戶名和密碼，點(diǎn)擊登陸按鈕，進(jìn)入MDI主窗體，如下圖所示Dim micount As IntegerPrivate Sub Command1_Click()Dim str As Stringstr = select * from 登陸 where 用戶名 = & Text1.Text & Adodc1.RecordSource = strAdodc1.Refresh

10、If Adodc1.Recordset.BOF = True ThenMsgBox 用戶名錯(cuò)誤,請(qǐng)重新輸入, vbExlamation, 警告Text1.Text = Text2.Text = Text1.SetFocusElseIf Adodc1.Recordset.Fields(密碼) = Text2.Text ThenMDIForm1.ShowUnload MeMDIForm1.g.Enabled = TrueMDIForm1.c.Enabled = TrueElse MsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入, vbExlamation, 警告Text2.Text = Text2.SetFoc

11、usEnd IfEnd Ifmicount = micount + 1If micount = 3 Then Unload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub圖3.1登錄界面圖3.3MDI主窗體 主窗體含有主菜單：文件、管理社保信息、查詢社保信息。文件菜單包含子菜單注冊(cè)、關(guān)閉、登陸。管理社保信息菜單包含子菜單養(yǎng)老保險(xiǎn)信息、失業(yè)保險(xiǎn)信息、醫(yī)療保險(xiǎn)信息。查詢社保信息菜單包含子菜單查詢養(yǎng)老保險(xiǎn)信息、查詢失業(yè)保險(xiǎn)信息、查詢醫(yī)療保險(xiǎn)信息。如下圖所示Private Sub c1_Click()Form5.ShowEnd SubPriv

12、ate Sub c2_Click()Form6.ShowEnd SubPrivate Sub c3_Click()Form7.ShowEnd SubPrivate Sub g1_Click()Form2.ShowEnd SubPrivate Sub g2_Click()Form3.ShowEnd SubPrivate Sub g3_Click()Form4.ShowEnd SubPrivate Sub MDIForm_Load()MDIForm1.Width = Screen.WidthMDIForm1.Height = Screen.Heightg.Enabled = Falsec.Enab

13、led = FalseEnd SubPrivate Sub w1_Click()Form1.ShowEnd SubPrivate Sub w2_Click()Unload MeEnd SubPrivate Sub w3_Click()Form8.ShowEnd Sub圖3.2MDI主窗體圖3.4注冊(cè) 在上面主窗體點(diǎn)擊菜單文件下的注冊(cè)，進(jìn)入注冊(cè)界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊(cè)成功。如下圖所示Private Sub Command1_Click()Dim sqlstr As StringIf Text1 = Then MsgBox 請(qǐng)輸入用戶名!, vbExclamation, 確認(rèn)

14、用戶名 Text1.SetFocus Exit SubElse sqlstr = Select * from 登陸 where 用戶名= & Text1.Text & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 用戶名已存在,請(qǐng)重新輸入!, vbExclamation, 檢驗(yàn)用戶名 Text1 = Text1.SetFocus Text2 = Text3 = Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次輸入的

15、密碼不一致,請(qǐng)重新輸入, vbExclamation, 檢驗(yàn)密碼 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密碼不能為空！, vbExclamation, 檢驗(yàn)密碼 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用戶名) = Trim(Text1) Adodc1.Recordset.Fields(密碼) = Trim(Text2) Adodc1.Recordset.Update MsgBox 成功注冊(cè)新用戶！, v

16、bInformation, 添加用戶 Me.Hide MDIForm1.ShowUnload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeMDIForm1.ShowEnd Sub圖3.3注冊(cè)窗體圖3.5養(yǎng)老保險(xiǎn)信息 點(diǎn)擊MDI主窗體的管理社保信息菜單下的養(yǎng)老保險(xiǎn)信息，出現(xiàn)養(yǎng)老保險(xiǎn)信息界面，可以進(jìn)行增加，刪除，修改，前移后移等功能。如下圖所示Private Sub Command1_Click()Adodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = Fa

17、lseCommand3.Enabled = TrueCommand4.Enabled = TrueLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command10_Click()Adodc1.RefreshCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled

18、 = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MovePreviousCommand3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseEnd

19、IfLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextCommand1.Enabled = TrueCommand2.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand3.Enabled = FalseCommand4.Enabled = False

20、End IfLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLastCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseLabel5.Caption = 記錄： & Adodc1.Recordset.AbsoluteP

21、osition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command5_Click()Dim n As Integern = Text5.TextAdodc1.Recordset.Move nLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.AddNewCommand6.Enabled = Fa

22、lseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command7_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.Move

23、Last End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command9_Cl

24、ick()Adodc1.Recordset.UpdateCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = False

25、Command3.Enabled = TrueCommand4.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub圖3.4養(yǎng)老保險(xiǎn)信息圖3.6失業(yè)保險(xiǎn)信息 點(diǎn)擊MDI主窗體的管理社保信息菜單

26、下的失業(yè)保險(xiǎn)信息，出現(xiàn)失業(yè)保險(xiǎn)信息界面，可以進(jìn)行增加，刪除，修改，前移后移等功能。如下圖所示Private Sub Command1_Click()Adodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate

27、Sub Command10_Click()Adodc1.RefreshCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MovePreviousCommand

28、3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseEnd IfLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextCo

29、mmand1.Enabled = TrueCommand2.Enabled = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLa

30、stCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command5_Click()Dim n As Integern = Text5.TextAdodc1.Recordset.Move nLabel5.Caption = 記錄： & Ad

31、odc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command6_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseAdodc1.Recordset.AddNewCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueC

32、ommand10.Enabled = TrueEnd SubPrivate Sub Command7_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Text

33、1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.UpdateCommand6.Enabled = TrueCommand7.Enabled = TrueC

34、ommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand6.Enabled = TrueComman

35、d7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseLabel5.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub圖3.5失業(yè)保險(xiǎn)信息圖3.7醫(yī)療保險(xiǎn)信息 點(diǎn)擊MDI主窗體的管理社保信息菜單下的醫(yī)療保險(xiǎn)信息，出現(xiàn)醫(yī)療保險(xiǎn)信息界面，可以進(jìn)行增加，刪除，修改，前移后移等功能。如下圖所示Private Sub Command1_Click()A

36、dodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command10_Click()Adodc1.RefreshCommand6.Enabled = TrueCommand7.Enabled

37、= TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.MovePreviousCommand3.Enabled = TrueCommand4.Enabled = Tr

38、ueIf Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirstCommand1.Enabled = FalseCommand2.Enabled = FalseEnd IfLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextCommand1.Enabled = TrueCommand2.Enabled

39、 = TrueIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastCommand3.Enabled = FalseCommand4.Enabled = FalseEnd IfLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveLastCommand1.Enabled = TrueCommand2.Ena

40、bled = TrueCommand3.Enabled = FalseCommand4.Enabled = FalseLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command5_Click()Dim n As Integern = Text7.TextAdodc1.Recordset.Move nLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / &

41、 Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.AddNewCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command7_Click()x = MsgBox(確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？, vbYesNo + vbQuestion, 確認(rèn))If x = vbY

42、es Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseC

43、ommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand9.Enabled = TrueCommand10.Enabled = TrueEnd SubPrivate Sub Command9_Click()Adodc1.Recordset.UpdateCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueCommand9.Enabled = FalseCommand10.Enabled = FalseText1.

44、Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub Form_Load()Command1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = TrueCommand4.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = Tru

45、eCommand9.Enabled = FalseCommand10.Enabled = FalseLabel7.Caption = 記錄： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub圖3.6醫(yī)療保險(xiǎn)信息圖3.8查詢養(yǎng)老保險(xiǎn)信息 點(diǎn)擊MDI主窗體的查詢社保信息菜單下的查詢養(yǎng)老保險(xiǎn)信息，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢Private Sub Command1_Click()Dim str As Stringstr = Select * From 養(yǎng)老保險(xiǎn)基礎(chǔ)信息表 str = str

46、 & Where 養(yǎng)老保險(xiǎn)基礎(chǔ)信息表. & Combo1.Text & Like & Text1 & % Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 職工編號(hào)Combo1.AddItem 人員類別Combo1.AddItem 累計(jì)繳費(fèi)時(shí)間Text1.Text = Combo1.Text = 職工編號(hào)End Sub圖3.7查詢養(yǎng)老保險(xiǎn)信息圖3.9查詢失業(yè)保險(xiǎn)信

47、息 點(diǎn)擊MDI主窗體的查詢社保信息菜單下的查詢失業(yè)保險(xiǎn)信息，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢Private Sub Command1_Click()Dim str As Stringstr = Select * From 失業(yè)保險(xiǎn)基礎(chǔ)信息表 str = str & Where 失業(yè)保險(xiǎn)基礎(chǔ)信息表. & Combo1.Text & Like & Text1 & % Adodc1.RecordSource = str Adodc1.RefreshEnd SubPrivate Sub Command2_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem 職工編號(hào)Combo1.AddItem 人員類別Text1.Text = Combo1.Text = 職工編號(hào)End Sub圖3.8查詢失業(yè)保險(xiǎn)信息圖3.10查詢醫(yī)療保