frmfind.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

       
            If i > 1 Then
                Load chkRS(i)
                chkRS(i).Left = Col * baselenx + bleft
                chkRS(i).Top = Row * baseleny + btop
                chkRS(i).Visible = True
                chkRS(i).Caption = rs.Fields(i).Name
                
            End If
     
       i = i + 1
    Wend
    
    rs.Close
    Set rs = Nothing
    CreateCT = num
End Function


Private Sub cboHow_GotFocus()
  cboHow.Clear
  
   '在combobox中填入值
  cboHow.Text = grdHow.Text
  
  Dim i As Integer
  Select Case grdHow.Col
  Case 1
     cboHow.AddItem "And"
     cboHow.AddItem "Or"
     
  Case 2
   On Error GoTo err1
     For i = 0 To number - 1
       cboHow.AddItem chkRS(i).Caption
     Next
     
  Case 3
     cboHow.AddItem "="
     cboHow.AddItem "<"
     cboHow.AddItem ">"
     cboHow.AddItem "<="
     cboHow.AddItem ">="
 
  End Select
  
err1:
  
End Sub

Private Sub cboHow_LostFocus()
  cboHow.Visible = False
End Sub

Private Sub cboHow_Validate(Cancel As Boolean)
 If grdHow.Col = 1 Then
    If LCase(cboHow.Text) <> "and" And LCase(cboHow.Text) <> "or" Then Exit Sub
    grdHow.Text = cboHow.Text
 End If
 If grdHow.Col = 3 Then
   If cboHow.Text <> ">" And cboHow.Text <> "<" And cboHow.Text <> "=" And cboHow.Text <> ">=" And cboHow.Text <> "<=" Then Exit Sub
   grdHow.Text = cboHow.Text
 End If
 If grdHow.Col = 2 Then
   For i = 0 To number - 1
      If cboHow.Text = chkRS(i).Caption Then
        grdHow.Text = cboHow.Text
        Exit For
      End If
   Next
 End If
 If cboHow.Text = "" Then
   grdHow.Text = cboHow.Text
 End If
 
 
End Sub

Private Sub cmdBefore_Click()
 SSTab1.Tab = 0
 cmdTitle.Caption = SSTab1.Caption
End Sub

Private Sub cmdBf_Click()
  SSTab1.Tab = 1
 cmdTitle.Caption = SSTab1.Caption
End Sub

Private Sub cmdClear_Click()
 For i = 1 To grdHow.Rows - 1
   For j = 1 To 4
     grdHow.TextMatrix(i, j) = ""
   Next
 Next
End Sub

Private Sub cmdE_Click()
 Unload Me
End Sub

Private Sub cmdExit0_Click()
  Unload Me
End Sub

Private Sub cmdFisish_Click()
   Unload Me
End Sub

Private Sub cmdNext_Click()
  ReDim putRs(number)
  Dim w As Integer
  w = 0
  For i = 0 To number - 1
    If chkRS(i).Value = 1 Then
       putRs(w) = chkRS(i).Caption
       w = w + 1
    End If
  Next
  
 SSTab1.Tab = 1
 cmdTitle.Caption = SSTab1.Caption
End Sub

Private Sub cmdQuery_Click()
On Error Resume Next
   Dim rs  As ADODB.Recordset
    Dim strSql As String
    Dim strMsg As String
    
    If txtSQL.Text <> "" Then
    strSql = txtSQL.Text
    Set rs = ExecuteSQL(strSql, strMsg)

    Call FillData(rs, grdShow)
    rs.Close
    Set rs = Nothing
    End If
    
    SSTab1.Tab = 2
    cmdTitle.Caption = SSTab1.Caption
  
End Sub

Private Sub cmdSelAll_Click()
If cmdSelAll.Caption = "输出全部" Then
   Dim i As Integer
   For i = 0 To number - 1
    chkRS(i).Value = 1
   Next
     cmdSelAll.Caption = "取消全部"
 Else

   For i = 0 To number - 1
    chkRS(i).Value = 0
   Next
     cmdSelAll.Caption = "输出全部"
 End If
End Sub





Private Sub cmdTitle_Click()
If blnDark = True Then
  Call DarkMe(Me, 255)
  Me.refresh
  blnDark = False
Else
  Call DarkMe(Me, 200)
  Me.refresh
  blnDark = True
 End If
End Sub

