frm查询设置.frm

计量器具管理系统

         PrintInfos(0).PageFooterFont=   "Size=9,Charset=134,Weight=400,Underline=0,Italic=0,Strikethrough=0,Name=宋体"
         PrintInfos(0).PageHeaderHeight=   0
         PrintInfos(0).PageFooterHeight=   0
         PrintInfos.Count=   1
         AllowUpdate     =   0   'False
         DefColWidth     =   0
         HeadLines       =   1
         FootLines       =   1
         MultipleLines   =   0
         CellTipsWidth   =   0
         DeadAreaBackColor=   13160660
         RowDividerColor =   13160660
         RowSubDividerColor=   13160660
         DirectionAfterEnter=   1
         MaxRows         =   250000
         ViewColumnCaptionWidth=   0
         ViewColumnWidth =   0
         _PropDict       =   "_ExtentX,2003,3;_ExtentY,2004,3;_LayoutType,512,2;_RowHeight,16,3;_StyleDefs,513,0;_WasPersistedAsPixels,516,2"
         _StyleDefs(0)   =   "_StyleRoot:id=0,.parent=-1,.alignment=3,.valignment=0,.bgcolor=&H80000005&"
         _StyleDefs(1)   =   ":id=0,.fgcolor=&H80000008&,.wraptext=0,.locked=0,.transparentBmp=0"
         _StyleDefs(2)   =   ":id=0,.fgpicPosition=0,.bgpicMode=0,.appearance=0,.borderSize=0,.ellipsis=0"
         _StyleDefs(3)   =   ":id=0,.borderColor=&H80000005&,.borderType=0,.bold=0,.fontsize=900,.italic=0"
         _StyleDefs(4)   =   ":id=0,.underline=0,.strikethrough=0,.charset=134"
         _StyleDefs(5)   =   ":id=0,.fontname=宋体"
         _StyleDefs(6)   =   "Style:id=1,.parent=0,.namedParent=33"
         _StyleDefs(7)   =   "CaptionStyle:id=4,.parent=2,.namedParent=37"
         _StyleDefs(8)   =   "HeadingStyle:id=2,.parent=1,.namedParent=34"
         _StyleDefs(9)   =   "FooterStyle:id=3,.parent=1,.namedParent=35"
         _StyleDefs(10)  =   "InactiveStyle:id=5,.parent=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
         _StyleDefs(11)  =   "SelectedStyle:id=6,.parent=1,.namedParent=36"
         _StyleDefs(12)  =   "EditorStyle:id=7,.parent=1"
         _StyleDefs(13)  =   "HighlightRowStyle:id=8,.parent=1,.namedParent=38"
         _StyleDefs(14)  =   "EvenRowStyle:id=9,.parent=1,.namedParent=39"
         _StyleDefs(15)  =   "OddRowStyle:id=10,.parent=1,.namedParent=40"
         _StyleDefs(16)  =   "RecordSelectorStyle:id=11,.parent=2,.namedParent=41"
         _StyleDefs(17)  =   "FilterBarStyle:id=12,.parent=1,.namedParent=42"
         _StyleDefs(18)  =   "Splits(0).Style:id=13,.parent=1"
         _StyleDefs(19)  =   "Splits(0).CaptionStyle:id=22,.parent=4"
         _StyleDefs(20)  =   "Splits(0).HeadingStyle:id=14,.parent=2"
         _StyleDefs(21)  =   "Splits(0).FooterStyle:id=15,.parent=3"
         _StyleDefs(22)  =   "Splits(0).InactiveStyle:id=16,.parent=5"
         _StyleDefs(23)  =   "Splits(0).SelectedStyle:id=18,.parent=6"
         _StyleDefs(24)  =   "Splits(0).EditorStyle:id=17,.parent=7"
         _StyleDefs(25)  =   "Splits(0).HighlightRowStyle:id=19,.parent=8"
         _StyleDefs(26)  =   "Splits(0).EvenRowStyle:id=20,.parent=9"
         _StyleDefs(27)  =   "Splits(0).OddRowStyle:id=21,.parent=10"
         _StyleDefs(28)  =   "Splits(0).RecordSelectorStyle:id=23,.parent=11"
         _StyleDefs(29)  =   "Splits(0).FilterBarStyle:id=24,.parent=12"
         _StyleDefs(30)  =   "Splits(0).Columns(0).Style:id=28,.parent=13,.alignment=2"
         _StyleDefs(31)  =   "Splits(0).Columns(0).HeadingStyle:id=25,.parent=14"
         _StyleDefs(32)  =   "Splits(0).Columns(0).FooterStyle:id=26,.parent=15"
         _StyleDefs(33)  =   "Splits(0).Columns(0).EditorStyle:id=27,.parent=17"
         _StyleDefs(34)  =   "Named:id=33:Normal"
         _StyleDefs(35)  =   ":id=33,.parent=0"
         _StyleDefs(36)  =   "Named:id=34:Heading"
         _StyleDefs(37)  =   ":id=34,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
         _StyleDefs(38)  =   ":id=34,.wraptext=-1"
         _StyleDefs(39)  =   "Named:id=35:Footing"
         _StyleDefs(40)  =   ":id=35,.parent=33,.valignment=2,.bgcolor=&H8000000F&,.fgcolor=&H80000012&"
         _StyleDefs(41)  =   "Named:id=36:Selected"
         _StyleDefs(42)  =   ":id=36,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
         _StyleDefs(43)  =   "Named:id=37:Caption"
         _StyleDefs(44)  =   ":id=37,.parent=34,.alignment=2"
         _StyleDefs(45)  =   "Named:id=38:HighlightRow"
         _StyleDefs(46)  =   ":id=38,.parent=33,.bgcolor=&H8000000D&,.fgcolor=&H8000000E&"
         _StyleDefs(47)  =   "Named:id=39:EvenRow"
         _StyleDefs(48)  =   ":id=39,.parent=33,.bgcolor=&HFFFF00&"
         _StyleDefs(49)  =   "Named:id=40:OddRow"
         _StyleDefs(50)  =   ":id=40,.parent=33"
         _StyleDefs(51)  =   "Named:id=41:RecordSelector"
         _StyleDefs(52)  =   ":id=41,.parent=34"
         _StyleDefs(53)  =   "Named:id=42:FilterBar"
         _StyleDefs(54)  =   ":id=42,.parent=33"
      End
   End
