home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD7388732000.psc / SqlFileCopyWorking / frmMain.frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-05-23  |  32.9 KB  |  917 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  4. Begin VB.Form frmMain 
  5.    Caption         =   "SQL Express"
  6.    ClientHeight    =   7425
  7.    ClientLeft      =   2040
  8.    ClientTop       =   2415
  9.    ClientWidth     =   10605
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   495
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   707
  15.    Begin TabDlg.SSTab tbsMain 
  16.       Height          =   6855
  17.       Left            =   0
  18.       TabIndex        =   1
  19.       Top             =   120
  20.       Width           =   10575
  21.       _ExtentX        =   18653
  22.       _ExtentY        =   12091
  23.       _Version        =   393216
  24.       Tab             =   1
  25.       TabHeight       =   529
  26.       TabCaption(0)   =   "   Files"
  27.       TabPicture(0)   =   "frmMain.frx":030A
  28.       Tab(0).ControlEnabled=   0   'False
  29.       Tab(0).Control(0)=   "fraTarget"
  30.       Tab(0).Control(0).Enabled=   0   'False
  31.       Tab(0).Control(1)=   "fraSource"
  32.       Tab(0).Control(1).Enabled=   0   'False
  33.       Tab(0).Control(2)=   "Frame1"
  34.       Tab(0).Control(2).Enabled=   0   'False
  35.       Tab(0).ControlCount=   3
  36.       TabCaption(1)   =   "   Fields"
  37.       TabPicture(1)   =   "frmMain.frx":08A4
  38.       Tab(1).ControlEnabled=   -1  'True
  39.       Tab(1).Control(0)=   "fraAction"
  40.       Tab(1).Control(0).Enabled=   0   'False
  41.       Tab(1).Control(1)=   "Frame2"
  42.       Tab(1).Control(1).Enabled=   0   'False
  43.       Tab(1).Control(2)=   "Frame3"
  44.       Tab(1).Control(2).Enabled=   0   'False
  45.       Tab(1).Control(3)=   "fraOptions2"
  46.       Tab(1).Control(3).Enabled=   0   'False
  47.       Tab(1).ControlCount=   4
  48.       TabCaption(2)   =   "   Results"
  49.       TabPicture(2)   =   "frmMain.frx":0E3E
  50.       Tab(2).ControlEnabled=   0   'False
  51.       Tab(2).Control(0)=   "fraCheck"
  52.       Tab(2).Control(0).Enabled=   0   'False
  53.       Tab(2).Control(1)=   "fraAuto"
  54.       Tab(2).Control(1).Enabled=   0   'False
  55.       Tab(2).ControlCount=   2
  56.       Begin VB.Frame fraOptions2 
  57.          Caption         =   "Options"
  58.          ForeColor       =   &H8000000D&
  59.          Height          =   1455
  60.          Left            =   120
  61.          TabIndex        =   33
  62.          Top             =   5280
  63.          Width           =   10335
  64.          Begin VB.OptionButton optClear 
  65.             Caption         =   "Use Delete"
  66.             ForeColor       =   &H00000080&
  67.             Height          =   375
  68.             Index           =   2
  69.             Left            =   9000
  70.             Style           =   1  'Graphical
  71.             TabIndex        =   36
  72.             ToolTipText     =   "Use Delete to clear the Target File"
  73.             Top             =   960
  74.             Width           =   1215
  75.          End
  76.          Begin VB.OptionButton optClear 
  77.             Caption         =   "Use Truncate"
  78.             ForeColor       =   &H00000080&
  79.             Height          =   375
  80.             Index           =   1
  81.             Left            =   9000
  82.             Style           =   1  'Graphical
  83.             TabIndex        =   35
  84.             ToolTipText     =   "Use truncate to clear the target file"
  85.             Top             =   600
  86.             Width           =   1215
  87.          End
  88.          Begin VB.OptionButton optClear 
  89.             Caption         =   "No Clear"
  90.             ForeColor       =   &H8000000D&
  91.             Height          =   375
  92.             Index           =   0
  93.             Left            =   9000
  94.             Style           =   1  'Graphical
  95.             TabIndex        =   34
  96.             ToolTipText     =   "Do not clear the target file"
  97.             Top             =   240
  98.             Value           =   -1  'True
  99.             Width           =   1215
  100.          End
  101.       End
  102.       Begin VB.Frame Frame3 
  103.          Caption         =   "Target Details"
  104.          BeginProperty Font 
  105.             Name            =   "MS Sans Serif"
  106.             Size            =   12
  107.             Charset         =   0
  108.             Weight          =   700
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          ForeColor       =   &H00FF0000&
  114.          Height          =   4815
  115.          Left            =   6120
  116.          TabIndex        =   30
  117.          Top             =   360
  118.          Width           =   4335
  119.          Begin VB.ListBox lstTargetFields 
  120.             BeginProperty Font 
  121.                Name            =   "Courier New"
  122.                Size            =   8.25
  123.                Charset         =   0
  124.                Weight          =   400
  125.                Underline       =   0   'False
  126.                Italic          =   0   'False
  127.                Strikethrough   =   0   'False
  128.             EndProperty
  129.             Height          =   3630
  130.             ItemData        =   "frmMain.frx":13D8
  131.             Left            =   120
  132.             List            =   "frmMain.frx":13DA
  133.             TabIndex        =   31
  134.             Top             =   615
  135.             Width           =   4095
  136.          End
  137.          Begin VB.Label lblFile 
  138.             Alignment       =   2  'Center
  139.             BackColor       =   &H8000000D&
  140.             BorderStyle     =   1  'Fixed Single
  141.             Caption         =   "Field Listing"
  142.             BeginProperty Font 
  143.                Name            =   "MS Sans Serif"
  144.                Size            =   8.25
  145.                Charset         =   0
  146.                Weight          =   700
  147.                Underline       =   0   'False
  148.                Italic          =   0   'False
  149.                Strikethrough   =   0   'False
  150.             EndProperty
  151.             ForeColor       =   &H0000FFFF&
  152.             Height          =   270
  153.             Index           =   1
  154.             Left            =   120
  155.             TabIndex        =   32
  156.             Top             =   360
  157.             Width           =   4095
  158.          End
  159.       End
  160.       Begin VB.Frame Frame2 
  161.          Caption         =   "Source Details"
  162.          BeginProperty Font 
  163.             Name            =   "MS Sans Serif"
  164.             Size            =   12
  165.             Charset         =   0
  166.             Weight          =   700
  167.             Underline       =   0   'False
  168.             Italic          =   0   'False
  169.             Strikethrough   =   0   'False
  170.          EndProperty
  171.          ForeColor       =   &H0000FF00&
  172.          Height          =   4815
  173.          Left            =   120
  174.          TabIndex        =   27
  175.          Top             =   360
  176.          Width           =   4335
  177.          Begin VB.ListBox lstSourceFields 
  178.             BeginProperty Font 
  179.                Name            =   "Courier New"
  180.                Size            =   8.25
  181.                Charset         =   0
  182.                Weight          =   400
  183.                Underline       =   0   'False
  184.                Italic          =   0   'False
  185.                Strikethrough   =   0   'False
  186.             EndProperty
  187.             Height          =   3630
  188.             ItemData        =   "frmMain.frx":13DC
  189.             Left            =   120
  190.             List            =   "frmMain.frx":13DE
  191.             TabIndex        =   28
  192.             Top             =   615
  193.             Width           =   4095
  194.          End
  195.          Begin VB.Label lblFile 
  196.             Alignment       =   2  'Center
  197.             BackColor       =   &H8000000D&
  198.             BorderStyle     =   1  'Fixed Single
  199.             Caption         =   "Field Listing"
  200.             BeginProperty Font 
  201.                Name            =   "MS Sans Serif"
  202.                Size            =   8.25
  203.                Charset         =   0
  204.                Weight          =   700
  205.                Underline       =   0   'False
  206.                Italic          =   0   'False
  207.                Strikethrough   =   0   'False
  208.             EndProperty
  209.             ForeColor       =   &H0000FFFF&
  210.             Height          =   270
  211.             Index           =   0
  212.             Left            =   120
  213.             TabIndex        =   29
  214.             Top             =   360
  215.             Width           =   4095
  216.          End
  217.       End
  218.       Begin VB.Frame fraAction 
  219.          Caption         =   "Action"
  220.          BeginProperty Font 
  221.             Name            =   "MS Sans Serif"
  222.             Size            =   9.75
  223.             Charset         =   0
  224.             Weight          =   700
  225.             Underline       =   0   'False
  226.             Italic          =   0   'False
  227.             Strikethrough   =   0   'False
  228.          EndProperty
  229.          ForeColor       =   &H000000FF&
  230.          Height          =   4815
  231.          Left            =   4560
  232.          TabIndex        =   23
  233.          Top             =   360
  234.          Width           =   1455
  235.          Begin VB.CommandButton cmdStart 
  236.             Caption         =   "Start Transfer"
  237.             Height          =   1095
  238.             Left            =   240
  239.             Picture         =   "frmMain.frx":13E0
  240.             Style           =   1  'Graphical
  241.             TabIndex        =   24
  242.             Top             =   1800
  243.             Width           =   975
  244.          End
  245.          Begin VB.Label Label1 
  246.             Caption         =   ">>>>>"
  247.             BeginProperty Font 
  248.                Name            =   "MS Sans Serif"
  249.                Size            =   13.5
  250.                Charset         =   0
  251.                Weight          =   700
  252.                Underline       =   0   'False
  253.                Italic          =   0   'False
  254.                Strikethrough   =   0   'False
  255.             EndProperty
  256.             ForeColor       =   &H000000FF&
  257.             Height          =   375
  258.             Index           =   0
  259.             Left            =   240
  260.             TabIndex        =   26
  261.             Top             =   1320
  262.             Width           =   975
  263.          End
  264.          Begin VB.Label Label1 
  265.             Caption         =   ">>>>>"
  266.             BeginProperty Font 
  267.                Name            =   "MS Sans Serif"
  268.                Size            =   13.5
  269.                Charset         =   0
  270.                Weight          =   700
  271.                Underline       =   0   'False
  272.                Italic          =   0   'False
  273.                Strikethrough   =   0   'False
  274.             EndProperty
  275.             ForeColor       =   &H000000FF&
  276.             Height          =   375
  277.             Index           =   1
  278.             Left            =   240
  279.             TabIndex        =   25
  280.             Top             =   3120
  281.             Width           =   975
  282.          End
  283.       End
  284.       Begin VB.Frame Frame1 
  285.          Caption         =   "Action"
  286.          BeginProperty Font 
  287.             Name            =   "MS Sans Serif"
  288.             Size            =   9.75
  289.             Charset         =   0
  290.             Weight          =   700
  291.             Underline       =   0   'False
  292.             Italic          =   0   'False
  293.             Strikethrough   =   0   'False
  294.          EndProperty
  295.          ForeColor       =   &H000000FF&
  296.          Height          =   4815
  297.          Left            =   -70440
  298.          TabIndex        =   19
  299.          Top             =   360
  300.          Width           =   1455
  301.          Begin VB.CommandButton cmdFields 
  302.             Caption         =   "Get Fields"
  303.             Height          =   1095
  304.             Left            =   240
  305.             Picture         =   "frmMain.frx":196A
  306.             Style           =   1  'Graphical
  307.             TabIndex        =   20
  308.             Top             =   1800
  309.             Width           =   975
  310.          End
  311.          Begin VB.Label Label1 
  312.             Caption         =   ">>>>>"
  313.             BeginProperty Font 
  314.                Name            =   "MS Sans Serif"
  315.                Size            =   13.5
  316.                Charset         =   0
  317.                Weight          =   700
  318.                Underline       =   0   'False
  319.                Italic          =   0   'False
  320.                Strikethrough   =   0   'False
  321.             EndProperty
  322.             ForeColor       =   &H000000FF&
  323.             Height          =   375
  324.             Index           =   3
  325.             Left            =   240
  326.             TabIndex        =   22
  327.             Top             =   1320
  328.             Width           =   975
  329.          End
  330.          Begin VB.Label Label1 
  331.             Caption         =   ">>>>>"
  332.             BeginProperty Font 
  333.                Name            =   "MS Sans Serif"
  334.                Size            =   13.5
  335.                Charset         =   0
  336.                Weight          =   700
  337.                Underline       =   0   'False
  338.                Italic          =   0   'False
  339.                Strikethrough   =   0   'False
  340.             EndProperty
  341.             ForeColor       =   &H000000FF&
  342.             Height          =   375
  343.             Index           =   2
  344.             Left            =   240
  345.             TabIndex        =   21
  346.             Top             =   3120
  347.             Width           =   975
  348.          End
  349.       End
  350.       Begin VB.Frame fraAuto 
  351.          Caption         =   "Data Transfer"
  352.          BeginProperty Font 
  353.             Name            =   "MS Sans Serif"
  354.             Size            =   12
  355.             Charset         =   0
  356.             Weight          =   700
  357.             Underline       =   0   'False
  358.             Italic          =   0   'False
  359.             Strikethrough   =   0   'False
  360.          EndProperty
  361.          ForeColor       =   &H8000000D&
  362.          Height          =   2055
  363.          Left            =   -69480
  364.          TabIndex        =   7
  365.          Top             =   480
  366.          Width           =   2535
  367.          Begin VB.Label lbl2 
  368.             Alignment       =   2  'Center
  369.             BackColor       =   &H8000000D&
  370.             BorderStyle     =   1  'Fixed Single
  371.             Caption         =   "Time Started"
  372.             BeginProperty Font 
  373.                Name            =   "MS Sans Serif"
  374.                Size            =   8.25
  375.                Charset         =   0
  376.                Weight          =   700
  377.                Underline       =   0   'False
  378.                Italic          =   0   'False
  379.                Strikethrough   =   0   'False
  380.             EndProperty
  381.             ForeColor       =   &H0000FFFF&
  382.             Height          =   255
  383.             Index           =   0
  384.             Left            =   120
  385.             TabIndex        =   13
  386.             Top             =   360
  387.             Width           =   1215
  388.          End
  389.          Begin VB.Label lblTime 
  390.             BorderStyle     =   1  'Fixed Single
  391.             BeginProperty Font 
  392.                Name            =   "MS Sans Serif"
  393.                Size            =   8.25
  394.                Charset         =   0
  395.                Weight          =   700
  396.                Underline       =   0   'False
  397.                Italic          =   0   'False
  398.                Strikethrough   =   0   'False
  399.             EndProperty
  400.             ForeColor       =   &H8000000D&
  401.             Height          =   255
  402.             Index           =   0
  403.             Left            =   1320
  404.             TabIndex        =   12
  405.             Top             =   360
  406.             Width           =   1095
  407.          End
  408.          Begin VB.Label lbl2 
  409.             Alignment       =   2  'Center
  410.             BackColor       =   &H8000000D&
  411.             BorderStyle     =   1  'Fixed Single
  412.             Caption         =   "Time Ended"
  413.             BeginProperty Font 
  414.                Name            =   "MS Sans Serif"
  415.                Size            =   8.25
  416.                Charset         =   0
  417.                Weight          =   700
  418.                Underline       =   0   'False
  419.                Italic          =   0   'False
  420.                Strikethrough   =   0   'False
  421.             EndProperty
  422.             ForeColor       =   &H0000FFFF&
  423.             Height          =   255
  424.             Index           =   1
  425.             Left            =   120
  426.             TabIndex        =   11
  427.             Top             =   840
  428.             Width           =   1215
  429.          End
  430.          Begin VB.Label lblTime 
  431.             BorderStyle     =   1  'Fixed Single
  432.             BeginProperty Font 
  433.                Name            =   "MS Sans Serif"
  434.                Size            =   8.25
  435.                Charset         =   0
  436.                Weight          =   700
  437.                Underline       =   0   'False
  438.                Italic          =   0   'False
  439.                Strikethrough   =   0   'False
  440.             EndProperty
  441.             ForeColor       =   &H8000000D&
  442.             Height          =   255
  443.             Index           =   1
  444.             Left            =   1320
  445.             TabIndex        =   10
  446.             Top             =   840
  447.             Width           =   1095
  448.          End
  449.          Begin VB.Label lbl2 
  450.             Alignment       =   2  'Center
  451.             BackColor       =   &H8000000D&
  452.             BorderStyle     =   1  'Fixed Single
  453.             Caption         =   "Total Time"
  454.             BeginProperty Font 
  455.                Name            =   "MS Sans Serif"
  456.                Size            =   8.25
  457.                Charset         =   0
  458.                Weight          =   700
  459.                Underline       =   0   'False
  460.                Italic          =   0   'False
  461.                Strikethrough   =   0   'False
  462.             EndProperty
  463.             ForeColor       =   &H0000FFFF&
  464.             Height          =   255
  465.             Index           =   2
  466.             Left            =   120
  467.             TabIndex        =   9
  468.             Top             =   1320
  469.             Width           =   1215
  470.          End
  471.          Begin VB.Label lblTime 
  472.             BorderStyle     =   1  'Fixed Single
  473.             BeginProperty Font 
  474.                Name            =   "MS Sans Serif"
  475.                Size            =   8.25
  476.                Charset         =   0
  477.                Weight          =   700
  478.                Underline       =   0   'False
  479.                Italic          =   0   'False
  480.                Strikethrough   =   0   'False
  481.             EndProperty
  482.             ForeColor       =   &H8000000D&
  483.             Height          =   255
  484.             Index           =   2
  485.             Left            =   1320
  486.             TabIndex        =   8
  487.             Top             =   1320
  488.             Width           =   1095
  489.          End
  490.       End
  491.       Begin VB.Frame fraCheck 
  492.          Caption         =   "Action List"
  493.          BeginProperty Font 
  494.             Name            =   "MS Sans Serif"
  495.             Size            =   12
  496.             Charset         =   0
  497.             Weight          =   700
  498.             Underline       =   0   'False
  499.             Italic          =   0   'False
  500.             Strikethrough   =   0   'False
  501.          EndProperty
  502.          ForeColor       =   &H00C000C0&
  503.          Height          =   4815
  504.          Left            =   -74880
  505.          TabIndex        =   6
  506.          Top             =   480
  507.          Width           =   5295
  508.          Begin VB.ListBox lstResults 
  509.             BackColor       =   &H00C0C0C0&
  510.             ForeColor       =   &H00008000&
  511.             Height          =   4350
  512.             ItemData        =   "frmMain.frx":1EF4
  513.             Left            =   120
  514.             List            =   "frmMain.frx":1EF6
  515.             TabIndex        =   18
  516.             Top             =   360
  517.             Width           =   5055
  518.          End
  519.       End
  520.       Begin VB.Frame fraSource 
  521.          Caption         =   "Source Details"
  522.          BeginProperty Font 
  523.             Name            =   "MS Sans Serif"
  524.             Size            =   12
  525.             Charset         =   0
  526.             Weight          =   700
  527.             Underline       =   0   'False
  528.             Italic          =   0   'False
  529.             Strikethrough   =   0   'False
  530.          EndProperty
  531.          ForeColor       =   &H0000FF00&
  532.          Height          =   4815
  533.          Left            =   -74880
  534.          TabIndex        =   4
  535.          Top             =   360
  536.          Width           =   4335
  537.          Begin VB.ListBox lstTablesS 
  538.             Height          =   2790
  539.             ItemData        =   "frmMain.frx":1EF8
  540.             Left            =   120
  541.             List            =   "frmMain.frx":1EFA
  542.             TabIndex        =   14
  543.             Top             =   600
  544.             Width           =   4095
  545.          End
  546.          Begin VB.CommandButton cmdConnectS 
  547.             Caption         =   "Connect"
  548.             Height          =   855
  549.             Left            =   120
  550.             Picture         =   "frmMain.frx":1EFC
  551.             Style           =   1  'Graphical
  552.             TabIndex        =   5
  553.             Top             =   3840
  554.             Width           =   4095
  555.          End
  556.          Begin VB.Label lblODBCName 
  557.             Alignment       =   2  'Center
  558.             Caption         =   "Not Connected"
  559.             BeginProperty Font 
  560.                Name            =   "MS Sans Serif"
  561.                Size            =   8.25
  562.                Charset         =   0
  563.                Weight          =   700
  564.                Underline       =   0   'False
  565.                Italic          =   0   'False
  566.                Strikethrough   =   0   'False
  567.             EndProperty
  568.             ForeColor       =   &H0000FF00&
  569.             Height          =   375
  570.             Index           =   0
  571.             Left            =   120
  572.             TabIndex        =   37
  573.             Top             =   3480
  574.             Width           =   4095
  575.          End
  576.          Begin VB.Label lblList 
  577.             Alignment       =   2  'Center
  578.             BackColor       =   &H8000000D&
  579.             BorderStyle     =   1  'Fixed Single
  580.             Caption         =   "Table Listing"
  581.             ForeColor       =   &H0000FFFF&
  582.             Height          =   255
  583.             Index           =   0
  584.             Left            =   120
  585.             TabIndex        =   15
  586.             Top             =   360
  587.             Width           =   4095
  588.          End
  589.       End
  590.       Begin VB.Frame fraTarget 
  591.          Caption         =   "Target Details"
  592.          BeginProperty Font 
  593.             Name            =   "MS Sans Serif"
  594.             Size            =   12
  595.             Charset         =   0
  596.             Weight          =   700
  597.             Underline       =   0   'False
  598.             Italic          =   0   'False
  599.             Strikethrough   =   0   'False
  600.          EndProperty
  601.          ForeColor       =   &H00FF0000&
  602.          Height          =   4815
  603.          Left            =   -68880
  604.          TabIndex        =   2
  605.          Top             =   360
  606.          Width           =   4335
  607.          Begin VB.ListBox lstTablesT 
  608.             Height          =   2790
  609.             ItemData        =   "frmMain.frx":2206
  610.             Left            =   120
  611.             List            =   "frmMain.frx":2208
  612.             TabIndex        =   16
  613.             Top             =   600
  614.             Width           =   4095
  615.          End
  616.          Begin VB.CommandButton cmdConnectT 
  617.             Caption         =   "Connect"
  618.             Height          =   855
  619.             Left            =   120
  620.             Picture         =   "frmMain.frx":220A
  621.             Style           =   1  'Graphical
  622.             TabIndex        =   3
  623.             Top             =   3840
  624.             Width           =   4095
  625.          End
  626.          Begin VB.Label lblODBCName 
  627.             Alignment       =   2  'Center
  628.             Caption         =   "Not Connected"
  629.             BeginProperty Font 
  630.                Name            =   "MS Sans Serif"
  631.                Size            =   8.25
  632.                Charset         =   0
  633.                Weight          =   700
  634.                Underline       =   0   'False
  635.                Italic          =   0   'False
  636.                Strikethrough   =   0   'False
  637.             EndProperty
  638.             ForeColor       =   &H00FF0000&
  639.             Height          =   375
  640.             Index           =   1
  641.             Left            =   120
  642.             TabIndex        =   38
  643.             Top             =   3480
  644.             Width           =   4095
  645.          End
  646.          Begin VB.Label lblList 
  647.             Alignment       =   2  'Center
  648.             BackColor       =   &H8000000D&
  649.             BorderStyle     =   1  'Fixed Single
  650.             Caption         =   "Table Listing"
  651.             ForeColor       =   &H0000FFFF&
  652.             Height          =   255
  653.             Index           =   1
  654.             Left            =   120
  655.             TabIndex        =   17
  656.             Top             =   360
  657.             Width           =   4095
  658.          End
  659.       End
  660.    End
  661.    Begin ComctlLib.StatusBar stb 
  662.       Align           =   2  'Align Bottom
  663.       Height          =   375
  664.       Left            =   0
  665.       TabIndex        =   0
  666.       Top             =   7050
  667.       Width           =   10605
  668.       _ExtentX        =   18706
  669.       _ExtentY        =   661
  670.       SimpleText      =   ""
  671.       _Version        =   327682
  672.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  673.          NumPanels       =   2
  674.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  675.             AutoSize        =   1
  676.             Bevel           =   2
  677.             Object.Width           =   5953
  678.             Text            =   "System Offline"
  679.             TextSave        =   "System Offline"
  680.             Key             =   ""
  681.             Object.Tag             =   ""
  682.          EndProperty
  683.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  684.             AutoSize        =   1
  685.             Object.Width           =   12232
  686.             MinWidth        =   8819
  687.             Text            =   "Ready..."
  688.             TextSave        =   "Ready..."
  689.             Key             =   ""
  690.             Object.Tag             =   ""
  691.          EndProperty
  692.       EndProperty
  693.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  694.          Name            =   "MS Sans Serif"
  695.          Size            =   8.25
  696.          Charset         =   0
  697.          Weight          =   700
  698.          Underline       =   0   'False
  699.          Italic          =   0   'False
  700.          Strikethrough   =   0   'False
  701.       EndProperty
  702.    End
  703.    Begin VB.Image imgOff 
  704.       Height          =   240
  705.       Left            =   240
  706.       Picture         =   "frmMain.frx":2514
  707.       Top             =   6000
  708.       Visible         =   0   'False
  709.       Width           =   240
  710.    End
  711.    Begin VB.Image imgOn 
  712.       Height          =   240
  713.       Left            =   240
  714.       Picture         =   "frmMain.frx":2A9E
  715.       Top             =   5760
  716.       Visible         =   0   'False
  717.       Width           =   240
  718.    End
  719.    Begin VB.Menu mnuFile 
  720.       Caption         =   "File"
  721.       Begin VB.Menu mnuFileExit 
  722.          Caption         =   "Exit Program"
  723.       End
  724.    End
  725. Attribute VB_Name = "frmMain"
  726. Attribute VB_GlobalNameSpace = False
  727. Attribute VB_Creatable = False
  728. Attribute VB_PredeclaredId = True
  729. Attribute VB_Exposed = False
  730. Option Explicit
  731. ' The following is for the folder browsing dialog box
  732. Private Const BIF_RETURNONLYFSDIRS = 1
  733. Private Const BIF_DONTGOBELOWDOMAIN = 2
  734. Private Const MAX_PATH = 260
  735. Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
  736. Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
  737. Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
  738. Private Type BrowseInfo
  739.     hWndOwner      As Long
  740.     pIDLRoot       As Long
  741.     pszDisplayName As Long
  742.     lpszTitle      As Long
  743.     ulFlags        As Long
  744.     lpfnCallback   As Long
  745.     lParam         As Long
  746.     iImage         As Long
  747. End Type
  748. Private Sub cmdDir_Click()
  749. 'Opens a Treeview control that displays the directories in a computer
  750. Dim lpIDList As Long
  751. Dim szTitle As String
  752. Dim tBrowseInfo As BrowseInfo
  753. szTitle = "Hello World. Click on a directory and it's path will be displayed in a message box"
  754.     With tBrowseInfo
  755.         .hWndOwner = Me.hwnd
  756.         .lpszTitle = lstrcat(szTitle, "")
  757.         .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
  758.     End With
  759. lpIDList = SHBrowseForFolder(tBrowseInfo)
  760. If (lpIDList) Then
  761.     sBuffer = Space(MAX_PATH)
  762.     SHGetPathFromIDList lpIDList, sBuffer
  763.     sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  764.     If Mid(sBuffer, Len(sBuffer), 1) = "\" Then
  765.     Else
  766.         sBuffer = sBuffer & "\"
  767.     End If
  768.     lblDir = sBuffer
  769. End If
  770. End Sub
  771. Private Sub cmdConnectS_Click()
  772. lstTablesS.Clear
  773. Dim Result As String
  774. 'Result = InputBox("Please enter the ODBC Connection Name for the Source Database", "StoreProcTester", "dtaDesktop")
  775. SourceConnectTest = SourceInitRDO(Result, frmMain, lstTablesS)
  776. If SourceConnectTest = False Then
  777.     MsgBox ("Could not connect to database")
  778.     lstResults.AddItem "Could not connect to " & Result
  779.     Exit Sub
  780. End If
  781. lblList(0).Visible = True
  782. lstTablesS.Visible = True
  783. lblODBCName(0).Caption = SourceCon.Name
  784. End Sub
  785. Private Sub cmdConnectT_Click()
  786. lstTablesT.Clear
  787. Dim Result As String
  788. 'Result = InputBox("Please enter the ODBC Connection Name for the Target Database", "StoreProcTester", "dtaDesktop")
  789. TargetConnectTest = TargetInitRDO(Result, frmMain, lstTablesT)
  790. If TargetConnectTest = False Then
  791.     MsgBox ("Could not connect to database")
  792.     lstResults.AddItem "Could not connect to " & Result
  793.     Exit Sub
  794. End If
  795. lblList(1).Visible = True
  796. lstTablesT.Visible = True
  797. lblODBCName(1).Caption = TargetCon.Name
  798. End Sub
  799. Private Sub cmdExit_Click()
  800. Unload pgb
  801. Unload Me
  802. End Sub
  803. Private Sub Step2()
  804. lstSourceFields.Clear
  805. lstTargetFields.Clear
  806. Dim sTime As Double
  807. Dim bCheck As Boolean
  808. Dim TimeLapse As Double
  809. Dim vBuffer As Variant
  810. Dim iRowsReturned As Long
  811. Dim ii As Long
  812. If SourceConnectTest = False Then
  813.     MsgBox ("Not connected to the Source Database")
  814.     tbsMain.Tab = 0
  815.     Exit Sub
  816. End If
  817. If TargetConnectTest = False Then
  818.     MsgBox ("Not connected to the Target Database")
  819.     tbsMain.Tab = 0
  820.     Exit Sub
  821. End If
  822. If lstTablesS.ListIndex < 0 Then
  823.     MsgBox ("No Source Table Selected")
  824.     tbsMain.Tab = 0
  825.     Exit Sub
  826. End If
  827. If lstTablesT.ListIndex < 0 Then
  828.     MsgBox ("No Target Table Selected")
  829.     tbsMain.Tab = 0
  830.     Exit Sub
  831. End If
  832. 'Alright , now pay attention. We are going to create 3 files , so we need to
  833. ' 3 main looping routines
  834. sTime = timeGetTime
  835. frmMain.lblTime(0) = Time()
  836. bCheck = GetFields(lstTablesS, frmMain, lstSourceFields, SourceCon)
  837. bCheck = GetFields(lstTablesT, frmMain, lstTargetFields, TargetCon)
  838. DoEvents
  839. frmMain.lblTime(1) = Time()
  840. frmMain.lblTime(2) = (((timeGetTime - sTime) / 1000) / 60) & " Minutes"
  841. End Sub
  842. Private Sub cmdFields_Click()
  843. tbsMain.Tab = 1
  844. End Sub
  845. Private Sub Step3()
  846. Dim sTime As Double
  847. Dim bCheck As Boolean
  848. Dim TimeLapse As Double
  849. Dim vBuffer As Variant
  850. Dim iRowsReturned As Long
  851. Dim ii As Long
  852. If SourceConnectTest = False Then
  853.     MsgBox ("Not connected to the Source Database")
  854.     tbsMain.Tab = 1
  855.     Exit Sub
  856. End If
  857. If TargetConnectTest = False Then
  858.     MsgBox ("Not connected to the Target Database")
  859.     tbsMain.Tab = 1
  860.     Exit Sub
  861. End If
  862. 'Alright , now pay attention. We are going to create 3 files , so we need to
  863. ' 3 main looping routines
  864. sTime = timeGetTime
  865. frmMain.lblTime(0) = Time()
  866. bCheck = ClearFile(lstTablesT, frmMain, TargetCon)
  867. DoEvents
  868. 'bCheck = Transfer(lstTablesS.List(lstTablesS.ListCount), _
  869.                                     lstTablesT.List(lstTablesT.ListCount), frmMain)
  870.   bCheck = Transfer(lstTablesS, lstTablesT, frmMain)
  871. 'vBuffer = getResults(txtInput)
  872. 'iRowsReturned = UBound(vBuffer, 2) + 1
  873. 'For ii = 0 To iRowsReturned - 1
  874. '    txtResult = txtResult & vBuffer(0, ii) & Chr(9) & vBuffer(1, ii) & Chr(9) & vBuffer(2, ii) & vbCrLf
  875. 'Next ii
  876. frmMain.lblTime(1) = Time()
  877. frmMain.lblTime(2) = (((timeGetTime - sTime) / 1000) / 60) & " Minutes"
  878. End Sub
  879. Private Sub cmdTest_Click()
  880. Call CreateTest
  881. End Sub
  882. Private Sub cmdStart_Click()
  883. tbsMain.Tab = 2
  884. End Sub
  885. Private Sub Form_Load()
  886. 'Center the form on the screen
  887. Me.Top = Screen.Height / 2 - Me.Height / 2
  888. Me.Left = Screen.Width / 2 - Me.Width / 2
  889. stb.Panels(1).Text = "System Online"
  890. tbsMain.Tab = 0
  891. 'sBuffer = "c:\"
  892. 'lblDir = sBuffer
  893. End Sub
  894. Private Sub fraAuto_DblClick()
  895. ShowTest
  896. End Sub
  897. Private Sub lstTablesS_Click()
  898. lblFile(0).Caption = "Fields for " & lstTablesS
  899. Dim iCount As Integer
  900. For iCount = 0 To lstTablesT.ListCount - 1
  901.     If Trim(UCase(lstTablesT.List(iCount))) = Trim(UCase(lstTablesS)) Then
  902.         lstTablesT.ListIndex = iCount
  903.     End If
  904. Next iCount
  905. End Sub
  906. Private Sub lstTablesT_Click()
  907. lblFile(1).Caption = "Fields for " & lstTablesT
  908. End Sub
  909. Private Sub mnuFileExit_Click()
  910. Unload Me
  911. End Sub
  912. Private Sub tbsMain_Click(PreviousTab As Integer)
  913. If tbsMain.Tab = 1 Then Call Step2
  914. If tbsMain.Tab = 2 Then Call Step3
  915. Call SetOn(tbsMain, tbsMain.Tab, Me)
  916. End Sub
  917.