?? form_logselect.frm
字號:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Frm_logSelect
BorderStyle = 1 'Fixed Single
Caption = "過濾"
ClientHeight = 2370
ClientLeft = 3585
ClientTop = 2640
ClientWidth = 4710
Icon = "Form_LogSelect.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2370
ScaleWidth = 4710
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "日期"
Height = 675
Left = 30
TabIndex = 6
Top = 150
Width = 4605
Begin MSComCtl2.DTPicker DTPicker1
Height = 285
Index = 0
Left = 60
TabIndex = 7
Top = 240
Width = 2085
_ExtentX = 3678
_ExtentY = 503
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM-dd HH:mm:ss"
Format = 70516739
CurrentDate = 36850.9999884259
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 285
Index = 1
Left = 2430
TabIndex = 8
Top = 240
Width = 2085
_ExtentX = 3678
_ExtentY = 503
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM-dd HH:mm:ss"
Format = 70516739
CurrentDate = 36850.9999884259
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "至"
Height = 180
Left = 2190
TabIndex = 9
Top = 300
Width = 180
End
End
Begin VB.CommandButton Command1
Caption = "取消&C"
Height = 315
Index = 1
Left = 3390
TabIndex = 5
Top = 1920
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "確定&D"
Height = 315
Index = 0
Left = 1920
TabIndex = 4
Top = 1920
Width = 1215
End
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Form_LogSelect.frx":038A
Left = 750
List = "Form_LogSelect.frx":0391
Style = 2 'Dropdown List
TabIndex = 3
Top = 1380
Width = 3915
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form_LogSelect.frx":0398
Left = 750
List = "Form_LogSelect.frx":039F
Style = 2 'Dropdown List
TabIndex = 1
Top = 930
Width = 3915
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "子系統:"
Height = 180
Left = 60
TabIndex = 2
Top = 1440
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用戶名:"
Height = 180
Left = 60
TabIndex = 0
Top = 990
Width = 630
End
End
Attribute VB_Name = "Frm_logSelect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Dim Ssql As String
If Index = 1 Then Unload Me: Exit Sub
Ssql = "a.GeginDate>='" & DTPicker1(0).Value & "' and a.GeginDate<='" & DTPicker1(1).Value & "' "
If Trim(Combo1.Text) <> "" Then
Ssql = Ssql & " and b.czymc='" & Combo1.Text & "'"
End If
If Trim(Combo2.Text) <> "" Then
Ssql = Ssql & " and a.SystemName='" & Trim(Combo2.Text) & "'"
End If
Frm_Log.ListView1.Tag = Ssql
Unload Me
End Sub
Private Sub Form_Activate()
On Error GoTo error_exit
Dim aDo_Log As New Recordset
Set aDo_Log = Conn_System.Execute("select * from " & Me.Tag & ".dbo.Gy_Czygl order by czymc")
Do While Not aDo_Log.EOF
Combo1.AddItem aDo_Log!czymc
aDo_Log.MoveNext
Loop
aDo_Log.Close
Set aDo_Log = Conn_System.Execute("select * from " & Me.Tag & ".dbo.Xt_xtgnb where sjgnbm = ''")
Do While Not aDo_Log.EOF
If aDo_Log!gnmc <> "開發輔助工具" Then
Combo2.AddItem aDo_Log!gnmc
End If
aDo_Log.MoveNext
Loop
aDo_Log.Close
Exit Sub
error_exit:
MsgBox Err.Description, 16
End Sub
Private Sub Form_Load()
DTPicker1(0).Value = Format(Date & " 00:00:00", "yyyy-MM-dd HH:mm:ss")
DTPicker1(1).Value = Format(Date & " 23:59:59", "yyyy-MM-dd HH:mm:ss")
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -