Курсовая работа: Разработка программы при помощи языка программирования языка Delphi
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);
293.
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.
ПРИЛОЖЕНИЕ В
Протокол выполнения
программы
Созданная программа позволяет добавлять, редактировать и удалять
записи, так же позволяет осуществлять поиск по нескольким полям.
При редактировании или удалении данных
|
