Построение базы данных "Абитуриент" для учебного заведения
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ingGrid1. Cells [Acol,ARow])) div 2),ARect. Top+ ( ( (ARect. Bottom-ARect. Top) - StringGrid1. Canvas. TextHeight (StringGrid1. Cells [Acol,ARow])) div 2),StringGrid1. Cells [Acol,ARow]);Arow=0 then StringGrid1. Canvas. Brush. Color: =clblackStringGrid1. Canvas. Brush. Color: =clGray;. Canvas. FrameRect (Rect (ARect. Left-1,ARect. Top-1,ARect. Right+1,ARect. Bottom+1)); {очерчиваем прямоугольник, каждой ячейки};TForm1. SpinEdit1Change (Sender: TObject);SpinEdit1. Text'' then; {Обновляем таблицу с учетом проходного бала по внутренним экзаменам};.Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ExtCtrls, Spin, ComCtrls;= class (TForm): TBitBtn;: TBitBtn;: TBitBtn;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TLabel;: TLabel;: TBevel;: TBevel;: TLabeledEdit;: TLabeledEdit;: TLabeledEdit;: TDateTimePicker;: TComboBox;: TLabel;: TLabel;: TLabel;: TSpinEdit;: TSpinEdit;: TSpinEdit;: TBevel;: TLabel;: TLabel;: TLabel;: TSpinEdit;: TSpinEdit;: TSpinEdit;: TBevel;: TLabel;: TComboBox;: TLabeledEdit;: TLabeledEdit;: TBevel;: TComboBox;: TLabel;: TBevel;btn5Click (Sender: TObject);FormCreate (Sender: TObject);btn2Click (Sender: TObject);btn1Click (Sender: TObject);LoadRecord;
{ Private declarations }
{ Public declarations };: TForm2;;
{$R *. dfm}TForm2. LoadRecord; {Отображение в визуальные компоненты редактируемой записи}: =FTableRecords [FilePosition];. Text: =FRecord. AName;. Text: =FRecord. AFamilia;. Text: =FRecord. AOtchestvo;. DateTime: =FRecord. ABirsday;. ItemIndex: =FRecord. ASpecialnost;. ItemIndex: =FRecord. ASex;. Value: =FRecord. AScore1;. Value: =FRecord. AScore2;. Value: =FRecord. AScore3;. Value: =FRecord. AScoreEGE1;. Value: =FRecord. AScoreEGE2;. Value: =FRecord. AScoreEGE3;. Text: =FRecord. AAdres;. Text: =FRecord. ATelefon;. ItemIndex: =FRecord. AAttestat;;TForm2. btn5Click (Sender: TObject);. Close; {закрыть форму};TForm2. FormCreate (Sender: TObject); {действия при создании формы}i: Integer;i: =0 to 5 do ComboBox1. Items. Add (ASpecialnost [i]); {Заполняем список факультетов}. ItemIndex: =0;. Caption: =APredmetName [cbb1. ItemIndex,0] +' письменно';. Caption: =APredmetName [cbb1. ItemIndex,1] +' письменно';. Caption: =APredmetName [cbb1. ItemIndex,2] +' письменно';. Caption: ='Оценка ЕГЭ ('+APredmetName [cbb1. ItemIndex,0] +') ';. Caption: ='Оценка ЕГЭ ('+APredmetName [cbb1. ItemIndex,1] +') ';. Caption: ='Оценка ЕГЭ ('+APredmetName [cbb1. ItemIndex,2] +') ';FEdit then LoadRecord else btn2Click (nil); {если редактируем запись, то отображаем редактируемые данные в визуалььные компоненты,
если просто добавляем нового абитуриента, то очищаем компоненты и готовимся к вводу данных};TForm2. btn2Click (Sender: TObject); {очищаем визуальные компоненты от введённых данных}. Text: ='';. Text: ='';. Text: ='';. DateTime: =Date;. ItemIndex: =0;. ItemIndex: =0;. Value: =0;. Value: =0;. Value: =0;. Value: =0;. Value: =0;. Value: =0;. Text: ='';. Text: ='';. ItemIndex: =0;;TForm2. btn1Click (Sender: TObject);
{Заполняем временную переменную введенными данными из компонентов}. AName: =LabeledEdit1. Text;. AFamilia: =LabeledEdit2. Text;. AOtchestvo: =LabeledEdit3. Text;. ABirsday: =dtp1. DateTime;. ASpecialnost: =ComboBox1. ItemIndex;. ASex: =cbb1. ItemIndex;. AScore1: =se1. Value;. AScore2: =SpinEdit1. Value;. AScore3: =SpinEdit2. Value;. AScoreEGE1: =SpinEdit3. Value;. AScoreEGE2: =SpinEdit4. Value;. AScoreEGE3: =SpinEdit5. Value;. AAdres: =LabeledEdit4. Text;. ATelefon: =LabeledEdit5. Text;. AAttestat: =ComboBox2. ItemIndex;Fedit then {если Атрибут редактирования активен то записываем данные в файл с учетом ранее запомненного индекса из таблицы абитуриентов}(F);(F,FRecordIndexs [FilePosition]);(F,FRecord);(F);[FilePosition]: =FRecord;('Изменения записаны! ');; {прерываем процедуру, т. к при редактироании записи остальное не имеет смысла};
{если создаем новую запись, добавляем абитуриента, то расширяем массив данных в памяти и запоминаем его индекс}(FTableRecords,Length (FTableRecords) +1);[Length (FTableRecords) - 1]: =FRecord;(FRecordIndexs,Length (FRecordIndexs) +1);[Length (FTableRecords) - 1]: =Length (FTableRecords) - 1;FileExists (FFileName) then {Проверяем существование файла с базой данных, если существует, то записываем данные в конец файла}(F);(F,FileSize (f));(F,FRecord);(F);else('Файл с базой данных не найден, запись не произведена! '); {если база с абитуриентами не найдена, то просто выходим и оповещаем пользователя};;Click (nil); {очищаем компоненты для нового ввода данных};.Unit3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, jpeg, ExtCtrls;= class (TForm): TBitBtn;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TImage;btn1Click (Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;Unit1;
{$R *. dfm}TForm3. btn1Click (Sender: TObject);;;.