home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / A_Customiz220561632011.psc / custdb.frm < prev   
Text File  |  2011-05-29  |  16KB  |  467 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
  4. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  5. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  6. Begin VB.Form frmCustDB 
  7.    Caption         =   " Custom Database"
  8.    ClientHeight    =   5715
  9.    ClientLeft      =   4980
  10.    ClientTop       =   4320
  11.    ClientWidth     =   8955
  12.    ClipControls    =   0   'False
  13.    Icon            =   "custdb.frx":0000
  14.    LinkTopic       =   "Form1"
  15.    LockControls    =   -1  'True
  16.    ScaleHeight     =   5715
  17.    ScaleWidth      =   8955
  18.    Begin VB.TextBox Headers 
  19.       Height          =   285
  20.       Index           =   0
  21.       Left            =   120
  22.       TabIndex        =   19
  23.       Top             =   300
  24.       Width           =   1680
  25.    End
  26.    Begin VB.PictureBox Picture1 
  27.       Appearance      =   0  'Flat
  28.       BorderStyle     =   0  'None
  29.       ForeColor       =   &H80000008&
  30.       Height          =   435
  31.       Index           =   0
  32.       Left            =   0
  33.       ScaleHeight     =   435
  34.       ScaleWidth      =   8970
  35.       TabIndex        =   14
  36.       Top             =   660
  37.       Width           =   8970
  38.       Begin VB.CommandButton cmdDelete 
  39.          Caption         =   "&Delete Selected Item"
  40.          BeginProperty Font 
  41.             Name            =   "Times New Roman"
  42.             Size            =   8.25
  43.             Charset         =   0
  44.             Weight          =   400
  45.             Underline       =   0   'False
  46.             Italic          =   0   'False
  47.             Strikethrough   =   0   'False
  48.          EndProperty
  49.          Height          =   325
  50.          Left            =   6660
  51.          TabIndex        =   15
  52.          Top             =   60
  53.          Width           =   2170
  54.       End
  55.       Begin VB.CommandButton cmdUpdate 
  56.          Caption         =   "&Update Selected Item"
  57.          BeginProperty Font 
  58.             Name            =   "Times New Roman"
  59.             Size            =   8.25
  60.             Charset         =   0
  61.             Weight          =   400
  62.             Underline       =   0   'False
  63.             Italic          =   0   'False
  64.             Strikethrough   =   0   'False
  65.          EndProperty
  66.          Height          =   325
  67.          Left            =   4500
  68.          TabIndex        =   16
  69.          Top             =   60
  70.          Width           =   2170
  71.       End
  72.       Begin VB.CommandButton cmdEdit 
  73.          Caption         =   "&Edit Selected Item"
  74.          BeginProperty Font 
  75.             Name            =   "Times New Roman"
  76.             Size            =   8.25
  77.             Charset         =   0
  78.             Weight          =   400
  79.             Underline       =   0   'False
  80.             Italic          =   0   'False
  81.             Strikethrough   =   0   'False
  82.          EndProperty
  83.          Height          =   325
  84.          Left            =   2340
  85.          TabIndex        =   17
  86.          Top             =   60
  87.          Width           =   2170
  88.       End
  89.       Begin VB.CommandButton cmdAddItem 
  90.          Caption         =   "Add &New Item"
  91.          BeginProperty Font 
  92.             Name            =   "Times New Roman"
  93.             Size            =   8.25
  94.             Charset         =   0
  95.             Weight          =   400
  96.             Underline       =   0   'False
  97.             Italic          =   0   'False
  98.             Strikethrough   =   0   'False
  99.          EndProperty
  100.          Height          =   325
  101.          Left            =   180
  102.          TabIndex        =   18
  103.          Top             =   60
  104.          Width           =   2170
  105.       End
  106.    End
  107.    Begin VB.PictureBox Picture1 
  108.       Appearance      =   0  'Flat
  109.       BorderStyle     =   0  'None
  110.       ForeColor       =   &H80000008&
  111.       Height          =   1845
  112.       Index           =   1
  113.       Left            =   0
  114.       ScaleHeight     =   1845
  115.       ScaleWidth      =   8970
  116.       TabIndex        =   2
  117.       Top             =   4365
  118.       Width           =   8970
  119.       Begin VB.CommandButton cmdCust 
  120.          Caption         =   "&Customise DB"
  121.          BeginProperty Font 
  122.             Name            =   "Times New Roman"
  123.             Size            =   8.25
  124.             Charset         =   0
  125.             Weight          =   400
  126.             Underline       =   0   'False
  127.             Italic          =   0   'False
  128.             Strikethrough   =   0   'False
  129.          EndProperty
  130.          Height          =   325
  131.          Left            =   6630
  132.          TabIndex        =   5
  133.          Top             =   915
  134.          Width           =   2170
  135.       End
  136.       Begin VB.CommandButton cmdSaveList 
  137.          Caption         =   "Save List to D&B"
  138.          BeginProperty Font 
  139.             Name            =   "Times New Roman"
  140.             Size            =   8.25
  141.             Charset         =   0
  142.             Weight          =   400
  143.             Underline       =   0   'False
  144.             Italic          =   0   'False
  145.             Strikethrough   =   0   'False
  146.          EndProperty
  147.          Height          =   325
  148.          Left            =   4470
  149.          TabIndex        =   6
  150.          Top             =   915
  151.          Width           =   2170
  152.       End
  153.       Begin VB.CommandButton cmdReload 
  154.          Caption         =   "Reload Saved &List"
  155.          BeginProperty Font 
  156.             Name            =   "Times New Roman"
  157.             Size            =   8.25
  158.             Charset         =   0
  159.             Weight          =   400
  160.             Underline       =   0   'False
  161.             Italic          =   0   'False
  162.             Strikethrough   =   0   'False
  163.          EndProperty
  164.          Height          =   325
  165.          Left            =   2310
  166.          TabIndex        =   7
  167.          Top             =   915
  168.          Width           =   2170
  169.       End
  170.       Begin VB.CommandButton cmdSaveSel 
  171.          Caption         =   "&Save Selected Item(s)"
  172.          BeginProperty Font 
  173.             Name            =   "Times New Roman"
  174.             Size            =   8.25
  175.             Charset         =   0
  176.             Weight          =   400
  177.             Underline       =   0   'False
  178.             Italic          =   0   'False
  179.             Strikethrough   =   0   'False
  180.          EndProperty
  181.          Height          =   325
  182.          Left            =   6630
  183.          TabIndex        =   4
  184.          Top             =   90
  185.          Width           =   2170
  186.       End
  187.       Begin VB.CommandButton cmdEmail 
  188.          Caption         =   "E&mail Selected Item(s)"
  189.          BeginProperty Font 
  190.             Name            =   "Times New Roman"
  191.             Size            =   8.25
  192.             Charset         =   0
  193.             Weight          =   400
  194.             Underline       =   0   'False
  195.             Italic          =   0   'False
  196.             Strikethrough   =   0   'False
  197.          EndProperty
  198.          Height          =   325
  199.          Left            =   4470
  200.          TabIndex        =   9
  201.          Top             =   90
  202.          Width           =   2170
  203.       End
  204.       Begin VB.CommandButton cmdPrint 
  205.          Caption         =   "&Print Selected Item(s)"
  206.          BeginProperty Font 
  207.             Name            =   "Times New Roman"
  208.             Size            =   8.25
  209.             Charset         =   0
  210.             Weight          =   400
  211.             Underline       =   0   'False
  212.             Italic          =   0   'False
  213.             Strikethrough   =   0   'False
  214.          EndProperty
  215.          Height          =   325
  216.          Left            =   2310
  217.          TabIndex        =   10
  218.          Top             =   90
  219.          Width           =   2170
  220.       End
  221.       Begin VB.CommandButton cmdDupes 
  222.          Caption         =   "&Remove Duplicates"
  223.          BeginProperty Font 
  224.             Name            =   "Times New Roman"
  225.             Size            =   8.25
  226.             Charset         =   0
  227.             Weight          =   400
  228.             Underline       =   0   'False
  229.             Italic          =   0   'False
  230.             Strikethrough   =   0   'False
  231.          EndProperty
  232.          Height          =   325
  233.          Left            =   150
  234.          TabIndex        =   11
  235.          Top             =   90
  236.          Width           =   2170
  237.       End
  238.       Begin RichTextLib.RichTextBox rtf 
  239.          Height          =   315
  240.          Left            =   180
  241.          TabIndex        =   3
  242.          Top             =   1380
  243.          Width           =   8595
  244.          _ExtentX        =   15161
  245.          _ExtentY        =   556
  246.          _Version        =   393217
  247.          Enabled         =   -1  'True
  248.          TextRTF         =   $"custdb.frx":030A
  249.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  250.             Name            =   "Courier New"
  251.             Size            =   8.25
  252.             Charset         =   0
  253.             Weight          =   400
  254.             Underline       =   0   'False
  255.             Italic          =   0   'False
  256.             Strikethrough   =   0   'False
  257.          EndProperty
  258.       End
  259.       Begin MSComctlLib.ProgressBar pgbProgress 
  260.          Height          =   180
  261.          Left            =   120
  262.          TabIndex        =   8
  263.          ToolTipText     =   "List Keys: ALT-I, Letter keys, Arrow keys, ENTER to edit, DEL to delete, CTRL-DEL to delete duplicates"
  264.          Top             =   585
  265.          Width           =   8715
  266.          _ExtentX        =   15372
  267.          _ExtentY        =   318
  268.          _Version        =   393216
  269.          Appearance      =   0
  270.          Max             =   500
  271.       End
  272.       Begin VB.Label Label1 
  273.          Alignment       =   1  'Right Justify
  274.          BackStyle       =   0  'Transparent
  275.          Caption         =   "Total Entries :"
  276.          BeginProperty Font 
  277.             Name            =   "MS Sans Serif"
  278.             Size            =   8.25
  279.             Charset         =   0
  280.             Weight          =   700
  281.             Underline       =   0   'False
  282.             Italic          =   0   'False
  283.             Strikethrough   =   0   'False
  284.          EndProperty
  285.          ForeColor       =   &H00800000&
  286.          Height          =   255
  287.          Left            =   -330
  288.          TabIndex        =   13
  289.          Top             =   975
  290.          Width           =   1785
  291.       End
  292.       Begin VB.Label Label2 
  293.          BackStyle       =   0  'Transparent
  294.          Caption         =   "0"
  295.          BeginProperty Font 
  296.             Name            =   "MS Sans Serif"
  297.             Size            =   8.25
  298.             Charset         =   0
  299.             Weight          =   700
  300.             Underline       =   0   'False
  301.             Italic          =   0   'False
  302.             Strikethrough   =   0   'False
  303.          EndProperty
  304.          ForeColor       =   &H00800000&
  305.          Height          =   255
  306.          Left            =   1560
  307.          TabIndex        =   12
  308.          Top             =   975
  309.          Width           =   795
  310.       End
  311.       Begin VB.Line Line1 
  312.          Index           =   0
  313.          X1              =   120
  314.          X2              =   8820
  315.          Y1              =   570
  316.          Y2              =   570
  317.       End
  318.       Begin VB.Line Line1 
  319.          Index           =   1
  320.          X1              =   120
  321.          X2              =   8820
  322.          Y1              =   780
  323.          Y2              =   780
  324.       End
  325.    End
  326.    Begin MSComDlg.CommonDialog dlgCommon 
  327.       Left            =   3360
  328.       Top             =   2040
  329.       _ExtentX        =   847
  330.       _ExtentY        =   847
  331.       _Version        =   393216
  332.    End
  333.    Begin MSMAPI.MAPIMessages MAPIMess 
  334.       Left            =   4590
  335.       Top             =   2520
  336.       _ExtentX        =   1005
  337.       _ExtentY        =   1005
  338.       _Version        =   393216
  339.       AddressEditFieldCount=   1
  340.       AddressModifiable=   0   'False
  341.       AddressResolveUI=   0   'False
  342.       FetchSorted     =   0   'False
  343.       FetchUnreadOnly =   0   'False
  344.    End
  345.    Begin MSMAPI.MAPISession MAPISess 
  346.       Left            =   5490
  347.       Top             =   2460
  348.       _ExtentX        =   1005
  349.       _ExtentY        =   1005
  350.       _Version        =   393216
  351.       DownloadMail    =   -1  'True
  352.       LogonUI         =   -1  'True
  353.       NewSession      =   0   'False
  354.    End
  355.    Begin MSComctlLib.ImageList ImageList1 
  356.       Left            =   3510
  357.       Top             =   3000
  358.       _ExtentX        =   1005
  359.       _ExtentY        =   1005
  360.       BackColor       =   -2147483643
  361.       ImageWidth      =   16
  362.       ImageHeight     =   16
  363.       MaskColor       =   12632256
  364.       _Version        =   393216
  365.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  366.          NumListImages   =   2
  367.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.             Picture         =   "custdb.frx":038A
  369.             Key             =   "ascend"
  370.          EndProperty
  371.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.             Picture         =   "custdb.frx":04E4
  373.             Key             =   "descend"
  374.          EndProperty
  375.       EndProperty
  376.    End
  377.    Begin VB.Timer Timer1 
  378.       Enabled         =   0   'False
  379.       Interval        =   180
  380.       Left            =   2190
  381.       Top             =   2580
  382.    End
  383.    Begin MSComctlLib.ListView ListView1 
  384.       Height          =   3105
  385.       Left            =   120
  386.       TabIndex        =   1
  387.       Top             =   1200
  388.       Width           =   8715
  389.       _ExtentX        =   15372
  390.       _ExtentY        =   5477
  391.       View            =   3
  392.       LabelEdit       =   1
  393.       MultiSelect     =   -1  'True
  394.       LabelWrap       =   0   'False
  395.       HideSelection   =   0   'False
  396.       FullRow120
  397.    e a16   geWidth      =   tTabIt 
  398.      r'False
  399. rw120
  400.    e a16   geWidth e1-B16A-00A
  401.      TabIt 
  402.      rD&Sr0A
  403.      TabIt          
  404.  4A
  405.      TabIt 
  406.      rD&Sr0A
  407.      TabIt          
  408.  4A
  409.      TabIt 
  410.      rD&Sr0A
  411.      TabIt          
  412.  4A
  413.      TabIt 
  414.      rD&Sr0A
  415.      TabIt          
  416.  4A
  417.      TabIt 
  418.      rD&Sr0A
  419.      TabIt          
  420.  4A
  421.      TabIt 
  422.      rD&Sr0A
  423.      TabIt  bIt       5
  424.      T
  425.      TabIt 
  426.      rD&Sr0A
  427.    S       Sr0A
  428.    TabIt  bIt    e rD  =   1      Pi =   9D  e 281 w   TabIt         Yr0A
  429.    Tabn8ft       A
  430.  2
  431.      pl   =   -1  'True
  432.   lTrue
  433.   lTrue
  434.   lTrue
  435.   lTrue
  436. 5477
  437.      .pl   tt-   ue
  438.   lue
  439. 547O     
  440.  4AStiesty  ue
  441.   lue
  442. 547O   oB0ruee
  443. F(e
  444. obi1    ueI8on 
  445.          Bugh   =   0   'Falspppppppppppppppppppppppm  =   1005
  446.       _ExtentY  s
  447.             Italic  spppppm  erty Fu        ntX        Ippp        ="  'T82u erty Fu       l    Ippp        ="  'Tt:uy Fu        ntX CeP     _ExtentX      ee0ue
  448. 5477
  449.      .pl   tt-   ue
  450.   lue
  451. 547O     
  452.  4AStiesty  ue
  453.   lue
  454. 547O   oB0ruee
  455. F(e
  456. obi1    ueI8on 
  457.          Bugh   =   0   'Falspppppppppppppppppppppppm  =   1005
  458.     7O BAO tse3 =   25ugh  =   25ugh  =   25ugh  =   25ugh  =  l5ugh=   25ugh  =  l5ugh=ao         Bug
  459.          Bugh   ee0ue
  460. 5477
  461.  h  =  l5.'4i  =   i -    ueI8on h   ee0ue
  462. 54Du        Ls   Bugtl7
  463.  h  =  l5.'4i  =  2idth e1h   ee0ueb                   =   780
  464.        abIt          Bug          =dth e1h   ee0ueb           u        n          =   Fb           = 3ee0ueb                      3ee0ueb                      3ee0uertybL  uE2gh=aoM_ExtentXyrval    E5esolveUI=   0   'False
  465.       Fetz      l  Vs
  466.  
  467.  4AStiessd"    a