Категория
Информатика
Тип
курсовая работа
Страницы
33 стр.
Дата
14.12.2009
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
107862.zip — 67.06 kb
  • avtomatizacija-raboty-firmy-po-prodazhe-kvartir_107862_1.rtf — 598.94 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо



Текст работы

declarations
end;
var
Form7: TForm7;
implementation
uses Unit1, Unit4;
$R *.DFM
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
de;
ow;
end;
procedure TForm7.Button1Click(Sender: TObject);
begin
ushbuffers;
ushbuffers;
end;
procedure TForm7.Edit1Change(Sender: TObject);
begin
if Edit1.'' then
begin
case RadioGroup1.ItemIndex of
0: begin
form1.Table3.Locate('vlad',Edit1.,[]);
end;
1: begin
cate('rschet',xt,[]);
end;
end;
end;
end ;
end .
Приложение Б



Ваше мнение



CAPTCHA