Курсовая работа: Создание базы данных

Числовое значение превышает разрядную сетку! (введено целое число, большее по модулю 2147483647)

Значение не является целым числом! (введено значение, не являющееся целым числом либо 0)

Строка пуста. Продолжить? (измененная строка пуста)

Мастер запросов:

Запрос отменен!

Список запросов не пуст. Выйти? (были созданы и не выполнены запросы)

Очистить список запросов?

Удалить выбранный запрос из списка?

Запросы выполнены.

Выводить в новую таблицу? Нет для вывода в уже существующую. (запрос может выводить результат либо в уже существующую таблицу, дописывая в конец, либо создать новую)

Не задано относительное значение! (для выполнения запроса недостаточно данных)

Ошибка в запросе! (произошла ошибка во время интерпретации или выполнения запроса)

Добавляемое поле уже существует!

Добавляемый столбец дублируется!

Нельзя добавлять записи в БД без полей! (запись добавляется, а полей в БД еще нет)

В БД нет полей!

В БД нет записей!

Нечего сортировать! (вызвана сортировка пустой БД)

Не с чем сравнивать! (сравнения по пустой БД)

Эквивалентом вывода целочисленного столбца не является целое число! Условие всегда истинно! (в запросе вывода указано строковое значение, а вывод идет по числовому полю)

Добавляемая запись уже существует!

Поле строкового типа преобразуется в числовой тип. Все нечисловые значения будут преобразованы в 0. Продолжить? (при изменении типа поля из строкового в числовое все строки, которые нельзя преобразовать в целые числа, будут заменены 0).

Поле с названием XXX уже существует!

Окно настроек создаваемого поля:

Введенное значение не является целым числом. Преобразовано к '0'.

Главное окно:

Недостаточно прав для выполнения действия! (открыта БД, защищенная паролем, в режиме чтения и производится попытка изменения данных)

Ошибка удаления столбца!

Удалить столбец?

Ошибка удаления записи!

Удалить запись?

БД сохранена!

БД повреждена! (при загрузке БД произошла ошибка)

Пароль принят! (БД, защищенная паролем, открыта с корректно введенным паролем)

Только чтение! (БД, защищенная паролем, открыта в режиме чтения)

Пароль не принят! Доступ запрещён!

БД загружена!

БД создана с настройками по-умолчанию!

литература

1.  Microsoft Corporation Microsoft Visual Basic 6.0 Programmer’s Guide, Microsoft Press, 2003 г.

2.  Microsoft® Win32® Programmer's Reference, 1996 г.

Приложение 1

Исходный код программы

Форма: MainForm. frm

0' разница ширины и высоты формы и TabStrip'а

1Dim dW1%, dH1%

2' разница ширины и высоты TabStrip'а и ListView'а

3Dim dW2%, dH2%

4' последний выбранный элемент

5Dim saveItemIndex%

6' текущая таблица

7Public DBCurIndex%

8' последний Image, над которым был курсор

9Dim OldImageIndex%

10

11Private Sub AboutProg_Click()

12 CoolTimer. Enabled = False

13 AboutForm. Show vbModal

14 CoolTimer. Enabled = True

15End Sub

16

17Private Sub CloseDB_Click()

18 CoolTimer. Enabled = False

19

20 If DBChanged Then

21 If (MsgForm. QuestMsg("В БД внесены не сохранённые изменения. Закрыть не сохраняя? ") <> resOk) Then GoTo exit_

22 End If

23

24 SB. Panels(3). Text = ""

25 Call ClearAll

26 Call ShowTable(-1)

27 Call DisEnImage(2, 1)

28 Call DisEnImage(3, 1)

29 Call DisEnImage(4, 1)

30

31exit_:

32

33 CoolTimer. Enabled = True

34End Sub

35

36' index,mode / сегмент, смещение

37Sub DisEnImage(Index%, Mode%)

38 CoolBut(Index). Picture = CoolImgs. ListImages(1 + (Index * 3 + Mode)). Picture

39 CoolBut(Index). Enabled = (Mode <> 1)

40End Sub

41

42Sub RetImage()

43 If (OldImageIndex > - 1) Then

44 If CoolBut(OldImageIndex). Enabled Then

45 Call DisEnImage(OldImageIndex, 0)

46 Else

47 Call DisEnImage(OldImageIndex, 1)

48 End If

49 End If

50 OldImageIndex = - 1

51End Sub

52

53Sub CoolMouseMove(Index%)

54 If (Index = OldImageIndex) Then Exit Sub

55 Call DisEnImage(Index, 2)

56 Call RetImage

57 OldImageIndex = Index

58End Sub

59

60Private Sub CoolBut_Click(Index As Integer)

61 Call DisEnImage(Index, 0)

62 Select Case Index

63 Case 0: Call CreateDB_Click

64 Case 1: Call OpenDB_Click

65 Case 2: Call SaveDB_Click

66 Case 3: Call CloseDB_Click

67 Case 4: Call ResCopyDB_Click

