faka.frm

用microsoft vb6.0写的上班考勤系统！

      TabIndex        =   27
      Top             =   1320
      Width           =   4695
      Begin VB.CommandButton exit 
         Caption         =   "结 束"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3720
         TabIndex        =   40
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton del 
         Caption         =   "删 除"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   2820
         TabIndex        =   39
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton same 
         Caption         =   "保 存"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1920
         TabIndex        =   38
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton add 
         Caption         =   "增 加"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1020
         TabIndex        =   37
         Top             =   240
         Width           =   855
      End
      Begin VB.CommandButton modi 
         Caption         =   "修改"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   36
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.Label Label1 
      BackColor       =   &H80000007&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "发 卡 资 料"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   975
      Left            =   3840
      TabIndex        =   0
      Top             =   240
      Width           =   4815
   End
End
Attribute VB_Name = "frmfaka"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private AA      As Boolean
Private CC      As Boolean
Private BB      As Boolean
  Dim DD
Private ModiInfo    As Boolean
Private Addinfo     As Boolean
Private DelInfo     As Boolean

Private status As String
Private ST, TT, CardHao, NextInfo, BM, BMO
Private Rstfaka   As ADODB.Recordset
Private Cnnfaka   As ADODB.Connection
Private RstQJTian As ADODB.Recordset
Private CnnQJTian As ADODB.Connection
Private Cnnshuju  As ADODB.Connection
Private RstShuju  As ADODB.Recordset
Private Sub add_Click()
  diangua.Text = ""
  CardNo.Text = ""
  xingming(0).Text = ""
  GongHao.Text = ""
  Addinfo = True
  same.Enabled = True
  add.Enabled = False
  SelBumen.Enabled = False
  SelJiYuan.Enabled = False
End Sub

Private Sub Banhao_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Or KeyCode = 40 Then
     BanMing.SetFocus
    
   End If
   
   If KeyCode = 38 Then
    diangua.SetFocus
   End If
End Sub

Private Sub Banming_Change()
  If BanMing.Text = "1" Then
    BanMing.Text = "常班"
  End If
  
  If BanMing.Text = "2" Then
    BanMing.Text = "早班"
  End If
  
  If BanMing.Text = "3" Then
    BanMing.Text = "中班"
  End If
  
  If BanMing.Text = "4" Then
    BanMing.Text = "夜班"
  End If
End Sub

Private Sub BanMing_GotFocus()
StatusBar1.Panels(1).Text = "1、常班 2、早班 3、中班 4、夜班"
End Sub

Private Sub Banming_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Or KeyCode = 40 Then
     DianHuaFei.SetFocus
   End If
   
   If KeyCode = 38 Then
    Banhao.SetFocus
   End If
End Sub

Private Sub BanMing_LostFocus()
StatusBar1.Panels(1).Text = ""
End Sub

Private Sub bumen_Change()
  If Not IsNumeric(bumen) Then Exit Sub
  'If Dd = 1 Then Exit Sub
  Set RstShuju = New ADODB.Recordset
  RstShuju.Open "select * from bumen where bumenno='" + bumen.Text + "' ", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
  If Not RstShuju.EOF Then
    'Dd = 1
    bumen.Text = RstShuju.Fields(0)
    
  End If
  'If bumen.Text = "1" Then
  '   bumen.Text = "筹建处"
  'End If
  
  'If bumen.Text = "2" Then
  '   bumen.Text = "管理处"
  'End If
  
  'If bumen.Text = "3" Then
  '   bumen.Text = "会所"
  'End If
  
End Sub

Private Sub bumen_GotFocus()
Dim AA

Dim i As Integer
Set RstShuju = New ADODB.Recordset
RstShuju.Open "select * from bumen order by bumenno", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
Do While Not RstShuju.EOF
   BM = RstShuju.Fields(0)
   BMO = RstShuju.Fields(1)
  AA = AA & Space(2) & BMO & "、" & BM
  RstShuju.MoveNext
Loop
StatusBar1.Panels(1).Text = AA

End Sub

Private Sub Bumen_KeyUp(KeyCode As Integer, Shift As Integer)
 If KeyCode = 13 Or KeyCode = 40 Then
     jiwei.SetFocus
   End If
   
   If KeyCode = 38 Then
    cardono.SetFocus
   End If
End Sub

Private Sub bumen_LostFocus()
  StatusBar1.Panels(1).Text = ""
