?? frmfilterg.frm
字號:
_ExtentY = 614
_Version = 393216
Enabled = 0 'False
Style = 2
BackColor = -2147483648
ListField = "Zr"
BoundColumn = "ZrID"
Text = ""
End
Begin MSDataListLib.DataCombo dcF
Bindings = "frmFilterG.frx":00B3
Height = 348
Index = 1
Left = 2040
TabIndex = 17
ToolTipText = "主題詞"
Top = 2760
Width = 3732
_ExtentX = 6583
_ExtentY = 614
_Version = 393216
Enabled = 0 'False
Style = 2
BackColor = -2147483648
ListField = "Ztc"
BoundColumn = "ZtcID"
Text = ""
End
End
Begin MSAdodcLib.Adodc adoZTC
Height = 312
Left = 7200
Top = 2400
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
ConnectMode = 3
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 1
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 5
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=PmData"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "PmData"
OtherAttributes = ""
UserName = "Admin"
Password = ""
RecordSource = "Ztc"
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc adoZR
Height = 312
Left = 7200
Top = 2160
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
ConnectMode = 3
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 1
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 5
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=PmData"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "PmData"
OtherAttributes = ""
UserName = "Admin"
Password = ""
RecordSource = "Zr"
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Attribute VB_Name = "frmFilterG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FText As String
Private Sub CheckFC_Click(Index As Integer)
With CheckFC(Index)
If .Value = 0 Then
With ComboF(Index)
.Enabled = False
.BackColor = &H80000004
.Text = ""
End With
Else
With ComboF(Index)
.Enabled = True
.BackColor = &H80000005
.SetFocus
End With
End If
End With
cmdClear.Enabled = True
End Sub
Private Sub CheckFO_Click()
With CheckFO
If .Value = 0 Then
ComboO.Enabled = False
ComboO.BackColor = &H80000004
TextO.Enabled = False
TextO.BackColor = &H80000004
ComboO.Text = ""
TextO.Text = ""
Else
ComboO.Enabled = True
ComboO.BackColor = &H80000005
TextO.Enabled = True
TextO.BackColor = &H80000005
End If
End With
cmdClear.Enabled = True
End Sub
Private Sub CheckFT_Click(Index As Integer)
With CheckFT(Index)
If .Value = 0 Then
With TextF(Index)
.Enabled = False
.BackColor = &H80000004
.Text = ""
End With
Else
With TextF(Index)
.Enabled = True
.BackColor = &H80000005
.SetFocus
End With
End If
End With
cmdClear.Enabled = True
End Sub
Private Sub CheckFZ_Click(Index As Integer)
With CheckFZ(Index)
If .Value = 0 Then
With dcF(Index)
.Enabled = False
.BackColor = &H80000004
.Text = ""
End With
Else
With dcF(Index)
.Enabled = True
.BackColor = &H80000005
.SetFocus
End With
End If
End With
cmdClear.Enabled = True
End Sub
Private Sub cmdALL_Click()
Dim i As Integer
For i = 0 To 2
CheckFC(i).Value = 1
CheckFT(i).Value = 1
Next i
CheckFT(3).Value = 1
CheckFZ(0).Value = 1
CheckFZ(1).Value = 1
CheckFO.Value = 1
cmdALL.Enabled = False
cmdClear.Enabled = True
End Sub
Private Sub cmdClear_Click()
Dim i As Integer
For i = 0 To 2
CheckFC(i).Value = 0
CheckFT(i).Value = 0
Next i
CheckFT(3).Value = 0
CheckFZ(0).Value = 0
CheckFZ(1).Value = 0
CheckFO.Value = 0
cmdClear.Enabled = False
cmdALL.Enabled = True
End Sub
Private Sub cmdLast_Click()
frmFilterG.Hide
Unload frmFilterG
Load frmFtype
frmFtype.Show
End Sub
Private Sub cmdNext_Click()
FText = ""
Call FillText '組織數據過濾條件
FilterTest.Text = FText
frmFtype.FilterText = FText
frmFilterG.Hide
Unload frmFilterG
Select Case frmMain.FileManage '選擇管理方式
Case 2 '查詢
Load frmSeekG
frmSeekG.Show
Case 3 '打印
Load frmPrintG
frmPrintG.Show
Case 4 '修改
Load frmModifyG
frmModifyG.Show
End Select
End Sub
Private Sub FillText() '組織過濾條件子程序
Dim lWhere As Boolean
Dim i As Integer
If CheckF.Value = 0 Then
'普通查詢
For i = 0 To 3
If CheckFT(i).Value = 1 And TextF(i).Text <> "" Then
FText = FText + " and InStr(" & CheckFT(i).ToolTipText & _
",'" & Trim(TextF(i).Text) & "')"
End If
If i < 3 Then
If CheckFC(i).Value = 1 And ComboF(i).Text <> "" Then
FText = FText + " and InStr(" & CheckFC(i).ToolTipText & _
",'" & Trim(ComboF(i).Text) & "')"
End If
End If
Next i
If CheckFO.Value = 1 And ComboO.Text <> "" And TextO.Text <> "" Then
FText = FText + " and InStr(" & ComboO.Text & ",'" & Trim(TextO.Text) & "')"
End If
If CheckFZ(0).Value = 1 And dcF(0).Text <> "" Then
FText = FText + " and InStr('!'+Trim(Str(責任者1))+'!'+Trim(Str(責任者2))+'!'+ Trim(Str(責任者3))+'!','!" & dcF(0).BoundText & "!')"
End If
If CheckFZ(1).Value = 1 And dcF(1).Text <> "" Then
FText = FText + " and InStr('!'+Trim(Str(主題詞1))+'!'+Trim(Str(主題詞2))+'!'+ Trim(Str(主題詞3))+'!'+ Trim(Str(主題詞4))+'!'+ Trim(Str(主題詞5))+'!','!" & dcF(1).BoundText & "!')"
End If
Else
'模糊方式
End If
End Sub
Private Sub ComboO_Click()
TextO.Text = ""
End Sub
Private Sub Form_Load()
frmFilterG.Caption = frmFilterG.Caption + " （" + frmMain.FileType + "檔案）"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -