home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / customer_c189748652005.psc / comp_pendingfrm.frm < prev    next >
Text File  |  1995-03-04  |  5KB  |  146 lines
  1. VERSION 5.00
  2. Object = "{00025600-0000-0000-C000-000000000046}#4.6#0"; "crystl32.tlb"
  3. Begin VB.Form comp_pendingfrm 
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Pending Complaints Form"
  7.    ClientHeight    =   4770
  8.    ClientLeft      =   0
  9.    ClientTop       =   15
  10.    ClientWidth     =   8295
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form1"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MDIChild        =   -1  'True
  17.    MinButton       =   0   'False
  18.    Moveable        =   0   'False
  19.    ScaleHeight     =   4770
  20.    ScaleWidth      =   8295
  21.    ShowInTaskbar   =   0   'False
  22.    Begin Crystal.CrystalReport comp_pendingrpt 
  23.       Left            =   5640
  24.       Top             =   1200
  25.       _ExtentX        =   741
  26.       _ExtentY        =   741
  27.       _Version        =   327680
  28.       ReportFileName  =   "c:\program files\custcareprj\COMP_PENDINGRPT.rpt"
  29.       PrintFileLinesPerPage=   60
  30.    End
  31.    Begin VB.Frame Frame1 
  32.       BackColor       =   &H00FFFFFF&
  33.       Height          =   1965
  34.       Left            =   780
  35.       TabIndex        =   3
  36.       Top             =   420
  37.       Width           =   3585
  38.       Begin VB.TextBox to_compldate 
  39.          BackColor       =   &H00FFFFFF&
  40.          ForeColor       =   &H00FF0000&
  41.          Height          =   315
  42.          Left            =   1710
  43.          TabIndex        =   1
  44.          Top             =   660
  45.          Width           =   1515
  46.       End
  47.       Begin VB.TextBox from_compldate 
  48.          BackColor       =   &H00FFFFFF&
  49.          ForeColor       =   &H00FF0000&
  50.          Height          =   315
  51.          Left            =   1710
  52.          TabIndex        =   0
  53.          Top             =   300
  54.          Width           =   1515
  55.       End
  56.       Begin VB.CommandButton compl_pendingshow 
  57.          Caption         =   "&Show Complaints"
  58.          BeginProperty Font 
  59.             Name            =   "Verdana"
  60.             Size            =   8.25
  61.             Charset         =   0
  62.             Weight          =   400
  63.             Underline       =   0   'False
  64.             Italic          =   0   'False
  65.             Strikethrough   =   0   'False
  66.          EndProperty
  67.          Height          =   435
  68.          Left            =   1080
  69.          TabIndex        =   2
  70.          Top             =   1200
  71.          Width           =   1695
  72.       End
  73.       Begin VB.Label lblto 
  74.          BackColor       =   &H00FFFFFF&
  75.          Caption         =   "To Date:"
  76.          BeginProperty Font 
  77.             Name            =   "Verdana"
  78.             Size            =   9.75
  79.             Charset         =   0
  80.             Weight          =   700
  81.             Underline       =   0   'False
  82.             Italic          =   0   'False
  83.             Strikethrough   =   0   'False
  84.          EndProperty
  85.          Height          =   285
  86.          Left            =   360
  87.          TabIndex        =   5
  88.          Top             =   690
  89.          Width           =   915
  90.       End
  91.       Begin VB.Label lblfrom 
  92.          BackColor       =   &H00FFFFFF&
  93.          Caption         =   "From Date:"
  94.          BeginProperty Font 
  95.             Name            =   "Verdana"
  96.             Size            =   9.75
  97.             Charset         =   0
  98.             Weight          =   700
  99.             Underline       =   0   'False
  100.             Italic          =   0   'False
  101.             Strikethrough   =   0   'False
  102.          EndProperty
  103.          Height          =   225
  104.          Left            =   360
  105.          TabIndex        =   4
  106.          Top             =   300
  107.          Width           =   1215
  108.       End
  109.    End
  110. End
  111. Attribute VB_Name = "comp_pendingfrm"
  112. Attribute VB_GlobalNameSpace = False
  113. Attribute VB_Creatable = False
  114. Attribute VB_PredeclaredId = True
  115. Attribute VB_Exposed = False
  116. Dim custcaredb As New Connection
  117. Dim compcom, comptempcom As New Command
  118. Dim comprs, comptemprs As New Recordset
  119.  
  120. Private Sub Form_Activate()
  121. 'Set custcaredb = DBEngine.OpenDatabase("c:\program files\custcareprj\custcaredb.mdb")
  122. 'Set prodinstfrm.custrs = custcaredb.OpenRecordset("select * from customer ", dbOpenDynaset)
  123. 'Set comprs = custcaredb.OpenRecordset("select * from complaints ", dbOpenDynaset)
  124. 'Set comptemprs = custcaredb.OpenRecordset("select * from complaintstemp ", dbOpenDynaset)
  125.  
  126. 'custcaredb.Execute ("delete * from complaintstemp")
  127. 'comprs.Requery
  128. 'If comprs.RecordCount > 0 Then
  129. '    comprs.MoveFirst
  130. '    Do While Not comprs.EOF
  131. '        If comprs.Fields(7) = "Pending" Then
  132. '            comptemprs.AddNew
  133. '            comptemprs.Fields(0) = comprs.Fields(0)
  134. '            comptemprs.Fields(1) = comprs.Fields(1)
  135. '            comptemprs.Fields(2) = comprs.Fields(2)
  136. '            comptemprs.Fields(9) = comprs.Fields(9)
  137. '            comptemprs.Fields(10) = comprs.Fields(10)
  138. '            comptemprs.Update
  139. '        End If
  140. '        comprs.MoveNext
  141. '    Loop
  142. 'End If
  143. comp_pendingrpt.DiscardSavedData = True
  144. comp_pendingrpt.Action = 1
  145. End Sub
  146.