【導(dǎo)讀】隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用越來越普及。機(jī)實(shí)現(xiàn)企業(yè)人事工資的管理勢(shì)在必行。本系統(tǒng)是結(jié)合公司實(shí)際的財(cái)務(wù)制度，經(jīng)過實(shí)。述了本系統(tǒng)的設(shè)計(jì)過程。為便于說明，文中繪制了程序結(jié)構(gòu)框圖、部分界面圖和數(shù)。最后附有主要的源程序代碼清單。

　　

【正文】 工資 總額 Caption 退出 BOOL BOOL CDataCombo CAdodc CDateTimeCtrl CDataGrid m_check1 m_check2 m_dc m_ad m_time m_da (3) ADO Data 控件具體設(shè)置如下 。 ① 右鍵單擊該控件 ,從彈出的菜單中單擊 “ Properties”項(xiàng) ,彈出“ ADO Data 控件屬性”對(duì)話框。 ② 在“ General”選項(xiàng)卡取消“ Visible”復(fù)選框的選擇 ,因?yàn)橐话闶褂?ADO Data控 件的對(duì)話框控件不可見。 ③ 單擊 “通用”選項(xiàng)卡 ,選擇“使用連接字符串”選項(xiàng) ,然后 單擊 “生成”按鈕 ,如圖 19 所示。 圖 19 設(shè)置數(shù)據(jù)源 ④ 接著彈出“數(shù)據(jù)連接屬性”對(duì)話框 ,在“提供者”頁中選擇“ Microsoft OLE DB Provider for SQL Server”選項(xiàng) ,如圖 20 所示。 ⑤ 單擊 “下一步”按鈕 ,在“連接”選項(xiàng)卡上設(shè)置對(duì) SQL Server 的連接屬性 ,包版權(quán)所有： dgghate 31 括選擇服務(wù)器 ,選擇數(shù)據(jù)庫 ,具體如圖 21 所示 。 圖 20 “數(shù)據(jù)連接屬性”對(duì)話框 圖 21 “連接”選項(xiàng)卡 版權(quán)所有： dgghate 32 ⑥ 單擊 “確定”按鈕 ， 完成對(duì)“數(shù)據(jù)連接屬性”的設(shè)置。 ⑦ 在“ ADO Data 控件屬性”對(duì)話框中單擊 “記錄源”選項(xiàng)卡 ， 在“命令類型” 欄中選擇“ 1adCmdText” ， 然后在“命令文本 (SQL)”中輸入“ SELECT YGid AS 員工編號(hào) ， YGxm AS 員工姓名 ， JBgz AS 基本工資 ， GLgz AS 工齡工資 ， ZWgz AS 職務(wù)工 資 ,YLbxj AS 養(yǎng)老保險(xiǎn)金 ， GRsds AS 個(gè)人所得稅 ， SHbz AS 生活補(bǔ)助 ， ZFbz AS 住房補(bǔ)助 ， BXf AS 保險(xiǎn)費(fèi) ， JiaBts AS 加班天數(shù) ， JiaBgz AS 加班工資 ， SJts AS 事假天數(shù) ， SJkk AS 事假扣款 ， YFje AS 應(yīng)發(fā)金額 ， SFje AS 實(shí)發(fā)金額 ， Yu_E AS 余額 ， SJian AS 時(shí)間 FROM Gzffmxb” ， 如圖 22 所示 。 圖 22 “記錄源”選項(xiàng)卡 (4) DataGrid 控件具體設(shè)置如下。 右鍵單擊 DataGrid 控件，從彈出的菜單中單擊“ properties”選項(xiàng)，然后彈出 “ DataGrid 控件屬性”對(duì)話框。選擇“ ALL” 選項(xiàng)卡。將“ AllowUpdate”屬性設(shè)置為“ False”，將“ DataSource”屬性設(shè)置為“ IDC ADODC1”，如圖 23 所示。 版權(quán)所有： dgghate 33 圖 23 DataGrid 控件“ All”選項(xiàng)卡 (5) DataCombo 控件具體設(shè)置如下。 右鍵單擊 DataCombo 控件，從彈出的菜單中單擊“ properties”選項(xiàng)，然后彈出 “ DataCombo 控件屬性”對(duì)話框。選擇“ ALL” 選項(xiàng)卡。將 “ DataField”屬性設(shè)置為“員工編號(hào)”，將“ DataSource”屬性設(shè)置為“ IDC ADODC1”，如圖 24 所示。 圖 24 DataCombo 控件“ All”選項(xiàng)卡 代碼分析 (1) 當(dāng)啟動(dòng)對(duì)話框時(shí) ,將執(zhí)行 OnInitDialog 函數(shù)，設(shè)置 DataGrid 控件的列長。具體代碼如下： BOOL CZongtcxdlg::OnInitDialog() 版權(quán)所有： dgghate 34 { CDialog::OnInitDialog()。 // TODO: Add extra initialization here SetIcon(m_hIcon, TRUE)。 //設(shè)置復(fù)選框初始化顯示 m_check1=TRUE。 m_check2=TRUE。 UpdateData(false)。 //設(shè)置 DataGrid 控件各列顯示的長度 _variant_t vIndex。 vIndex=long(0)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(1)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(2)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(3)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(4)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(5)。 ().GetItem(vIndex).SetWidth(75)。 vIndex=long(6)。 ().GetItem(vIndex).SetWidth(75)。 vIndex=long(7)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(8)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(9)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(10)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(11)。 版權(quán)所有： dgghate 35 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(12)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(13)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(14)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(15)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(16)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(17)。 ().GetItem(vIndex).SetWidth(120)。 return TRUE。 // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } 這里需要加入頭文件 ， 具體代碼如下 : include include include (2) 設(shè)置復(fù)選框的響應(yīng)函數(shù)，代碼如下： void CZongtcxdlg::OnCheck1() { // TODO: Add your control notification handler code here UpdateData(true)。 if(m_check1==TRUE) check=1。 else check=0。 UpdateData(false)。 } (3) 為“查詢”按鈕添加消息響應(yīng)函數(shù)，使其具有查詢功 能，代碼如下： void CZongtcxdlg::OnChaxun() 版權(quán)所有： dgghate 36 { // TODO: Add your control notification handler code here UpdateData(true)。 CString str。 //讀取 DataCombo 控件中文本 str=()。 CString date。 CTime temp。 (temp)。 //讀取當(dāng)前 Date Time 控件的月份 int m。 m = ()。 //讀取當(dāng)前 Date Time 控件的年份 int y。 y=()。 CString stry。 (%d,y)。 CString strm。 (%d,m)。 if(check2==0) (SELECT YGid AS 員工編號(hào) ,YGxm AS 員工姓名 ,JBgz AS 基本工資 ,GLgz AS 工齡工資 ,ZWgz AS 職務(wù)工資 ,YLbxj AS 養(yǎng)老保險(xiǎn)金 ,GRsds AS 個(gè)人所得稅 ,SHbz AS 生活補(bǔ)助 ,ZFbz AS 住房補(bǔ)助 ,BXf AS 保險(xiǎn)費(fèi) ,JiaBts AS 加班天數(shù) ,JiaBgz AS 加班工資 ,SJts AS 事假天數(shù) ,SJkk AS 事假扣款 ,YFje AS 應(yīng)發(fā)金額 ,SFje AS 實(shí)發(fā)金額 ,Yu_E AS 余額 ,SJian AS 時(shí)間 FROM Gzffmxb where YGid=39。+str+39。 )。 else if(check==0) //不選擇員工編號(hào)時(shí)查詢 (SELECT YGid AS 員工編號(hào) ,YGxm AS 員工姓名 ,JBgz AS 基本工資 ,GLgz AS 工齡工資 ,ZWgz AS 職務(wù)工資 ,YLbxj AS 養(yǎng)老保險(xiǎn)金 ,GRsds AS 個(gè)人所得稅 ,SHbz AS 生活補(bǔ)助 ,ZFbz AS 住房補(bǔ)助 ,BXf AS 保險(xiǎn)費(fèi) ,JiaBts AS 加班天數(shù) ,JiaBgz AS 加班工資 ,SJts AS 事假天數(shù) ,SJkk AS 事假扣款 ,YFje AS 應(yīng)發(fā)金額 ,SFje AS 實(shí)發(fā)金額 ,Yu_E AS 余額 ,SJian AS 時(shí)間 FROM Gzffmxb where year(sjian)=+stry+ and month(sjian)=+strm+ )。 else //選擇員工編號(hào)時(shí)查詢 (SELECT YGid AS 員工編號(hào) ,YGxm AS 員工姓名 ,JBgz AS 基本工資 ,GLgz AS 工齡工資 ,ZWgz AS 職務(wù)工資 ,YLbxj AS 養(yǎng)老保險(xiǎn)金 ,GRsds AS 個(gè)人所得稅 ,SHbz AS 生活補(bǔ)助 ,ZFbz AS 住房補(bǔ)助 ,BXf AS 保險(xiǎn)費(fèi) ,JiaBts AS 加班天數(shù) ,JiaBgz AS 加班工資 ,SJts AS 事假天數(shù) ,SJkk AS 事假扣款 ,YFje AS 應(yīng)發(fā)金額 ,SFje AS 實(shí)發(fā)金額 ,Yu_E AS 余額 ,SJian AS 時(shí)間 FROM Gzffmxb where YGid=39。+str+39。 and year(sjian)=+stry+ and month(sjian)=+strm+ )。 ()。 版權(quán)所有： dgghate 37 _variant_t vIndex。 vIndex=long(0)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(1)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(2)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(3)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(4)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(5)。 ().GetItem(vIndex).SetWidth(75)。 vIndex=long(6)。 ().GetItem(vIndex).SetWidth(75)。 vIndex=long(7)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(8)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(9)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(10)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(11)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(12)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(13)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(14)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(15)。 ().GetItem(vIndex).SetWidth(60)。 vIndex=long(16)。 ().GetItem(vIndex).SetWidth