neoturk - canvas ile basit çizim
"
iyi g ü nler neoturk benim size bir sorum olacak ?
Delphi ile ilgili bir soruyu s ı n ı fta kimse yapamad ı
hocada internette ara ş t ı r ı n bulun dedi .
4 buton var , 2 edit ve 1 image .... editlere ( x ve y )
kordinatlar ı girilcek ... 1.butona t ı klad ığı m ı zda kare ...
2. butona t ı klad ığı m ı zda dikd ö rtgen ....
3 . butona t ı klad ığı m ı zda üç gen ....
4. butona t ı klad ığı m ı zda be ş gen ç izcek belirtilen kordinatlara ...
rectangle komutlar ı ile yap ı lacak galiba siz daha iyi bilirsiniz
yard ı m edersiniz sevinirim
"
--------------------------------
canvas nesnesi ile ç izim yapt ı rabiliriz :
forma ya da herhangi bir nesnenin ü zerine .
ö rne ğ in ;
canvas . rectangle ( 10 , 20 , 100 , 50 ) dersen bu dikd ö rtgen form ü zerine
belirtilen koordinatlara ç izilir .
image1 . canvas . rectangle ( x1 , y1 , x2 , y2 ) dersen bu dikd ö rgen de image nesnesi
ü zerine ç izilir .
kare veya dikd ö rtgen yapmak i ç in rectangle kullanabilirsin ,
kullan ı m ö rne ğ i :
rectangle ( x1 , y1 , x2 , y2 )
sol k öş e koordinat ı = x1 , y1 dir
sa ğ k öş e koordinat ı = x2 , y2 dir .
belirtti ğ in bu k öş e koordinatlar ı n ı dikd ö rtgen veya kare olu ş turacak ş ekilde
ç izim yapar .
ö rne ğ in : canvas . rectangle ( 10 , 20 , 100 , 50 ) gibi ....
normal bir ç izgi ç izmek istersen :
canvas . moveto ( 50 , 100 ); canvas . lineto ( 100 , 50 ); gibi bir kullan ı m yapabilirsin .
moveto : x1 , y1 ba ş lang ıç koordinatlar ı
lineto : x2 , y2 biti ş koordinatlar ı
bu mant ığ a g ö re belirtece ğ in say ı lara g ö re üç gen vs ç izdirebilirsin .
ö rnek bir üç gen koordinat ı mesela :
Canvas . MoveTo ( 50 , 100 ); Canvas . LineTo ( 100 , 50 );
Canvas . MoveTo ( 100 , 50 ); Canvas . LineTo ( 150 , 100 );
Canvas . MoveTo ( 50 , 100 ); Canvas . LineTo ( 150 , 100 );
gibi ....
art ı k 5 geni de sen yapabilirsin bundan sonra ......
( ka ğı t ü zerinde koordinatla koordinatlar ı belirle sonra
kodlamas ı n ı yapars ı n zaten )
ek ilave olarak :
canvas . fillrect ( clientrect ); >> ç izdi ğ in ç izgilerin t ü m ü n ü temizler ekrandan
canvas . pen . color := clred ; >> ç izgi rengim k ı rm ı z ı olsun
canvas . pen . style := psdashdot ; >> ç izgi stilim noktal ı ç izgili olsun
canvas . pen . style := psdot ; >> ç izgi stilim noktanokta olsun
gibi s ü slemeler yapabilirsin .
umar ı m yard ı mc ı olabilmi ş imdir mustafa .. kolay gelsin ..
sayg ı lar ı mla_
neoturk
Delphi - .....................................
neoturk - canvas ile basit çizim
"
iyi g ü nler neoturk benim size bir sorum olacak ?
Delphi ile ilgili bir soruyu s ı n ı fta kimse yapamad ı
hocada internette ara ş t ı r ı n bulun dedi .
4 buton var , 2 edit ve 1 image .... editlere ( x ve y )
kordinatlar ı girilcek ... 1.butona t ı klad ığı m ı zda kare ...
2. butona t ı klad ığı m ı zda dikd ö rtgen ....
3 . butona t ı klad ığı m ı zda üç gen ....
4. butona t ı klad ığı m ı zda be ş gen ç izcek belirtilen kordinatlara ...
rectangle komutlar ı ile yap ı lacak galiba siz daha iyi bilirsiniz
yard ı m edersiniz sevinirim
"
--------------------------------
canvas nesnesi ile ç izim yapt ı rabiliriz :
forma ya da herhangi bir nesnenin ü zerine .
ö rne ğ in ;
canvas . rectangle ( 10 , 20 , 100 , 50 ) dersen bu dikd ö rtgen form ü zerine
belirtilen koordinatlara ç izilir .
image1 . canvas . rectangle ( x1 , y1 , x2 , y2 ) dersen bu dikd ö rgen de image nesnesi
ü zerine ç izilir .
kare veya dikd ö rtgen yapmak i ç in rectangle kullanabilirsin ,
kullan ı m ö rne ğ i :
rectangle ( x1 , y1 , x2 , y2 )
sol k öş e koordinat ı = x1 , y1 dir
sa ğ k öş e koordinat ı = x2 , y2 dir .
belirtti ğ in bu k öş e koordinatlar ı n ı dikd ö rtgen veya kare olu ş turacak ş ekilde
ç izim yapar .
ö rne ğ in : canvas . rectangle ( 10 , 20 , 100 , 50 ) gibi ....
normal bir ç izgi ç izmek istersen :
canvas . moveto ( 50 , 100 ); canvas . lineto ( 100 , 50 ); gibi bir kullan ı m yapabilirsin .
moveto : x1 , y1 ba ş lang ıç koordinatlar ı
lineto : x2 , y2 biti ş koordinatlar ı
bu mant ığ a g ö re belirtece ğ in say ı lara g ö re üç gen vs ç izdirebilirsin .
ö rnek bir üç gen koordinat ı mesela :
Canvas . MoveTo ( 50 , 100 ); Canvas . LineTo ( 100 , 50 );
Canvas . MoveTo ( 100 , 50 ); Canvas . LineTo ( 150 , 100 );
Canvas . MoveTo ( 50 , 100 ); Canvas . LineTo ( 150 , 100 );
gibi ....
art ı k 5 geni de sen yapabilirsin bundan sonra ......
( ka ğı t ü zerinde koordinatla koordinatlar ı belirle sonra
kodlamas ı n ı yapars ı n zaten )
ek ilave olarak :
canvas . fillrect ( clientrect ); >> ç izdi ğ in ç izgilerin t ü m ü n ü temizler ekrandan
canvas . pen . color := clred ; >> ç izgi rengim k ı rm ı z ı olsun
canvas . pen . style := psdashdot ; >> ç izgi stilim noktal ı ç izgili olsun
canvas . pen . style := psdot ; >> ç izgi stilim noktanokta olsun
gibi s ü slemeler yapabilirsin .
umar ı m yard ı mc ı olabilmi ş imdir mustafa .. kolay gelsin ..
sayg ı lar ı mla_
neoturk
Delphi - .....................................
neoturk - re: "Bir formun yaratılıp yaratılmadığını öğrenmek"
sorulmuş ki : " merhaba arkada ş lar bunu nas ı l yapar ı z ??"
..............
const
msg1 = " B İ KERE SORU SORU Ş TARZIN FA - UL AND out - side ";
msg2 = " NEY İ SORUYORSUN ? ADAM G İ B İ A Ç IKLAMAN NEREDE SEN İ N ?"
msgX = " FORMU YARATILIP YARATILMADI Ğ INI ÖĞ RENMEK "
msgY = " sorusunu ben ba ş l ı ktan m ı okumal ı y ı m ?"
msgZ = " yani biz sala ğı z , sen de uyan ı kl ı kla sordun Ö YLE Mİ ?"
msg3 = " BAH Ç ELERDE MAYDANOZ ..."
msg4 = " GEL B İ ZE BAZI BAZI ........"
msg5 = " BU T İ P SORULARI SORACAKSAN BURAYA DE Ğİ L FORUMA SOR "
msg6 = " YA DA BANA SOR , mail adresim : xxnt03 @ lycos . co . uk "
msg7 = " M İ LLET İ N S İ N İ RLER İ N İ GER - ME !"
...............
var a : longint ;
a := 100.000 ;
bu t ü r sa ç ma ve gereksiz sorular ı " a " kere sormay ı n demediler mi arkada şı m ?
codebank ı y ö neten herhangi bir admin arkada şı m varsa rica ediyorum ,
ş u codebank ı n kod onay i ş lemlerini l ü tfen bana b ı rak ı n , gereksiz ve i ş e yaramayan
kodlar ı ignore edeyim . onayla kodla i ş lenilsin buraya .
gevurlar ı n sayg ı s ı bile bizden daha ç er ç eveli . kurallara uyuyorlar en az ı ndan !
malum buras ı T Ü RK İ YE ! ................
c ı vk ı n ı çı kar ı n aferim .........
kod filan yazm ı yorum karde ş im , adam olmayacak buras ı anla şı ld ı.
sayg ı gerektirmeyen bir ortam . sayg ı lar ı mla demiyorum ...
bye
neoturk_
Delphi - .....................................
neoturk - re: "Bir formun yaratılıp yaratılmadığını öğrenmek"
sorulmuş ki : " merhaba arkada ş lar bunu nas ı l yapar ı z ??"
..............
const
msg1 = " B İ KERE SORU SORU Ş TARZIN FA - UL AND out - side ";
msg2 = " NEY İ SORUYORSUN ? ADAM G İ B İ A Ç IKLAMAN NEREDE SEN İ N ?"
msgX = " FORMU YARATILIP YARATILMADI Ğ INI ÖĞ RENMEK "
msgY = " sorusunu ben ba ş l ı ktan m ı okumal ı y ı m ?"
msgZ = " yani biz sala ğı z , sen de uyan ı kl ı kla sordun Ö YLE Mİ ?"
msg3 = " BAH Ç ELERDE MAYDANOZ ..."
msg4 = " GEL B İ ZE BAZI BAZI ........"
msg5 = " BU T İ P SORULARI SORACAKSAN BURAYA DE Ğİ L FORUMA SOR "
msg6 = " YA DA BANA SOR , mail adresim : xxnt03 @ lycos . co . uk "
msg7 = " M İ LLET İ N S İ N İ RLER İ N İ GER - ME !"
...............
var a : longint ;
a := 100.000 ;
bu t ü r sa ç ma ve gereksiz sorular ı " a " kere sormay ı n demediler mi arkada şı m ?
codebank ı y ö neten herhangi bir admin arkada şı m varsa rica ediyorum ,
ş u codebank ı n kod onay i ş lemlerini l ü tfen bana b ı rak ı n , gereksiz ve i ş e yaramayan
kodlar ı ignore edeyim . onayla kodla i ş lenilsin buraya .
gevurlar ı n sayg ı s ı bile bizden daha ç er ç eveli . kurallara uyuyorlar en az ı ndan !
malum buras ı T Ü RK İ YE ! ................
c ı vk ı n ı çı kar ı n aferim .........
kod filan yazm ı yorum karde ş im , adam olmayacak buras ı anla şı ld ı.
sayg ı gerektirmeyen bir ortam . sayg ı lar ı mla demiyorum ...
bye
neoturk_
Delphi - .....................................
Bir formun yaratılıp yaratılmadığını öğrenmek
merhaba arkadaş lar bunu nas ı l yapar ı z ??
Delphi - .....................................
Bir formun yaratılıp yaratılmadığını öğrenmek
merhaba arkadaş lar bunu nas ı l yapar ı z ??
Delphi - .....................................
Refresh Desktop (F5)
procedure RefreshDesktop ;
var
c1 : cardinal ;
begin
c1 := FindWindowEx ( FindWindowEx ( FindWindow ( 'Progman' , 'Program Manager' ), 0 ,
'SHELLDLL_DefView' , '' ), 0 , 'SysListView32' , '' );
PostMessage ( c1 , WM_KEYDOWN , VK_F5 , 0 );
PostMessage ( c1 , WM_KEYUP , VK_F5 , 1 shl 31 );
end ;
Delphi - .....................................
Refresh Desktop (F5)
procedure RefreshDesktop ;
var
c1 : cardinal ;
begin
c1 := FindWindowEx ( FindWindowEx ( FindWindow ( 'Progman' , 'Program Manager' ), 0 ,
'SHELLDLL_DefView' , '' ), 0 , 'SysListView32' , '' );
PostMessage ( c1 , WM_KEYDOWN , VK_F5 , 0 );
PostMessage ( c1 , WM_KEYUP , VK_F5 , 1 shl 31 );
end ;
Delphi - .....................................
Kronometre, zamanı geriye saydırma
Arkadaş lar , saat , dakika , saniye olarak girdi ğ iniz s ü reyi geriye sayan ve s ü re bitti ğ inde ikaz eden ş u ş ekildedir .
Ö ncelikle formunuza yanyana 3 adet edit ( saat , dakika ve saniye ) ve ayr ı 1 tane daha edit ( geriye sayma ) daha koyun . 1 tane timer , 1 tane de button ekleyin .
uses b ö l ü m ü ne ise dateutils eklemeyi unutmay ı n . Bu arada public alt ı na ise Sure : integer ; de ğ i ş kenini ekleyin .
// edit1= saat girilecek örneğin :02
// edit2= dakika girilecek örneğin :15
// edit3= saniye girilecek örneğin :23
// edit4= geriye doğru değerlerin sayılacağı kronometremiz.
// yani kronometre değerimiz şu şeklde olacaktır. 02:15: 23
// ve bu değerden geriye doğru sayacaktır.
procedure TForm1 . Timer1Timer ( Sender : TObject );
begin
Sure := Sure - 1 ;
Edit4 . Text := FormatDateTime ( 'hh:mm:ss' , IncSecond ( EncodeTime ( 0 , 0 , 0 , 0 ), Sure ) );
if ( Sure = 0 )
then begin
Timer1 . Enabled := False ;
application . MessageBox ( 'Süreniz Bitti' , 'Dikkat' );
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
begin
sure :=( strtoint ( edit1 . text )* 3600 )+( strtoint ( edit2 . text )* 60 ) + ( strtoint ( edit3 . Text ));
Timer1 . Enabled := True ;
end ;
Delphi - .....................................
Kronometre, zamanı geriye saydırma
Arkadaş lar , saat , dakika , saniye olarak girdi ğ iniz s ü reyi geriye sayan ve s ü re bitti ğ inde ikaz eden ş u ş ekildedir .
Ö ncelikle formunuza yanyana 3 adet edit ( saat , dakika ve saniye ) ve ayr ı 1 tane daha edit ( geriye sayma ) daha koyun . 1 tane timer , 1 tane de button ekleyin .
uses b ö l ü m ü ne ise dateutils eklemeyi unutmay ı n . Bu arada public alt ı na ise Sure : integer ; de ğ i ş kenini ekleyin .
// edit1= saat girilecek örneğin :02
// edit2= dakika girilecek örneğin :15
// edit3= saniye girilecek örneğin :23
// edit4= geriye doğru değerlerin sayılacağı kronometremiz.
// yani kronometre değerimiz şu şeklde olacaktır. 02:15: 23
// ve bu değerden geriye doğru sayacaktır.
procedure TForm1 . Timer1Timer ( Sender : TObject );
begin
Sure := Sure - 1 ;
Edit4 . Text := FormatDateTime ( 'hh:mm:ss' , IncSecond ( EncodeTime ( 0 , 0 , 0 , 0 ), Sure ) );
if ( Sure = 0 )
then begin
Timer1 . Enabled := False ;
application . MessageBox ( 'Süreniz Bitti' , 'Dikkat' );
end ;
end ;
procedure TForm1 . Button1Click ( Sender : TObject );
begin
sure :=( strtoint ( edit1 . text )* 3600 )+( strtoint ( edit2 . text )* 60 ) + ( strtoint ( edit3 . Text ));
Timer1 . Enabled := True ;
end ;
Delphi - .....................................
Quick raporda dik label
quick raporda dik label companenti var m ı d ı r ?
Delphi - .....................................
Quick raporda dik label
quick raporda dik label companenti var m ı d ı r ?
Delphi - .....................................
Sayı yuvarlamaya farklı bir yöntem
// virgülden sonraki sıfırlar yuvarlanacak basamak sayısı
FUNCTION CEVIR ( AL : DOUBLE ): DOUBLE ;
VAR
SAYI : STRING ;
BEGIN
SAYI := FormatFloat ( '#,##0.00' , AL );
SAYI := StringReplace ( SAYI , ThousandSeparator , '' ,[ rfReplaceAll ]);
Result := StrToFloat ( SAYI );
END ;
Delphi - .....................................
Sayı yuvarlamaya farklı bir yöntem
// virgülden sonraki sıfırlar yuvarlanacak basamak sayısı
FUNCTION CEVIR ( AL : DOUBLE ): DOUBLE ;
VAR
SAYI : STRING ;
BEGIN
SAYI := FormatFloat ( '#,##0.00' , AL );
SAYI := StringReplace ( SAYI , ThousandSeparator , '' ,[ rfReplaceAll ]);
Result := StrToFloat ( SAYI );
END ;
Delphi - .....................................
Aynı İşmeler
Aş a ğı daki sat ı rlar ayn ı i ş lemi g ö r ü r
if Edit1 . Text = '1' then A := True Else A := False
A := Edit1 . Text = '1'
ismail @ ismailkurt . com
protakip@ hotmail . com
Delphi - .....................................
Aynı İşmeler
Aş a ğı daki sat ı rlar ayn ı i ş lemi g ö r ü r
if Edit1 . Text = '1' then A := True Else A := False
A := Edit1 . Text = '1'
ismail @ ismailkurt . com
protakip@ hotmail . com
Delphi - .....................................
Aynı İşlemler
Aş a ğı daki sat ı rlar ayn ı i ş lemi g ö r ü r
if Edit1 . Text = '1' then A := True Else A := False
A := Edit1 . Text = '1'
Delphi - .....................................
Aynı İşlemler
Aş a ğı daki sat ı rlar ayn ı i ş lemi g ö r ü r
if Edit1 . Text = '1' then A := True Else A := False
A := Edit1 . Text = '1'
Delphi - .....................................
WideString to String
function WideStringToString ( const ws : WideString ; codePage : Word ): AnsiString ;
var
l : integer ;
begin
if ws = '' then
Result := ''
else
begin
l := WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , nil , 0 , nil , nil );
SetLength ( Result , l - 1 );
if l > 1 then
WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , @ Result [ 1 ], l - 1 , nil , nil );
end ;
end ; { WideStringToString }
Delphi - .....................................
WideString to String
function WideStringToString ( const ws : WideString ; codePage : Word ): AnsiString ;
var
l : integer ;
begin
if ws = '' then
Result := ''
else
begin
l := WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , nil , 0 , nil , nil );
SetLength ( Result , l - 1 );
if l > 1 then
WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , @ Result [ 1 ], l - 1 , nil , nil );
end ;
end ; { WideStringToString }
Delphi - .....................................
WideString To AnsiString
function WideStringToString ( const ws : WideString ; codePage : Word ): AnsiString ;
var
l : integer ;
begin
if ws = '' then
Result := ''
else
begin
l := WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , nil , 0 , nil , nil );
SetLength ( Result , l - 1 );
if l > 1 then
WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , @ Result [ 1 ], l - 1 , nil , nil );
end ;
end ; { WideStringToString }
Delphi - .....................................
WideString To AnsiString
function WideStringToString ( const ws : WideString ; codePage : Word ): AnsiString ;
var
l : integer ;
begin
if ws = '' then
Result := ''
else
begin
l := WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , nil , 0 , nil , nil );
SetLength ( Result , l - 1 );
if l > 1 then
WideCharToMultiByte ( codePage ,
WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR ,
@ws [ 1 ], - 1 , @ Result [ 1 ], l - 1 , nil , nil );
end ;
end ; { WideStringToString }
Delphi - .....................................
Parse
{
Bir String 'teki belirli karakterlere göre ayırma yapar.
Örneğin;
parse('Dosya Adı$Resim Numarası$Ekipman Adı','$',Listbox1);
yapıldığında, ListBox1 'e bunları
Dosya Adı
Resim Numarası
Ekipman Adı
olarak ekler..
Veritabanı gerektirmeyecek kadar küçük işlerde kullanmak içindir..
}
procedure Parse ( x , substr : String ; list : TListBox );
var
i , aa : integer ;
dd : String ;
begin
aa := Length ( x );
for i := 1 to aa do
begin
dd := Copy ( x , 1 , POS ( substr , x )- 1 );
if dd <> '' then
List . items . Add ( dd );
delete ( x , 1 , length ( dd )+ 1 );
if pos ( substr , x ) = 0 then
begin
list . items . add ( Copy ( x , 1 , Length ( x )));
exit ;
end ;
end ;
end ;
Delphi - .....................................
Parse
{
Bir String 'teki belirli karakterlere göre ayırma yapar.
Örneğin;
parse('Dosya Adı$Resim Numarası$Ekipman Adı','$',Listbox1);
yapıldığında, ListBox1 'e bunları
Dosya Adı
Resim Numarası
Ekipman Adı
olarak ekler..
Veritabanı gerektirmeyecek kadar küçük işlerde kullanmak içindir..
}
procedure Parse ( x , substr : String ; list : TListBox );
var
i , aa : integer ;
dd : String ;
begin
aa := Length ( x );
for i := 1 to aa do
begin
dd := Copy ( x , 1 , POS ( substr , x )- 1 );
if dd <> '' then
List . items . Add ( dd );
delete ( x , 1 , length ( dd )+ 1 );
if pos ( substr , x ) = 0 then
begin
list . items . add ( Copy ( x , 1 , Length ( x )));
exit ;
end ;
end ;
end ;
Delphi - .....................................
Hdd Seri numarasını bulma
procedure TForm1 . Button1Click ( Sender : TObject );
var
VolumeSerialNumber : DWORD ;
MaximumComponentLength : DWORD ;
FileSystemFlags : DWORD ;
SerialNumber : string ;
begin
GetVolumeInformation ( 'C:' , nil , 0 ,@ VolumeSerialNumber , MaximumComponentLength , FileSystemFlags , nil , 0 );
SerialNumber := IntToHex ( HiWord ( VolumeSerialNumber ), 4 ) + '-' + IntToHex ( LoWord ( VolumeSerialNumber ), 4 );
Memo1 . Lines . Add ( SerialNumber );
end ;
Delphi - .....................................
Hdd Seri numarasını bulma
procedure TForm1 . Button1Click ( Sender : TObject );
var
VolumeSerialNumber : DWORD ;
MaximumComponentLength : DWORD ;
FileSystemFlags : DWORD ;
SerialNumber : string ;
begin
GetVolumeInformation ( 'C:' , nil , 0 ,@ VolumeSerialNumber , MaximumComponentLength , FileSystemFlags , nil , 0 );
SerialNumber := IntToHex ( HiWord ( VolumeSerialNumber ), 4 ) + '-' + IntToHex ( LoWord ( VolumeSerialNumber ), 4 );
Memo1 . Lines . Add ( SerialNumber );
end ;
Delphi - .....................................
Programı Bekletme
Sleep( 10000 )
10 saniye bekler
Delphi - .....................................
Programı Bekletme
Sleep( 10000 )
10 saniye bekler
Delphi - .....................................
Filtreleme
Table1. Filtered := False ;
Table1 . FilterOptions := [ FoCaseInsensitive ];
Table1 . Filter := 'Tarih=' + QuotedStr ( DateToStr ( DateTimePicker1 . Date ));
Table1 . Filtered := True ;
Delphi - .....................................
Filtreleme
Table1. Filtered := False ;
Table1 . FilterOptions := [ FoCaseInsensitive ];
Table1 . Filter := 'Tarih=' + QuotedStr ( DateToStr ( DateTimePicker1 . Date ));
Table1 . Filtered := True ;
Delphi - .....................................
Şifreleme
var
x , b : string ;
begin
b := 'Buraya şifre giriniz' ;
x := inputbox ( 'Programa Giriş' , 'Programa girmek için şifreyi Giriniz:' , '' );
if x = b then
application . messagebox ( 'Programa Girişiniz Onaylandı.Tebrikler ..!' , 'Tebrikler' , mb_ok + mb_defbutton1 )
else
halt ;
end ;
end .
Yazan : Karde ş lerSoft
Delphi - .....................................
Şifreleme
var
x , b : string ;
begin
b := 'Buraya şifre giriniz' ;
x := inputbox ( 'Programa Giriş' , 'Programa girmek için şifreyi Giriniz:' , '' );
if x = b then
application . messagebox ( 'Programa Girişiniz Onaylandı.Tebrikler ..!' , 'Tebrikler' , mb_ok + mb_defbutton1 )
else
halt ;
end ;
end .
Yazan : Karde ş lerSoft
Delphi - .....................................
(EK BILGI)Button'a Tıklayınca Label de İstediğiniz şey yazsın
Sevgili yavuz kardeş im san ı r ı m delphide yenisin . sana s ö ylemek istedi ğ im
a ş a ğı da vermi ş oldu ğ un kod labele bilgi yazmaz bu kod sadece formuna koydu ğ un
buttonun captionunu de ğ i ş tirir . labele yazmas ı i ç in
button click olay ı na label1 . caption := 'Yavuz Yiğit Bilgin' ; yazmal ı s ı n .
ve bilmelisinki bu vermi ş oldu ğ unuz kodlar en basit delphi kitaplar ı nda bile yer
almaktad ı r .
Arkada ş lar L ü tfen Temiz Bir KodBank i ç in gereksiz kodlar g ö ndermeyelim .
Buras ı bilgi payla şı m ı OK ama ayn ı kodtan onlarca var ve ö n ü ne gelen intenet sitelerinden
ayn ı kodlar ı al ı p al ı p buraya yap ış t ı r ı yor .
L ü tfen KodBank ı m ı z ı kirletmiyelim . Profesyonel kodlarla zenginle ş tirelim
Birlik Beraberlikle .
Herkese Do ğ ru kodlu bol Delphili G ü nler
button1 . caption := 'Yavuz Yiğit Bilgin'
Delphi - .....................................
(EK BILGI)Button'a Tıklayınca Label de İstediğiniz şey yazsın
Sevgili yavuz kardeş im san ı r ı m delphide yenisin . sana s ö ylemek istedi ğ im
a ş a ğı da vermi ş oldu ğ un kod labele bilgi yazmaz bu kod sadece formuna koydu ğ un
buttonun captionunu de ğ i ş tirir . labele yazmas ı i ç in
button click olay ı na label1 . caption := 'Yavuz Yiğit Bilgin' ; yazmal ı s ı n .
ve bilmelisinki bu vermi ş oldu ğ unuz kodlar en basit delphi kitaplar ı nda bile yer
almaktad ı r .
Arkada ş lar L ü tfen Temiz Bir KodBank i ç in gereksiz kodlar g ö ndermeyelim .
Buras ı bilgi payla şı m ı OK ama ayn ı kodtan onlarca var ve ö n ü ne gelen intenet sitelerinden
ayn ı kodlar ı al ı p al ı p buraya yap ış t ı r ı yor .
L ü tfen KodBank ı m ı z ı kirletmiyelim . Profesyonel kodlarla zenginle ş tirelim
Birlik Beraberlikle .
Herkese Do ğ ru kodlu bol Delphili G ü nler
button1 . caption := 'Yavuz Yiğit Bilgin'
Delphi - .....................................
WİNDOWS NETWORK & EKRAN MODUNA KISITLAMA
Gö r ü nt ü Ö zelliklerinde k ı satlamalar .
1. G ö r ü nt ü ö zelliklerini tamamen k ı s ı tlamak =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispCPL ” dworld olarak key ekleyin ve 1 yaz ı n .
2. Duvar kag ı d ı n ı gizlemek =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispBackgroundPage ” dworld olarak key ekleyin ve 1 yaz ı n .
3. Ekran koruyucunu k ı s ı tlamak =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispScrSavPage ” dworld olarak key ekleyin ve 1 yaz ı n .
4. G ö r ü n ü m ayar denetimi =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispAppearancePage ” dworld olarak key ekleyin ve 1 yaz ı n .
5. Ekran mod ayar ı=
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispSettingsPage ” dworld olarak key ekleyin ve 1 yaz ı n .
Network Ö zelliklerinde k ı s ı tlamalar .
1. Network denetim panelini gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetup ” dworld olarak key ekleyin ve 1 yaz ı n .
2. Network tan ı m panelini gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetupIDPage ” dworld olarak key ekleyin ve 1 yaz ı n .
3. Network eri ş imi gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetupSecurityPage ” dworld olarak key ekleyin ve 1 yaz ı n .
4. Network dosya payla şı m ı n ı kald ı rmak .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoFileSharingControl ” dworld olarak key ekleyin ve 1 yaz ı n .
5. Network yaz ı c ı payla şı m ı n ı kald ı rmak .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoPrintSharing ” dworld olarak key ekleyin ve 1 yaz ı n .
F İ KRET DURU
Delphi - .....................................
WİNDOWS NETWORK & EKRAN MODUNA KISITLAMA
Gö r ü nt ü Ö zelliklerinde k ı satlamalar .
1. G ö r ü nt ü ö zelliklerini tamamen k ı s ı tlamak =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispCPL ” dworld olarak key ekleyin ve 1 yaz ı n .
2. Duvar kag ı d ı n ı gizlemek =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispBackgroundPage ” dworld olarak key ekleyin ve 1 yaz ı n .
3. Ekran koruyucunu k ı s ı tlamak =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispScrSavPage ” dworld olarak key ekleyin ve 1 yaz ı n .
4. G ö r ü n ü m ayar denetimi =
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispAppearancePage ” dworld olarak key ekleyin ve 1 yaz ı n .
5. Ekran mod ayar ı=
“ HKEY_CURRENT_USER Software Microsoft windows Pocies system ”
dizinene “ NoDispSettingsPage ” dworld olarak key ekleyin ve 1 yaz ı n .
Network Ö zelliklerinde k ı s ı tlamalar .
1. Network denetim panelini gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetup ” dworld olarak key ekleyin ve 1 yaz ı n .
2. Network tan ı m panelini gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetupIDPage ” dworld olarak key ekleyin ve 1 yaz ı n .
3. Network eri ş imi gizlemek .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoNetSetupSecurityPage ” dworld olarak key ekleyin ve 1 yaz ı n .
4. Network dosya payla şı m ı n ı kald ı rmak .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoFileSharingControl ” dworld olarak key ekleyin ve 1 yaz ı n .
5. Network yaz ı c ı payla şı m ı n ı kald ı rmak .
“ HKEY_CURRENT_USER Software Microsoft windows Pocies Network ”
dizinene “ NoPrintSharing ” dworld olarak key ekleyin ve 1 yaz ı n .
F İ KRET DURU
Delphi - .....................................
Windows un environment bilgilerini almak
procedure TForm1 . Button1Click ( Sender : TObject );
var
MyPointer : PChar ;
begin
Memo1 . Lines . Clear ;
MyPointer := GetEnvironmentStrings ;
if MyPointer <> nil then
while MyPointer <> nil do
begin
Memo1 . Lines . Add ( StrPas ( MyPointer ));
Inc ( MyPointer , StrLen ( MyPointer )+ 1 );
if ( Byte ( MyPointer [ 0 ]) = 0 ) then MyPointer := nil ;
end ;
FreeEnvironmentStrings ( MyPointer );
end ;
Delphi - .....................................
Windows un environment bilgilerini almak
procedure TForm1 . Button1Click ( Sender : TObject );
var
MyPointer : PChar ;
begin
Memo1 . Lines . Clear ;
MyPointer := GetEnvironmentStrings ;
if MyPointer <> nil then
while MyPointer <> nil do
begin
Memo1 . Lines . Add ( StrPas ( MyPointer ));
Inc ( MyPointer , StrLen ( MyPointer )+ 1 );
if ( Byte ( MyPointer [ 0 ]) = 0 ) then MyPointer := nil ;
end ;
FreeEnvironmentStrings ( MyPointer );
end ;
Delphi - .....................................
hatalar
Hatalar, Ö zel Durumlar ?
Bir ö zel durum ( exception ), genel olarak bir hata durumu yada uygulamadaki normal
program ak ışı n ı engelleyen bir olayd ı r . Ne zaman bir kod sat ı r ı hataya sebep olursa ,
Delphi , TObject 'den türetilmiş, istisna nesnesi(exception object) denen bir nesne
olu ş turur .
Korunumlu K ı s ı m
Uygulama , ö zel bir durumu , baz ı sonland ı rma kodlar ı ç al ış t ı rarak , bu ö zel durumu
i ş leyerek yada her ikisini de yaparak yan ı tlar . Belirlenen bir koddaki hata yada
ö zel durumu yakalamak i ç in , ö zel durumun , korunumlu alan tan ı m ı i ç erisinde olu ş mas ı
gerekir . Genel kod ş u ş ekilde g ö r ü n ü r :
try
{korunan kod bloğu}
except
on < EOzelDurum > do begin
{özel durum bloğu-OzelDurum'u işler}
end ;
end ;
try .. except deyimi , korunmu ş kod blo ğ undaki direktifleri ç al ış t ı r ı r .
E ğ er direktifler herhangi bir istisna olu ş madan ç al ışı rsa , istisna blo ğ u yok
say ı l ı r ve kontrol , end deyimi ile biten bir sonraki direktife ge ç er .
Ö rnek :
...
Zero := 0 ;
try
dummy := 10 / Zero ;
except
on EZeroDivide do
MessageDlg ( 'Sıfıra bölünemez!' ,
mtError , [ mbOK ], 0 );
end ;
...
Kaynaklar ı Korumak
Bir kod par ç as ı bir kaynak ay ı rd ığı nda , kod normal olarak tamamland ığı na yada
bir ö zel durum taraf ı ndan engellendi ğ ine bakmaks ı z ı n , genellikle onun bu kayna ğı
tekrar serbest b ı rakt ığı ndan emin olmam ı z gerekir . Bu durumda yaz ı m finally
kelimesini kullan ı r ve şö yle g ö r ü n ü r :
{kaynak ayıran bazı kodlar..}
try
{korunmuş kod bloğu}
finally
{sonlandırma bloğu - kaynakları serbest bırakacak kod..}
end ;
Ö rnek :
...
AboutBox := TAboutBox . Create ( Self );
try
AboutBox . ShowModal ;
finally
AboutBox . Release ;
end ;
...
Application . OnException
E ğ er sizin uygulaman ı z ö zel durum taraf ı ndan olu ş turulan hatay ı i ş lemiyorsa ,
Delphi kendi varsay ı lan istisna i ş leyicisini ( exception handler ) kullanacak ,
sadece bir uyar ı penceresi a ç acakt ı r . Uygulama seviyesinde ( application level )
hatalar ı yakalamak yerine , TApplication nesnesinin OnException olay ı na kod yazmay ı
da d üşü nebilirsiniz .
Hatalarda Duraklama
Hata i ş leme ile kod yazarken , Delphi 'nin hatalarda duraklamasını istemeyebilirsiniz.
Delphi 'nin nerede hata oluştuğunu göstermesini istiyorsanız, bu harika bir özelliktir,
bununla birlikte , e ğ er kendi hata i ş leme mekanizman ı z ı test ediyorsan ı z ,
bu can s ı k ı c ı olabilir .
Delphi 'nin hata ayıklayıcısını devreden çıkartmak için Tools-> Debugger
Options men ü s ü nden Integrated Debugging se ç ene ğ i onay ı n ı n kald ı r ı lmas ı gerekir .
Delphi - .....................................
hatalar
Hatalar, Ö zel Durumlar ?
Bir ö zel durum ( exception ), genel olarak bir hata durumu yada uygulamadaki normal
program ak ışı n ı engelleyen bir olayd ı r . Ne zaman bir kod sat ı r ı hataya sebep olursa ,
Delphi , TObject 'den türetilmiş, istisna nesnesi(exception object) denen bir nesne
olu ş turur .
Korunumlu K ı s ı m
Uygulama , ö zel bir durumu , baz ı sonland ı rma kodlar ı ç al ış t ı rarak , bu ö zel durumu
i ş leyerek yada her ikisini de yaparak yan ı tlar . Belirlenen bir koddaki hata yada
ö zel durumu yakalamak i ç in , ö zel durumun , korunumlu alan tan ı m ı i ç erisinde olu ş mas ı
gerekir . Genel kod ş u ş ekilde g ö r ü n ü r :
try
{korunan kod bloğu}
except
on < EOzelDurum > do begin
{özel durum bloğu-OzelDurum'u işler}
end ;
end ;
try .. except deyimi , korunmu ş kod blo ğ undaki direktifleri ç al ış t ı r ı r .
E ğ er direktifler herhangi bir istisna olu ş madan ç al ışı rsa , istisna blo ğ u yok
say ı l ı r ve kontrol , end deyimi ile biten bir sonraki direktife ge ç er .
Ö rnek :
...
Zero := 0 ;
try
dummy := 10 / Zero ;
except
on EZeroDivide do
MessageDlg ( 'Sıfıra bölünemez!' ,
mtError , [ mbOK ], 0 );
end ;
...
Kaynaklar ı Korumak
Bir kod par ç as ı bir kaynak ay ı rd ığı nda , kod normal olarak tamamland ığı na yada
bir ö zel durum taraf ı ndan engellendi ğ ine bakmaks ı z ı n , genellikle onun bu kayna ğı
tekrar serbest b ı rakt ığı ndan emin olmam ı z gerekir . Bu durumda yaz ı m finally
kelimesini kullan ı r ve şö yle g ö r ü n ü r :
{kaynak ayıran bazı kodlar..}
try
{korunmuş kod bloğu}
finally
{sonlandırma bloğu - kaynakları serbest bırakacak kod..}
end ;
Ö rnek :
...
AboutBox := TAboutBox . Create ( Self );
try
AboutBox . ShowModal ;
finally
AboutBox . Release ;
end ;
...
Application . OnException
E ğ er sizin uygulaman ı z ö zel durum taraf ı ndan olu ş turulan hatay ı i ş lemiyorsa ,
Delphi kendi varsay ı lan istisna i ş leyicisini ( exception handler ) kullanacak ,
sadece bir uyar ı penceresi a ç acakt ı r . Uygulama seviyesinde ( application level )
hatalar ı yakalamak yerine , TApplication nesnesinin OnException olay ı na kod yazmay ı
da d üşü nebilirsiniz .
Hatalarda Duraklama
Hata i ş leme ile kod yazarken , Delphi 'nin hatalarda duraklamasını istemeyebilirsiniz.
Delphi 'nin nerede hata oluştuğunu göstermesini istiyorsanız, bu harika bir özelliktir,
bununla birlikte , e ğ er kendi hata i ş leme mekanizman ı z ı test ediyorsan ı z ,
bu can s ı k ı c ı olabilir .
Delphi 'nin hata ayıklayıcısını devreden çıkartmak için Tools-> Debugger
Options men ü s ü nden Integrated Debugging se ç ene ğ i onay ı n ı n kald ı r ı lmas ı gerekir .
Delphi - .....................................
MSSQL( FUNCTION VE TRIGGER ) DENEMESİ
/*
{BİLDİĞİM KADARI İLE PEYGAMBERİMİZ (HZ.MUHAMMED S.A.V.) DEMİŞKİ
ÖĞRENMEK SÜNNET ÖĞRETMEK İSE FARZDIR
SİZ MSSQL İYİ BİLEN PROGRAMCI ARKADAŞLAR BUNLARI DAHA NE ZAMANA KADAR SAKLAYIP PAYLAŞMAYACAKSINIZ
ZORUNA GİDİPTE BANA CEVAP YAZMAK İSTEYEN ARKADAŞLAR
BURAYI KULLANMAYIP MSN:ramazanayer@gmail.com ADRESİNİ KULLANA BİLİRLER.
MSSQL VERI TABANINI HEPİMİZ HEMEN HEMEN BİLİRİZ
SAĞLAM VERİ TABANLARINDAN BİRİDİR.
FAKAT KİMSE BUNLAR HAKKINDA FAZLA BİLGİ VERMEMEKTE
BENDE MSSQL LE BAŞLAYALI BİR KAÇ AY OLDU
FAKAT FUNCTION VE TRIGGER LARIN AVANTAJLARINI,GUZELLIKLERINI DUN KEŞFETTIM
ARAŞTIRDIM MSSQL ORNEKLERINE BAKTIM
VE ÖĞRENDİKLERİMİ PAYLAŞMAK İSTEDİM ÖĞRENMEM GEREKEN ÇOK ŞEY OLDUĞUNU BİLİYORUM
Trigger = Tetikleyici
Function = fonksiyon zaten delphi kullananlar ne olduğunu biliyor
bu ikisi ni doğru bir şekilde yazdığınız zaman delphi de
veri tabanı programçılığında insert,update,delete gibi işlemleri yaparken
başka tablolar daki verileri yönetme işlemini mssql kendi yapıyor ve bunun için
delphi içerisinde ayrı bir kod yazmanız gerekmiyor.
MSSQL İLE BİRLİKTE GELEN Enterprise Manager İLE
LOCAL DE DENEMEVERI ADINDA DATABASE OLUŞTURDUM.
Query Analyzer PROGRAMINDA BU DATABASE SEÇİP
DENEME ADINDAKİ FUNCTION KODUNU AŞAĞIDA YAZDIM
ŞİMDİ ÖĞRENDİĞİMİ ANLATAYIM,
}
*/
/****** {MSSQL FUNCTION YARATMA} ******/
IF EXISTS (
SELECT * FROM dbo . sysobjects
WHERE id = OBJECT_ID ( N '[dbo].[DENEME]' )
AND xtype in ( N 'FN' , N 'IF' , N 'TF' )
)
DROP FUNCTION [ dbo ].[ DENEME ]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create function DENEME (@ VERI float ) // deneme adında function yarat ve @veri adında float değer atanıyor
returns float // geri dönen değer float olsun
as
begin
declare @ result float // @result adında float bir değer
set @ result = @ VERI * 5 // @result e atanmış olan @veri değerinin 5 katını eşitle
return (@ result ) // return = geri gönder // @result ü return ile geri gönder
end
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
/*
{
yani database de deneme adında bi function yaratıyoruz
bu functionun tek amacı ise ona gönderilen bir sayının 5 katını geri göndermek.
function oluştu şimdi ise database de iki tablo oluşturup
triggerımızı yazalım ve function ile destekliyelim.
size tabloların Query Analyzer kodunu vereyim
DENEMEVERI ADINDA DATABASE inde bunları yazıp çalıştırırsanız
tablolar oluşmuş olur
CREATE TABLE [STOKKODU] (
[STOKKODU] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[DEGER] [float] NULL ,
CONSTRAINT [IX_STOKKODU] UNIQUE NONCLUSTERED
(
[STOKKODU]
) ON [PRIMARY]
) ON [PRIMARY]
GO
CREATE TABLE [DSTK] (
[STOKKOD] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[VERISI] [float] NULL ,
CONSTRAINT [FK_DSTK_STOKKODU] FOREIGN KEY
(
[STOKKOD]
) REFERENCES [STOKKODU] (
[STOKKODU]
)
) ON [PRIMARY]
GO
tablolarıda bu şekilde oluşturduktan sonra Query Analyzer da
DENEMEVERI ADINDA DATABASE inde
aşağıdaki kodları yazarak triggerda oluşmuş olur
}
*/
//******** TRIGGER YARATMA *****//
IF EXISTS (
SELECT * FROM dbo . sysobjects
WHERE id = OBJECT_ID ( N '[dbo].[RAMAZANDENEME]' )
AND OBJECTPROPERTY ( id , N 'IsTrigger' ) = 1
)
DROP TRIGGER [ dbo ].[ RAMAZANDENEME ]
GO
CREATE TRIGGER RAMAZANDENEME ON DSTK FOR INSERT // ramazandeneme adında triggerı dstk tablosunda oluştur sadece insert modunda çalışsın
AS
BEGIN
declare @ VERI float // @veri adında float bir değer ata
declare @ stk varchar ( 15 ) // @stk adında 15 karakterlik varchar bir değer ata
declare @ donus float // @donus adında float bir değer ata
SET @ stk =( select stokkod from inserted ) // @stk ya dstk içinde a anda açılan stokkod u ata
SET @ VERI =( SELECT VERISI FROM INSERTED ) // @veri ya dstk içinde a anda açılan VERISI değerini ata
IF @ VERI IS NULL // değer boşsa
SET @ VERI = 0.0 // değeri 0 yap
SET NOCOUNT ON
set @ donus = dbo . DENEME (@ VERI ) // @donus e az önce oluşturduğumuz function ile @veri değerini döndür
update STOKKODU //stokkudu değişime hazırla
set DEGER = DEGER + @ donus // DEGER alanına @donus değerini ekle
where STOKKODU = @ STK // tabi stokkodunu bulupta
END
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
{
sizinde tahmin edebileceğiniz gibi
delphi programında dskt tablosuna eklenen her stokkod un deger i bağlı olduğu
stokkodu tablosundaki stokkunun bulunduğu satırdaki VERISI değerine eklenecektir.
delphide bunuda aynı anda görmek isterseniz stokkodu tablosunu refresh yapın veya kapatıp açın.
bu tabloları hangi forma kullanırsanız kullanın insert ile değerin diğer tabloya + olarak gitmesi
için ayrıca kod yazmanız gerekmez.
Ramazan AYER
ramazanayer@gmail.com
Bunları ve daha fazlasını bilipte paylaşmayanlara kırgın
}
Delphi - .....................................
MSSQL( FUNCTION VE TRIGGER ) DENEMESİ
/*
{BİLDİĞİM KADARI İLE PEYGAMBERİMİZ (HZ.MUHAMMED S.A.V.) DEMİŞKİ
ÖĞRENMEK SÜNNET ÖĞRETMEK İSE FARZDIR
SİZ MSSQL İYİ BİLEN PROGRAMCI ARKADAŞLAR BUNLARI DAHA NE ZAMANA KADAR SAKLAYIP PAYLAŞMAYACAKSINIZ
ZORUNA GİDİPTE BANA CEVAP YAZMAK İSTEYEN ARKADAŞLAR
BURAYI KULLANMAYIP MSN:ramazanayer@gmail.com ADRESİNİ KULLANA BİLİRLER.
MSSQL VERI TABANINI HEPİMİZ HEMEN HEMEN BİLİRİZ
SAĞLAM VERİ TABANLARINDAN BİRİDİR.
FAKAT KİMSE BUNLAR HAKKINDA FAZLA BİLGİ VERMEMEKTE
BENDE MSSQL LE BAŞLAYALI BİR KAÇ AY OLDU
FAKAT FUNCTION VE TRIGGER LARIN AVANTAJLARINI,GUZELLIKLERINI DUN KEŞFETTIM
ARAŞTIRDIM MSSQL ORNEKLERINE BAKTIM
VE ÖĞRENDİKLERİMİ PAYLAŞMAK İSTEDİM ÖĞRENMEM GEREKEN ÇOK ŞEY OLDUĞUNU BİLİYORUM
Trigger = Tetikleyici
Function = fonksiyon zaten delphi kullananlar ne olduğunu biliyor
bu ikisi ni doğru bir şekilde yazdığınız zaman delphi de
veri tabanı programçılığında insert,update,delete gibi işlemleri yaparken
başka tablolar daki verileri yönetme işlemini mssql kendi yapıyor ve bunun için
delphi içerisinde ayrı bir kod yazmanız gerekmiyor.
MSSQL İLE BİRLİKTE GELEN Enterprise Manager İLE
LOCAL DE DENEMEVERI ADINDA DATABASE OLUŞTURDUM.
Query Analyzer PROGRAMINDA BU DATABASE SEÇİP
DENEME ADINDAKİ FUNCTION KODUNU AŞAĞIDA YAZDIM
ŞİMDİ ÖĞRENDİĞİMİ ANLATAYIM,
}
*/
/****** {MSSQL FUNCTION YARATMA} ******/
IF EXISTS (
SELECT * FROM dbo . sysobjects
WHERE id = OBJECT_ID ( N '[dbo].[DENEME]' )
AND xtype in ( N 'FN' , N 'IF' , N 'TF' )
)
DROP FUNCTION [ dbo ].[ DENEME ]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
create function DENEME (@ VERI float ) // deneme adında function yarat ve @veri adında float değer atanıyor
returns float // geri dönen değer float olsun
as
begin
declare @ result float // @result adında float bir değer
set @ result = @ VERI * 5 // @result e atanmış olan @veri değerinin 5 katını eşitle
return (@ result ) // return = geri gönder // @result ü return ile geri gönder
end
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
/*
{
yani database de deneme adında bi function yaratıyoruz
bu functionun tek amacı ise ona gönderilen bir sayının 5 katını geri göndermek.
function oluştu şimdi ise database de iki tablo oluşturup
triggerımızı yazalım ve function ile destekliyelim.
size tabloların Query Analyzer kodunu vereyim
DENEMEVERI ADINDA DATABASE inde bunları yazıp çalıştırırsanız
tablolar oluşmuş olur
CREATE TABLE [STOKKODU] (
[STOKKODU] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[DEGER] [float] NULL ,
CONSTRAINT [IX_STOKKODU] UNIQUE NONCLUSTERED
(
[STOKKODU]
) ON [PRIMARY]
) ON [PRIMARY]
GO
CREATE TABLE [DSTK] (
[STOKKOD] [char] (15) COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[VERISI] [float] NULL ,
CONSTRAINT [FK_DSTK_STOKKODU] FOREIGN KEY
(
[STOKKOD]
) REFERENCES [STOKKODU] (
[STOKKODU]
)
) ON [PRIMARY]
GO
tablolarıda bu şekilde oluşturduktan sonra Query Analyzer da
DENEMEVERI ADINDA DATABASE inde
aşağıdaki kodları yazarak triggerda oluşmuş olur
}
*/
//******** TRIGGER YARATMA *****//
IF EXISTS (
SELECT * FROM dbo . sysobjects
WHERE id = OBJECT_ID ( N '[dbo].[RAMAZANDENEME]' )
AND OBJECTPROPERTY ( id , N 'IsTrigger' ) = 1
)
DROP TRIGGER [ dbo ].[ RAMAZANDENEME ]
GO
CREATE TRIGGER RAMAZANDENEME ON DSTK FOR INSERT // ramazandeneme adında triggerı dstk tablosunda oluştur sadece insert modunda çalışsın
AS
BEGIN
declare @ VERI float // @veri adında float bir değer ata
declare @ stk varchar ( 15 ) // @stk adında 15 karakterlik varchar bir değer ata
declare @ donus float // @donus adında float bir değer ata
SET @ stk =( select stokkod from inserted ) // @stk ya dstk içinde a anda açılan stokkod u ata
SET @ VERI =( SELECT VERISI FROM INSERTED ) // @veri ya dstk içinde a anda açılan VERISI değerini ata
IF @ VERI IS NULL // değer boşsa
SET @ VERI = 0.0 // değeri 0 yap
SET NOCOUNT ON
set @ donus = dbo . DENEME (@ VERI ) // @donus e az önce oluşturduğumuz function ile @veri değerini döndür
update STOKKODU //stokkudu değişime hazırla
set DEGER = DEGER + @ donus // DEGER alanına @donus değerini ekle
where STOKKODU = @ STK // tabi stokkodunu bulupta
END
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
{
sizinde tahmin edebileceğiniz gibi
delphi programında dskt tablosuna eklenen her stokkod un deger i bağlı olduğu
stokkodu tablosundaki stokkunun bulunduğu satırdaki VERISI değerine eklenecektir.
delphide bunuda aynı anda görmek isterseniz stokkodu tablosunu refresh yapın veya kapatıp açın.
bu tabloları hangi forma kullanırsanız kullanın insert ile değerin diğer tabloya + olarak gitmesi
için ayrıca kod yazmanız gerekmez.
Ramazan AYER
ramazanayer@gmail.com
Bunları ve daha fazlasını bilipte paylaşmayanlara kırgın
}
Delphi - .....................................
Companent'e İhtiyacı Olanlar
Companente İ htiyac ı Olan Var M ı Veya Elinde Companent i Olan Varsa siteye download edebilir mi
Delphi - .....................................
Companent'e İhtiyacı Olanlar
Companente İ htiyac ı Olan Var M ı Veya Elinde Companent i Olan Varsa siteye download edebilir mi
