亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        基于VB的外聘教師工資數(shù)據(jù)管理系統(tǒng)開發(fā)

        2015-04-29 12:24:02劉春東張東輝戴美魁霍珍珍
        關(guān)鍵詞:教師工資窗體控件

        劉春東 張東輝 戴美魁 霍珍珍 劉 洋

        (河北建筑工程學(xué)院,河北 張家口075000)

        1 前 言

        外聘教師工資管理是一項(xiàng)瑣碎、復(fù)雜又十分細(xì)致的工作,不允許發(fā)生差錯(cuò).最初的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理,工作量大的時(shí)候,出現(xiàn)錯(cuò)誤的機(jī)率也隨之升高,花費(fèi)財(cái)務(wù)人員大量的時(shí)間,而且往往由于抄寫不慎,或者由于計(jì)算的疏忽,出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象.同時(shí)工資的發(fā)放具有較強(qiáng)的時(shí)間限制,必須嚴(yán)格按照學(xué)校規(guī)定的時(shí)間完成計(jì)算和發(fā)放工作.正是外聘教師工資管理的這種規(guī)律性、復(fù)雜性、時(shí)間性,使得外聘教師工資管理計(jì)算機(jī)化成為可能.外聘教師工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計(jì)和計(jì)算,完成眾多企業(yè)工資信息的處理,同時(shí)使用電腦還可以安全地、完整地保存大量的工資記錄.

        2 外聘教師工資管理系統(tǒng)設(shè)計(jì)[1-4]

        1)系統(tǒng)功能分析

        根據(jù)外聘教師情況及實(shí)現(xiàn)目標(biāo),系統(tǒng)功能模塊如圖1所示.

        圖1 系統(tǒng)功能模塊框圖

        系統(tǒng)最終實(shí)現(xiàn)的主要功能如下:

        (1)系統(tǒng)模塊設(shè)置:實(shí)現(xiàn)系統(tǒng)的登錄,及密碼修改.

        (2)外聘教師個(gè)人信息管理部分:實(shí)現(xiàn)外聘教師個(gè)人基本信息錄入、修改及查詢功能.

        (3)外聘教師工資信息設(shè)置模塊:包括設(shè)置外聘教師每課時(shí)工資、月發(fā)放工資及個(gè)人所得稅,實(shí)現(xiàn)外聘教師工資的計(jì)算功能.

        (4)系統(tǒng)信息設(shè)置模塊:包括用戶的密碼信息等,實(shí)現(xiàn)系統(tǒng)的密碼修改.

        2)“主窗體”模塊設(shè)計(jì)

        主窗體設(shè)計(jì)的界面首先通過設(shè)計(jì)向?qū)?,設(shè)計(jì)出符合Windows使用習(xí)慣的主窗體,然后通過菜單編輯器對(duì)主窗體進(jìn)行編輯添加系統(tǒng)需要的菜單選項(xiàng).主窗體主要由系統(tǒng)、數(shù)據(jù)、查詢和報(bào)表四個(gè)主模塊組成,如圖2所示.在各模塊中有相應(yīng)的窗體以滿足系統(tǒng)的需求.

        圖2 “主窗體”模塊

        3)“外聘教師基本信息”窗體設(shè)計(jì)

        該窗體需要實(shí)現(xiàn)三個(gè)功能:添加外聘教師的個(gè)人基本資料、聘任部門、聘期、聘期內(nèi)所教課程、學(xué)時(shí)、實(shí)驗(yàn)、課設(shè)、畢設(shè)等相關(guān)信息;對(duì)現(xiàn)有外聘教師的基本信息進(jìn)行查詢、編輯、刪除;增加新的外聘教師信息;并將這些信息存入數(shù)據(jù)庫.在該窗體中,需要在窗體中添加ADO控件,使用ADO對(duì)象鏈接數(shù)據(jù)庫,對(duì)數(shù)據(jù)庫進(jìn)行相應(yīng)的操作,如圖3所示.部分程序清單如下:

        圖3 “外聘教師基本信息”窗體模塊

        Dim iID As Integer,bAdd As Boolean

        Private IsConnect As Boolean'標(biāo)記數(shù)據(jù)庫是否連接

        Private cn As ADODB.Connection'連接數(shù)據(jù)庫的Connection對(duì)象

        Private rs As ADODB.Recordset'保存結(jié)果集的Recordset對(duì)象

        Public strSQL As String'保存執(zhí)行SQL語句的字符串

        Public Conn As String'連接字符串

        Public strDB As String'數(shù)據(jù)庫名稱

        Private Sub Adodc1_Click()

        End Sub

        Public Function QueryExt(ByVal strSQLstmt As String)As ADODB.Recordset'執(zhí)行數(shù)據(jù)庫查詢語句

        Dim rst As New ADODB.Recordset

        Connect'連接到數(shù)據(jù)庫

        Set rst.ActiveConnection=cn'設(shè)置rst的ActiveConnection屬性,指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接

        rst.CursorType=adOpenDynamic'設(shè)置游標(biāo)類型

        rst.LockType=adLockOptimistic'設(shè)置鎖定類型

        rst.Open strSQLstmt'打開記錄集

        Set QueryExt=rst'返回記錄集

        End Function

        4)“工資查詢報(bào)表”窗體設(shè)計(jì)

        在該窗體中,可以實(shí)現(xiàn)外聘教師的工資查詢,如應(yīng)發(fā)工資,實(shí)發(fā)工資,稅后每月應(yīng)發(fā)工資等.還可以將工資導(dǎo)出成Excel表格,如圖4,5所示.在該窗體中,主要是由ADODC1控件和DataGrid控件組成,ADODC1控件主要是用于連接數(shù)據(jù)庫,可以對(duì)數(shù)據(jù)庫進(jìn)行查詢.DataGrid主要是顯示想要的數(shù)據(jù).

        圖4 外聘教師工資導(dǎo)出窗體

        圖5 外聘教師工資導(dǎo)出到Excel

        部分程序清單如下:

        Option Explicit

        Dim i,j,k As Integer

        Dim xlapp As Variant

        Dim xlBook As Variant

        Dim xlSHEET As Variant

        Dim cn As New ADODB.Connection

        Dim rs As New ADODB.Recordset

        Dim strSQL2As String

        Dim IsConnect As Boolean

        Private Sub cmbPQ_Change()

        rs="select distinct from工資where聘期="+"'"+cmbPQ.Value+"'group by聘期"

        Adodc1.Refresh

        Set DataGrid1.DataSource=rs

        DataGrid.Refresh

        End Sub

        Public Function QueryExt(ByVal strSQLstmt As String)As ADODB.Recordset'執(zhí)行數(shù)據(jù)庫查詢語句

        Dim rst As New ADODB.Recordset

        Connect'連接到數(shù)據(jù)庫

        Set rst.ActiveConnection=cn

        '設(shè)置rst的ActiveConnection屬性,指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接

        rst.CursorType=adOpenDynamic'設(shè)置游標(biāo)類型

        rst.LockType=adLockOptimistic'設(shè)置鎖定類型

        rst.Open strSQLstmt'打開記錄集

        Set QueryExt=rst'返回記錄集

        End Function

        [1]周緒,管麗娜.白海波.Access 2000中文版入門與提高.北京:清華大學(xué)出版社,2003.2

        [2]劉韜等.Visual Basic 6.0數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航.北京:人民郵電出版社,2002.8

        [3]沈洪,施明利,等.VB程序設(shè)計(jì).北京:清華大學(xué)出版社,2010.8

        [4]楊忠寶,康順哲.VB語言程序設(shè)計(jì)教程.北京:人民郵電出版社,2010.11

        猜你喜歡
        教師工資窗體控件
        河間教體局回應(yīng)“拖欠教師工資”
        試談Access 2007數(shù)據(jù)庫在林業(yè)檔案管理中的應(yīng)用
        檔案天地(2019年5期)2019-06-12 05:12:02
        關(guān)于.net控件數(shù)組的探討
        軟件(2018年7期)2018-08-13 09:44:42
        公立初中生均工資成本變化趨勢與影響因素
        大學(xué)本科院校教師薪酬績效管理研究
        回顧與探索:教師工資制度改革的路徑選擇
        基于LayeredWindow的異形窗體局部刷新
        中文信息(2014年2期)2014-03-06 23:49:14
        巧設(shè)WPS窗體控件讓表格填寫更規(guī)范
        就這樣玩會(huì)VBA中常見的自定義控件
        電腦迷(2012年24期)2012-04-29 00:44:03
        WinCE.net下圖形用戶界面的開發(fā)
        国产精品丝袜一区二区三区在线 | 久久精品国产亚洲av大全| 久久亚洲中文字幕无码| 波多野结衣一区二区三区免费视频| 成人在线视频自拍偷拍| 三上悠亚亚洲精品一区| 国产亚洲精品第一综合另类| 国产精品_国产精品_k频道| 国产AV无码专区亚洲AV桃花庵| 日韩熟女一区二区三区| 精品嫩模福利一区二区蜜臀| 成人片黄网站a毛片免费| 2021久久精品国产99国产精品| 精品国产18禁久久久久久久| 国产av普通话对白国语| 日本一二三四区在线观看| 久人人爽人人爽人人片av| 中国丰满熟妇av| 天堂在线观看av一区二区三区| 亚洲日本国产一区二区三区| 少妇一区二区三区久久| 精品视频无码一区二区三区 | 国模一区二区三区白浆| 青青草成人在线播放视频| 欧美国产综合欧美视频| 亚洲暴爽av人人爽日日碰| 国产免费午夜福利蜜芽无码| 在线观看一区二区蜜桃| 国产精品人人做人人爽人人添 | 色窝综合网| 一区二区三区国产精品麻豆| 国产精品一区二区av麻豆| 国产在线一区二区三区av | 国产精品一区二区久久久av| 午夜免费福利小电影| 丰满女人又爽又紧又丰满| 国产经典免费视频在线观看| 青青草免费手机直播视频| 国产又猛又黄又爽| 无尽动漫性视频╳╳╳3d| 中文字幕一区,二区,三区|