rsls.CursorLocation = adUseClient
    rsls.Open "select * from pri where bm='基本信息'", Conn, adOpenDynamic, adLockBatchOptimistic
    Set GridPri.DataSource = rsls
    Frame1.Visible = True
End Sub
 


Private Sub Command1_Click()
    Dim st As String
    st = "select"
    If rsls.State <> 1 Then Exit Sub
    rsls.Filter = "xd=1"
    If rsls.RecordCount < 1 Then Exit Sub
    rsls.MoveFirst
    Do While rsls.EOF = False
        Select Case rsls!zdm
            Case "設備編號"
               If st = "select" Then
                    st = st & " bh as 設備編號 "
               Else
                    st = st & ", bh as 設備編號"
               End If
            Case "設備名稱"
                If st = "select" Then
                    st = st & " mc as 設備名稱 "
               Else
                    st = st & ", mc as 設備名稱 "
               End If
            Case "類別"
                If st = "select" Then
                    st = st & " lb as 類別 "
               Else
                    st = st & ", lb as 類別"
               End If
            Case "種別"
                If st = "select" Then
                    st = st & " zb as 種別 "
               Else
                    st = st & ", zb as 種別"
               End If
            Case "管理等級"
                If st = "select" Then
                    st = st & " dj as 管理等級 "
               Else
                    st = st & ", dj as 管理等級"
               End If
                
            Case "設備狀態"
                If st = "select" Then
                    st = st & " zt as 設備狀態 "
               Else
                    st = st & ", zt as 設備狀態 "
               End If
                
            Case "規格型號"
                If st = "select" Then
                    st = st & " ggxh as 規格型號 "
               Else
                    st = st & ", ggxh as 規格型號"
               End If
            Case "測量范圍"
            If st = "select" Then
                    st = st & " clfw as 測量范圍 "
               Else
                    st = st & ", clfw as 測量范圍"
               End If
            Case "分度值"
                If st = "select" Then
                    st = st & " fdz as 分度值 "
               Else
                    st = st & ", fdz as 分度值"
               End If
            Case "生產廠家"
                If st = "select" Then
                    st = st & " sccj as 生產廠家 "
               Else
                    st = st & ", sccj as 生產廠家"
               End If
            Case "出廠編號"
                If st = "select" Then
                    st = st & " ccbh as 出廠編號 "
               Else
                    st = st & ", ccbh as 出廠編號"
               End If
            Case "使用部門"
                If st = "select" Then
                    st = st & " sybm as 使用部門 "
               Else
                    st = st & ", sybm as 使用部門"
               End If
            Case "使用者"
                If st = "select" Then
                    st = st & " syz as 使用者 "
               Else
                    st = st & ", syz as 使用者"
               End If
            Case "啟用日期"
                If st = "select" Then
                    st = st & " qyrq as 啟用日期 "
               Else
                    st = st & ", qyrq as 啟用日期"
               End If
             
            Case "檢定周期"
                If st = "select" Then
                    st = st & " cstr([jdzq])+[Zqdw] AS 檢定周期"
               Else
                    st = st & ", cstr([jdzq])+[Zqdw] AS 檢定周期"
               End If
            Case "檢定單位"
                If st = "select" Then
                    st = st & " jddw as 檢定單位 "
               Else
                    st = st & ",jddw as 檢定單位"
               End If
        End Select
        rsls.MoveNext
    Loop
    rsls.Filter = ""
    rsls.UpdateBatch adAffectAllChapters
    If Ck1.Value = 1 Then
        st = st & " from  jlqjxx  sybm like '" & Trim(Csybm.Text) & "%' "
    Else
        st = st & " from jlqjxx  where   sybm like '" & Trim(Csybm.Text) & "%'  and dj <> '強制檢定' "
    End If
    If rsPri.State = 1 Then rsPri.Close
    rsPri.CursorLocation = adUseClient
    rsPri.Open st, Conn, adOpenStatic, adLockReadOnly
    
    Frame1.Visible = False


    If rsPri.State <> 1 Then Exit Sub
    If rsPri.RecordCount < 1 Then Exit Sub
    Dim jfhj As Double
    Dim dfhj As Double
    Dim f As Integer
    jfhj = 0
    dfhj = 0
    RePorts.EtCell1.OpenDoc App.Path & "\report\tz.eT"
        RePorts.EtCell1.SetAliasCell "dwmc", "單位名稱：" + GetDwmc()
        RePorts.EtCell1.SetAliasCell "zdrq", "使用部門:" & Csybm.Text & "           制單日期：" + CStr(Date)
        RePorts.EtCell1.SetAliasCell "bt", "計  量  器  具  臺  帳   分   部   門"
        rsPri.MoveFirst
        For i = 0 To rsPri.Fields.Count - 5
            If (i > 1) And (i < (rsPri.Fields.Count - 5)) Then RePorts.EtCell1.InsertCol 8
        Next i
        For i = 0 To rsPri.Fields.Count - 1
            RePorts.EtCell1.SetCell 4, i + 2, rsPri.Fields(i).Name
        Next i
        i = 5
        For j = 1 To rsPri.RecordCount - 1
            RePorts.EtCell1.InsertRow i
        Next j
        rsPri.MoveFirst
        Do While rsPri.EOF = False
            For j = 0 To rsPri.Fields.Count - 1
                RePorts.EtCell1.SetCell i, j + 2, rsPri.Fields(j)
            Next j
            i = i + 1
            rsPri.MoveNext
        Loop

    RePorts.Show
    Exit Sub
'err:
'  MsgBox err.Description
'
End Sub

Private Sub Command2_Click()
    Frame1.Visible = False
End Sub

Private Sub Command3_Click()
gridA.AddItem ""
gridA.TextMatrix(gridA.Rows - 1, 1) = Trim(rscx!zdhy)

End Sub

Private Sub Command4_Click()
    If gridA.Row > 0 Then gridA.RemoveItem gridA.Row
End Sub

Private Sub DTPqyrq_Change()
    DTPjdrq.Value = DTPqyrq.Value
End Sub

Private Sub Form_Load()
    Me.Top = 100
    Me.Left = 50
    cmdll.Caption = "查  詢"
    Ljl.Caption = ""
    Dim rstt As New ADODB.Recordset
    If rstt.State = 1 Then rstt.Close
    rstt.CursorLocation = adUseClient
    rstt.Open "select bmmc from bmxx group by bmmc", Conn
    Csybm.Clear
    Do While rstt.EOF = False
        Csybm.AddItem Trim(rstt!bmmc)
        rstt.MoveNext
    Loop
End Sub

Private Sub Grid_HeadClick(ByVal ColIndex As Integer)
    Dim str As String
    Dim st As String
    str = Grid.Columns.Item(ColIndex).Caption
    st = ""
    Select Case str
        Case "設備編號"
           st = "bh"
        Case "設備名稱"
            st = "mc"
        Case "類別"
            st = "lb"
        Case "種別"
            st = "zb"
        Case "管理等級"
            st = "dj"
        Case "設備狀態"
            st = "zt"
        Case "規格型號"
            st = "ggxh"
        Case "測量范圍"
            st = "clfw"
        Case "分度值"
            st = "fdz"
        Case "生產廠家"
            st = "sccj"
        Case "出廠編號"
            st = "ccbh"
        Case "使用部門"
            st = "sybm"
        Case "使用者"
            st = "syz"
        Case "啟用日期"
            st = "qyrq"
        
        Case "檢定周期"
            st = "zqdw, jdzq "
        Case "檢定單位"
            st = "jddw"
    End Select
    If st = "" Then Exit Sub
    If rs.State = 1 Then rs.Close
    rs.CursorLocation = adUseClient
    rs.Open Cx_Sql_Str & " order by " & st, Conn, adOpenStatic, adLockReadOnly
    Set Grid.DataSource = rs

End Sub


Sub grid_ini()
    gridA.ColComboList(2) = ">|>=|<|<=|=|<>|like|is"
    gridA.ColComboList(4) = "AND|OR"
    gridA.Rows = 1
End Sub