員工管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)及報(bào)告-資料下載頁(yè)
2025-01-12 02:58本頁(yè)面
【正文】 urity Info=False。Initial Catalog=nightkid。Data Source=PC415020220301 (constr) sql = delete from 員工信息表 where e_name=39。 amp。 Trim() amp。 39。 (sql) （部門和崗位信息的添加和刪除語(yǔ)句大同小異，在此不再累述……） 按 工作崗位查詢： im constr, sql As String Dim rs As Dim conn As Set conn = New Set rs = New constr = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=nightkid。Data Source=PC415020220301 (constr) sql = select 員工信息表 .* ,崗位信息 .g_name from 員工信息表 ,崗位信息 where 崗位信息 .g_name=39。 amp。 Trim() amp。 39。 and 員工信息表 .g_code=崗位信息 .g_code sql, conn, adOpenKeyset, adLockOptimistic Set = rs （婚姻狀況查詢和學(xué)歷查詢語(yǔ)句大同小異，在此不再累述……） 按參加工作時(shí)間查詢及統(tǒng)計(jì)： Dim constr, sql As String Dim rs As Dim conn As Set conn = New Set rs = New 24 constr = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=nightkid。Data Source=PC415020220301 (constr) sql = select * from 員工信息表 where e_time=39。 amp。 Trim() amp。 39。 sql, conn, adOpenKeyset, adLockOptimistic Set = rs = （其余統(tǒng)計(jì)查詢的語(yǔ)句不再累述……） 密碼修改： Dim constr, sql As String Dim conn As Set conn = New constr = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=nightkid。Data Source=PC415020220301 (constr) Dim rs, rss As New Set rs = (select * from 系統(tǒng)用戶 where user_id=39。 amp。 Trim() amp。 39。and password=39。 amp。 Trim() amp。 39。) If Then MsgBox 用戶名或密碼錯(cuò)誤 , , 錯(cuò)誤 = = End Else sql = update 系統(tǒng)用戶 set password = 39。 amp。 Trim() amp。 39。 where user_id=39。 amp。 Trim() amp。 39。 (sql) End If （用戶添加刪除和員工信息管理語(yǔ)句基本思路相同，不再累述……） 全文完 指導(dǎo)老師： 蔡黔鷹 參考資料 :《數(shù)據(jù)庫(kù)系統(tǒng)概論》等……
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1