【導讀】經(jīng)成為節(jié)約運營成本，提高工作效率的首選。樓盤銷售管理系統(tǒng)是典型的信息管理系統(tǒng),主要。包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。server2020；前端應用程序使用VisualBasic2020,利用其提供的各種面向?qū)ο蟮拈_發(fā)工。具,建立系統(tǒng)應用原型,對初始原型系統(tǒng)進行需求迭代，形成用戶滿意的可行系統(tǒng)。通信技術(shù)和電子信息的快速發(fā)展使人類已經(jīng)逐漸地進入信息化社會。問題，既可以提高工作效率，又可以獲得競爭優(yōu)勢。開發(fā)管理信息系統(tǒng)，促進國民經(jīng)濟管理。作為數(shù)據(jù)庫,通過ADO對象的數(shù)據(jù)環(huán)境控件連接SQLServer數(shù)據(jù)庫。息管理，其中包括房屋基本信息和樓盤基本信息。

　　

【正文】 ETE FROM [職工管理系統(tǒng) ].[dbo].[PosSal] WHERE position = 39。 amp。 amp。 39。 () Dim msg As Integer () msg = MsgBox(工資信息刪除成功！ , 0 + 48 + 0, 提示 ) () () () () End Sub 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 28 ‘修改工資信息 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 () = conn = UPDATE [職工管理系統(tǒng) ].[dbo].[PosSal] SET basicsalary = 39。 amp。 amp。 39。,absentcut = 39。 amp。 amp。 39。, overadd = 39。 amp。 amp。 39。 WHERE position = 39。 amp。 amp。 39。 () Dim msg As Integer () msg = MsgBox(工資信息修改成功！ , 0 + 48 + 0, 提示 ) () () () () End Sub 當管理員用戶登錄系統(tǒng)后，單擊“工資結(jié)算”按鈕后，將彈出如圖 44 所示窗體。 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 29 圖 44 工資結(jié)算界面 管理員用戶通過選擇日期，來確定當前月份所有員工的工資情況，單擊“確定”按鈕后，系統(tǒng)生成工資，并彈出消息框提示用戶。員工總工資計算公式：總工資 =月基本工資 +獎金 +保險 +加班一天工資 *加班次數(shù) — 曠工扣除工資 *曠工次數(shù)。 工資結(jié)算窗體 部分代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 () 39。查詢 Save表中的信息 = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 () = conn 39。確定當前添加的 INDEX號 index = 1 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 30 Dim sqlhelp As String = SELECT no FROM [職工管理系統(tǒng) ].[dbo].[Save] Dim help As New SqlCommand(sqlhelp, conn) Dim readerhelp As SqlDataReader = () While () index = index + 1 End While () 39。開始查詢主信息表 Dim sql1 As String = SELECT * FROM [職工管理系統(tǒng) ].[dbo].[User] Dim 1 As New SqlCommand(sql1, conn) Dim reader2 As SqlDataReader = () While () Dim id As String = reader2(0).ToString Dim position As String = reader2(5) Dim sex As String = reader2(2) Dim name As String = reader2(1) Dim sql2 As String = SELECT * FROM [職工管 理系統(tǒng) ].[dbo].[PosSal] WHERE position=39。 amp。 position amp。 39。 Dim 2 As New SqlCommand(sql2, conn2) Dim reader As SqlDataReader = () () Dim basicsalary As Integer = reader(1) Dim absentcut As Integer = reader(2) Dim overadd As Integer = reader(3) () 39。sql 查詢月表現(xiàn)中的信息 Dim sql3 As String = SELECT * FROM [職工管理系統(tǒng) ].[dbo].[MonthDisplay] WHERE yearmonth=39。 amp。 amp。 39。and id=39。 amp。 id amp。 39。 Dim 3 As New SqlCommand(sql3, conn2) 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 31 reader = () () Dim bonus As Integer = reader(3) Dim insurance As Integer = reader(4) Dim overtimes As Integer = reader(5) Dim absenttimes As Integer = reader(6) () Dim total As Integer = basicsalary + bonus + insurance + overadd * overtimes absentcut * absenttimes 39。Dim sql4 As String = INSERT INTO [職工管理系統(tǒng) ].[dbo].[Save] ([no]) VALUES() 39。向 Save中插入信息 Dim sql4 As String = INSERT INTO [職工管理系統(tǒng) ].[dbo].[Save]([no],[id],[position],[yearmonth],[name],[sex],[basicsalary],[bonus],[insurance],[overtimes],[absenttimes],[total]) VALUES ( 39。 amp。 index amp。 39。 , 39。 amp。 id amp。 39。 ,39。 amp。 position amp。 39。 , 39。 amp。 amp。 39。, 39。 amp。 name amp。 39。,39。 amp。 sex amp。 39。, 39。 amp。 basicsalary amp。 39。, 39。 amp。 bonus amp。 39。, 39。 amp。 insurance amp。 39。, 39。 amp。 overtimes amp。 39。,39。 amp。 absenttimes amp。 39。, 39。 amp。 total amp。 39。) index = index + 1 Dim 4 As New SqlCommand(sql4, conn2) reader = () () End While () () Dim msg As String msg = MsgBox(工資結(jié)算成功！ , 0 + 48 + 0, 提示 ) If msg = 1 Then () End If 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 32 () End Sub ‘向 ComboBox中添加日期信息 Private Sub Form5_Load(ByVal sender As , ByVal e As ) Handles Dim conn As New SqlConnection() = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 Dim querystring As String = SELECT DISTINCT [yearmonth] FROM [職工管理系統(tǒng) ].[dbo].[MonthDisplay] Dim As New SqlCommand(querystring, conn) () Dim reader As SqlDataReader = () While () (reader(0)) End While () End Sub 系統(tǒng)根據(jù)登錄用戶不同，工資查看功能也不同，用戶單擊“工資查看”的按鈕后，會彈出如圖 451 和 452 所示窗體。 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 33 圖 451 普通員工工資查看界面 普通員工用戶登錄后，單擊“工資查看”按鈕后，只可以根據(jù)日期，查看自己過往月份的工資信息。 普通員工用戶查看窗體 部分代碼： Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 39。 If = True Then () () = New SqlCommand = SELECT * FROM [職工管理系統(tǒng) ].[dbo].[Save] WHERE yearmonth = 39。 amp。 amp。 39。 AND id = 39。 amp。 登錄 .userid amp。 39。 (登錄 .flagsta) (登錄 .userid) = conn (myds, Save) = (0) 商業(yè)樓盤銷售 管理系統(tǒng) — 房屋信息管理 管理 34 () 39。 End If End Sub Private Sub Form7_Load(ByVal sender As , ByVal e As ) Handles Dim conn As New SqlConnection() = Data Source=PC202003271107\SQLEXPRESS。Initial Catalog=職工管理系統(tǒng) 。 User ID=sa。Password=123456 Dim querystring As String = SELECT DISTINCT [yearmonth] FROM [職工管理系統(tǒng) ].[dbo].[Save] Dim As New SqlCommand(querystring, conn)