Инфоурок / Информатика / Другие методич. материалы / Кустық жобаға әдістемелік нұсқау
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Я люблю природу», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 15 ДЕКАБРЯ!

Конкурс "Я люблю природу"

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




Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


библиотека
материалов

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

  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;



Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 13 декабря. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДВ-086970
Курсы профессиональной переподготовки
133 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 13 декабря
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>