Поиск и открытие файлов находящихся на компьютере соответствующим программным обеспечением

БАЛТИЙСКАЯ ГОСУДАРСТВЕННАЯ АКАДЕМИЯ

РЫБОПРОМЫСЛОВОГО ФЛОТА

Кафедра АСОиУ

Курсовая работа

на тему: «Поиск и открытие файлов, находящихся на компьютере, соответствующим программным обеспечением»

Пояснительную записку выполнил:

Винокурова Ирина Александровна

АС-31(2)

Пояснительную записку проверил:

Костромина Ирина Григорьевна

КАЛИНИНГРАД

2008 г.

Данный документ содержит информацию об объекте проектирования, назначении разработки, функциях и требованиях разрабатываемого приложения. Документ состоит из 6 глав. Первая глава содержит описания документов, на основании которых ведется разработка. Во второй главе описывается назначение разработки и проводится анализ функций проектируемого программного средства. Третья глава содержит список этапов разработки программы. В четвертой главе описывается порядок проверки и сдачи программного средства. Пятая глава – приложения. Последняя, шестая глава является руководством пользователя на разработанное программное средство.

Документ в общей сложности содержит:

­ 20 страниц;

­ 13 иллюстраций;

­ Одно приложение;

1 ОСНОВАНИЯ ДЛЯ РАЗРАБОТКИ

4 ПРИЕМ, ПЕРЕДАЧА, А ТАКЖЕ ПОРЯДОК КОНТРОЛЯ.

5.2 Инструкция по применению программного средства

1. После запуска программы автоматически откроется форма программы (см. рис. 5);

(рис.5)

2. Для просмотра доступных файлов, необходимо выбрать интересующую пользователя папку. Это производится путём двойного нажатия на отображения папок, находящиеся в правом окне (см. рис. 5), файлы, находящиеся в папке отобразятся в левом окне;

(рис 6)

3. Для открытия файла необходимо два раза щелкнуть по нему

(рис 7)

4. Для поиска файлов необходимо ввести имя и расширение файла в строку Search Criteria и нажать кнопку Search

(рис 8)

5. После этого отобразится список найденных файлов

(рис 9)

6 КОНТРОЛЬНЫЙ ПРИМЕР

Поиск и открытие файла на ПК разработчика

(рис 10)

(рис 11)

(рис 12)

( рис 13)

7 ПРИЛОЖЕНИЕ

Dim SearchFlag As Integer

Private Declare Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" _

(ByVal hWnd As Long, _

ByVal lpOperation As String, _

ByVal lpFile As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Private Sub cmdExit_Click()

If cmdExit.Caption = "E&xit" Then

End

Else

SearchFlag = False

End If

End Sub

Private Sub cmdSearch_Click()

Dim FirstPath As String, DirCount As Integer, NumFiles As Integer

Dim result As Integer

If cmdSearch.Caption = "&Reset" Then

ResetSearch

txtSearchSpec.SetFocus

Exit Sub

End If

If dirList.Path <> dirList.List(dirList.ListIndex) Then

dirList.Path = dirList.List(dirList.ListIndex)

Exit Sub

End If

Picture2.Move 0, 0

Picture1.Visible = False

Picture2.Visible = True

cmdExit.Caption = "Cancel"

filList.Pattern = txtSearchSpec.Text

FirstPath = dirList.Path

DirCount = dirList.ListCount

NumFiles = 0

result = DirDiver(FirstPath, DirCount, "")

filList.Path = dirList.Path

cmdSearch.Caption = "&Reset"

cmdSearch.SetFocus

cmdExit.Caption = "E&xit"

End Sub

Private Function DirDiver(NewPath As String, DirCount As Integer, BackUp As String) As Integer

Static FirstErr As Integer

Dim DirsToPeek As Integer, AbandonSearch As Integer, ind As Integer

Dim OldPath As String, ThePath As String, entry As String

Dim retval As Integer

SearchFlag = True

DirDiver = False

retval = DoEvents()

If SearchFlag = False Then

DirDiver = True

Exit Function

End If

On Local Error GoTo DirDriverHandler

DirsToPeek = dirList.ListCount

Do While DirsToPeek > 0 And SearchFlag = True

OldPath = dirList.Path

dirList.Path = NewPath

If dirList.ListCount > 0 Then

dirList.Path = dirList.List(DirsToPeek - 1)

AbandonSearch = DirDiver((dirList.Path), DirCount%, OldPath)

End If

DirsToPeek = DirsToPeek - 1

If AbandonSearch = True Then Exit Function

Loop

If filList.ListCount Then

If Len(dirList.Path) <= 3 Then

ThePath = dirList.Path

Else

ThePath = dirList.Path + ""

End If

For ind = 0 To filList.ListCount - 1

entry = ThePath + filList.List(ind)

lstFoundFiles.AddItem entry

lblCount.Caption = Str(Val(lblCount.Caption) + 1)

Next ind

End If

If BackUp <> "" Then

dirList.Path = BackUp

End If

Exit Function

DirDriverHandler:

<

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать