1 –шi зертханалық жұмыс Тақырыбы: «Қойма» деректер қорын басқару жүйесін құру Зертханалық жұмыстың мақсаты
жүктеу/скачать 2 Mb.
|
Қадам 3 – INI-файлын қолдануЕнді бағдарлама жұмысының алгоритімінің басын келесі түрдей ауыстырамыз:
Жаңа алгоритмді тексеру және нақтылау үшін төмендегі мысалдарды орындаймыз:
function FindFileBD(nmFileBD,nmIniFil:string;var scon:string; var dlg:TOpenDialog): string; var sb,sIni:string;IniFil:TIniFile; begin sb:='';sIni:=ExtractFilePath(ParamStr(0))+ nmIniFil; if FileExists(sIni) then begin IniFil := TIniFile.Create(sIni); try sb:=IniFil.ReadString('Database', 'PathBase', ''); if sb='' then ShowMessage('Ошибка INI-файла !'+#13#10+sIni); finally IniFil.Free; end; end; if sb='' then sb:= ExtractFilePath(ParamStr(0))+ nmFileBD; if Not(FileExists(sb)) then begin //Настройка диалога: dlg.Filter:='Файл ' +nmFileBD+'|'+nmFileBD; dlg.Title :='Найдите файл базы данных !'; dlg.InitialDir:=ExtractFilePath(ParamStr(0)); if dlg.Execute then begin sb:=dlg.FileName;ChangeBasePath(scon,sb);
ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До свидания !'); sb:=''; end;
end; Result:=sb; if sb<>'' then ChangeBasePath(ConStr,sb); end;
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; end;
Қандай да жағдайда бағдарлама жоғарыда жазылған алгоритмге сай жұмыс істеуі қажет. «MyWorld» МҚ құру. BDMyWorld.mdb жобасы бар папканы қайтарыңыз.Мәліметтер қорында маңызды ролді Memo- өрісі атқарады. Бұл өріс құрамында өлшемі анықталмаған көпжолды мәтін болады. 1 –қадам Жаңа өріс құру және бастапқы форманы баптау.
14-сурет – Деректер типі
Кесте 6
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;
end;
begin DBImage1.Height:=paLeft.Height div 3; DBImage2.Height:=paLeft.Height div 3; end;
15-сурет – Диалогтық терезе Төменде көрсетілгендей етіп 12 суретті ретімен орналастырыңыз:
Формаға PopupMenu компонентін орналастырыңыз және оның Name қасиетіне MenuClip мағынасын беріңіз. Кейін оған екі рет шертіп, дизайнер менюінде төменде көрсетілген пункттерді формалап оған төмендегі кестеде көрсетілген қасиеттерді беріңіз: Кесте 7
DBImage1, DBImage2 және DBImage3 компоненттерінің PopupMenu қасиетіне MenuClip мағынасын беріңіз. 
16-сурет – Тазарту командасы 2-қадам . Қалқып шығатын менюінің тосқауыл және рұқсат командалары. Мүмкін болатын рұқсат етілген командалары:
Меню пайда болатынның алдындағы OnPopup жағдайын қолданамыз. Онда МҚ-ның қай өрісінде тексерілетін берілгендер бар екенін міндетті түрде анықтау керек:
procedure TfmMain.MenuClipPopup(Sender: TObject); var j:integer; dbIM:TDBImage; //Ссылка на компонент, из которого вызвано меню nmField:string; //Имя поля БД, с которым связан компонент tmf:TMemoField; //Ссылка на поле БД, с которым связан компонент begin
nmField:=''; dbIM:=nil; // Запрет – разрешение пунктов меню: With MenuClip do begin Items[1].Enabled := Clipboard.HasFormat(CF_PICTURE); //Вставка if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin nmField:=dbIM.DataField; tmf:=dbIM.DataSource.DataSet.FieldByName(nmField) as TMemoField; if tmf<>nil then begin if tmf.BlobSize>0 then Items[2].Enabled :=True else Items[2].Enabled :=False; //Копирование Items[3].Enabled :=Items[2].Enabled; //Вырезка Items[4].Enabled :=Items[2].Enabled; //Сохранение Items[5].Enabled :=Items[2].Enabled; //Очистка end; end; //Присвоить номера картинок для пунктов меню: for j:=0 to Items.Count -1 do if Items[j].Enabled then Items[j].ImageIndex:=2*j else Items[j].ImageIndex:=2*j+1; end; end;
3-қадам. Қалқып шығатын меню командаларын программалау.
var dbIM:TDBImage; begin
if Not(dlgOpenImage.Execute) then Exit; dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit; dbIM.Picture.LoadFromFile(dlgOpenImage.FileName); dbIM.DataSource.DataSet.Post; end; end;
procedure TfmMain.mcPasteClick(Sender: TObject); var dbIM:TDBImage; begin
dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin try dbIm.PasteFromClipboard; dbIM.DataSource.DataSet.Post; except ShowMessage('Буфер не содержит необходимый рисунок.'); end; end; end;
var dbIM:TDBImage; begin
if Not(Clipboard.HasFormat(CF_PICTURE)) then Exit; dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin try dbIm.PasteFromClipboard; dbIM.DataSource.DataSet.Post; except ShowMessage('Ошибка сохранения рисунка.'); end; end; end;
var dbIM:TDBImage; begin
dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then dbIM.CopyToClipboard; end;
var dbIM:TDBImage;nmField:string; begin
dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin dbIM.CutToClipboard;nmField:=dbIM.DataField; if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit; dbIM.DataSource.DataSet.FieldByName(nmField).Clear; dbIM.DataSource.DataSet.Post; end; end;
var dbIM:TDBImage; begin
if Not(dlgSaveImage.Execute) then Exit; dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); try if dbIm<>nil then dbIM.Picture.SaveToFile(dlgSaveImage.FileName); except ShowMessage('Ошибка записи в файл:'+#13#10+dlgSaveImage.FileName); end; end;
var dbIM:TDBImage;nmField:string; begin
dbIm:=nil; With MenuClip do if PopupComponent is TDBImage then dbIM:=(PopupComponent as TDBImage); if dbIm<>nil then begin nmField:=dbIM.DataField; if dbIM.DataSource.State <> dsEdit then dbIM.DataSource.Edit; dbIM.DataSource.DataSet.FieldByName(nmField).Clear; dbIM.DataSource.DataSet.Post; end; end;
4-қадам. –Drag&Drop технологиясы бойынша графикалық файлдарды тасымалдау. Егер қолданушы проводниктен немесе біздің жобаға басқа программадан графикалық файлдарды тышқын арқылы тасымалдауға мүмкіндік болса жақсы болар еді. Бұл тәсіл Windows технологиясы бойынша «Drag and Drop» деп аталады. Біз алгоритмді орындаймыз:
қалың шрифтпен ерекшеленген мәтінді орналастырыңыз: ………………………………………. private { Private declarations } drFile: array[0..256] of char; XYPoint:TPoint; nmComp:string; protected procedure WMDropFiles (var Msg: TMessage);message wm_DropFiles; public
{ Public declarations } end;
…………………………………………
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; DragAcceptFiles(Handle,True); end;
procedure TfmMain.WMDropFiles(var Msg: TMessage); begin
end;
procedure TfmMain.WMDropFiles(var Msg: TMessage); жүктеу/скачать 2 Mb. Достарыңызбен бөлісу:
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||