frmkftotal.frm

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   8
         Top             =   1800
         Width           =   1215
      End
      Begin VB.Label lblclient 
         ForeColor       =   &H000000C0&
         Height          =   255
         Left            =   2880
         TabIndex        =   7
         Top             =   360
         Width           =   2655
      End
      Begin VB.Label lbl1 
         Caption         =   "开发技师："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   6
         Top             =   1320
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdok 
      Caption         =   "查询(&F)"
      Height          =   340
      Left            =   1800
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   2760
      UseMaskColor    =   -1  'True
      Width           =   1095
   End
   Begin VB.CommandButton cmdcancel 
      Caption         =   "关闭(&C)"
      Height          =   340
      Left            =   3360
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   2760
      UseMaskColor    =   -1  'True
      Width           =   1095
   End
End
Attribute VB_Name = "frmkftotal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmbfang_Click()
'    If cmbfang <> "全部" Then
'        Set clitb = New Recordset
'
'        cmbTown.Clear
'        cmbTown.AddItem "全部"
'        clitb.Open "select distinct town from client where fangxiang='" & cmbfang.Text & "'", db, adOpenStatic, adLockOptimistic
'        For i = 1 To clitb.RecordCount
'            If Not IsNull(clitb!town) Then cmbTown.AddItem clitb!town
'            clitb.MoveNext
'        Next
'        cmbTown.ListIndex = 0
'        clitb.Close
'
'        Set clitb = Nothing
'    End If
End Sub

Private Sub cmdcancel_Click()
    Unload Me
End Sub

Private Sub cmdok_Click()
Me.MousePointer = 11
   Dim sql As String
   
   Txtclient.Text = Trim(Txtclient.Text)
   
   If Len(Trim(Txtclient.Text)) <> 0 Then
      Set clitb = New Recordset
      clitb.Open "select * from client where clino=" & "'" & Txtclient.Text & "'", db, adOpenStatic, adLockOptimistic
      If clitb.RecordCount = 0 Then
         MsgBox " 客户资料出错!!!,请重新输入", vbCritical, MSG2
         Exit Sub
      End If
    End If
   
   sql = "select * from tap_view where din_date>=" & "'" & DTP1.value & "'" & " and din_date<=" & "'" & DTP2.value & "'"
    
   If cmbop.Text <> "不限定" Then
         sql = sql & " and tap_op=" & "'" & cmbop.Text & "'"
   End If
   
   If cmbfang.Text <> "全部" Then
         sql = sql & " and fang=" & "'" & cmbfang.Text & "'"
   End If
    
'   If cmbCustomer.Text <> "全部" Then
'         sql = sql & " and S_NAME=" & "'" & cmbCustomer.Text & "'"
'   End If

   If Len(Trim(Txtclient.Text)) <> 0 Then
          sql = sql & " and clino=" & "'" & Trim(Txtclient.Text) & "'"
   End If
   
   If cmbOpertion.Text <> "全部" Then
         sql = sql & " and Expr2=" & "'" & cmbOpertion.Text & "'"
   End If
      
'   If cmbTown.Text <> "全部" Then
'         sql = sql & " and fw=" & "'" & cmbTown.Text & "'"
'   End If
   
   If Cmbtype.Text <> "" Then
         sql = sql & " and type=" & "'" & Cmbtype.Text & "'"
   End If
   
   If txtfind.Text <> "" Then
         sql = sql & " and model like " & "'%" & txtfind.Text & "%'"
   End If
   
   sql = sql & " order by din_date,s_name"
   sqlcc2 = sql
   
   Dim rs As Recordset
   Set rs = New Recordset
   rs.Open sqlcc2, db, adOpenStatic, adLockOptimistic
   If rs.RecordCount > 0 Then
        rs.Close
        Set rs = Nothing
        ARkftotal.Show 1
   Else
        rs.Close
        Set rs = Nothing
        MsgBox "不能找到相应的记录!!!", vbCritical + vbOKOnly, MSG2
        Me.MousePointer = 0
        Exit Sub
   End If
Me.MousePointer = 0
End Sub



Private Sub cmdsolocate_Click()
    Set pubfindtb = New Recordset
    pubfindtb.Open "select clino,s_name,post,tele from client order by clino", db, adOpenStatic, adLockOptimistic
    Call GenBrowse(Txtclient.Text, "客户", "kfa")
    Call clientdisplay("client", Txtclient.Text, lblclient)
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then Unload Me
End Sub

Private Sub Form_Load()
'    cmbfang.AddItem "全部"
'    cmbfang.Text = "全部"
'Define Recordset
    Dim clitb As Recordset
    Set clitb = New Recordset
'Init Client FangXiang
    cmbfang.Clear
    cmbfang.AddItem "全部"
    clitb.Open "select distinct fangxiang from fangxiang", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbfang.AddItem clitb!fangxiang
        clitb.MoveNext
    Next
    cmbfang.ListIndex = 0
    clitb.Close
'Init Client Opertion
    cmbOpertion.Clear
    cmbOpertion.AddItem "全部"
    clitb.Open "select distinct opertion from client", db, adOpenStatic, adLockOptimistic
    For i = 1 To clitb.RecordCount
        cmbOpertion.AddItem clitb!opertion
        clitb.MoveNext
    Next
    cmbOpertion.ListIndex = 0
    clitb.Close
    
'Init Client Town
'    cmbTown.Clear
'    cmbTown.AddItem "全部"
'    clitb.Open "select distinct town from scope", db, adOpenStatic, adLockOptimistic
'    For i = 1 To clitb.RecordCount
'        cmbTown.AddItem clitb!town
'        clitb.MoveNext
'    Next
'    cmbTown.ListIndex = 0
'    clitb.Close
    
'Init Customer
'    cmbCustomer.Clear
'    cmbCustomer.AddItem "全部"
'    clitb.Open "select distinct s_name from client", db, adOpenStatic, adLockOptimistic
'    For i = 1 To clitb.RecordCount
'        cmbCustomer.AddItem clitb!s_name
'        clitb.MoveNext
'    Next
'    cmbCustomer.ListIndex = 0
'    clitb.Close

' Init CmbType
Cmbtype.ListIndex = 0

'Init Txtfind is space;
txtfind.Text = ""


'


    
    DTP1.value = #1/1/2002#
    DTP2.value = Date
    
    'Dim clitb As Recordset 'cancel define
    Set clitb = New Recordset
    clitb.Open "select distinct tap_op from tap", db, adOpenStatic, adLockOptimistic
    If clitb.RecordCount <> 0 Then
      For i = 1 To clitb.RecordCount
         If IsNull(clitb!tap_op) = False Then cmbop.AddItem clitb!tap_op
         clitb.MoveNext
      Next
    End If
    cmbop.AddItem "不限定"
    cmbop.Text = "不限定"
    

End Sub

Private Sub Form_Resize()
'On Error Resume Next
'Me.Top = 0
'Me.Left = 50
End Sub