【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 。添加新記錄 39。為表中各字段賦值 (員工編號 ) = Left(.(i), 5) (員工姓名 ) = Mid(.(i), 6, Len(.(i))) (假別 ) = (開始時間 ) = amp。 amp。 (結(jié)束時間 ) = amp。 amp。 (原因 ) = txtCause (錄入日期 ) = Now 39。錄入日期為系統(tǒng)日期 潘慶強(qiáng)的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 33 myday = DateDiff(d, , ) 39。計算天數(shù) myminute = DateDiff(n, , ) 39。計算分鐘 If myday 0 Then 39。如果天數(shù)不 等于零 ( 請 假 時 間 ) = myday amp。 天 amp。 Round(myminute / 60, 1) amp。 小時 39。請假時間為天和小時 Else 39。否則 (請假時間 ) = Round(myminute / 60, 1) amp。 小時 39。請假時間按小時計算 End If 39。更新數(shù)據(jù)表 End If Next i 39。半閉數(shù)據(jù)集對象 . 39。刷新數(shù)據(jù)表 End With Else With main_kqgl_gcqj For i = 0 To . 1 39。遍歷員工列表 If .(i) = True Then 39。如果列表項被選定 select * from 公出請假記錄表 where 員工編號 =39。 + Left(.(i), 5) + 39。, n, adOpenKeyset, adLockOptimistic 39。查找選定員工 If 0 Then 39。如果該員工存在 39。給表中各 字段賦新值 (假別 ) = (開始時間 ) = amp。 amp。 (結(jié)束時間 ) = amp。 amp。 (原因 ) = txtCause (錄入日期 ) = Now 39。錄入日期為系統(tǒng)日期 myday = DateDiff(d, , ) 39。計算天數(shù) myminute = DateDiff(n, , ) 39。計算分鐘 If myday 0 Then 39。如果天數(shù)不等于零 ( 請 假 時 間 ) = myday amp。 天 amp。 潘慶強(qiáng)的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 34 Round(myminute / 60, 1) amp。 小時 39。請假時間為天和小時 Else 39。否則 (請假時間 ) = Round(myminute / 60, 1) amp。 小時 39。請假時間按小時計算 End If 39。更新數(shù)據(jù)表 39。關(guān)閉數(shù)據(jù)集對象 End If End If Next i . 39。刷新數(shù)據(jù)表 End With End If End Sub 4 員工沖出 /請假模塊的實(shí)現(xiàn)過程 員工 /公出請假模塊主要實(shí)現(xiàn)調(diào)用添加或修改員工公出 /請假窗體，查詢員工公出 /請假信息以及刪除指定的員工公出 /請假信息 ，顯現(xiàn)過程如下。 1 窗體設(shè)計 （ 1） 在工程中新建一個個窗體，命名為 main_kqgl_gcqj，設(shè)置，MDIchild 屬性為 TRUE， boderstyle 屬性為 1， caption 屬性為“員工公出請假”。 （ 2） 在窗體上添加一個 mmandbutton 控件用于查詢員工公 出 /請假信息，一個 tooolbar 控件和一個 imagelist 控件作為添加、修改以及刪除命令的工具欄。 （ 3） 在窗體上添加一個 box 控件用于顯示部門信息，一個listbox 控件用于 顯示員工信息，一個 frame 控件，設(shè)置caption 屬性為 “起止時間”，然后在控件中添加兩個dtpicker 控件用于顯示時間，一個 label 控件作為標(biāo)題。 （ 4） 在窗體上添加一個 ado 控件，設(shè)置 datasource 屬性為Provider=。Integrated Security=SSPI。Persist Security Info=False。User ID=sa。Initial Catalog=db_manmanage。DataSource=NORTHWIND\SQLEXPRESS， recordsource 屬性的命令為 2— adcmdtable 表。 （ 5） 在窗體上添加一個 datagrid 控件，設(shè)置 datasource 屬性為adodc1，然后用鼠標(biāo)右鍵單擊 datagrid1，在彈出的快捷菜單中選擇檢索字段命令，此時“公出請假”中格字段將要顯示出來。 這一點(diǎn)很重要。 潘慶強(qiáng)的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 35 2 代碼設(shè)計 1） 在代碼窗口中申明部分定義的數(shù)據(jù)集對象： Dim rs As New 2） 窗體啟動時，進(jìn)行初始化設(shè)置。代碼如下： Private Sub Form_Load() 39。添加部門信息到部門列表（ cboDept）中 總公司 select * from 部門表 order by 部門編號 , n, adOpenKeyset, adLockOptimistic 39。連接部門表 If 0 Then 39。如果表中有記錄 39。將記錄指針移到第一條 Do While = False 39。只要記錄不到尾 (部門名稱 ) 39。添加部門名稱到部門列表中 39。將記錄指針移到下一條 Loop End If 39。關(guān)閉數(shù)據(jù)集對象 = 0 39。設(shè)置默認(rèn)項 = Date: = Date 39。設(shè)置起止日期為系統(tǒng)日期 End Sub 3） 選擇部門時，如果 部門列表顯示的是總公司，則在員工列表中顯示所有員工；否則只在員工列表中顯示該部門的員工信息、代碼如下： Private Sub cboDept_Click() 39。清空員工列表 39。添加部門信息到 cboDept If = 總公司 Then 39。如果部門列表為 總公司 select * from 員工信息表 order by 編號 , n, adOpenKeyset, adLockOptimistic 39。連接員工信息表 If 0 Then 39。如果表中有記錄 39。將記錄指針移到第一條記錄 Do While = False 39。只要記錄不到尾 ( 編號 ) amp。 (姓名 ) 39。將員工編號和姓名添加到員工列表中 潘慶強(qiáng)的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 36 39。將記錄指針移到下一條記錄 Loop End If 39。關(guān)閉數(shù)據(jù)集對象 Else select * from 員工信息表 where 部門 =39。 + cboDept + 39。 order by 編號 , n, adOpenKeyset, adLockOptimistic 39。按部門查詢并顯示員工信息 If 0 Then 39。如果表中有記錄 39。將記錄指針移到第一條記錄 Do While = False 39。只要記錄不到尾 ( 編號 ) amp。 (姓名 ) 39。將員工編號和姓名添加到員工列表中 39。將記錄指針移到下一條記錄 Loop End If 39。關(guān)閉數(shù)據(jù)集對象 End If End Sub Private Sub DataGrid1_DblClick() blnAddGCQJ = False 39。標(biāo)記為修改狀態(tài) Load main_kqgl_gcqj_addModify 39。加載修改員工公出 /請假窗體 39。顯示修改員工公出 /請假窗體 With main_kqgl_gcqj_addModify .Caption = 修改公出 /請假信息 39。設(shè)置該窗體的標(biāo)題欄 .DTPStartDate = Left((開始時間 ), 10) 39。給開始日期賦值 .MaskEdBoxTime1 = Right((開始時間 ), 5) 39。給開始時間賦值 .DTPEndDate = Left((結(jié)束時間 ), 10) 39。給結(jié)束日期賦值 .MaskEdBoxTime2 = Right((結(jié)束時間 ), 5) 39。給結(jié)束時間賦值 .cboStyle = (假別 ) 39。給假別賦值 潘慶強(qiáng)的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 37 .txtCause = (原因 ) 39。給原因賦值 End With End Sub 4） 雙擊 datagrid控件，標(biāo)記為 修改狀態(tài)，調(diào)用修改員工公出 /請假窗體，并將當(dāng)前記錄的字段值賦給與之對應(yīng)的控件，代碼如下： Private Sub DataGrid1_DblClick() blnAddGCQJ = False 39。標(biāo)記為修改狀態(tài) Load main_kqgl_gcqj_addModify 39。加載修改員工公出 /請假窗體 39。顯示修改員工公出 /請假窗體 With main_kqgl_gcqj_addModify .Caption = 修改公出 /請假信息 39。設(shè)置該窗體的標(biāo)題欄