計算機專業-商場管理系統—數據庫設計及人事管理模塊設計-資料下載頁

【導讀】從而不僅節省人力成本，而且避免了由于手工操作出現的錯誤。本系統作為一個全面的超。市管理系統，目的是實現特大型商場管理的計算機化，商品進、銷、存的管理計算機化，因此，近年來品牌連鎖超市如雨后春筍般激爭，行業之間競爭十分激烈。務質量、探索新的銷售模式之外，一個優秀的自動化管理系統是必不可少的。程技巧和解決問題能力，增加零售領域業務知識，促進我們的團隊合作意識。每日退貨信息、每日銷售額信息、每日銷售信息、銷售入賬報表等信息。

　　

【正文】 Public ame As String Public um As String Private Sub Command1_Click() If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Then MsgBox (請填寫所有信息 ) 35 Exit Sub End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 10000000 Then MsgBox (輸入 編號格式有錯誤 ) Exit Sub End If If ( ) 19 Then MsgBox (您的年齡輸入有錯誤 ) Exit Sub End If SELECT * FROM 人事 where 編號 = 39。 amp。 amp。 39。, db, adOpenStatic, adLockOptimistic If = False Or = False Then MsgBox (此編號已存在 ) Exit Sub End If rd(姓名 ) = rd(性別 ) = rd(編號 ) = 36 rd(學歷 ) = rd(部門名稱 ) = rd(崗位 ) = rd(工作性質 ) = rd(出生日期 ) = amp。 amp。 amp。 amp。 rd(工作時間 ) = amp。 amp。 amp。 amp。 rd(聯系方式 ) = = = = = End Sub Private Sub Command2_Click() = = = = End Sub Private Sub Command3_Click() Dim Y As Long If = adStateOpen Then End If 37 If = adStateOpen Then End If If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Then MsgBox (請填寫所有信息 ) Exit Sub End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 1 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If str2 = If (IsNumeric(str2) = False) Then MsgBox (輸入工資有錯誤 ) Exit Sub End If 38 If str2 9999 Or str2 400 Then MsgBox (輸入工資有錯誤 ) Exit Sub End If SELECT * FROM 人事 where (編號 = 39。 amp。 amp。 39。) and (姓名 =39。 amp。 amp。 39。), db, adOpenStatic, adLockOptimistic If = True Or = True Then MsgBox (輸入信息不相符 ) Exit Sub Else: delete FROM 工資 where (編號 = 39。 amp。 amp。 39。) and (姓名 =39。 amp。 amp。 39。) , db, adOpenStatic, adLockOptimistic End If SELECT * FROM 工資 , db, adOpenStatic, adLockOptimistic rb(姓名 ) = rb(編號 ) = rb(工資數額 ) = rb(日期 ) = Year(Date) amp。 amp。 Month(Date) amp。 amp。 Day(Date) SELECT * FROM 工資 , db, adOpenStatic, adLockOptimistic Set = rb = = = 39 End Sub Private Sub Command4_Click() = = = End Sub Private Sub Command5_Click() Dim num As Long If = adStateOpen Then End If If = adStateOpen Then End If If = adStateOpen Then End If If ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Or ( = ) Then MsgBox (請填寫所有信息 ) Exit Sub 40 End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 10000000 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If ( ) 19 Then MsgBox (您的年齡輸入有錯誤 ) Exit Sub End If SELECT * FROM 人事 where 編號 = 39。 amp。 amp。 39。, db, adOpenStatic, adLockOptimistic If = False Or = False Then MsgBox (此編號已存在 ) Exit Sub End If delete FROM 人事 where (編號 = 39。 amp。 um amp。 39。) and (姓名 =39。 amp。 ame amp。 39。) , db, adOpenStatic, adLockOptimistic SELECT * FROM 人事 , db, adOpenStatic, adLockOptimistic rb(姓名 ) = 41 rb(性別 ) = rb(編號 ) = rb(學歷 ) = rb(部門名稱 ) = rb(崗位 ) = rb(工作性質 ) = rb(出生日期 ) = amp。 amp。 amp。 amp。 rb(工作時間 ) = amp。 amp。 amp。 amp。 rb(聯系方式 ) = = = = = = = End Sub Private Sub Command6_Click() Dim Y As Long If = adStateOpen Then End If If ( = ) Or ( = ) Then MsgBox (請填寫姓名與編號 ) Exit Sub 42 End If str1 = If (IsNumeric(str1) = False) Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If If str1 99999999 Or str1 1 Then MsgBox (輸入編號格式有錯誤 ) Exit Sub End If SELECT * FROM 工資 where (編號 = 39。 amp。 amp。 39。) and (姓名 =39。 amp。 amp。 39。) , db, adOpenStatic, adLockOptimistic If = True Or = True Then MsgBox (輸入信息不相符，不能刪除 ) Exit Sub Else: End If End Sub Private Sub data1_Click() End Sub Private Sub data3_Click() End Sub 43 Private Sub data2_Click() = False = False = False = True = False = False = False End Sub Private Sub data4_Click() End End Sub Private Sub Form_Load() = True = True = True = False = True = False If = adStateOpen Then End If SELECT * FROM 人事表單 , db, adOpenStatic, adLockOptimistic Set = rd End Sub 44 Private Sub Form_Unload(Cancel As Integer) End Sub Private Sub info1_Click() = False = True = False If = adStateOpen Then End If SELECT * FROM 人事表單 , db, adOpenStatic, adLockOptimistic Set = rd End Sub Private Sub info2_Click() = False = True = False End Sub Private Sub mem1_Click() = False = False = False = False = True = False 45 End Sub Private Sub mem2_Click() = False = False = False = True = False End Sub Private Sub member3_Click() = True = False = False = False = True End Sub Private Sub salary_Click() = False = True = False If = adStateOpen Then End If SELECT * FROM 工資表單 , db, adOpenStatic, adLockOptimistic Set = rd End Sub