Разработка программы при помощи языка программирования языка Delphi

- «Открыть файл» (при нажатии запускается диалог открытия файла, изображенный на рисунке 4.3)

- «Перенос» (при нажатии выполняются действия согласно заданию)

- «Сохранить результат» (при нажатии запускается диалог сохранения файла, изображенный на рисунке 4.4);

- «Выход» (закрывает программу)

 

Рисунок 4.2 – Информационное окно «Задание»

 

Рисунок 4.3 – Диалог открытия файла

 

Рисунок 4.4 – Диалог сохранения файла

 

В качестве примера введем некоторые данные о нескольких компьютерах и сохраним в файле, нажав на пункт меню «Сохранить как».

При помощи кнопок «Предыдущая запись» и «Следующая запись» можно перемещаться между записями о компьютерах. Если необходимо изменить данные о каком то компьютере, то необходимо перейти на запись о нем, изменить соответствующие данные в индивидуальных полях, а потом нажать на кнопку «Обновить». Запись этого компьютера в массиве будет изменена.

Для удаления записи следует нажать на кнопку «Удалить».

Для поиска нужно в требуемые поля написать данные запроса и нажать на кнопку «Поиск». Если записи по заданным критериям найдены, то информация об этих компьютерах будет выведена на форму.

Например, пусть критерием поиска будет имя ‘USER1 ’, а остальные поля оставим незаполненными. В результате будет выполнен поиск, выведены результаты, изображенные на рисунке 4.5. По результатам видно, что выводится компьютер с указанным именем.

Если мы хотим вновь отобразить содержимое обо всех введенных компьютерах, необходимо нажать на пункт главного меню Файл-> Показать. (см рисунок 4.6).

 

Рисунок 4.5 – Пример поиска

 

Рисунок 4.6 - Содержимое файла

Можно осуществить поиск по нескольким полям, например: выведем все компьютеры с объемом оперативной памяти 256 Мб и имеющих подключение к интернет. Пример запроса и результат приведен на рисунке 4.7.

 

Рисунок 4.7 – Результат поиска по нескольким полям

 

 

ВЫВОДЫ

 

Данный курсовой проект был выполнен в полном соответствии поставленному заданию и отлажен в среде DELPHI 7.0. В ходе выполнения курсовой работы была разработана программа для обработки типизированных файлов, а также создан визуальный интерфейс для создания и ведения базы о компьютерах предприятия.

В результате выполнения данной курсовой работы, я убедилась в широких возможностях языка программирования Object Pascal и среды проектирования Delphi 7.

 

 

Перечень ссылок

 

1. Валентин Озеров «Советы по Delphi», 1999
2. Зуев Е.А. Программирование на языке Turbo Pascal 6.0,7.0. – М.: Радио и связь, Веста, 1993.
3. Фаронов В.В. Turbo Pascal 7.0. Начальный курс. - М.: Нолидж, 2000.
4. Фаронов В.В. «DELPHI. Программирование на языке высокого уровня». – Питер, 2005.
5. Дятченко Д.А. Методические указания к выполнению курсовой работы по дисциплине «Программирование и алгоритмические языки»– Северодонецк, 2005.

 

 

ПРИЛОЖЕНИЕ А

 

Алгоритм программы

Рисунок А.1 – Обработка событий главной формы программы

Рисунок А.2 – Открытие файла

типизированный файл программирование delphi

 

Рисунок А.3 – Алгоритм процедуры сохранения в файл

 

Рисунок А.4 – Алгоритм вывода содержимого массива AComp на форму

 

ПРИЛОЖЕНИЕ Б

 

Листинг программы

 

1. unit Unit1;
2. interface
3. uses
4. Windows, Messages, SysUtils, Variants, Classes, Graphics,
5. Controls, Forms,Dialogs, Menus, StdCtrls, Buttons, ExtCtrls,
6. Grids;
7. type
8. TForm1 = class(TForm)
9. MainMenu1: TMainMenu;
10. N1: TMenuItem;
11. NOpen: TMenuItem;
12. NSave: TMenuItem;
13. NSaveAs: TMenuItem;
14. NCreate: TMenuItem;
15. N6: TMenuItem;
16. NExit: TMenuItem;
17. NInfo: TMenuItem;
18. NShow: TMenuItem;
19. SaveDlg: TSaveDialog;
20. OpenDlg: TOpenDialog;
21. Label1: TLabel;
22. Label2: TLabel;
23. Label3: TLabel;
24. Label4: TLabel;
25. Label9: TLabel;
26. EHDD: TEdit;
27. ERAM: TEdit;
28. EMonitor: TEdit;
29. RGrInet: TRadioGroup;
30. EName: TEdit;
31. SGrid1: TStringGrid;
32. BBPrev: TBitBtn;
33. BBNext: TBitBtn;
34. BBDelete: TBitBtn;
35. BBAdd: TBitBtn;
36. BBUpdate: TBitBtn;
37. BBSearch: TBitBtn;
38. procedure FormCreate(Sender: TObject);
39. procedure NCreateClick(Sender: TObject);
40. procedure NOpenClick(Sender: TObject);
41. procedure NShowClick(Sender: TObject);
42. procedure NSaveClick(Sender: TObject);
43. procedure NSaveAsClick(Sender: TObject);
44. procedure NExitClick(Sender: TObject);
45. procedure NInfoClick(Sender: TObject);
46. procedure BBPrevClick(Sender: TObject);
47. procedure BBNextClick(Sender: TObject);
48. procedure BBUpdateClick(Sender: TObject);
49. procedure BBAddClick(Sender: TObject);
50. procedure BBDeleteClick(Sender: TObject);
51. procedure BBSearchClick(Sender: TObject);
52. private
53. { Private declarations }
54. public
55. { Public declarations }
56. end;
57. TComp = record
58. Name:string[20];
59. HDD:real;
60. RAM:integer;
61. Monitor:string[20];
62. Inet:boolean; {true - есть, false - нет}
63. end;
64. ATComp = array of TComp;
65. var
66. Form1: TForm1;
67. F:file of TComp;
68. Comp:TComp;
69. AComp:ATComp;
70. CurK:integer;
71. Fname:string;
72. implementation
74. uses Unit2;
76. {$R *.dfm}
77. // поиск компьютера по имени
78. Function GetComp(name:string;AComp:ATComp;var Comp:TComp):boolean;
79. var i:integer;
80. begin
81. for i:=0 to Length(AComp)-1 do
82. if AComp[i].Name = Name then
83. begin
84. Comp:=AComp[i];
85. GetComp:=true;
86. exit;
87. end;
88. GetComp:=false;
89. end;
90. // вывод информации об одном компьютерера из типизированного файла на экранную форму
91. Procedure ShowComp(Comp:TComp);
92. begin
93. Form1.EName.Text:=Comp.Name;
94. Form1.EHDD.Text:=FloatToStr(Comp.HDD);
95. Form1.ERAM.Text:=IntToStr(Comp.RAM);
96. if Comp.Inet then
97. Form1.RgrInet.ItemIndex := 1
98. else
99. Form1.RgrInet.ItemIndex:=0;
100. Form1.EMonitor.Text:=Comp.Monitor;
101. end;
102. // вывод информации о компьютере из типизированного файла в таблицу
103. Procedure ShowCompInGrid(Comp:TComp;Sgr:TStringGrid;Row:integer);
104. begin
105. Sgr.Cells[0,Row]:=IntToStr(Row);
106. Sgr.Cells[1,Row]:=Comp.Name;
107. Sgr.Cells[2,Row]:=FloatToStr(Comp.HDD);
108. Sgr.Cells[3,Row]:=IntToStr(Comp.RAM);
109. Sgr.Cells[4,Row]:=Comp.Monitor;
110. if Comp.Inet then
111. Sgr.Cells[5,Row]:='есть'
112. else
113. Sgr.Cells[5,Row]:='нет';
114. end;
115. // вывод содержимого массива FComp в таблицу
116. Procedure ShowAComp(AComp:ATComp;Sgr:TStringGrid);
117. var i,ln:integer;
118. begin
119. ln:=Length(AComp);
120. if ln = 0 then
121. Sgr.RowCount:=2
122. else
123. Sgr.RowCount:=ln+1;
124. SGr.FixedRows:=1;
125. for i:=0 to LN-1 do
126. ShowCompInGrid(AComp[i],Sgr,i+1);
127. end;
128. // добавление новой записи в массив
129. procedure TForm1.BBAddClick(Sender: TObject);
130. var
131. k:integer;
132. begin
133. Comp.Name:=EName.Text;
134. Comp.HDD:=StrToFloat(EHDD.Text);
135. Comp.RAM:=StrToInt(ERAM.Text);
136. Comp.Monitor:=EMonitor.Text;
137. Comp.Inet:=RgrInet.ItemIndex = 1;
138. //
139. if GetComp(Comp.Name,AComp,Comp) then
140. begin
141. MessageBox(0,PAnsiChar(String('Ошибка! Запись компьютера с именем '+Comp.Name+' уже существует!')),'Ошибка',0);
142. exit;
143. end;
144. k:=Length(AComp);
145. SetLength(AComp,k+1);
146. AComp[k]:=Comp;
147. CurK:=k;
148. ShowAComp(AComp,SGrid1);
149. end;
150. // переход на предыдущую запись массива
151. procedure TForm1.BBPrevClick(Sender: TObject);
152. begin
153. curK:=CurK-1;
154. if CurK<0 then CurK:=Length(AComp)-1;
155. if CurK < Length(AComp) then
156. ShowComp(AComp[CurK]);
157. end;
158. // переход на последующую запись массива
159. procedure TForm1.BBNextClick(Sender: TObject);
160. begin
161. curK:=CurK+1;
162. if CurK>=Length(AComp) then CurK:=0;
163. if CurK < Length(AComp) then
164. ShowComp(AComp[CurK]);
165. end;
166. // сохранение содержимого массива в типизированном файле
167. procedure TForm1.NSaveClick(Sender: TObject);
168. var i:integer;
169. begin
170. if Fname = '' then
171. MessageBox(0,'Имя файла не задано!','Ошибка',0)
172. else begin
173. AssignFile(F,Fname);
174. Rewrite(f);
175. for i:=0 to Length(AComp)-1 do
176. write(f,AComp[i]);
177. CloseFile(F);
178. end;
179. end;
180. // сохранение в содержимого массива в типизированном файле
181. // с возможностью указания имени файла
182. procedure TForm1.NSaveAsClick(Sender: TObject);
183. var i:integer;
184. begin
185. if SaveDlg.Execute then
186. begin
187. Fname:=SaveDlg.FileName;
188. AssignFile(F,Fname);
189. Rewrite(f);
190. for i:=0 to Length(AComp)-1 do
191. write(f,AComp[i]);
192. CloseFile(F);
193. end;
194. end;
195. // открытие типизированного файла и вывод его содержимого на форму
196. procedure TForm1.NOpenClick(Sender: TObject);
197. var K:integer;
198. begin
199. if OpenDlg.Execute then
200. begin
201. Fname:=OpenDlg.FileName;
202. AssignFile(F,Fname);
203. ReSet(f);
204. k:=0;
205. SetLength(AComp,0);
206. while not eof(f) do
207. begin
208. read(f,Comp);
209. SetLength(AComp,k+1);
210. AComp[k]:=Comp;
211. k:=k+1;
212. end;
213. CloseFile(F);
214. ShowAComp(AComp,SGRid1);
215. end;
216. end;
217. // удаление текущей записи из массива записей AComp
218. procedure TForm1.BBDeleteClick(Sender: TObject);
219. var i,Ln:integer;
220. begin
221. Ln:=Length(AComp);
222. for i:=CurK to Ln-2 do
223. AComp[i]:=AComp[i+1];
224. if Ln>0 then
225. SetLength(AComp,Ln-1);
226. if CurK<ln then
227. ShowComp(AComp[CurK]);
228. ShowAComp(AComp,SGrid1);
229. end;
230. // Создание нового массива записей
231. procedure TForm1.NCreateClick(Sender: TObject);
232. begin
233. CurK:=0;
234. SetLength(AComp,0);
235. Fname:='';
236. ShowAComp(AComp,SGrid1);
237. end;
238. // созание формы - формирование шапки таблицы
239. procedure TForm1.FormCreate(Sender: TObject);
240. begin
241. SGrid1.Cells[0,0]:='№ п/п';
242. SGrid1.Cells[1,0]:='Имя ПК';
243. SGrid1.Cells[2,0]:='Объём памяти';
244. SGrid1.Cells[3,0]:='Объём ОП';
245. SGrid1.Cells[4,0]:='Тип монитора';
246. SGrid1.Cells[5,0]:='Подключение к Internet';
247. end;

 

