Кусты? жоба?а ?дістемелік н?с?ау

Курстық жобаға әдістемелік нұсқау
Форма дизайны 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 программасын қолдану керек.
Форманы көрсету және байланыстыру
Мысал
procedure TForm1.sSpeedButton1Click(Sender: TObject);
beginForm3.show; (форманы көрсету немесе showmodal)
end;
procedure TForm1.sSpeedButton2Click(Sender: TObject);
beginForm2.WebBrowser1.Navigate ('C:\112\1.html'); (браузерді көрсету)
Form2.show;
end;
Форманы байланыстыру File- use-unit -байланысатын форма таңдалынады
МҚ кесте құру
Access те кесте құру (тақырып бойынша бағандар енгізу, сақтау, барлық құжаттар бір бумада орналасу)
Екінші формада кесте орналасады.
Компонент Қасиет Мәні Form1 Caption Form2 Caption DBGrid1 DataSourceDataSourceDataSource1 DataSetADOQuery1 ADOConnection1 ConnectionString-Build - Microsoft Jet 4.0 OLE DB Provider – Далее – с:\ кестені көрсету ОК login parol- false ADOQuery1 Connection connection1 sqlselect * from кесте аты active true sButton1 Caption Косу (Click) Form3.Show;
adoquery1.insert;
sButton2 Caption Озгерту (Click) Form3.show;
sButton3 Caption Ошіру (Click) adoquery1.Delete;
Form3 Caption DBEdit1-,, DataSourceDataSourceDataFieldтаңдау 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;