68 Case 5: Call ExitPr_Click

69 End Select

70End Sub

71

72Private Sub CoolTimer_Timer()

73 Dim Point As POINTAPI

74 Dim R As RECT, R2 As RECT

75 Call GetCursorPos(Point)

76 Call GetWindowRect(Frame1. hwnd, R)

77 For i% = 0 To 5

78 If (Not CoolBut(i). Enabled) Then GoTo loop_

79 x% = R. Left + CoolBut(i). Left / Screen. TwipsPerPixelX

80 y% = R. Top + CoolBut(i). Top / Screen. TwipsPerPixelY

81 X2% = x + CoolBut(i). Width / Screen. TwipsPerPixelX

82 Y2% = y + CoolBut(i). Height / Screen. TwipsPerPixelY

83 R2. Left = x

84 R2. Top = y

85 R2. Right = X2

86 R2. Bottom = Y2

87 If ((Point. x >= R2. Left) And (Point. x <= R2. Right) And (Point. y >= R2. Top) And (Point. y <= R2. Bottom)) Then

88 Call CoolMouseMove(i)

89 Exit Sub

90 End If

91loop_:

92 Next i

93 Call RetImage

94End Sub

95

96Private Sub CreateDB_Click()

97 CoolTimer. Enabled = False

98 Dlgs. FileName = ""

99 Dlgs. ShowSave

100 If (Dlgs. FileName <> "") Then

101 ' создаю новую БД

102 Call NewDB(Dlgs. FileName)

103 ' вывожу путь к БД

104 SB. Panels(3). Text = DBPath

105 ' разрешения

106 Call DisEnImage(2, 0)

107 Call DisEnImage(3, 0)

108 Call DisEnImage(4, 0)

109 Call ShowTable(DBCurIndex)

110 End If

111 CoolTimer. Enabled = True

112End Sub

113

114Private Sub DiagDraw_Click()

115 CoolTimer. Enabled = False

116 DiagMasterForm. Show vbModal

117 CoolTimer. Enabled = True

118End Sub

119

120Private Sub ExitBut_Click()

121 Call ExitPr_Click

122End Sub

123

124Private Sub ExitPr_Click()

125 CoolTimer. Enabled = False

126 If Not DBChanged Then

127 End

128 Else

129 If (MsgForm. QuestMsg("В БД внесены не сохранённые изменения. Выйти не сохраняя? ") = resOk) Then End

130 End If

131 CoolTimer. Enabled = True

132End Sub

133

134Private Sub File_Click()

135 SaveDB. Enabled = DBPath <> ""

136 CloseDB. Enabled = SaveDB. Enabled

137 ResCopyDB. Enabled = SaveDB. Enabled

138End Sub

139

140Private Sub HelpProg_Click()

141 CoolTimer. Enabled = False

142 Call ShellExecute(hwnd, "open", "Help\index. html", "", "", 0)

143 CoolTimer. Enabled = True

144End Sub

145

146Sub CreateHTML(Path$)

147 Call DeleteFile(Path)

148 DBI% = FreeFile

149 Open Path For Binary As DBI

150

151 Capt$ = InputForm. InputVal("Введите заголовок для таблицы")

152

153 HTMLHeader$ = Replace("<html><head><meta http-equiv=~Content-Language~ content=~ru~>" + _

154 "<meta http-equiv=~Content-Type~ content=~text/html; charset=windows-1251~>", "~", Chr(34))

155

156 HTMLInfo$ = "<title>" + Capt + "</title>"

157

158 HTMLStart$ = Replace("</head><body><div align=~center~><table border=~1~ cellspacing=~2~ style=~border-collapse: collapse~>", "~", Chr(34))

159

160 HTMLEnd$ = "</table></div><br><br><br><hr><i>Файл сгенерирован программой DB Xtension по содержимому БД </i><b>&#39; " + DBPath + "&#39; </b></body></html>"

161

162 HTMLCaption$ = Replace("<tr><td colspan=~" + CStr(DB(DBCurIndex). Header. ColCount) + "~ align=~center~ bgcolor=~#66CCFF~><font color=~#FFFF00~ size=~5~>" + Capt + "</font></td></tr>", "~", Chr(34))

163

164 HTMLRowS$ = "<tr>"

165 HTMLRowE$ = "</tr>"

166

167 If (DB(DBCurIndex). Header. ColCount > 0) Then ColWidth% = 100 \ DB(DBCurIndex). Header. ColCount

168

169 HTMLCols$ = Replace("<td bgcolor=~#999999~ width=~" + CStr(ColWidth) + "%~ align=~center~><b><font face=~Arial~ color=~#FFFFFF~>^</font></b></td>", "~", Chr(34))

170

171 HTMLCells$ = Replace("<td width=~" + CStr(ColWidth) + "%~ align=~center~>^</td>", "~", Chr(34))

172

173 Put DBI,, HTMLHeader

174 Put DBI,, HTMLInfo

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20