248. // чтение инофрмации из полей ввода и обновление
249. // данных текцщей записи в массиве AComp
250. procedure TForm1.BBUpdateClick(Sender: TObject);
251. begin
252. Comp.Name:=EName.Text;
253. Comp.HDD:=StrToFloat(EHDD.Text);
254. Comp.RAM:=StrToInt(ERAM.Text);
255. Comp.Monitor:=EMonitor.Text;
256. Comp.Inet:=RgrInet.ItemIndex = 1;
257. //
258. AComp[CurK]:=Comp;
259. ShowCompInGrid(Comp,SGrid1,CurK+1);
260. end;
261. // ввод информации типизированного файла на форму
262. procedure TForm1.NShowClick(Sender: TObject);
263. var k:integer;
264. begin
265. AssignFile(F,Fname);
266. ReSet(f);
267. k:=0;
268. SetLength(AComp,0);
269. while not eof(f) do
270. begin
271. read(f,Comp);
272. SetLength(AComp,k+1);
273. AComp[k]:=Comp;
274. k:=k+1;
275. end;
276. CloseFile(F);
277. ShowAComp(AComp,SGRid1);
278. end;
279. // поиск записей, удовлетворяющих условию поиска
280. procedure TForm1.BBSearchClick(Sender: TObject);
281. var i,k:integer;
282. Ares:ATComp;
283. begin
284. Comp.Name := EName.Text;
285. if EHDD.Text = '' then
286. Comp.HDD:=0
287. else
288. Comp.HDD:=StrtoFloat(EHDD.Text);
289. if ERAM.Text = '' then
290. Comp.RAM:=0
291. else
292. Comp.RAM:=StrtoInt(ERAM.Text);
294. Comp.Monitor:=EMonitor.Text;
295. Comp.Inet:=RgrInet.ItemIndex = 1;
296. //
297. k:=0;
298. for i:=0 to Length(AComp) do
299. if ((Comp.Name='')or(Pos(Comp.Name,AComp[i].Name)<>0))and
300. ((Comp.HDD=0)or(Comp.HDD = AComp[i].HDD))and
301. ((Comp.RAM=0)or(Comp.RAM = AComp[i].RAM))and
302. ((Comp.Monitor='')or
303. (Pos(Comp.Monitor,AComp[i].Monitor)<>0))and
304. (Comp.Inet = AComp[i].Inet) then
305. begin
306. SetLength(Ares,k+1);
307. Ares[k]:=AComp[i];
308. k:=k+1;
309. end;
310. ShowAComp(Ares,SGrid1);
311. end;
312. // вывод информации о программе
313. procedure TForm1.NInfoClick(Sender: TObject);
314. begin
315. AboutBox.ShowModal;
316. end;
317. // завершение работы приложения
318. procedure TForm1.NExitClick(Sender: TObject);
319. begin
320. close;
321. end;
322. end.

 

 

ПРИЛОЖЕНИЕ В

 

Протокол выполнения программы

 

Созданная программа позволяет добавлять, редактировать и удалять записи, так же позволяет осуществлять поиск по нескольким полям.

 

 

При редактировании или удалении данных