d.
INI-
файлының ішінде қате бар, мысалы,
Database секциясы жоқ,
немесе
PathBase кілті, немесе МҚ – на жол дұрыс көрсетілмеген.
Қандай да жағдайда бағдарлама жоғарыда жазылған алгоритмге сай
жұмыс істеуі қажет.
Тәжірибелік жұмыс
Тәжірибелік жұмыс
№
№
5
5
.
.
«
«
MyWorld
MyWorld
»
»
МҚ құру.
МҚ құру.
Работа с графическими изображениями и буфером обмена
Работа с графическими изображениями и буфером обмена
BDMyWorld.mdb жобасы бар папканы қайтарыңыз.Мәліметтер
қорында маңызды ролді
Memo- өрісі атқарады. Бұл өріс құрамында
өлшемі анықталмаған көпжолды мәтін болады.
1 –қадам Жаңа өріс құру және бастапқы форманы баптау.
1 –қадам Жаңа өріс құру және бастапқы форманы баптау.
1. Ms-Access-те
BDMyWorld.mdb файлын ашыңыз және содан кейін
конструктор режимінде «
Страны» кестесін ашыңыз. Осы кестеде жаңа өріс
құрып, суретте көрсетілгендей етіп толтырыңыз:
2. Ms-Access-ті жауып, Delphi-ге оралыңыз. Щелкните дважды мышью
по компоненту
ADOQuery1 компононтін екі рет шертіп, содан кейін пайда
болған өрісті редактрлеу терезесінде тышқанның оң жағын шертіңіз.
Қалқып шығатын менюден «
Add Fields» пунктін таңдаңыз. Жаңа өрістер
тізімде болуы керек.Редактор өрісін жабыңыз.
3.
DataControls
бетінен
біздің бастапқы формамыздың
проектісіндегі DBImage-дің 3 компонентіне paLeft панелін ретпен
жоғарыдан төмен орналастырыңыз.
4. Инспекторе объектте барлық жаңа компоненттердің
DataSource
қасиетіне DataSource1 мағынасын орнатыңыз. ShowHint және
Stretch
қасиеттеріне True мағынасын орнатыңыз. Сонымен қатар төмендегі
кестеде көрсетілген қасиеттерді де кестедегідей етіп орнатыңыз:
Имя
Имя
компонен
компонен
та
та
Значения свойств
Значения свойств
DataFild
DataFild
Align
Align
Hint
Hint
DBImage1
Flag
alTop
ФЛАГ
DBImage2
Map
alTop
КАРТА
DBImage3
FOTO
alClient
ФОТОГРА
ФИЯ
5. Қалқып шығатын көмек беруші тез қалқып шығуы үшін бастапқы
формадағы
OnCreate өңдеушісінің соңына төменде қалың қаріппен
белгіленген процедураны жазыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
var sbase:string;
begin
sbase:=FindFileBD('BDMyWorld.mdb','MyWorld.INI',ConStr,dlgBD);
if sbase<>'' then begin
ADOQuery1.Active :=False;
ADOQuery1.ConnectionString :=ConStr;
ADOQuery1.Active :=True;
NameSortField:=DBGrid1.Columns[0].FieldName;Desc:=False;
NewQuerySQL;
end else Application.Terminate;
Application.HintPause :=0;
end;
6. DBImage компонентінің формасының өлшемін өзгерткенкезде
әрқашан бірдей биіктікте болуы үшін, OnResize формасының төменде
көрсетілген процедурасын жазыңыз:
7. procedure TfmMain.FormResize(Sender: TObject);
begin
DBImage1.Height:=paLeft.Height div 3;
DBImage2.Height:=paLeft.Height div 3;
end;
8. Жаңа өріске суретті графикалық файлдарды ашу жолы арқылы
орналастырамыз, сонымен қатар алмасу буферінің көмегі арқылы . Әрбір
компонент үшін кнопка құру ыңғайсыз болғандықтан, керек командаларды
орындайтын қалқымалы меню құрамыз.
9. Win32 бетінен
ImageList компонентін формаға орналастырамыз
және Name қасиетіне
imClip мағынасын таңдаймыз, ал Width және
Height қасиеттеріне 16 деген мән беріңіз. Содан кейін осы объектке екі
рет шертіп, пайда болған Add кнопкасын басу арқылы
../STUDENT/Заготовки/Buttons папкасынан табуға болатын керек
суреттерді қосыңыз :
Төменде көрсетілгендей етіп
12 суретті ретімен орналастырыңыз:
Имя файла с картинкой
№ (индекс) в