?? main_htgl_yginf.frm

?? 功能強大,畫面精致,在XP系統中運行最佳先選擇用戶名:a 再輸入密碼:a
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column11 
            DataField       =   "薪金"
            Caption         =   "薪金"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnWidth     =   840.189
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   945.071
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   645.165
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   1590.236
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   900.284
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   989.858
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   900.284
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   1409.953
            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   1049.953
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   1679.811
            EndProperty
            BeginProperty Column10 
               ColumnWidth     =   1635.024
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   764.787
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "main_htgl_yginf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer     '定義整型變量
Dim rs1 As New ADODB.Recordset     '定義數據集對象
Public Sub ado_text()     '定義一個顯示數據的函數
 With Adodc1.Recordset
  If .Fields("員工編號") <> "" Then Text1(0).text = Trim(.Fields("員工編號"))
  If .Fields("員工姓名") <> "" Then Text1(1).text = Trim(.Fields("員工姓名"))
  If .Fields("性別") <> "" Then Combo1.text = Trim(.Fields("性別"))
  If .Fields("出生日期") <> "" Then MaskEdBox1.text = Trim(.Fields("出生日期"))
  If .Fields("文化程度") <> "" Then Combo2.text = Trim(.Fields("文化程度"))
  If .Fields("身份證號") <> "" Then Text1(2).text = Trim(.Fields("身份證號"))
  If .Fields("所屬部門") <> "" Then Combo3.text = Trim(.Fields("所屬部門"))
  If .Fields("員工級別") <> "" Then Combo4.text = Trim(.Fields("員工級別"))
  If .Fields("聯系電話") <> "" Then Text1(3).text = Trim(.Fields("聯系電話"))
  If .Fields("聯系地址") <> "" Then Text1(4).text = Trim(.Fields("聯系地址"))
  If .Fields("聘用日期") <> "" Then MaskEdBox2.text = Trim(.Fields("聘用日期"))
  If .Fields("薪金") <> "" Then Text1(5).text = Trim(.Fields("薪金"))
 End With
End Sub
Private Sub Form_Activate()
 '初始化性別及文化程度
  Combo1.AddItem ("男"): Combo1.AddItem ("女"): Combo1.ListIndex = 0
  Combo2.AddItem ("大專"): Combo2.AddItem ("大學"): Combo2.AddItem ("其他")
  Combo2.ListIndex = 0
 '初始化查詢內容
  Combo5.AddItem ("員工編號"): Combo5.AddItem ("員工姓名"): Combo5.AddItem ("身份證號")
  Combo5.ListIndex = 1
  '打開連接
  rs1.Open "select 部門名稱 from 部門信息表 group by 部門名稱", cnn, adOpenKeyset, adLockOptimistic
  If rs1.BOF = False Then rs1.MoveFirst
  For i = 0 To rs1.RecordCount - 1
      Combo3.AddItem (Trim(rs1.Fields("部門名稱")))
      rs1.MoveNext
  Next i
  If Combo3.ListCount > 0 Then Combo3.ListIndex = 0
  rs1.Close
  '打開連接
  rs1.Open "select 級別名稱 from 員工級別表 group by 級別名稱", cnn, adOpenKeyset, adLockOptimistic
  If rs1.BOF = False Then rs1.MoveFirst
  For i = 0 To rs1.RecordCount - 1
   Combo4.AddItem (Trim(rs1.Fields("級別名稱")))
   rs1.MoveNext
  Next i
  If Combo4.ListCount > 0 Then Combo4.ListIndex = 0
  rs1.Close
  If Not Adodc1.Recordset.BOF Then
   Adodc1.Recordset.MoveFirst
   Call ado_text     '調用函數
  End If
  For i = 1 To 5
    Text1(i).Enabled = False
  Next i
  Combo1.Enabled = False: MaskEdBox1.Enabled = False: Combo2.Enabled = False
  MaskEdBox2.Enabled = False: Combo3.Enabled = False: Combo4.Enabled = False
  ComSave.Enabled = False
 '查詢所有員工信息，并按"員工編號"排序
  Adodc1.RecordSource = "select * from 員工信息表 order by 員工編號"
  Adodc1.Refresh
  Me.Caption = Me.Caption & "    " & frm_main.St1.Panels(3).text
