小區數字化信息管理系統設計方案-資料下載頁

　　

【正文】 elect * from 工作變更信息表 where 員工編號 = 39。 + + 39。 = (3) = (4)End IfEnd WithExit Suberr1:End SubPrivate Sub Command6_Click()On Error GoTo err2With If Not .EOF Then .MoveNext UpdateShow = select * from 工作變更信息表 where 員工編號 = 39。 + + 39。 = (3) = (4)End IfEnd WithExit Suberr2:End SubPrivate Sub Command7_Click() Unload MeEnd SubPrivate Sub Command8_Click() 39。員工基本信息修改 = True = True = True = True = True = True = True = True = True = True = True = True = TrueEnd SubPrivate Sub Command9_Click() 39。員工基本信息更新UpdateData = False = False = False = False = False = False = False = False = False = False = False = False = FalseEnd SubPrivate Sub Form_Load() 39。當窗體剛加載時 = select * from 職位信息表Do While Not (0)Loop = select * from 部門信息表Do While Not (0) 39。部門編號Loop = select * from 員工信息表 = select * from 工作變更信息表 where 員工編號 = 39。39。 = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = False = FalseEnd SubSub UpdateShow() 39。刷新面板的數據With = .Fields(0) = .Fields(1)If .Fields(2) = 男 Then = 0Else = 1End If = .Fields(12) 39。備 注 = .Fields(3) = .Fields(4) 39。籍 貫If .Fields(5) = 高中以下 Then = 0End IfIf .Fields(5) = 高中 Then = 1End IfIf .Fields(5) = 大專 Then = 2End IfIf .Fields(5) = 本科 Then = 3End IfIf .Fields(5) = 研究生 Then = 4End IfIf .Fields(5) = 研究生以上 Then = 5End IfIf .Fields(7) = 是 Then 39。是否已婚 = 0Else = 1End If = .Fields(7) = .Fields(8) 39。入職時間 = .Fields(9) 39。部門編號 = .Fields(10) = .Fields(11) 39。聯系電話End With = select * from 員工信息表End SubSub UpdateData() 39。更新數據庫With .Fields(0) = .Fields(1) = If = 0 Then .Fields(2) = 男Else .Fields(2) = 女End If.Fields(12) = 39。備 注.Fields(3) = .Fields(4) = 39。籍 貫If = 0 Then .Fields(5) = 高中以下End IfIf = 1 Then .Fields(5) = 高中End IfIf = 2 Then .Fields(5) = 大專End IfIf = 3 Then .Fields(5) = 本科End IfIf = 4 Then .Fields(5) = 研究生End IfIf = 5 Then .Fields(5) = 研究生以上End IfIf = 0 Then 39。是否已婚 .Fields(7) = 是Else .Fields(7) = 否End If.Fields(7) = .Fields(8) = 39。入職時間.Fields(9) = 39。部門編號.Fields(10) = .Fields(11) = 39。聯系電話.UpdateEnd WithEnd SubPrivate Sub Text1_Change() 39。當員工編號欄改變時 = True = True = True = True = True = TrueEnd Sub☉部門職位設置Private Sub Combo1_Click() 39。當部門下拉菜單選定時If Then = select * from 職位設置表 where 部門名稱 = 39。 + + 39。 Do While Not If (1) Then (1) End If LoopEnd IfEnd SubPrivate Sub Command1_Click() 39。添加內容并判重Dim i As IntegerIf Then For i = 0 To 1 If (i) = Then Exit Sub End If Next End IfEnd SubPrivate Sub Command2_Click() 39。刪除內容Dim i As IntegerDim list(100) As StringDim seltxt As StringIf Then seltxt = For i = 0 To 1 If (i) seltxt Then list(i) = (i) End If Next For i = 0 To 99 If list(i) Then list(i) End If NextEnd IfEnd SubPrivate Sub Command4_Click() 39。確認設置Dim i As IntegerIf And = 0 Then = select * from 職位設置表 Do While Not Loop For i = 0 To 1 If (i) Then (0).Value = (1).Value = (i) End If NextElse MsgBox 請選擇部門和職位！End IfEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load() = select 部門名稱 from 部門信息表Do While Not (0) Loop = select 職位名稱 from 職位信息表With Do While Not .EOF .Fields(0) .MoveNext Loop .MoveFirstEnd WithEnd Sub☉設備信息查詢Private Sub Command1_Click() 39。控制按條件查詢Dim sqlstr As Stringsqlstr = select * from 設備信息表 where If = True Then sqlstr = sqlstr + 運行狀態 like 39。Else sqlstr = sqlstr + 設備名稱 like 39。End IfIf = Then sqlstr = select * from 設備信息表Else sqlstr = sqlstr + + 39。End If = sqlstrEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() 39。窗體加載時 = select * from 設備信息表 where 設備編號 = 39。39。 = FalseEnd SubPrivate Sub Option1_Click()If Then = TrueEnd IfEnd SubPrivate Sub Option2_Click()If Then = TrueEnd IfEnd SubPrivate Sub Text1_Change()If Or Then = TrueEnd IfEnd Sub