form_logselect.frm

宇迪ｅｒｐ,企业erp模块一

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          =   19726339
         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          =   19726339
         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