End
Attribute VB_Name = "frm查询设置"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim rscx As New ADODB.Recordset
Public Cxmc As String
Private Sub Command1_Click()
  ''''生成查询字符串
  Dim S_czfl As String
  S_czfl = ""
  Dim rsyks As New ADODB.Recordset
  rsyks.Open "select * from yks where ksbh='" + str科室编号 + "'", Conn
  If InStr(1, Trim(rsyks!czfl), "a") <> 0 Then
     czfl = "'西药'"
  End If
  If InStr(1, Trim(rsyks!czfl), "b") <> 0 Then
   If czfl <> "" Then
     czfl = czfl + ",'中成药'"
   Else
     czfl = "'中成药'"
   End If
  End If
  
  If InStr(1, Trim(rsyks!czfl), "c") <> 0 Then
   If czfl <> "" Then
     czfl = czfl + ",'中草药'"
   Else
     czfl = "'中草药'"
   End If
  End If
  
  If InStr(1, Trim(rsyks!czfl), "d") <> 0 Then
   If czfl <> "" Then
     czfl = czfl + ",'其它'"
   Else
     czfl = "'其它'"
   End If
  End If
  
'  CX_sql_str = Trim(rscx!DataSource) + " where  (czfl in (" + czfl + ")) and "
  CX_sql_str = Trim(rscx!DataSource) + " where  "
  For i = 1 To Grid.Rows - 1
        Grid.Row = 1
        rscx.Filter = "zdhy='" + Trim(Grid.TextMatrix(i, 1)) + "'"
        If Trim(Grid.TextMatrix(i, 3)) <> "null" Then
            Select Case Trim(rscx!sjlx)
                   Case "字符"
                   CX_sql_str = CX_sql_str + Trim(rscx!zdm) + " " + Trim(Grid.TextMatrix(i, 2)) + "'" + Trim(Grid.TextMatrix(i, 3)) + "'  " + Trim(Grid.TextMatrix(i, 4)) + "  "
                   Case "数字"
                   CX_sql_str = CX_sql_str + Trim(rscx!zdm) + " " + Trim(Grid.TextMatrix(i, 2)) + Trim(Grid.TextMatrix(i, 3)) + "  " + Trim(Grid.TextMatrix(i, 4)) + "  "
                   Case "日期"
                   CX_sql_str = CX_sql_str + Trim(rscx!zdm) + " " + Trim(Grid.TextMatrix(i, 2)) + "'" + Trim(Grid.TextMatrix(i, 3)) + "'  " + Trim(Grid.TextMatrix(i, 4)) + "  "
            End Select
        Else
               CX_sql_str = CX_sql_str + Trim(rscx!zdm) + " " + Trim(Grid.TextMatrix(i, 2)) + "    " + Trim(Grid.TextMatrix(i, 3)) + "  " + Trim(Grid.TextMatrix(i, 4)) + "  "
        
        End If
        rscx.Filter = ""
  Next i
  
  If IsNull(rscx!datagroup) = False Then
  CX_sql_str = CX_sql_str + Trim(rscx!datagroup)
  End If
  
  If IsNull(rscx!dataOrder) = False Then
  CX_sql_str = CX_sql_str + Trim(rscx!dataOrder)
  End If
  
  Unload Me
  ''MsgBox CX_sql_str
  
End Sub

Private Sub Command2_Click()
Grid.Rows = 1
End Sub

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


End Sub

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

Private Sub Form_Load()
Me.Width = 9330
Me.Height = 3750
Call grid_ini
If rscx.State = 1 Then rscx.Close
rscx.CursorLocation = adUseClient
rscx.Open "select * from cx_table where CXname='" + Trim(Cxmc) + "'", Conn
Set grid_zd.DataSource = rscx

End Sub

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

Private Sub grid_RowColChange()
If Grid.Col = 1 Then
   Grid.Editable = flexEDNone
Else
   Grid.Editable = flexEDKbdMouse

End If

End Sub