Private Sub CommandButton1_Click()
  Dim s As String
  Dim strSql As String
  Dim SQLoriginal As String
  Dim SQLrs As String
  Dim SQlsel As String
  Dim st As String
  Dim sqlb As String
  
  For i = 0 To UBound(putRs) - 1
       If putRs(i) <> "" Then
         st = st & putRs(i) & ","
        End If
 Next
 
  st = Left(st, Len(st) - 1)
  SQlsel = "select "
  SQLoriginal = " from " & strTbName & " where "
  
  sqlb = SQlsel & st & SQLoriginal
  
  
  If grdHow.TextMatrix(1, 2) = "" Or grdHow.TextMatrix(1, 3) = "" Or grdHow.TextMatrix(1, 4) = "" Then
   Exit Sub
  End If
  
   For i = 1 To grdHow.Rows - 1
     
        If grdHow.TextMatrix(i, 2) <> "" And grdHow.TextMatrix(i, 3) <> "" And grdHow.TextMatrix(i, 4) <> "" Then
         
         If i = 1 Then
            For j = 1 To 4
                s = s + " " + grdHow.TextMatrix(i, j)
           Next
         Else
         
           If grdHow.TextMatrix(i, 1) <> "" Then
           
             For j = 1 To 4
                s = s + " " + grdHow.TextMatrix(i, j)
             Next
           End If
         End If

        End If
    Next

  
    strSql = sqlb & s
    
   txtSQL.Text = strSql
     
     
End Sub

Private Sub CommandButton5_Click()

End Sub

Private Sub Form_Load()

 Call DarkMe(Me, 255)
  Me.refresh
  blnDark = False
  
 'strTbName = "t_br"
 Call subload(strTbName)
End Sub

Private Sub subload(strTbName As String)
  If strTbName = "" Then Exit Sub
 '2
   txtHow.Visible = False
   cboHow.Visible = False


'1创建check组
 number = CreateCT(strTbName)
 
'全部选中
 Dim i As Integer
   For i = 0 To number - 1
    chkRS(i).Value = 1
   Next
   
  cmdSelAll.Caption = "取消全部"
 '在MSFlexGrid控件中填入数据
setHow

SSTab1.Tab = 0
cmdTitle.Caption = SSTab1.Caption
End Sub

'在MSFlexGrid控件中填入数据
Private Function setHow()
     With grdHow
      .Clear
      .Cols = 5
      .Rows = 10

        '设置各列的对齐方式
        For i = 0 To .Cols - 1
            .ColAlignment(i) = 0
        Next i
        
        
        '表头项居中
        .FillStyle = flexFillRepeat

        If .Rows > 1 Then
        .RowSel = 1
        End If
        .ColSel = .Cols - 1
        '.CellAlignment = 4
        
        
        '设置单元大小
        .ColWidth(0) = 250
        .ColWidth(1) = 2000
        .ColWidth(2) = 2000
        .ColWidth(3) = 2000
        .ColWidth(4) = 2100
        
        .TextMatrix(0, 1) = "与或"
        .TextMatrix(0, 2) = "字段"
        .TextMatrix(0, 3) = "逻辑"
        .TextMatrix(0, 4) = "取值"
     End With

End Function


Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub grdHow_Click()
   txtHow.Visible = False
   cboHow.Visible = False
   txtHow.Text = ""
   cboHow.Text = ""
    
   If grdHow.Row = 1 And grdHow.Col = 1 Then Exit Sub
   If grdHow.Col = 4 Then
    txtHow.Move grdHow.Left + grdHow.CellLeft, grdHow.Top + grdHow.CellTop, grdHow.CellWidth - 8, grdHow.CellHeight - 8
    txtHow.Visible = True
    txtHow.SetFocus
   Else
     cboHow.Move grdHow.Left + grdHow.CellLeft, grdHow.Top + grdHow.CellTop, grdHow.CellWidth
      cboHow.Visible = True
      cboHow.SetFocus
   End If
End Sub




Private Sub MSFlexGrid2_Click()
  MsgBox MSFlexGrid2.Row
End Sub



Private Sub txtHow_GotFocus()
  txtHow.Text = grdHow.Text
End Sub

Private Sub txtHow_LostFocus()
 txtHow.Visible = False
End Sub

Private Sub txtHow_Validate(Cancel As Boolean)
grdHow.Text = txtHow.Text
End Sub