Читайте также:
|
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
| Разраб. |
| Боков И. |
| Провер. |
| Балданов А. Б. |
| Реценз. |
| Н. Контр. |
| Утверд. |
| Список использованной литературы |
| Лит. |
| Листов |
| Кафедра СМ |
1. Обучение Delphi 6.0 - Москва: Медиа-Сервис, 2000
2. Пестриков В., Delphi на примерах - Санкт-Петербург, 2005
3. Баас Р., Фервей М.. Книга по Delphi 6.0 – Москва, 2001
4. Дарахвелидзе П.Г, Марков Е.П. Книга Delphi 2005 для Win32 + CD.
5. Хансен Д., База данных: Разработка и управление – Москва, 1999
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
| Разраб. |
| Боков И. |
| Провер. |
| Балданов А. Б. |
| Реценз. |
| Н. Контр. |
| Утверд. |
| Приложение |
| Лит. |
| Листов |
| Кафедра СМ |
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
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;
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
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;
| Изм. |
| Лист |
| № докум. |
| Подпись |
| Дата |
| Лист |
| Д.340.14.1.011.ПЗ |
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;
Дата добавления: 2015-08-17; просмотров: 44 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| ЗАКЛЮЧЕНИЕ | | | Приложение 2. Экранные формы |