English
- VERSION 5.00
- Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
- Begin VB.Form frmFindCG
- BorderStyle = 3 'Fixed Dialog
- Caption = "对话框标题"
- ClientHeight = 1875
- ClientLeft = 2760
- ClientTop = 3750
- ClientWidth = 4590
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1875
- ScaleWidth = 4590
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin VB.Frame Frame1
- Caption = "设置条件"
- Height = 1215
- Left = 120
- TabIndex = 2
- Top = 120
- Width = 4335
- Begin VB.TextBox txtMin
- Height = 270
- Left = 3360
- TabIndex = 10
- Text = "6"
- Top = 360
- Width = 495
- End
- Begin VB.ComboBox cboClerk
- Height = 300
- ItemData = "frmFindCG.frx":0000
- Left = 960
- List = "frmFindCG.frx":000A
- Style = 2 'Dropdown List
- TabIndex = 8
- Top = 360
- Width = 1695
- End
- Begin MSComCtl2.DTPicker fDTP
- BeginProperty DataFormat
- Type = 1
- Format = "HH:mm:ss"
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 4
- EndProperty
- Height = 300
- Index = 1
- Left = 2640
- TabIndex = 3
- Top = 720
- Width = 1215
- _ExtentX = 2143
- _ExtentY = 529
- _Version = 393216
- Format = 64880642
- UpDown = -1 'True
- CurrentDate = 39448.3333333333
- End
- Begin MSComCtl2.DTPicker fDTP
- BeginProperty DataFormat
- Type = 1
- Format = "yyyy""年""M""月""d""日"""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 3
- EndProperty
- Height = 300
- Index = 0
- Left = 960
- TabIndex = 4
- Top = 720
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- Format = 64880640
- CurrentDate = 39448.3333333333
- End
- Begin VB.Label Labels
- AutoSize = -1 'True
- Caption = "小时"
- Height = 180
- Index = 3
- Left = 3870
- TabIndex = 11
- Top = 420
- Width = 360
- End
- Begin VB.Label Labels
- AutoSize = -1 'True
- Caption = "之前"
- Height = 180
- Index = 2
- Left = 3870
- TabIndex = 9
- Top = 780
- Width = 360
- End
- Begin VB.Label Labels
- AutoSize = -1 'True
- Caption = "采购状态"
- Height = 180
- Index = 0
- Left = 240
- TabIndex = 7
- Top = 420
- Width = 720
- End
- Begin VB.Label Labels
- AutoSize = -1 'True
- Caption = "报件时间"
- Height = 180
- Index = 1
- Left = 240
- TabIndex = 6
- Top = 780
- Width = 720
- End
- Begin VB.Label Labels
- AutoSize = -1 'True
- Caption = "用时大于"
- Height = 180
- Index = 6
- Left = 2640
- TabIndex = 5
- Top = 420
- Width = 720
- End
- End
- Begin VB.CommandButton CancelButton
- Caption = "取消"
- Height = 300
- Left = 3360
- TabIndex = 1
- Top = 1440
- Width = 900
- End
- Begin VB.CommandButton OKButton
- Caption = "确定"
- Height = 300
- Left = 2400
- TabIndex = 0
- Top = 1440
- Width = 900
- End
- End
- Attribute VB_Name = "frmFindCG"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '****************************************************************************
- '人人为我，我为人人
- '枕善居收藏整理
- '发布日期：2008/01/21
- '描 述：汽车维修管理系统SQL2000版
- '网 站：http://www.Mndsoft.com/ (VB6源码博客)
- '网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
- 'e-mail ：Mndsoft@163.com
- 'e-mail ：Mndsoft@126.com
- 'OICQ ：88382850
- ' 如果您有新的好的代码别忘记给枕善居哦!
- '****************************************************************************
- Option Explicit
- Dim strSQL As String
- Private Sub CancelButton_Click()
- Unload Me
- End Sub
- Private Sub fDTP_Change(Index As Integer)
- If Index = 0 Then fDTP(1) = fDTP(0) Else fDTP(0) = fDTP(1)
- End Sub
- Private Sub Form_Load()
- fDTP(0) = Now() - 1
- fDTP(1) = Now() - 1
- End Sub
- Private Sub OKButton_Click()
- Dim strWHERE As String
- If Trim(cboClerk.Text) = "未采购" Then strWHERE = strWHERE & " Where (sNum IS NULL) AND "
- If Trim(cboClerk.Text) = "已采购" Then strWHERE = strWHERE & " Where (sNum IS NOT NULL) AND DATEDIFF(hh, pDate, FDate)>" & Val(txtMin.Text) & " AND "
- If Trim(cboClerk.Text) = "" Then strWHERE = strWHERE & " Where "
- strWHERE = strWHERE & "pDate <'" & fDTP(1).Value & "'"
- strSQL = "Select * from V_Serch" & strWHERE
- frmDataList.ObjToLv g_Conn.Execute(strSQL), frmDataList.ListView1
- Me.Hide
- End Sub
- Private Sub txtMin_Change()
- txtMin.Text = Val(txtMin.Text)
- End Sub