End Sub
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then MaskEdBox1.SetFocus  '回車獲得焦點
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Text1(2).SetFocus    '回車獲得焦點
End Sub
Private Sub MaskEdBox1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Combo2.SetFocus       '回車獲得焦點
End Sub
Private Sub MaskEdBox2_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Text1(5).SetFocus    '回車獲得焦點
End Sub
Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Combo4.SetFocus
End Sub
Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyReturn Then Text1(3).SetFocus
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn And Index = 1 Then Combo1.SetFocus '回車獲得焦點
 If KeyCode = vbKeyReturn And Index = 2 Then Combo3.SetFocus
 If KeyCode = vbKeyReturn And Index = 3 Then Text1(4).SetFocus '回車獲得焦點
 If KeyCode = vbKeyReturn And Index = 4 Then MaskEdBox2.SetFocus
 If KeyCode = vbKeyReturn And Index = 5 Then ComSave.SetFocus
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
  If Adodc1.Recordset.RecordCount <> 0 Then
     If SSTab1.Tab = 1 And ComAdd.Enabled = False Then
        MsgBox ("您正在處理數據,請取消數據處理,在執行本操作!")
        SSTab1.Tab = 0
     End If
  End If
End Sub
Private Sub Comfind_Click()     '查詢員工信息
 Adodc1.RecordSource = "select * from 員工信息表 where (員工信息表." & Combo5.text & " like + '" + Text2.text + "'+'%')"
 Adodc1.Refresh
 SSTab1.Tab = 1
End Sub
Private Sub CmdMD_Click(Index As Integer)
 Select Case Index
 Case Is = 0     '移到第一條記錄
  If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
 Case Is = 1     '移到上一條記錄
  If Adodc1.Recordset.RecordCount <> 0 Then
   If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious
   If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst
  End If
 Case Is = 2     '移到下一條記錄
  If Adodc1.Recordset.RecordCount <> 0 Then
   If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
   If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
  End If
 Case Is = 3     '移到最后一條記錄
   If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveLast
 End Select
 Call ado_text     '調用函數
End Sub
Private Sub ComAdd_Click()     '添加
 Dim bh As Integer     '定義一個整型變量
 Set rs1 = New ADODB.Recordset
 '打開連接
 rs1.Open "select * from 員工信息表 order by 員工編號", cnn, adOpenKeyset, adLockOptimistic
 '創建員工編號
 If rs1.RecordCount > 0 Then
     If Not rs1.EOF Then rs1.MoveLast
     If rs1.Fields("員工編號") <> "" Then
        bh = Right(Trim(rs1.Fields("員工編號")), 4) + 1
        Text1(0).text = "p" & Format(bh, "0000")
     End If
   Else
     Text1(0).text = "p0001"
 End If
 rs1.Close
 For i = 1 To 5
   Text1(i).Enabled = True
   Text1(i).text = ""
 Next i
 Combo1.Enabled = True: MaskEdBox1.Enabled = True: Combo2.Enabled = True
 MaskEdBox2.Enabled = True: Combo3.Enabled = True: Combo4.Enabled = True
 ComSave.Enabled = True: ComEsc.Enabled = True: ComAdd.Enabled = False
 ComModify.Enabled = False: ComDelete.Enabled = False
 For i = 0 To 3
   CmdMD(i).Enabled = False
 Next i
 SSTab1.Tab = 0
 Text1(1).SetFocus     'text1(1)獲得焦點
End Sub
Private Sub ComModify_Click()     '允許修改員工信息
 If Adodc1.Recordset.RecordCount <> 0 Then
  For i = 1 To 5
      Text1(i).Enabled = True
  Next i
  Combo1.Enabled = True: MaskEdBox1.Enabled = True: Combo2.Enabled = True
  MaskEdBox2.Enabled = True: Combo3.Enabled = True: Combo4.Enabled = True
  ComSave.Enabled = True: ComEsc.Enabled = True: ComAdd.Enabled = False
  ComModify.Enabled = False: ComDelete.Enabled = False
  For i = 0 To 3
   CmdMD(i).Enabled = False
  Next i
 Else
  MsgBox ("沒有要修改的數據!")
 End If
End Sub
Private Sub ComDelete_Click()     '刪除員工信息
 If Adodc1.Recordset.RecordCount > 0 Then
  A = MsgBox("您確實要刪除這條數據嗎?", vbYesNo)
  If A = vbYes Then
   Adodc1.Recordset.Delete
   Adodc1.Refresh
   If Adodc1.Recordset.RecordCount <> 0 Then
      Call ado_text     '調用函數
   End If
   ComSave.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
   ComModify.Enabled = True
   For i = 0 To 3
    CmdMD(i).Enabled = True
   Next i
  End If
 Else
  MsgBox ("沒有要刪除的數據!")
 End If
End Sub
Private Sub ComSave_Click()     '保存員工信息
  Set rs1 = New ADODB.Recordset
  rs1.Open "select * from 員工信息表 where 員工編號='" & Trim(Text1(0).text) & "'order by 員工編號", cnn, adOpenKeyset, adLockOptimistic
  If rs1.RecordCount > 0 Then
    Dim A As String
    A = MsgBox("您確實要修改這條數據嗎?", vbYesNo)
    If A = vbYes Then
     '修改員工信息
      rs1.Fields("員工編號") = Trim(Text1(0).text)
      rs1.Fields("員工姓名") = Trim(Text1(1).text)
      rs1.Fields("性別") = Combo1.text
      rs1.Fields("出生日期") = Trim(MaskEdBox1.text)
      rs1.Fields("文化程度") = Combo2.text
      rs1.Fields("身份證號") = Trim(Text1(2).text)
      rs1.Fields("所屬部門") = Combo3.text
      rs1.Fields("員工級別") = Combo4.text
      rs1.Fields("聯系電話") = Trim(Text1(3).text)
      rs1.Fields("聯系地址") = Trim(Text1(4).text)
      rs1.Fields("聘用日期") = Trim(MaskEdBox2.text)
      rs1.Fields("薪金") = Val(Trim(Text1(5).text))
      rs1.Update     '更新數據庫
      Adodc1.Refresh
    End If
  Else
   If Text1(1).text <> "" And Combo1.text <> "" Then
     '添加員工信息
     rs1.AddNew
     rs1.Fields("員工編號") = Trim(Text1(0).text)
     rs1.Fields("員工姓名") = Trim(Text1(1).text)
     rs1.Fields("性別") = Combo1.text
     rs1.Fields("出生日期") = Trim(MaskEdBox1.text)
     rs1.Fields("文化程度") = Combo2.text
     rs1.Fields("身份證號") = Trim(Text1(2).text)
     rs1.Fields("所屬部門") = Combo3.text
     rs1.Fields("員工級別") = Combo4.text
     rs1.Fields("聯系電話") = Trim(Text1(3).text)
     rs1.Fields("聯系地址") = Trim(Text1(4).text)
     rs1.Fields("聘用日期") = Trim(MaskEdBox2.text)
     rs1.Fields("薪金") = Val(Trim(Text1(5).text))
     rs1.Update     '更新數據庫
     Adodc1.Refresh
    Else
     MsgBox "請填寫完整的信息"
   End If
  End If
  rs1.Close     '關閉數據集對象
  '設置控件狀態
  For i = 1 To 5
      Text1(i).Enabled = False
  Next i
  Combo1.Enabled = False: MaskEdBox1.Enabled = False: Combo2.Enabled = False
  MaskEdBox2.Enabled = False: Combo3.Enabled = False: Combo4.Enabled = False
  ComSave.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
  ComModify.Enabled = True: ComDelete.Enabled = True
  For i = 0 To 3
   CmdMD(i).Enabled = True
  Next i
End Sub
Private Sub ComEsc_Click()     '取消操作
  If Not Adodc1.Recordset.BOF Then
   Adodc1.Recordset.MoveFirst
   Call ado_text     '調用函數
  End If
  For i = 1 To 5
   Text1(i).Enabled = False
  Next i
  Combo1.Enabled = False: MaskEdBox1.Enabled = False: Combo2.Enabled = False
  MaskEdBox2.Enabled = False: Combo3.Enabled = False: Combo4.Enabled = False
  ComSave.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
  ComModify.Enabled = True: ComDelete.Enabled = True
  For i = 0 To 3
   CmdMD(i).Enabled = True
  Next i
End Sub
Private Sub ComExit_Click()
  frm_main.Enabled = True
  Unload Me
End Sub
上一頁 1 23
?? 文件大小 1592 K
?? 上傳用戶 bt9
?? 所屬分類酒店行業
??? 相關標簽

#畫面 #用戶 #密碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main_htgl_yginf.frm

?? 快捷鍵說明
