1.4 Контрольный пример

2. Постановка задачи

2.1Построить графики функций sin(x) и cos(x) с помощью компонента chart

2.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Chart1	TChart			OnClick
BitBtn1	TBitBtn	Caption	нарисовать	OnClick
BitBtn2	TBitBtn	Caption	выход	OnClick

2.3 Листингпрограммы

var

Form1: TForm1;

f:file of extended;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var k:integer; // Нарисовать

x,y,z:extended;

begin

for k:=0 to 100 do

begin

x:=0.02*pi*k; y:=sin(x); z:=cos(x);

series1.AddXY(x,y,'',clRed);

series2.AddXY(x,z,'',clGreen);

end;

end;

end.

2.4 Контрольный пример

2.6 Создание таблиц БД

1 Постановка задачи

1.1 Создание простейшего приложения для работы с таблицами данных

1.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
DataSource1	TDataSource			DataSet
DBGrid1	TDBGrid			DataSource
DBNavigator1	TDBNavigator			DataSource
Table1	T Table
RadioGroup1	TRadioGroup			OnClick

1.3 Листингпрограммы

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

case radiogroup1.ItemIndex of

0: table1.IndexName:='i_kod';

1: table1.IndexName:='i_data';

2: table1.IndexName:='i_kolvo';

3: table1.IndexName:='i_cena';

4: table1.IndexName:='';

end;

end;

end.

1.4 Контрольный пример

2.7 Компоненты для создания приложений БД

1 Постановка задачи

1.1Создадим программу просмотра списка индексов таблицы, и их свойств.

1.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Table1	TTabel
DataSource1	TDataSource			DataSet
DBGrid1	TBGrid1			DataSource
DBNavigator1	TDBNavigator1
ListBox1	TListBox		Вывод	OnClick
ListBox2	TListBox		вывод	OnClick
Label1	T Label	Caption	Список индексов	OnClick
Label2	T Label	Caption	Список полей	OnClick
Button1	TButton	Caption	показать	OnClick

1.3Листингпрограммы

procedure TForm1.Button1Click(Sender: TObject);

var n:integer;

begin

table1.IndexDefs.Update;

for n:=0 to table1.IndexDefs.Count-1 do begin

listbox1.Items.Add(table1.IndexDefs[n].Name);

listbox2.Items.Add(table1.IndexDefs[n].Fields);

end;

end;

end.

1.4 Контрольный пример

2 Постановка задачи

2.1 Удалите из формы один из списков

2.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Table1	TTable		таблица
DBGrid1	TDBGrid
DataSource1	TDataSource			DataSet
Button1	TButton	Caption	добавить	OnClick
Button1	TButton	Caption	изменить	OnClick
Button1	TButton	Caption	удалить	OnClick
Button1	TButton	Caption	Запомнить	OnClick
Button1	TButton	Caption	отменить	OnClick

2.3 Листингпрограммы.

type book=record

avt:string[20];

naz:string[30];

end;

var

Form1: TForm1;

f:file of book;

w:book;

a:array[1..100]of book;

fname:string;

n,i,k:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

panel1.Hide; panel2.Hide;

panel3.Hide; panel4.Hide;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin// Создать

SaveDialog1.Title:='Создатьфайл';

if SaveDialog1.Execute then

begin

fname:=SaveDialog1.FileName;

AssignFile(f,fname);

Rewrite(f);

end;

Panel1.Show;

Button1.Hide; Button2.Hide; BitBtn1.Hide;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin // Ввести

w.avt:=edit1.text;

w.naz:=edit2.text;

write(f,w);

edit1.clear; edit2.clear;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin // Закончить

CloseFile(f);

panel1.Hide;

panel2.show;

BitBtn1.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin// Сортировать

reset(f); n:=0;

while not eof(f) do

begin

n:=n+1;

read(f,a[n]);

end;

closeFile(f);

for i:=1 to n-1 do

for k:=1 to n-i do

if a[k].avt> a[k+1].avt then

begin w:=a[k]; a[k]:=a[k+1]; a[k+1]:=w; end;

rewrite(f);

for i:=1 to n do write(f,a[i]);

closeFile(f);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin // Просмотреть

panel4.Show; memo1.clear; memo2.clear;

reset(f);

while not eof(f) do

begin

read(f,w);

memo1.lines.add(w.avt);

memo2.lines.add(w.naz);

end;

closeFile(f);

end;

procedure TForm1.Button11Click(Sender: TObject);

begin // Открыть

OpenDialog1.Title:='Открытьфайл';

if OpenDialog1.Execute then

begin

fname:=OpenDialog1.FileName;

AssignFile(f,fname);

Reset(f);

end;

Panel2.Show;

Button1.Hide; Button2.Hide; BitBtn1.Hide;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin // Выходиз panel2

Button1.show; Button2.show; BitBtn1.show;

panel2.Hide;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin// Выбрать

panel2.Hide; panel3.Show; bitbtn1.Hide;

memo1.clear; memo2.clear;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin // Вывести

memo1.clear; memo2.clear;

reset(f);

while not eof(f) do

begin

read(f,w);

if w.avt=edit3.text then

begin

memo1.lines.add(w.avt);

memo2.lines.add(w.naz);

end;

end;

closeFile(f);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin // Выходиз panel3

panel3.Hide; panel4.Hide;

Button1.show; Button2.show; BitBtn1.show;

end;

end.

2.4 Контрольный пример

2.8 Создание вычисляемых полей и полей выбора

1 Постановка задачи

1.1Создайте таблицу клиентов, расплачивающихся с магазином

1.2 Компоненты пограммы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Table1	TTable		таблица
DBGrid1	TDBGrid
DataSource1	TDataSource			DataSet
DBNavigator1	ТDBNavigator

1.3 Листинг программы

procedure TForm1.Table1CalcFields(DataSet: TDataSet);

begin

table1.FieldByName('sum3').asfloat:=table1.FieldByName('sum1').asfloat;

table1.FieldByName('sum2').asfloat;

end;

end.

1.4 Контрольный пример

2 Постановка задачи

2.1Создадим таблицу «Сотрудники»

2.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Table1	TTable		таблица
DBGrid1	TDBGrid
DataSource1	TDataSource			DataSet
DBNavigator1	ТDBNavigator
Button1	TButton	Caption	добавить	OnClick
Button1	TButton	Caption	изменить	OnClick
Button1	TButton	Caption	удалить	OnClick
Button1	TButton	Caption	Запомнить	OnClick
Button1	TButton	Caption	отменить	OnClick

2.3Листингпрограммы

procedure TForm1.Table1CalcFields(DataSet: TDataSet);

begin

if table1 inyaz.Value then

table1vychisl.AsString:='Да'

else

table1vychisl.AsString:='';

end;

end.

2.4Контрольный пример