Список использованных источников
Обучение Delphi 6.0 - Москва: Медиа-Сервис, 2000
Пестриков В., Delphi на примерах - Санкт-Петербург, 2005
Баас Р., Фервей М.. Книга по Delphi 6.0 – Москва, 2001
Дарахвелидзе П.Г, Марков Е.П. Книга Delphi 2005 для Win32 + CD.
Хансен Д., База данных: Разработка и управление – Москва, 1999
Приложение
Приложение
1. Листинг
основной
программы
Unit1
procedure TForm1.Button1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: table4.Locate('FAM_CHIT',(Edit1.Text),[locaseInsensitive,loPartialkey]);
1: table4.Locate('DATA_ROJD',(Edit1.Text),[locaseInsensitive,loPartialkey]);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var i: integer;
begin
i:=table4.RecordCount;
label1.Caption:=inttostr(i) ;
end;
procedure TForm1.Button7Click(Sender: TObject);
var na4,obrn,obrs,obrv,obry: real;
i, r: integer;
begin
table4.First;
obrn:=0;
obrs:=0;
obrv:=0;
obry:=0;
r:=table4.RecordCount;
for i:=1 to r do
begin
if table4.FieldByName('obrazovan').Value='начальное' then obrn:=obrn+1;
if table4.FieldByName('obrazovan').Value='среднее' then obrs:=obrs+1;
if table4.FieldByName('obrazovan').Value='высшее' then obrv:=obrv+1;
if table4.FieldByName('ychen_step').Value='äà' then obry:=obry+1;
table4.Next;
end;
obrn:=obrn/r*100;
label10.Caption:=floattostr(obrn);
obrs:=obrs/r*100;
label13.Caption:=floattostr(obrs);
obrv:=obrv/r*100;
label15.Caption:=floattostr(obrv);
obry:=obry/r*100;
label17.Caption:=floattostr(obry);
end;
procedure
TForm1.N3Click(Sender: TObject);
begin
close
end;
procedure TForm1.Button9Click(Sender: TObject);
var data,r,i: integer;
rez,rezch,rezm: real;
begin
table4.First;
data:=0;
r:=table4.RecordCount;
for i:=1 to r do
begin
rez:=form1.DateTimePicker1.Date-table4.FieldByName('data_rojd').AsDateTime;
if rez<7300 then data:=data+1;
TABLE4.Next;
end;
label18.Caption:=inttoStr(data);
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form14.Show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form15.Show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form16.Show;
end;
Unit14
procedure TForm14.Button3Click(Sender: TObject);
begin
case RadioGroup3.ItemIndex of
0: table1.Locate('SHIFR',(Edit3.Text),[locaseInsensitive,loPartialkey]);
1: table1.Locate('NAZV_KNIGI',(Edit3.Text),[locaseInsensitive,loPartialkey]);
end;
end;
Unit15
procedure TForm15.Button2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0: table2.Locate('NAZV_KNIGI',(Edit2.Text),[locaseInsensitive,loPartialkey]);
end;
end;
procedure TForm15.Button4Click(Sender: TObject);
begin
case RadioGroup4.ItemIndex of
0: Begin
Table2.IndexName:='N_4IT_B';
Table2.SetRange([Edit4.Text],[Edit5.Text]);
end;
1: Begin
Table2.IndexName:='OTMET_KOL';
Table2.SetRange([Edit4.Text],[Edit5.Text]);
end;
2: Begin
Table2.IndexName:='DATA_VZYAT';
Table2.SetRange([Edit4.Text],[Edit5.Text]);
end;
end;
end;
procedure TForm15.Button5Click(Sender: TObject);
begin
Table2.CancelRange;
end;
Приложение 2. Экранные формы
Форма 1. Главная форма
Форма 2. Форма книги
Форма 3. Форма должники
Рис.