End Sub

Private Sub CardONo_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Or KeyCode = 40 Then
     bumen.SetFocus
   End If
   
   If KeyCode = 38 Then
    shenfen.SetFocus
   End If
End Sub


Private Sub Command5_Click()

End Sub

Private Sub del_Click()
DelInfo = True
'Selemodi.Visible = True
'xingming(0).Visible = False
SelBumen.Enabled = True
SelJiYuan.Enabled = True
same.Enabled = True
del.Enabled = False
End Sub

Private Sub diangua_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Or KeyCode = 40 Then
    Banhao.SetFocus
  End If
  
  If KeyCode = 38 Then
    dizi.SetFocus
  End If
End Sub

Private Sub dizi_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Or KeyCode = 40 Then
    diangua.SetFocus
  End If
  
  If KeyCode = 38 Then
    jiwei.SetFocus
  End If
End Sub

Private Sub exit_Click()
CheReadCardNO = False
'If status > 0 Then
   'CloseComm (status)

'End If
Unload Me
End Sub

Private Sub Form_Load()
 'If bumen.Text = "筹建处" Then
 '    AA = True
 'End If
 
 'If bumen.Text = "会所" Then
 '    cc = True
 'End If

 'If bumen.Text = "管理处" Then
 '    bb = True
 'End If
' StatusBar1.Panels(4).Text = MingZi
 Set Cnnfaka = New ADODB.Connection
 Cnnfaka.Open "kaoqin", "andy", "1234"
 Set Rstfaka = New ADODB.Recordset
 Rstfaka.Open "select * from cardinfo ", Cnnfaka, adOpenStatic, adLockBatchOptimistic, adCmdText
 'Do While Not Rstfaka.EOF
 '  Selemodi.AddItem Rstfaka!XingMing
 '
 '  Rstfaka.MoveNext
 'Loop
 
 
 Set CnnQJTian = New ADODB.Connection
 CnnQJTian.Open "kaoqin", "andy", "1234"
 Set RstQJTian = New ADODB.Recordset
 RstQJTian.Open "select * from bumen", CnnQJTian, adOpenStatic, adLockBatchOptimistic, adCmdText
 Do While Not RstQJTian.EOF
   SelBumen.AddItem RstQJTian!bumen
  
   RstQJTian.MoveNext
 Loop
 
 Set Cnnshuju = New ADODB.Connection
 Cnnshuju.Open "kaoqin", "andy", "1234"
 Set RstShuju = New ADODB.Recordset
 RstShuju.Open "select iffaka from kaoqishuju ", Cnnshuju, adOpenStatic, adLockOptimistic, adCmdText
 
 same.Enabled = False
 
 
 

End Sub

Private Sub Gonghao_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Or KeyCode = 40 Then
    dizi.SetFocus
  End If
  
  If KeyCode = 38 Then
    jiweidizi.SetFocus
  End If
End Sub

Private Sub GongHao_LostFocus()
diangua.Text = GongHao.Text
End Sub

Private Sub jiguan_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Or KeyCode = 40 Then
    shenfen.SetFocus
  End If
  
  If KeyCode = 38 Then
    xingming(0).SetFocus
  End If
End Sub

Private Sub Jiwei_Change()
  If Not IsNumeric(jiwei) Then Exit Sub
  'If Dd = 1 Then Exit Sub
  Set RstShuju = New ADODB.Recordset
  RstShuju.Open "select * from jiwei where bumen='" + bumen.Text + "' and jiweino='" + jiwei.Text + "'", Cnnshuju, adOpenStatic, adLockBatchOptimistic, adCmdText
  If Not RstShuju.EOF Then
    'Dd = 1
    jiwei.Text = RstShuju.Fields(0)
    
  End If
  
  'If bumen.Text = "筹建处" Then
  '  If jiwei.Text = "1" Then
  '    jiwei.Text = "售楼员"
  '  End If
    
  '  If jiwei.Text = "2" Then
  '    jiwei.Text = "办证员"
  '  End If
    
  '  If jiwei.Text = "3" Then
  '    jiwei.Text = "电脑技术员 "
  '  End If
    
  '  If jiwei.Text = "4" Then
  '    jiwei.Text = "行政人员"
  '  End If
    
  '  If jiwei.Text = "5" Then
  '    jiwei.Text = "财务人员"
  '  End If
    
  '  If jiwei.Text = "6" Then