bbcx2.frm

这个就不用多说了

         TabIndex        =   16
         Top             =   360
         Width           =   2055
      End
      Begin VB.Label Label5 
         Caption         =   "编号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   15
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label7 
         Caption         =   "减少方式"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3600
         TabIndex        =   14
         Top             =   1320
         Width           =   975
      End
   End
   Begin VB.Frame Frame2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   795
      Left            =   60
      TabIndex        =   0
      Top             =   2205
      Width           =   8535
      Begin VB.OptionButton Option1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   3
         Top             =   240
         Width           =   375
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Option2"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4440
         TabIndex        =   2
         Top             =   240
         Width           =   255
      End
      Begin VB.OptionButton Option3 
         Caption         =   "Option3"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   6960
         TabIndex        =   1
         Top             =   240
         Width           =   255
      End
      Begin VB.Label Label6 
         Caption         =   "所有卡片"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   90
         TabIndex        =   6
         Top             =   240
         Width           =   855
      End
      Begin VB.Label Label9 
         Caption         =   "已减少的卡片"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   2820
         TabIndex        =   5
         Top             =   255
         Width           =   1440
      End
      Begin VB.Label Label10 
         Caption         =   "现存卡片"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   5520
         TabIndex        =   4
         Top             =   240
         Width           =   1095
      End
   End
End
Attribute VB_Name = "Bbcx2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim myclass As New Bb
Public sql As String
Private Sub Command1_Click()
Dim txt As String
sql = " SELECT dbo.GyzcCare.BH AS 卡片编号, dbo.GyzcCare.Name AS 名称," & _
      "dbo.GyzcCode.Name AS 类别, dbo.DwBmCode.Name AS 所属单位," & _
      "dbo.GyzcCare.Je AS 金额, dbo.AddMode.Name AS 增加方式, dbo.UseState.name 使用情况," & _
      " dbo.GyzcCare.GG AS 规格, dbo.GyzcCare.sl AS 数量," & _
     "  dbo.GyzcCare.GzZq AS 增加日期 ,dbo.GyzcCare.jzyear AS 已使用年,dbo.GyzcCare.jzmonth AS 以使用月, " & _
      "dbo.GyzcCare.Bz AS 备注, dbo.LessMode.Name AS 减少方式, " & _
     " dbo.GyzcCare.YsZq AS 减少日期 FROM dbo.DwBmCode INNER JOIN dbo.GyzcCode INNER JOIN " & _
     " dbo.GyzcCare ON dbo.GyzcCode.Bm = dbo.GyzcCare.CodeId ON" & _
     " dbo.DwBmCode.Bm = dbo.GyzcCare.DwbmId INNER JOIN" & _
     " dbo.AddMode ON dbo.GyzcCare.Mode = dbo.AddMode.ID INNER JOIN dbo.UseState ON dbo.GyzcCare.UseState = dbo.UseState.Id LEFT OUTER JOIN" & _
     " dbo.LessMode ON dbo.GyzcCare.mode1 = dbo.LessMode.ID"
   txt = " SELECT sum(dbo.GyzcCare.Je) FROM dbo.DwBmCode INNER JOIN dbo.GyzcCode INNER JOIN " & _
     " dbo.GyzcCare ON dbo.GyzcCode.Bm = dbo.GyzcCare.CodeId ON" & _
     " dbo.DwBmCode.Bm = dbo.GyzcCare.DwbmId INNER JOIN" & _
     " dbo.AddMode ON dbo.GyzcCare.Mode = dbo.AddMode.ID INNER JOIN dbo.UseState ON dbo.GyzcCare.UseState = dbo.UseState.Id LEFT OUTER JOIN" & _
     " dbo.LessMode ON dbo.GyzcCare.mode1 = dbo.LessMode.ID"
If Option1.Value = True Then
sql = sql & " where dbo.GyzcCare.CzFlag <> 3"
txt = txt & " where dbo.GyzcCare.CzFlag <> 3"
End If
If Option2.Value = True Then
sql = sql & "  where dbo.GyzcCare.CzFlag = 0 "
txt = txt & "  where dbo.GyzcCare.CzFlag = 0 "
End If
If Option3.Value = True Then
sql = sql & "  where dbo.GyzcCare.CzFlag = 1 "
txt = txt & "  where dbo.GyzcCare.CzFlag = 1 "
End If
If Combo1.Text <> "" Then
sql = sql & " and dbo.GyzcCode.Bm  like " & "'" & Mid(Combo1.Text, 1, InStr(Combo1.Text, "-") - 1) & "%" & "'"
txt = txt & " and dbo.GyzcCode.Bm  like " & "'" & Mid(Combo1.Text, 1, InStr(Combo1.Text, "-") - 1) & "%" & "'"
End If
If Text1.Text <> "" Then
sql = sql & " and dbo.GyzcCare.Name Like " & "'" & Text1.Text & "%" & "'"
txt = txt & " and dbo.GyzcCare.Name Like " & "'" & Text1.Text & "%" & "'"
End If
If Text2.Text <> "" Then
sql = sql & " and dbo.GyzcCare.BH Like " & "'" & Text2.Text & "%" & "'"
txt = txt & " and dbo.GyzcCare.BH Like " & "'" & Text2.Text & "%" & "'"
End If
If Combo2.Text <> "" Then
sql = sql & " and dbo.AddMode.Name =" & "'" & Combo2.Text & "'"
txt = txt & " and dbo.AddMode.Name =" & "'" & Combo2.Text & "'"
End If
If Combo3.Text <> "" Then

sql = sql & " and dbo.DwBmCode.Bm like " & "'" & Mid(Combo3.Text, 1, InStr(Combo3.Text, "-") - 1) & "%" & "'"

txt = txt & " and dbo.DwBmCode.Bm like " & "'" & Mid(Combo3.Text, 1, InStr(Combo3.Text, "-") - 1) & "%" & "'"

End If
If Combo4.Text <> "" Then
sql = sql & " and dbo.LessMode.Name = " & "'" & Combo4.Text & "'"
txt = txt & " and dbo.LessMode.Name = " & "'" & Combo4.Text & "'"
End If
If Combo5.Text <> "" Then
sql = sql & " and dbo.UseState.Name = " & "'" & Combo5.Text & "'"
txt = txt & " and dbo.UseState.Name = " & "'" & Combo5.Text & "'"
End If
Unload Me

Call myclass.AddGrid(sql, Bb1.MSHFlexGrid1)
Call myclass.Hj(txt, Bb1.MSHFlexGrid1)
Bb1.Show 1

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

 Dim strSql As String
        strSql = "select Name from AddMode"
         Call myclass.AddDataComboBox(strSql, Combo2)
        strSql = "select * from GyzcCode "
       Call myclass.AddDataComboBox(strSql, Combo1)
        strSql = "select * from DwBmCode "
        Call myclass.AddDataComboBox(strSql, Combo3)
               strSql = "select Name from LessMode "
        Call myclass.AddDataComboBox(strSql, Combo4)
                               strSql = "select Name from UseState "
        Call myclass.AddDataComboBox(strSql, Combo5)
End Sub