Geum.ru

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

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

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

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

В результате выполнения данной курсовой работы, я убедилась в широких возможностях языка программирования 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. // удаление текущей записи из массива записей AC