Geum.ru

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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

omp

  • procedure TForm1.BBDeleteClick(Sender: TObject);
  • var i,Ln:integer;
  • begin
  • Ln:=Length(AComp);
  • for i:=CurK to Ln-2 do
  • AComp[i]:=AComp[i+1];
  • if Ln>0 then
  • SetLength(AComp,Ln-1);
  • if CurK<ln then
  • ShowComp(AComp[CurK]);
  • ShowAComp(AComp,SGrid1);
  • end;
  • // Создание нового массива записей
  • procedure TForm1.NCreateClick(Sender: TObject);
  • begin
  • CurK:=0;
  • SetLength(AComp,0);
  • Fname:=;
  • ShowAComp(AComp,SGrid1);
  • end;
  • // созание формы - формирование шапки таблицы
  • procedure TForm1.FormCreate(Sender: TObject);
  • begin
  • SGrid1.Cells[0,0]:=№ п/п;
  • SGrid1.Cells[1,0]:=Имя ПК;
  • SGrid1.Cells[2,0]:=Объём памяти;
  • SGrid1.Cells[3,0]:=Объём ОП;
  • SGrid1.Cells[4,0]:=Тип монитора;
  • SGrid1.Cells[5,0]:=Подключение к Internet;
  • end;

    •  

    1. // чтение инофрмации из полей ввода и обновление
    2. // данных текцщей записи в массиве AComp
    3. procedure TForm1.BBUpdateClick(Sender: TObject);
    4. begin
    5. Comp.Name:=EName.Text;
    6. Comp.HDD:=StrToFloat(EHDD.Text);
    7. Comp.RAM:=StrToInt(ERAM.Text);
    8. Comp.Monitor:=EMonitor.Text;
    9. Comp.Inet:=RgrInet.ItemIndex = 1;
    10. //
    11. AComp[CurK]:=Comp;
    12. ShowCompInGrid(Comp,SGrid1,CurK+1);
    13. end;
    14. // ввод информации типизированного файла на форму
    15. procedure TForm1.NShowClick(Sender: TObject);
    16. var k:integer;
    17. begin
    18. AssignFile(F,Fname);
    19. ReSet(f);
    20. k:=0;
    21. SetLength(AComp,0);
    22. while not eof(f) do
    23. begin
    24. read(f,Comp);
    25. SetLength(AComp,k+1);
    26. AComp[k]:=Comp;
    27. k:=k+1;
    28. end;
    29. CloseFile(F);
    30. ShowAComp(AComp,SGRid1);
    31. end;
    32. // поиск записей, удовлетворяющих условию поиска
    33. procedure TForm1.BBSearchClick(Sender: TObject);
    34. var i,k:integer;
    35. Ares:ATComp;
    36. begin
    37. Comp.Name := EName.Text;
    38. if EHDD.Text = then
    39. Comp.HDD:=0
    40. else
    41. Comp.HDD:=StrtoFloat(EHDD.Text);
    42. if ERAM.Text = then
    43. Comp.RAM:=0
    44. else
    45. Comp.RAM:=StrtoInt(ERAM.Text);
    47. Comp.Monitor:=EMonitor.Text;
    48. Comp.Inet:=RgrInet.ItemIndex = 1;
    49. //
    50. k:=0;
    51. for i:=0 to Length(AComp) do
    52. 0))and">if ((Comp.Name=)or(Pos(Comp.Name,AComp[i].Name)<>0))and
    53. ((Comp.HDD=0)or(Comp.HDD = AComp[i].HDD))and
    54. ((Comp.RAM=0)or(Comp.RAM = AComp[i].RAM))and
    55. ((Comp.Monitor=)or
    56. 0))and">(Pos(Comp.Monitor,AComp[i].Monitor)<>0))and
    57. (Comp.Inet = AComp[i].Inet) then
    58. begin
    59. SetLength(Ares,k+1);
    60. Ares[k]:=AComp[i];
    61. k:=k+1;
    62. end;
    63. ShowAComp(Ares,SGrid1);
    64. end;
    65. // вывод информации о программе
    66. procedure TForm1.NInfoClick(Sender: TObject);
    67. begin
    68. AboutBox.ShowModal;
    69. end;
    70. // завершение работы приложения
    71. procedure TForm1.NExitClick(Sender: TObject);
    72. begin
    73. close;
    74. end;
    75. end.

     

    ПРИЛОЖЕНИЕ В

     

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

     

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

     

     

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