Реферат Інформаційно-довідкова система "Обробка результатів здачі сесії"

s, Menus, Grids, TabNotBk, XPMan, ExtCtrls;=(TypeString, TypeInteger);=class (TStringGrid) MoveRow (FromIndex, ToIndex: Longint);;=record: integer;: string [20];: integer;: boolean;;=record: integer;: string [20];: string [3];;= record: integer;: integer;: integer;: integer;;=class (TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TGroupBox;: TButton;: TButton;: TButton;: TRadioGroup;: TTabbedNotebook;: TStringGrid;: TStringGrid;: TStringGrid;: TGroupBox;: TButton;: TButton;: TStringGrid;: TRadioGroup;: TGroupBox;: TButton;: TXPManifest; Button4Click (Sender: TObject); N3Click ( Sender: TObject); FormCreate (Sender: TObject); N2Click (Sender: TObject); N5Click (Sender: TObject); Button15Click (Sender: TObject); Button14Click (Sender: TObject); Button1Click (Sender: TObject); StringGrid1MouseUp (Sender : TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); StringGrid2MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); StringGrid3MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Button3Click (Sender : TObject); StringGrid4MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer); Button2Click (Sender: TObject); BinaryFind (aStart: integer; aVal: string; aCol: integer;: TStringGrid): integer ; SortDelayString (tabl: TStringGrid; aCol: integer; SorType: TType);

{Private declarations} SortString (tabl: TStringGrid; aCol: integer; SorType: TType);;: TForm1;: file of TStudent;: file of TResults;: file of TMark;: integer=1 ;: integer=0;: integer=0;;

{$ R *. dfm} TStringGridX. MoveRow (FromIndex, ToIndex: Integer);;; TForm1. Button14Click (Sender: TObject);: integer;. Caption:=«Зміна даних»; TabbedNotebook1. PageIndex of

: begin:=StringGrid1. Row; form6 do. EditLabel. Caption:=«Ідентифікатор»;. EditLabel. Caption:=«Прізвище»;. EditLabel. Caption:=«Номер за журналом»;. EditLabel. Caption:=«Участь у НДР»;. Text:=StringGrid1. Cells [0, RowIndex];. Text:=StringGrid1. Cells [1, RowIndex];. Text:=StringGrid1. Cells [2, RowIndex];. Text:=StringGrid1. Cells [3, RowIndex];. Visible:=true; Form6. ShowModal=mrOk thenStringGrid1, Form6 do [0, RowIndex]:=LabeledEdit1. Text; [1, RowIndex]:=LabeledEdit2. Text; [2, RowIndex]:=LabeledEdit3. Text; [3, RowIndex]:=LabeledEdit4. Text;;;;

: begin:=StringGrid2. Row; form6 do. EditLabel. Caption:=«Ідентифікатор»;. EditLabel. Caption:=«Предмет»;. EditLabel. Caption:=«Відсоток здачі»;. Visible:=false;. Text:=StringGrid2. Cells [0, RowIndex];. Text:=StringGrid2. Cells [1, RowIndex];. Text:=StringGrid2. Cells [2, RowIndex];. Visible:=false;; Form6. ShowModal=mrOk thenStringGrid2, Form6 do [0, RowIndex]:=LabeledEdit1. Text; [1, RowIndex]:=LabeledEdit2. Text; [2, RowIndex]:=LabeledEdit3. Text;;;

: begin:=StringGrid3. Row; form6 do. EditLabel. Caption:=«Ідентифікатор запису»;. EditLabel. Caption:=«Ідентифікатор студента»;. EditLabel. Caption:=«Ідентифікатор предмета»;. EditLabel. Caption:=«Оцінка»;. Visible:=true;. Text:=StringGrid3. Cells [0, RowIndex];. Text:=StringGrid3. Cells [1, RowIndex];. Text:=StringGrid3. Cells [2, RowIndex];. Text:=StringGrid3. Cells [3, RowIndex];; Form6. ShowModal=mrOk thenStringGrid3, Form6 do [0, RowIndex]:=LabeledEdit1. Text; [1, RowIndex]:=LabeledEdit2. Text; [2, RowIndex]:=L...