.2.2 Краткое описание алгоритма работы с программойИсполняемый файл - Database.exeДля открытия файла выберите пункт меню Файл -> Открыть.Для создания резервной копии - пункт меню Файл -> Сохранить какДля добавления записи - меню Редактировать -> ДобавитьДля удаления записи ее необходимо выделить и выбрать меню Редактировать-> Удалить или нажать кнопку Delete на клавиатуре. Удаление нужно подтвердить нажатием кнопки «Да» в окне сообщения.Для выполнения запросов предназначено меню «Запросы». Выберите «Поиск-> По запросу -> <Нужный запрос>», и программа осуществит поиск по выбранному условию и выведет результаты на форму поиска. Сортировка выполняется при выборе сортировка в меню базы данных. Выберите поле для сортировки, а затем вид сортировки в пункте «Сортировка» или на панели инструментов.Для поиска данных по первой букве выберите меню «Поиск -> По первой букве». Введите букву в появившееся окно и нажмите «Ok». Найденная информация будет отображена на форме поиска. Для получения справки и информации о программе выберите меню «Справка».Многие пункты меню дублируются на панели инструментов. Далее каждое действие будут описано более подробно.3.2.3 Создание базы данных Если вам требуется создать новую базу данных, нет необходимости удалять записи одну за одной, а можно просто нажать на кнопку "Создать базу" на панели инструментов, перейти по меню "Файл -> Создать" (Рис.1) Рис.1 И или нажать горячую комбинацию клавиш Ctrl+N. Если файл был сохранен до этого, то программа просто очистит таблицу, и ваши данные останутся в неизменном виде. Если же файл сохранен не был, то данные в предыдущей таблице вернутся в состояние предыдущего сохранения файла или будут удалены, если этот файл не существует. В любом случае, вы получите сообщение о том, что необходимо подтвердить действие (Рис.2), и, в случае отрицательного ответа, операция будет отменена. Рис.2 3.2.4 Открытие базы данныхОткрыть уже сохраненный файл можно, используя кнопку на панели задач или меню "Файл -> Открыть". (Рис.3) Рис.3 Ответьте положительно на следующее сообщение (Рис.4), если файл уже сохранен. Рис.4 При нажатии на кнопку на экране появится диалоговое окно для выбора файла. Рис.5 Выберите нужный файл, нажмите кнопку "Открыть", и его содержимое появится в таблице на главной форме. 3.2.5 Сохранение базы данных Сохранить данные в MyDataBase можно путем нажатия на кнопку с изображением дискеты на панели инструментов или перейдя в меню "Файл -> Сохранить" или "Файл -> Сохранить как". (Рис.6) Рис.6 При нажатии кнопки на панели инструментов, программа выполняет пункт "Сохранить как", то есть, сохранить в новый файл, если база сохраняется в первый раз. При этом требуется в появившемся диалоге ввести имя и выбрать путь к новому файлу. Если текущая база уже была сохранена ранее, то нажатие на кнопку сохранения приведет к изменению текущего файла в соответствии с таблицей записей. Пункт меню "Файл -> Сохранить как" сохраняет базу в новый файл в любом случае. Сохранение файла - очень важный момент. Сохраняйте файлы чаще, чтобы не потерять важные данные, ведь в представленной программе есть все необходимые средства для того, чтобы сделать этот процесс как можно более быстрым и удобным. 3.2.6 Удаление записиВыделите запись, щелкнув на ней левой кнопкой мыши, и нажмите клавишу delete. Ответив "Да" на сообщение о подтверждении (Рис.7), вы удалите выбранную запись из базы. Рис.7 Также можно удалить запись через контекстное меню, кнопку на панели инструментов или меню "Редактировать -> Удалить запись". 3.2.7 Редактирование записиМеню "Редактировать -> Изменить запись" (Рис.8) Рис.8 Аналогичная кнопка на панели инструментов, контекстное меню или двойной щелчок мышью на записи обеспечивает доступ к форме редактирования. (Приложение 2. с.63). Выглядит она так же, как и форма для добавления записи, но в ней изначально заполнены все поля. Изменив значения в одном или нескольких полях, вы пройдете аналогичный контроль ввода, как и при добавлении записи, и выбранная запись изменится в главной таблице. 3.2.8 Добавление записиВы можете добавить новую запись в базу данных. Для этого необходимо выбрать пункт меню "Редактировать -> Добавить запись", щелкнуть на кнопке "Добавить запись" на панели инструментов или выбрать пункт "Добавить запись" в контекстном меню, которое появляется при щелчке правой кнопкой мыши на таблице с данными. При выборе данного пункта появится форма для добавления записи, в которую необходимо ввести данные, которые после проверки на правильность ввода будут внесены в таблицу. (Приложение 2. с.62) Когда все поля будут заполнены, нажмите "Добавить".3.2.9 Поиск записейВы можете быстро найти интересующие вас данные по заданным критериям поиска. Выделите любое поле, щелкнув по его заголовку левой кнопкой мыши, а затем нажмите на кнопку с изображением лупы или перейдите в меню "Поиск -> По первой букве", (структура меню поиска показана на рисунке 9) Рис.9 В появившееся окно введите букву (регистр не учитывается) и нажмите "Ок". На экране появится форма с результатами поиска по первой букве в выделенном поле. (Приложение 2. с.64). Внизу на этой форме, на строке состояния написано количество найденных записей. На каждую запись можно перейти в главной таблице, щелкнув дважды на ней на форме поиска. Кроме поиска по первой букве, в программе предусмотрен поиск по часто используемым в сфере работы программы параметрам (запросам). Перейдите в меню "Поиск -> По запросу", и вы увидите список доступных запросов для поиска. Выбрав один из них, вы получите результат на той же форме, что и в первом случае. Замечание: Для данного вида поиска может потребоваться выделение записи. 3.2.10 Построение диаграммДиаграммы необходимы для наглядного представления данных, содержащихся в таблице. В данной программе доступны 3 вида диаграмм: столбчатые, круговые и графики. Чтобы увидеть диаграмму, необходимо щелкнуть на соответствующей кнопке на панели инструментов. Откроется форма диаграмм. (Приложение 2. с.63). Далее нажмите кнопку с изображением того типа диаграмм, который хотите увидеть. Сформируйте запрос путем выбора из предложенных слева списков определенных значений, например, название группы или оценку. Вы получите диаграмму по выбранному запросу.3.2.11 СортировкаДля осуществления сортировки необходимо выделить поле щелчком на его заголовке и нажать на кнопку "Сортировка" на панели инструментов или перейти в меню "Сортировка". (Рис.10) Рис.10 Данные в таблице будут отсортированы по данному полю (по возрастанию или убыванию в зависимости от вашего выбора). Если поле содержит текст, он будет отсортирован в алфавитном порядке. Цифры - от меньшего к большему, а даты - в хронологическом порядке. 3.2.12 Выход из программыПерейдите в меню "Файл -> Выход" (Рис.11) Рис.11 Нажмите на кнопку "Выход" на панели инструментов или закройте главную форму программы крестиком в правом верхнем углу, как обычное окно Windows и ответьте положительно на запрос подтверждения (Рис.12) для завершения работы с программой. Рис.12 Несохраненные данные будут потеряны. В случае отрицательного ответа выход будет отменен. 3.2.12 Информация о программеПри переходе по меню "Справка -> О программе" (Рис.13) Рис.13 Вы получаете доступ к форме "О программе MyDataBase" (Приложение 2. с.65). На ней кратко описана цель проекта, фамилия разработчика и об авторских правах.3.2.14 Сообщения программы1. Не задано поле для поиска. Это означает, что вы обратились к поиску по первой букве, но не выделили поле. Поиск по первой букве не может быть осуществлен при не выбранном поле. Выбрать его можно, щелкнув по заголовку поля. При этом заголовок поля примет вид нажатой кнопки. Чтобы снять выделение поля, щелкните мышью на свободном месте главной формы. Заголовок вернется в нормальное состояние. Искать данные по первой букве можно только тогда, когда выделено одно из полей. 2. Введено нечисловое, дробное, слишком большое или слишком маленькое значение. При добавлении или изменении записи может возникнуть эта ошибка. Она означает, что в поле "Оценка" введено не число. Оценка - это натуральное число в диапозоне от 0 (студент не явился) до 5 (отлично). Если оценка введена больше 5, то возникнет ошибка: Границы ввода определяются контролем ввода. Правила ввода вы можете посмотреть на примере формы добавления записи. 3. Дата выдачи больше даты сдачи. При добавлении или редактировании записей таблицы вы не можете указать дату выдачи работы более позднюю, чем дату сдачи. Студенты редко сдают работы раньше получения заданий. ЛИТЕРАТУРА 1. С.В. Глушаков А.С. Сурядный программирование на VB6.0 «Фолио» 2002г. 2. С.И. Воронцов Microsoft Visual Basic 5.0 «Солон» 1998г. ПРИЛОЖЕНИЕ 1Код программыfrmStartDim x As BytePrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 27 Then Call TerminateEnd SubPrivate Sub Form_Load()x = 0End SubPrivate Sub tmrAni_Timer()If x <= 18 Then imgAnim.Picture = img(x).Picturex = x + 1If x = 40 Then Me.Picture = img(19).Picture: imgAnim.Visible = FalseIf x = 60 Then Call TerminateEnd SubPublic Sub Terminate()tmrAni.Enabled = FalsefrmDatabase.ShowUnload MeEnd SubfrmDatabaseOption ExplicitPublic Sub Create()If MsgBox("Несохраненные данные будут потеряны. Создать новую базу?", vbQuestion + vbYesNo, strName) = vbNo Then Exit SubFor i = 0 To 6lstZapis(i).ClearNextOpenFile = ""Me.Caption = strNameEnd SubPublic Sub Open_File()Dim strФильтр As StringIf MsgBox("Несохраненные данные будут потеряны. Открыть файл?", vbQuestion + vbYesNo, strName) = vbNo Then Exit SubFor i = 0 To 6lstZapis(i).ClearNextOpenFile = ""strФильтр = "Файлы " + strName + " (*." + strРасширение + ")|*." + strРасширение + "|"cdl1.Filter = strФильтрcdl1.Action = 1If cdl1.FileName <> "" Then OpenFile = cdl1.FileName Open OpenFile For Random As 1 Len = Len(Zapis) For i = 1 To FileLen(OpenFile) / Len(Zapis) Get #1, i, Zapis lstZapis(0).AddItem Trim(Zapis.Студент) lstZapis(1).AddItem Trim(Zapis.Группа) lstZapis(2).AddItem Trim(Zapis.Курс) lstZapis(3).AddItem Trim(Zapis.Работа) lstZapis(4).AddItem Trim(Zapis.Дата_сдачи) lstZapis(5).AddItem Trim(Zapis.Оценка) lstZapis(6).AddItem Trim(Zapis.Дата_выдачи) Next Close #1End IfIf OpenFile <> "" Then Me.Caption = strName + " - " + OpenFileEnd SubPublic Sub Save(intSaveAs As Byte)Dim strФильтр As StringIf intSaveAs = 0 And OpenFile <> "" Then If Dir(OpenFile) = Right$(OpenFile, Len(OpenFile) - Len(ОтрезИмя(OpenFile))) Then Kill OpenFile Else OpenFile = "" MsgBox "Сохраненный файл был удален или поврежден. Попробуйте сохранить еще раз", vbCritical + vbOKOnly, strName Exit Sub End If Open OpenFile For Random As 1 Len = Len(Zapis) For i = 0 To lstZapis(1).ListCount - 1 Zapis.Студент = lstZapis(0).List(i) Zapis.Группа = lstZapis(1).List(i) Zapis.Курс = lstZapis(2).List(i) Zapis.Работа = lstZapis(3).List(i) Zapis.Дата_сдачи = lstZapis(4).List(i) Zapis.Оценка = lstZapis(5).List(i) Zapis.Дата_выдачи = lstZapis(6).List(i) Put #1, i + 1, Zapis Next Close #1Else strФильтр = "Файлы " + strName + " (*." + strРасширение + ")|*." + strРасширение + "|" cdl1.Filter = strФильтр cdl1.Action = 2 If cdl1.FileName <> "" Then OpenFile = cdl1.FileName If Dir(OpenFile) = Right$(OpenFile, Len(OpenFile) - Len(ОтрезИмя(OpenFile))) Then If MsgBox("Файл уже существует. Перезаписать?", vbQuestion + vbYesNo, strName) = vbNo Then Exit Sub End If Open OpenFile For Random As 1 Len = Len(Zapis) For i = 0 To lstZapis(1).ListCount - 1 Zapis.Студент = lstZapis(0).List(i) Zapis.Группа = lstZapis(1).List(i) Zapis.Курс = lstZapis(2).List(i) Zapis.Работа = lstZapis(3).List(i) Zapis.Дата_сдачи = lstZapis(4).List(i) Zapis.Оценка = lstZapis(5).List(i) Zapis.Дата_выдачи = lstZapis(6).List(i) Put #1, i + 1, Zapis Next Close #1 End IfEnd IfIf OpenFile <> "" Then Me.Caption = strName + " - " + OpenFileEnd SubPublic Sub Edit(strType As String, lngN As Long)If strType = "Add" Then frmAdd.Show 1End IfIf strType = "Del" Then If MsgBox("Вы действительно хотите удалить эту запись?", vbQuestion + vbYesNo) = vbNo Then Exit Sub For i = 0 To 6 lstZapis(i).RemoveItem (lngN) NextEnd IfIf strType = "Edt" Then lngNumberOfEdit = lngN frmEdit.txt1.Text = lstZapis(0).List(lngN) frmEdit.txt2.Text = lstZapis(1).List(lngN) frmEdit.txt3.Text = lstZapis(2).List(lngN) frmEdit.txt4.Text = lstZapis(3).List(lngN) frmEdit.txt5.Text = lstZapis(4).List(lngN) frmEdit.txt6.Text = lstZapis(5).List(lngN) frmEdit.txt7.Text = lstZapis(6).List(lngN) frmEdit.Show 1
Страницы: 1, 2, 3, 4, 5
|