home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / contro2r / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-06  |  14.8 KB  |  456 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "My DataBase Record"
  5.    ClientHeight    =   4320
  6.    ClientLeft      =   150
  7.    ClientTop       =   720
  8.    ClientWidth     =   6705
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   4320
  12.    ScaleWidth      =   6705
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Frame Frame4 
  15.       Caption         =   "Icon"
  16.       BeginProperty Font 
  17.          Name            =   "Times New Roman"
  18.          Size            =   9.75
  19.          Charset         =   0
  20.          Weight          =   700
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       ForeColor       =   &H00FF0000&
  26.       Height          =   975
  27.       Left            =   5160
  28.       TabIndex        =   14
  29.       Top             =   0
  30.       Width           =   1455
  31.       Begin VB.Image Image1 
  32.          DataField       =   "Icon"
  33.          DataSource      =   "Data1"
  34.          Height          =   615
  35.          Left            =   360
  36.          Stretch         =   -1  'True
  37.          Top             =   240
  38.          Width           =   735
  39.       End
  40.    End
  41.    Begin VB.Frame Frame3 
  42.       Caption         =   "Control Station"
  43.       BeginProperty Font 
  44.          Name            =   "Times New Roman"
  45.          Size            =   9.75
  46.          Charset         =   0
  47.          Weight          =   700
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FF0000&
  53.       Height          =   2775
  54.       Left            =   4560
  55.       TabIndex        =   7
  56.       Top             =   1440
  57.       Width           =   2055
  58.       Begin VB.CommandButton killit 
  59.          Caption         =   "&KILL"
  60.          BeginProperty Font 
  61.             Name            =   "Times New Roman"
  62.             Size            =   8.25
  63.             Charset         =   0
  64.             Weight          =   400
  65.             Underline       =   0   'False
  66.             Italic          =   0   'False
  67.             Strikethrough   =   0   'False
  68.          EndProperty
  69.          Height          =   735
  70.          Left            =   1080
  71.          Picture         =   "Form1.frx":0000
  72.          Style           =   1  'Graphical
  73.          TabIndex        =   13
  74.          ToolTipText     =   "Delete File"
  75.          Top             =   1920
  76.          Width           =   855
  77.       End
  78.       Begin VB.CommandButton load 
  79.          Caption         =   "&Load"
  80.          BeginProperty Font 
  81.             Name            =   "Times New Roman"
  82.             Size            =   8.25
  83.             Charset         =   0
  84.             Weight          =   400
  85.             Underline       =   0   'False
  86.             Italic          =   0   'False
  87.             Strikethrough   =   0   'False
  88.          EndProperty
  89.          Height          =   735
  90.          Left            =   120
  91.          Picture         =   "Form1.frx":0442
  92.          Style           =   1  'Graphical
  93.          TabIndex        =   12
  94.          ToolTipText     =   "Load Record Into Database"
  95.          Top             =   1920
  96.          Width           =   855
  97.       End
  98.       Begin VB.CommandButton seek 
  99.          BackColor       =   &H00C0C0C0&
  100.          Caption         =   "&Seek"
  101.          BeginProperty Font 
  102.             Name            =   "Times New Roman"
  103.             Size            =   8.25
  104.             Charset         =   0
  105.             Weight          =   400
  106.             Underline       =   0   'False
  107.             Italic          =   0   'False
  108.             Strikethrough   =   0   'False
  109.          EndProperty
  110.          Height          =   735
  111.          Left            =   1080
  112.          Picture         =   "Form1.frx":0884
  113.          Style           =   1  'Graphical
  114.          TabIndex        =   11
  115.          ToolTipText     =   "Seek For *ico and load it"
  116.          Top             =   1080
  117.          Width           =   855
  118.       End
  119.       Begin VB.CommandButton delete 
  120.          BackColor       =   &H00C0C0C0&
  121.          Caption         =   "&Delete"
  122.          BeginProperty Font 
  123.             Name            =   "Times New Roman"
  124.             Size            =   8.25
  125.             Charset         =   0
  126.             Weight          =   400
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          Height          =   735
  132.          Left            =   120
  133.          Picture         =   "Form1.frx":0CC6
  134.          Style           =   1  'Graphical
  135.          TabIndex        =   10
  136.          ToolTipText     =   "Delete Record"
  137.          Top             =   1080
  138.          Width           =   855
  139.       End
  140.       Begin VB.CommandButton saveme 
  141.          Caption         =   "&Save"
  142.          Enabled         =   0   'False
  143.          BeginProperty Font 
  144.             Name            =   "Times New Roman"
  145.             Size            =   8.25
  146.             Charset         =   0
  147.             Weight          =   400
  148.             Underline       =   0   'False
  149.             Italic          =   0   'False
  150.             Strikethrough   =   0   'False
  151.          EndProperty
  152.          Height          =   735
  153.          Left            =   1080
  154.          Picture         =   "Form1.frx":0FD0
  155.          Style           =   1  'Graphical
  156.          TabIndex        =   9
  157.          ToolTipText     =   "Save To Database"
  158.          Top             =   240
  159.          Width           =   855
  160.       End
  161.       Begin VB.CommandButton clear 
  162.          Caption         =   "&Clear"
  163.          BeginProperty Font 
  164.             Name            =   "Times New Roman"
  165.             Size            =   8.25
  166.             Charset         =   0
  167.             Weight          =   400
  168.             Underline       =   0   'False
  169.             Italic          =   0   'False
  170.             Strikethrough   =   0   'False
  171.          EndProperty
  172.          Height          =   735
  173.          Left            =   120
  174.          Picture         =   "Form1.frx":1412
  175.          Style           =   1  'Graphical
  176.          TabIndex        =   8
  177.          ToolTipText     =   "Clear The Database"
  178.          Top             =   240
  179.          Width           =   855
  180.       End
  181.    End
  182.    Begin VB.Frame Frame2 
  183.       Caption         =   "Source File"
  184.       BeginProperty Font 
  185.          Name            =   "Times New Roman"
  186.          Size            =   9.75
  187.          Charset         =   0
  188.          Weight          =   700
  189.          Underline       =   0   'False
  190.          Italic          =   0   'False
  191.          Strikethrough   =   0   'False
  192.       EndProperty
  193.       ForeColor       =   &H00FF0000&
  194.       Height          =   2775
  195.       Left            =   120
  196.       TabIndex        =   3
  197.       Top             =   1440
  198.       Width           =   4335
  199.       Begin VB.FileListBox File1 
  200.          Height          =   2430
  201.          Left            =   2160
  202.          MultiSelect     =   2  'Extended
  203.          Pattern         =   "*.ico"
  204.          TabIndex        =   6
  205.          Top             =   240
  206.          Width           =   2055
  207.       End
  208.       Begin VB.DirListBox Dir1 
  209.          Height          =   1890
  210.          Left            =   120
  211.          TabIndex        =   5
  212.          Top             =   600
  213.          Width           =   1935
  214.       End
  215.       Begin VB.DriveListBox Drive1 
  216.          Height          =   315
  217.          Left            =   120
  218.          TabIndex        =   4
  219.          Top             =   240
  220.          Width           =   1935
  221.       End
  222.    End
  223.    Begin VB.Data Data1 
  224.       BackColor       =   &H80000006&
  225.       Caption         =   "              My DataBase Record"
  226.       Connect         =   "Access"
  227.       DatabaseName    =   ""
  228.       DefaultCursorType=   0  'DefaultCursor
  229.       DefaultType     =   2  'UseODBC
  230.       Exclusive       =   0   'False
  231.       BeginProperty Font 
  232.          Name            =   "Times New Roman"
  233.          Size            =   12
  234.          Charset         =   0
  235.          Weight          =   700
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       ForeColor       =   &H0000FF00&
  241.       Height          =   390
  242.       Left            =   720
  243.       Options         =   0
  244.       ReadOnly        =   0   'False
  245.       RecordsetType   =   1  'Dynaset
  246.       RecordSource    =   "Icon"
  247.       Top             =   1080
  248.       Width           =   5295
  249.    End
  250.    Begin VB.Frame Frame1 
  251.       Caption         =   "Pathname"
  252.       BeginProperty Font 
  253.          Name            =   "Times New Roman"
  254.          Size            =   9.75
  255.          Charset         =   0
  256.          Weight          =   700
  257.          Underline       =   0   'False
  258.          Italic          =   0   'False
  259.          Strikethrough   =   0   'False
  260.       EndProperty
  261.       ForeColor       =   &H00FF0000&
  262.       Height          =   975
  263.       Left            =   120
  264.       TabIndex        =   0
  265.       Top             =   0
  266.       Width           =   4935
  267.       Begin VB.TextBox Text2 
  268.          DataField       =   "PathName"
  269.          DataSource      =   "Data1"
  270.          Height          =   285
  271.          Left            =   1080
  272.          TabIndex        =   16
  273.          Top             =   600
  274.          Width           =   3735
  275.       End
  276.       Begin VB.TextBox Text1 
  277.          DataField       =   "FileName"
  278.          DataSource      =   "Data1"
  279.          Height          =   285
  280.          Left            =   1080
  281.          TabIndex        =   15
  282.          Top             =   240
  283.          Width           =   3735
  284.       End
  285.       Begin VB.Label Label4 
  286.          Caption         =   "Pathname"
  287.          BeginProperty Font 
  288.             Name            =   "Times New Roman"
  289.             Size            =   9.75
  290.             Charset         =   0
  291.             Weight          =   700
  292.             Underline       =   0   'False
  293.             Italic          =   0   'False
  294.             Strikethrough   =   0   'False
  295.          EndProperty
  296.          Height          =   255
  297.          Left            =   120
  298.          TabIndex        =   2
  299.          Top             =   600
  300.          Width           =   855
  301.       End
  302.       Begin VB.Label Label3 
  303.          Caption         =   "Filename"
  304.          BeginProperty Font 
  305.             Name            =   "Times New Roman"
  306.             Size            =   9.75
  307.             Charset         =   0
  308.             Weight          =   700
  309.             Underline       =   0   'False
  310.             Italic          =   0   'False
  311.             Strikethrough   =   0   'False
  312.          EndProperty
  313.          Height          =   255
  314.          Left            =   120
  315.          TabIndex        =   1
  316.          Top             =   240
  317.          Width           =   735
  318.       End
  319.    End
  320.    Begin VB.Menu mnufile 
  321.       Caption         =   "&File"
  322.       Begin VB.Menu mnuexit 
  323.          Caption         =   "&Exit"
  324.       End
  325.    End
  326.    Begin VB.Menu mnuadvance 
  327.       Caption         =   "&Advance"
  328.       Begin VB.Menu mnufind1 
  329.          Caption         =   "Find"
  330.       End
  331.       Begin VB.Menu mnuscan 
  332.          Caption         =   "Scan"
  333.       End
  334.    End
  335. Attribute VB_Name = "Form1"
  336. Attribute VB_GlobalNameSpace = False
  337. Attribute VB_Creatable = False
  338. Attribute VB_PredeclaredId = True
  339. Attribute VB_Exposed = False
  340. Private Sub clear_Click()
  341. If Data1.Recordset.RecordCount > 0 Then
  342.     If (MsgBox("Clear entire database", vbYesNo + vbCritical, "dyr_workshop")) = vbYes Then
  343.         Data1.Database.Execute "Delete * from Icon"
  344.         Data1.Refresh
  345.     End If
  346.     MsgBox "The DataBase Contain No Data", vbExclamation, "dyr_workshop"
  347. End If
  348. End Sub
  349. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  350.     If saveme.Enabled = True Then
  351.         Data1.Recordset.Edit
  352.         Data1.Recordset.CancelUpdate
  353.     End If
  354.     saveme.Enabled = False
  355. End Sub
  356. Private Sub delete_Click()
  357. If Data1.Recordset.RecordCount > 0 Then
  358.     If (MsgBox("DELETE THIS RECORD?", vbCritical + vbYesNo, "dyr_workshop")) = vbYes Then
  359.         On Error Resume Next
  360.         Data1.Recordset.delete
  361.         Data1.Recordset.MovePrevious
  362.     End If
  363.     MsgBox "This was the last record in the table", vbExclamation, "dyr_workshop"
  364. End If
  365. End Sub
  366. Private Sub Dir1_Change()
  367.     Dirc
  368. End Sub
  369. Private Sub Drive1_Change()
  370.     drvc
  371. End Sub
  372. Private Sub Form_Load()
  373.     If Right(App.Path, 1) = "\" Then
  374.     Data1.DatabaseName = App.Path & "icon.mdb"
  375.     Else
  376.     Data1.DatabaseName = App.Path & "\" & "icon.mdb"
  377.     End If
  378. End Sub
  379. Private Sub killit_Click()
  380. On Error GoTo err
  381. If File1.filename <> "" Then
  382.     If (MsgBox("You Really Want To Delete", vbYesNo + vbCritical, "dyr_workshop")) = vbYes Then
  383.         If Right(File1.Path, 1) = "\" Then
  384.             Kill File1.Path & File1.filename
  385.             File1.Refresh
  386.         Else
  387.             Kill File1.Path & "\" & File1.filename
  388.             File1.Refresh
  389.         End If
  390.     End If
  391.     MsgBox "Please Select One To Delete", vbExclamation, "dyr_workshop"
  392. End If
  393.     Exit Sub
  394.     MsgBox "You Don't Have The Permission", vbCritical, "dyr_workshop"
  395.     Exit Sub
  396. End Sub
  397. Private Sub load_Click()
  398. Dim i As Integer
  399. For i = 0 To File1.ListCount - 1
  400.     If File1.Selected(i) Then
  401.         Data1.Recordset.AddNew
  402.         Text1.Text = File1.List(i)
  403.         Text2.Text = Dir1.Path
  404.     If Right(File1.Path, 1) = "\" Then
  405.         Image1.Picture = LoadPicture(Text2.Text & Text1.Text)
  406.     Else
  407.         Image1.Picture = LoadPicture(Text2.Text & "\" & Text1.Text)
  408.     End If
  409.     Image1.Refresh
  410.     Data1.Recordset.Update
  411.     Data1.Recordset.MoveLast
  412.     End If
  413. Next i
  414. End Sub
  415. Private Sub mnuexit_Click()
  416.     If (MsgBox("You Really Want To Exit", vbYesNo + vbCritical, "dyr_workshop")) = vbYes Then
  417.         End
  418.     End If
  419. End Sub
  420. Private Sub mnufind1_Click()
  421.     Form3.Show
  422. End Sub
  423. Private Sub mnuscan_Click()
  424.     Form4.Show
  425. End Sub
  426. Private Sub saveme_Click()
  427.     saveme.Enabled = False
  428.     If (MsgBox("Save The Amended Record", vbInformation + vbYesNo, "dyr_workshop")) = vbYes Then
  429.         Data1.Recordset.Edit
  430.         Data1.Recordset.Update
  431.     Else
  432.         Data1.Recordset.Edit
  433.         Data1.Recordset.CancelUpdate
  434.     End If
  435. End Sub
  436. Private Sub seek_Click()
  437. On Error GoTo xyz
  438. Me.MousePointer = 11
  439.     Dim i As Integer
  440.     For i = 0 To File1.ListCount - 1
  441.         File1.Selected(i) = True
  442.     Next i
  443.     load_Click
  444.     Me.MousePointer = 0
  445.     MsgBox i & " Records Are Added", vbInformation, "dyr_workshop"
  446. Exit Sub
  447.     MsgBox "There's Nothing To Select", vbCritical, "dyr_workshop"
  448. Exit Sub
  449. End Sub
  450. Private Sub Text1_KeyPress(KeyAscii As Integer)
  451.     saveme.Enabled = True
  452. End Sub
  453. Private Sub Text2_KeyPress(KeyAscii As Integer)
  454.     saveme.Enabled = True
  455. End Sub
  456.