Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Кустық жобаға әдістемелік нұсқау

Кустық жобаға әдістемелік нұсқау

  • Информатика

Поделитесь материалом с коллегами:

Курстық жобаға әдістемелік нұсқау

  1. Форма дизайны AlphaStandart және AlphaTools стандартты емес парақшаларында орналасқан компонеттермен орындауға болады. SkinManager компоненті арқылы формаға әр түрлі дизайн таңдауға болады Бұл компонетті орнату үшін

Alp папкасын Cдискісіне көшіру.

Delphi программасын ашу, file- open c:\alp –D7 – acntD7_R.dpk открыть

Install - Compile OK

AlphaTools парақшасындағы SkinManager компонентін орналастырып, қасиет енгізу (немесе SkinManager компонентін екі рет шерту )

SkinDirectory c:\alp\skin

SkinName -қажетті фон таңдау

Delphi программасында бірінші форма титулдық бет болып табылады. Бетке сурет орналастыру Image компонетімен қойылады. Ол үшін тақырыпқа сай сурет таңдалынады және қосымша PhotoShop программасын қолдану керек.


  1. Форманы көрсету және байланыстыру

Мысал

procedure TForm1.sSpeedButton1Click(Sender: TObject);

begin

Form3.show; (форманы көрсету немесе showmodal)

end;


procedure TForm1.sSpeedButton2Click(Sender: TObject);

begin

Form2.WebBrowser1.Navigate ('C:\112\1.html'); (браузерді көрсету)

Form2.show;

end;

Форманы байланыстыру File- use-unit -байланысатын форма таңдалынады


  1. МҚ кесте құру

Access те кесте құру (тақырып бойынша бағандар енгізу, сақтау, барлық құжаттар бір бумада орналасу)

Екінші формада кесте орналасады.

Компонент

Қасиет

Мәні


Form1

Caption



Form2

Caption



DBGrid1

DataSource

DataSource


DataSource1

DataSet

ADOQuery1


ADOConnection1

ConnectionString-Build - Microsoft Jet 4.0 OLE DB Provider – Далеес:\ кестені көрсету ОК



login parol-

false


ADOQuery1

Connection

connection1



sql

select * from кесте аты



active

true


sButton1

Caption

Косу

(Click) Form3.Show;

adoquery1.insert;

sButton2

Caption

Озгерту

(Click) Form3.show;

sButton3

Caption

Ошіру

(Click) adoquery1.Delete;

Form3

Caption



DBEdit1-,,

DataSource

DataSource



DataField

таңдау


DBLabel1-,,




BitBtn1

Caption

OK

(Click) Form2.adoquery1.post; close;

BitBtn2

Caption

Болдырмау



Іздеуді ұйымдастыру

procedure TForm1.sEdit1Change(Sender: TObject);

begin

datamodule2.mylocate(sedit1.text);

end;

procedure TForm1.sButton1Click(Sender: TObject);

var mylookup:variant;

s:string;

begin

mylookup:=datamodule2.ADOTable1.Lookup('фамилия',sedit1.text,'Фмилия;имя;отчество;оброзование');

if vartype(mylookup)=varnull then

showmessage('сотрудник не найден') else if vartype (mylookup)=varempty then

showmessage('не найден')

else if varisarray (mylookup) then

begin

s:=mylookup[0]+#13+mylookup[1]+mylookup[2]+#13+mylookup[3];

showmessage(s);

end;



Фильтр

public

{ Public declarations }

ed:string;

end;

procedure TDataModule2.ADOTable1FilterRecord(DataSet: TDataSet;

var Accept: Boolean);

var s:string;

begin

s:=copy(dataset['ôàìèëèÿ'],1,length(ed));

accept:=s=ed;


end;

procedure TForm1.sEdit1Change(Sender: TObject);

begin

if sedit1.text<>''then

begin

datamodule2.adotable1.filtered:=false;

datamodule2.ed:=sedit1.text;

datamodule2.adotable1.filtered:=true;

end

else datamodule2.adotable1.filtered:=false;

end;


Қосымша

Жүгіртпе жол

Label1 TTimer (interval 100) компоненттері

OnTimer

Var txt:string;

Begin

Txt:=Label1.Caption;

Label1.caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1);


Форма анимациясы

Animatewindow(form2.handle,2000,aw_ver_nagative); (,aw_ver_positive,center)

Form2.show;



Автор
Дата добавления 22.10.2015
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров127
Номер материала ДВ-086970
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх