Зертханалық жұмыс №1 «Қойма» деректер қорын басқару жүйесін құру



бет60/100
Дата06.02.2022
өлшемі1,89 Mb.
#53051
1   ...   56   57   58   59   60   61   62   63   ...   100
Байланысты:
БД-зертханалық жұмыс

Имя
компонента

Значения свойств

DataFild

Align

Hint

DBImage1

Flag

alTop

ФЛАГ

DBImage2

Map

alTop

КАРТА

DBImage3

FOTO

alClient

ФОТОГРАФИЯ




  1. Қалқып шығатын көмек беруші тез қалқып шығуы үшін бастапқы формадағы 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;

  1. DBImage компонентінің формасының өлшемін өзгерткенкезде әрқашан бірдей биіктікте болуы үшін, OnResize формасының төменде көрсетілген процедурасын жазыңыз:

  2. procedure TfmMain.FormResize(Sender: TObject);

begin
DBImage1.Height:=paLeft.Height div 3;


Достарыңызбен бөлісу:
1   ...   56   57   58   59   60   61   62   63   ...   100




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет