I_chet: TFloatField; II_chet: TFloatField; I_polug: TFloatField; III_chet: TFloatField; IV_chet: TFloatField; II_polug: TFloatField; Godovaya: TFloatField;: TMainMenu;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TEdit;: TBitBtn;: TBitBtn;: TBitBtn; N3Click (Sender: TObject); N2Click (Sender: TObject); N4Click (Sender: TObject); N5Click ( Sender: TObject); N6Click (Sender: TObject); Button1Click (Sender: TObject); BitBtn2Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm3; Unit1, Unit2;
{$ R *. dfm} TForm3.N3Click (Sender: TObject);. IndexFieldNames:=«Code»;; TForm3.N2Click (Sender: TObject);. IndexFieldNames:=«Fam» ;;; TForm3.N4Click (Sender: TObject);. IndexFieldNames:=«Klass»;; TForm3.N5Click (Sender: TObject);. IndexFieldNames:=«Adress»;; TForm3.N6Click (Sender: TObject); . IndexFieldNames:=«Datarogd»;; TForm3.Button1Click (Sender: TObject);,Sheet,Colum:variant;,i,j:integer;:=CreateOleObject(«Excel.Application»);.Visible:=true;.Workbooks.Add(- 4167);.Workbooks[1].WorkSheets[1].Name:=«Отчёт»;:=XLApp.Workbooks[1].WorkSheets[«Отчёт»].Columns;.Columns[1].ColumnWidth:=10;.Columns[2].ColumnWidth:=10;.Columns[3].ColumnWidth:=10;.Columns[4].ColumnWidth:=10;.Columns[5].ColumnWidth:=10;.Columns[6].ColumnWidth:=10;.Columns[7].ColumnWidth:=10;.Columns[8].ColumnWidth:=10;:=XLApp.Workbooks[1].WorkSheets[«Отчёт»].Rows;.Rows[2].Font.Bold:=true;.Rows[1].Font.Bold:=true;.Rows[1].Font.Color:=clBlue;.Rows[1].Font.Size:=14;:=XLApp.Workbooks[1].WorkSheets[«Отчёт»];
Sheet.Cells [1,2]:=«Успішність учня ГУ Основний школи с.Подгорное»;. Cells [2,1]:=«Предмет»;. Cells [2,2 ]:=«1 чверть»;. Cells [2,3]:=«2 чверть»;. Cells [2,4]:=«1 Півріччя»;. Cells [2,5]:=« 3 чверть »;. Cells [2,6]: =« 4 чверть »;. Cells [2,7]: =« 2 Півріччя »;. Cells [2,8]: =« Річна »;
index:=3;. Table2.First; i:=1 to Table2.RecordCount doj:=1 to DBGrid2.Columns.Count do.Cells [Index, j]:=DBGrid2.Fields [ j - 1]. AsString; (Index);. Next;;; TForm3.BitBtn2Click (Sender: TObject);.Filter:=«Fam=»+QuoTedStr(edit1.Text+«*»);.Filtered:=True;;TForm3.BitBtn3Click(Sender: TObject);. Text:=«»;; TForm3.BitBtn4Click (Sender: TObject);. Filtered:=False;;
end.
Висновок
В результаті проходження виробничої практики була обстежена предметна область, проаналізовані дані і створена програма, призначена для ведення бази даних в школі. Програма забезпечує додавання, зміна та видалення даних про вчителів, учнів та їх атестації за весь навчальний рік. Програма забезпечує можливість виведення на друк викладацького складу школи та успішності обраного учня
У програмі повинні міститися заявлені методи інтерфейсу, такі як: верхнє меню, діалогові вікна, вікна повідомлень, контекстне меню, швидкі клавіші, спливаючі підказки до кнопок, довідкова система, відомості «Про програму».
комп'ютерний мережу програма
Література
1. С.А. Абрамов, Г.Г. Гнєздилова, Е.Н. Капустіна, М.І. Селюн. Завдання з програмування - М.: Наука. ...
