ify"> «а» .. «я», # 8, «А» .. «Я», # 32:; key:=Chr (0);;; RadioButton4.Checked then Edit1.MaxLength:=30; RadioButton3.Checked then.MaxLength:=4; Key of
# 8, «0» .. «9» :; Key:=Chr (0);;;; TForm1.RadioButton2Click (Sender: TObject);. Enabled:=True;; TForm1.RadioButton4Click (Sender: TObject);. Enabled:=True;; TForm1.RadioButton3Click (Sender : TObject);. Enabled:=True;; TForm1.Button1Click (Sender: TObject);,b:string;:=«01.01.»+Edit1.Text;:=«31.12.»+Edit1.text;.Active:=True;
/ / Вибірка всіх запісейradiobutton1.Checked thenform1.Query1 do begin;. Clear;. Add («SELECT Name, Birth, Adres, Phone, ID»);. Add («FROM« Pacients.db »»);. Add («ORDER BY name»);;;. Clear;;
/ / Вибірка по іменіradiobutton2.Checked thenform1.Query1 do begin;. Clear;. Add («SELECT Name, Birth, Adres, Phone, ID»);. Add («FROM« Pacients.db »»);. Add («WHERE»);. Add («(Name like"%" + Edit1.Text +"%" )»);. Add (« ORDER BY Name »);;;. Clear;;
/ / Вибірка по адресуRadioButton4.Checked thenform1.Query1 do begin;. Clear;. Add («SELECT Name, Birth, Adres, Phone, ID»);. Add («FROM« Pacients.db »»);. Add («WHERE»);. Add («(Adres like"%" + Edit1.Text +"%" )»);. Add (« ORDER BY Name »);;;. Clear;;
/ / Вибока за датою рожденіяRadioButton3.Checked then
{form1.Query1 do begin;. Clear;. Add («SELECT Name, Birth, Adres, Phone, ID»);. Add («FROM« Pacients.db »» );. Add («WHERE»);. Add («(Birth =« »+ Edit1.Text +"" )");. Add («ORDER BY Name»);;;
} form1.Query1 do begin,. Clear,. Add («SELECT Name, Birth, Adres, Phone, ID");. Add («FROM« Pacients.db »» );. Add («WHERE»);. Add («(Birth BETWEEN« »+ a +« »AND« »+ b +« »)»);. Add ( «ORDER BY Name»);;;.Clear;;.Columns[0].Title.Caption:=«Ф.И.О.»;.Columns[1].Title.Caption:=«Дата рождения»;.Columns[2].Title.Caption:=«Адрес»;.Columns[3].Title.Caption:=«Телефон»;.Columns[4].Title.Caption:=«ID»;;TForm1.FormCreate(Sender: TObject);.Enabled:=False;.Visible:=False;.Checked:=true;.Columns[0].Title.Caption:=«ID»;.Columns[1].Title.Caption:=«Номер обследованмя»;.Columns[2].Title.Caption:=«ЧД»;.Columns[3].Title.Caption:=«ОО»;.Columns[4].Title.Caption:=«ОЕЛ»;.Columns[5].Title.Caption:=«ЖЕЛ»;.Columns[6].Title.Caption:=«МВС»;.Columns[7].Title.Caption:=«МВЛ»;.Columns[8].Title.Caption:=«ОВЛ»;.Columns[9].Title.Caption:=«Диагноз»;.Columns[10].Title.Caption:=«Дата»;.Columns[0].Title.Caption:=«Ф.И.О.»;.Columns[1].Title.Caption:=«Пароль»;.Columns[2].Title.Caption:=«Телефон»;.Columns[3].Title.Caption:=«ID»;.Columns[4].Title.Caption:=«Приоритет»;.Columns[0].Title.Caption:=«Ф.И.О.»;. Columns [1]. Title.Caption:=«Дата рождения»;.Columns[2].Title.Caption:=«Адрес»;.Columns[3].Title.Caption:=«Телефон»;.Columns[4].Title.Caption:=«ID»;;
/ / відображення результатів обстеження активного осередку
