.NET veritabanı yetkileri
//2004 yılında yaptığım telefon rehberi programını aradan geçen 1 yıl sonra
//bir türlü çalıştıramadım.
//google da biraz turladıktan sonra; şunları öğrendim ve biraz çalışır hale geldi:
1 -
ASP . NET kurulduktan sonra otomatik olu ş an ASPNET kullan ı c ı s ı na , yetki vermemiz gereklidir .
" Ba ş lat * Ayarlar * Denetim Masas ı* Y ö netimsel Ara ç lar * Bilgisayar Y ö netimi * Sistem Ara ç lar ı
* Yerel Kullan ı c ı lar ve Gruplar * Users " dan ASPNET se ç ilerek Ü yelik k ı sm ı na Administrators ,
VS Developers ve Users ekliyoruz . Asl ı nda Administrator hakk ı vermek ç ok tehlikelidir ,
ama ş imdilik öğ renmek i ç in kendi bilgisayar ı m ı zda bu ayar ı yapabiliriz .
2 -
IIS 'de webapplication klasörünüze sağ tıklayıp, Uygulama haline getirin.
3 -
E ğ er ş u ş ekilde bir hata olu ş mu ş ise :
Cannot open database requested in login 'dtname' . Login fails .
Login failed for user 'EVASPNET' .
Çö z ü m : Komut isteminde ( Ba ş lat *Ç al ış t ı r * cmd ) ş u ad ı mlar ı yap ı n ı z :
C :> osql - E
1 > use master
2 > exec sp_grantlogin 'EVASPNET'
3 > go
Granted login access to 'EVASPNET' .
1 > use dtname
2 > exec sp_grantdbaccess 'EVASPNET'
3 > go
Granted database access to 'EVASPNET' .
1 > exec sp_addrolemember 'db_datareader' , 'EVASPNET'
2 > go
'EVASPNET' added to role 'db_datareader' .
1 > quit
C :> _
# EV yerine kendi bilgisayar ad ı n ı z ı yazmay ı unutmay ı n .
# dtname yerine de kendi yapt ığı n ı z veritaban ı n ı z olmal ı.
E ğ er ş u ş ekilde bir hata olu ş mu ş ise :( UPDATE yerine SELECT , INSERT veya DELETE de olabilir )
UPDATE permission denied on object 'Tablo1' , database 'dtname' , owner 'dbo' .
Çö z ü m : Ü stteki hatadaki gibi ad ı mlar ı izleyerek , 'db_datareader' yerine
'db_datawriter' yap ı n ı z .
4 -
Belki C : s ü r ü c ü s ü ne yazma hakk ı yoktur .
Yani C$ ş eklinde . S ü r ü c ü ye sa ğ t ı klay ı p payla şı ma a ç man ı z gerekebilir .
Hata hala olu ş uyor ise www . google . com 'a hata mesajınızı yazıp çözüm arayabilirsiniz.
VB . NET 2005 veya sonraki versiyonlarda veritaban ı programc ı l ığı muhtemelen ç ok daha
kolayd ı r .
Delphi.NET - .....................................
Zeka-Yapay Zeka (Makale)
selam.
Sokaklarda avare avare gezip de " sonu ç ta bu yorucu gezinti bana ne ve ne kadar kazand ı rd ı?"
diye onca d üşü nmeme ra ğ men farketmedi ğ im , ancak az ö nceki y ü r ü y üş te farketti ğ im bir ş eyden bahkedece ğ im size .
Kalabal ı k diyebilece ğ im bir caddenin ortas ı nda bir ka ç saniye
duraksay ı p g ö z ü m ü n g ö rd üğü t ü m insanlara bakt ı m : Y ü r ü yen herkes kollar ı n ı sall ı yordu .
Y ü ksek ihtimalle bu insan ı n dengesini sa ğ lamas ı i ç in yapt ığı bir eylemdi .
Bu ancak salt bilin ç d ü zeyinde yap ı lan bu eylem insan ı n geli ş tirilebilinen zekas ı n ı n kendi kendisini y ö netmesinin bir sonucu olabilirdi . Ö yle ki d üş mek ü zerine olan bir insan ı n
zekas ı ne seviyede olursa olsun ellerini kullanmas ı m ü mk ü n de ğ ildi . Ö yle ki ç o ğ u insan d üş me an ı nda sadece SONUCU d üşü n ü r . Zeka bu durumda eylem yapmaktansa i ç inde bulunulan durumun sonucunu d ö nd ü r ü r . D üş en insan ı n ellerini kullanarak hala dengesini sa ğ lamas ı salt akl ı n kendini s ü rd ü rmesi de ğ il midir ?
Sinir sistemi ile davran ış sergileyen canl ı larda bu eylem ger ç ekle ş memektedir .
Ö rne ğ in bir baca ğı kopan k ı rkayak ( ki k ı rk tane aya ğı yok :) hala y ü r ü meye ç al ış acakt ı r .
E ğ er salt akl ı n y ü r ü t ü lmesi veya tamamen bilin ç d ü zeyinde olan bir eylem sergilenmesi gerekseydi bu kopan baca ğı n ı d üşü nmek veya onunla ilgili bir ba ş ka eylem olacakt ı.
Ç o ğ u yapay zeka programlama giri ş imlerim hep bu ko ş ullu eylemler sonucu yar ı da kalm ış t ı r .
Çü nk ü bir bilgisayar program ı asla kendini s ü rd ü remeyecekti . Yapay zeka programlad ığı n ı d üşü nenlerin programlar ı da ancak programc ı lar ı n ı n verebildi ğ i ö l çü de zekiydi .
Bir zamanlar ad ı memo olan bir program ı denemi ş tim . Yapay zeka nam ı na test etti ğ im en " aptal " program oydu san ı r ı m . Çü nk ü verece ğ iniz cevaplarla pek ilgilenmiyordu :)
if strtoint ( yas ) < strtoint ( '5' ) then begin
memo1 . lines . add ( 'Oldukça küçüksün... vs..' );
exit ;
end ;
if strtoint ( yas ) > strtoint ( '5' ) then begin
memo1 . lines . add ( 'tamam seninle konuşabiliriz.. vs..' );
end ;
....
gibi basit d ö ng ü lerden olu ş an programlar ı yapay zeka olarak de ğ erlendirmiyorum zaten .
Her ş ey bir tarafa geli ş imi s ı n ı rl ı da olsa kendini s ü rd ü rebilecek bir program ı n yap ı labilece ğ ine inanmak istiyorum . Çü nk ü e ğ er b ö yle olmayacaksa
biz k ı yamate kadar d ü nyadan bir ad ı m ö teye gidemeyece ğ iz :)
Kendinize iyi davran ı n .
Ç al ış malar ı n ı zda ba ş ar ı lar dilerim .
Programa Giriş ( Kullanıcı Adı ve Şifre Girişi )
// Arkadaşlar Ben Çok Aramıştım Belki Yeni Başlayanlardan Birinin İşine Yarar.
// Kolay Gelsin Arkadaşlar Bu Kodu biraz Geliştirmek İstiyorum...
// Yardım Etmek İsterseniz Sayfanın Altında Ki Açıklamayı Okuyup Yardım Ederseniz Sevinirim.
procedure TForm18 . BitBtn1Click ( Sender : TObject );
var
I : integer ;
K_ADI , K_SIFRE : string ;
begin
if Edit1 . Text = '' then
begin
ShowMessage ( 'Lütfen Kullanıcı Adini Giriniz' );
exit ;
end ;
if Edit2 . Text = '' then
begin
ShowMessage ( 'Lütfen Şifre Giriniz' );
exit ;
end
else
begin
K_SIFRE := Edit2 . Text ;
K_ADI := Edit1 . Text ;
if Table1 . Locate ( 'K_ADI;K_SIFRE' , VarArrayOf ([ Edit1 . Text , Edit2 . Text ]),[ locaseinsensitive ]) then
begin
Gauge1 . MaxValue := 100 ;
Gauge1 . Progress := 0 ;
for I := 1 to 100 do
begin
Gauge1 . Progress := Gauge1 . Progress + 1 ;
Sleep ( 15 );
end ;
Form18 . Hide ;
Form19 . show ;
Edit1 . Text := '' ;
Edit2 . Text := '' ;
end
else
begin
ShowMessage ( 'Kullanıcı Adinı veya Şifresini Yanlış Girdiniz...!' );
Edit1 . SetFocus ;
Edit1 . SelectAll ;
Edit1 . Text := '' ;
Edit2 . Text := '' ;
end ;
end ;
end ;
//
Merhaba Arkada ş lar Kulay Gelsin . Programa Girerken Ş u Kodlar ı Kullan ı yorum ..
Kullan ı c ı Ad ı Ve Ş ifresi İç in ...
Bu Koda Bir Ş ey İ lave Edmek İ stiyorum ...
Admin Kullan ı c ı Ve Ş ifresi Bunu İç in Kodun Neresine Nas ı l Bir Kod Ekleme Gerek
Derdimi Anlatabildim mi .
Yard ı mc ı Olabilirseniz Sevinirim . Ç ok Ö nemli Arkada ş ar Yard ı mlar ı n ı z ı Bekliyorum ...
KOLAY GELS İ N .
Delphi - .....................................
Programa Giriş ( Kullanıcı Adı ve Şifre Girişi )
// Arkadaşlar Ben Çok Aramıştım Belki Yeni Başlayanlardan Birinin İşine Yarar.
// Kolay Gelsin Arkadaşlar Bu Kodu biraz Geliştirmek İstiyorum...
// Yardım Etmek İsterseniz Sayfanın Altında Ki Açıklamayı Okuyup Yardım Ederseniz Sevinirim.
procedure TForm18 . BitBtn1Click ( Sender : TObject );
var
I : integer ;
K_ADI , K_SIFRE : string ;
begin
if Edit1 . Text = '' then
begin
ShowMessage ( 'Lütfen Kullanıcı Adini Giriniz' );
exit ;
end ;
if Edit2 . Text = '' then
begin
ShowMessage ( 'Lütfen Şifre Giriniz' );
exit ;
end
else
begin
K_SIFRE := Edit2 . Text ;
K_ADI := Edit1 . Text ;
if Table1 . Locate ( 'K_ADI;K_SIFRE' , VarArrayOf ([ Edit1 . Text , Edit2 . Text ]),[ locaseinsensitive ]) then
begin
Gauge1 . MaxValue := 100 ;
Gauge1 . Progress := 0 ;
for I := 1 to 100 do
begin
Gauge1 . Progress := Gauge1 . Progress + 1 ;
Sleep ( 15 );
end ;
Form18 . Hide ;
Form19 . show ;
Edit1 . Text := '' ;
Edit2 . Text := '' ;
end
else
begin
ShowMessage ( 'Kullanıcı Adinı veya Şifresini Yanlış Girdiniz...!' );
Edit1 . SetFocus ;
Edit1 . SelectAll ;
Edit1 . Text := '' ;
Edit2 . Text := '' ;
end ;
end ;
end ;
//
Merhaba Arkada ş lar Kulay Gelsin . Programa Girerken Ş u Kodlar ı Kullan ı yorum ..
Kullan ı c ı Ad ı Ve Ş ifresi İç in ...
Bu Koda Bir Ş ey İ lave Edmek İ stiyorum ...
Admin Kullan ı c ı Ve Ş ifresi Bunu İç in Kodun Neresine Nas ı l Bir Kod Ekleme Gerek
Derdimi Anlatabildim mi .
Yard ı mc ı Olabilirseniz Sevinirim . Ç ok Ö nemli Arkada ş ar Yard ı mlar ı n ı z ı Bekliyorum ...
KOLAY GELS İ N .
Delphi - .....................................
inmem000.rem problemi çözemedim
c:....... temp de inmem000 . rem diye bi dosya olu ş turuyor session falan hepsi ayarlanm ış durumda yine de olmad ı
Delphi - .....................................
inmem000.rem problemi çözemedim
c:....... temp de inmem000 . rem diye bi dosya olu ş turuyor session falan hepsi ayarlanm ış durumda yine de olmad ı
Delphi - .....................................
Örnek Install
Arkadaş lar Ö rnek Install yani Kurulum programlar ı n ı kendimizde geli ş tirebiliriz .
Bu linkte yap ı lm ış en g ü zel kurulum program ı n ı n tan ı t ı m ı d ı r .
Kurulum program ı da ç ok yak ı nda hizmetinizde ......
http : //www.inndir.com/inndir.php?id=29575 <---- Burayı Kopyala Yapıştır Yaparak Örnek Kurulum Programını ve Otomasyon Sistemini İnceleyebilirsiniz....
Delphi - .....................................
Örnek Install
Arkadaş lar Ö rnek Install yani Kurulum programlar ı n ı kendimizde geli ş tirebiliriz .
Bu linkte yap ı lm ış en g ü zel kurulum program ı n ı n tan ı t ı m ı d ı r .
Kurulum program ı da ç ok yak ı nda hizmetinizde ......
http : //www.inndir.com/inndir.php?id=29575 <---- Burayı Kopyala Yapıştır Yaparak Örnek Kurulum Programını ve Otomasyon Sistemini İnceleyebilirsiniz....
Delphi - .....................................
neoturk - re:"yardım talebi ya bende yada kitapta hata var"
"
unit ogrenci ;
interface
uses
Windows , Messages , SysUtils , Variants , Classes , Graphics , Controls , Forms ,
Dialogs , ComCtrls , StdCtrls ;
type
Tfrmogrenci = class ( TForm )
btnekle : TButton ;
btnsil : TButton ;
btncik : TButton ;
dtpkayittarihi : TDateTimePicker ;
cbobolumu : TComboBox ;
edadsoyad : TEdit ;
Label1 : TLabel ;
Label2 : TLabel ;
Label3 : TLabel ;
lvwogrencilistesi : TListView ;
procedure FormCreate ( Sender : TObject );
procedure btnekleClick ( Sender : TObject );
procedure btnsilClick ( Sender : TObject );
procedure btncikClick ( Sender : TObject );
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmogrenci : Tfrmogrenci ;
implementation
{$R *.dfm}
procedure Tfrmogrenci . FormCreate ( Sender : TObject );
begin
cbobolumu . ItemIndex := 0 ;
lvwogrencilistesi . ViewStyle := vsreport ;
lvwogrencilistesi . Columns . Add ;
lvwogrencilistesi . Columns . Items [ 0 ]. Caption := 'Adı Soyadı' ;
lvwogrencilistesi . Columns . Items [ 0 ]. width := 100 ;
lvwogrencilistesi . Columns . Add ;
lvwogrencilistesi . Columns . Items [ 1 ]. Caption := 'Bölümü' ;
lvwogrencilistesi . Columns . Items [ 1 ]. width := 100 ;
lvwogrencilistesi . Columns . Add ;
lvwogrencilistesi . Columns . Items [ 2 ]. Caption := 'Kayıt Tarihi' ;
lvwogrencilistesi . Columns . Items [ 2 ]. width := 100 ;
end ;
procedure Tfrmogrenci . btnekleClick ( Sender : TObject );
const s : integer = 0 ; <*<*<*<*<*<*<*<<*<*<*< ( burda hata veriyor program )
if lvwogrencilistesi . Items . count = 0 then s : 0 ;
lvwogrencilistesi . Items . Add ;
lvwogrencilistesi . Items . Item [ s ]. Caption := edadsoyad . Text ;
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( cbobolumu );
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( DateToStr ( dtpkayittarihi . Date ));
s := s + 1 ;
end ;
procedure Tfrmogrenci . btnsilClick ( Sender : TObject );
begin
lvwogrencilistesi . Items . Delete ( lvwogrencilistesi . ItemIndex );
end ;
procedure Tfrmogrenci . btncikClick ( Sender : TObject );
begin
close ;
end ;
end .
"
merhaba ,
1 )
formun create b ö l ü m ü ndeki ayarlara pek gerek yok
elle manuel olarak listview nesnesine 3 adet kolon olu ş tur ve captionlar ı n ı ayarla .
buras ı g ö rsellik i ç in ..
2 )
"
const s : integer = 0 ; <*<*<*<*<*<*<*<<*<*<*< ( burda hata veriyor program )
if lvwogrencilistesi . Items . count = 0 then s : 0 ;
lvwogrencilistesi . Items . Add ;
lvwogrencilistesi . Items . Item [ s ]. Caption := edadsoyad . Text ;
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( cbobolumu );
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( DateToStr ( dtpkayittarihi . Date ));
s := s + 1 ;
"
var s : integer = 0 ; <*<*<*<*<*<*<*<<*<*<*< ( burda hata veriyor program )
if lvwogrencilistesi . Items . count = 0 then s := 0 ;
lvwogrencilistesi . Items . Add ();
lvwogrencilistesi . Items . Item [ s ]. Caption := edadsoyad . Text ;
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( cbobolumu );
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( DateToStr ( dtpkayittarihi . Date ));
s := s + 1 ;
yukar ı daki ş ekilde de ğ i ş tirip tekrar g ö zden ge ç ir .
( const ile yap ı lm ış sabit tan ı m ı na tekrar de ğ er aktar ı lamaz , s = s + 1 gibi )
add () ç ift parantez de ekle ,
ş ayet yukardakilerin hi ç biri olmaz ise ( ki sanm ı yorum hata çı ks ı n ),
ş u ş ekilde de ğ i ş tir , ( ekle butonunun cli ğ ine yaz ),
var s : integer ;
begin
s := lvwogrencilistesi . items . count ;
if s < 0 then s := 0 ; //her ihtimale karşı sigorta olsun diye yazdım kasıtlı!
lvwogrencilistesi . items . add ();
lvwogrencilistesi . Items . Item [ s ]. Caption := edadsoyad . Text ;
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( cbobolumu );
lvwogrencilistesi . Items . Item [ s ]. SubItems . Add ( DateToStr ( dtpkayittarihi . Date ));
end ;
% 100 olarak ç al ış acakt ı r ....
3 ) silme tu ş una yazd ığı n kod ,
lvwogrencilistesi . Items . Delete ( lvwogrencilistesi . ItemIndex );
ş eklinde yazm ış s ı n , se ç ili bir eleman olmaz ise hata raporuyla kar şı la şı rs ı n ,
bunu da ş u ş ekilde de ğ i ş tir ,
try
lvwogrencilistesi . Items . Delete ( lvwogrencilistesi . ItemIndex );
except
showmessage ( 'silinecek elemanı seçin' );
end ; //try-except
ba ş ka bi ş i yok hatal ı g ö r ü nen ,
kolay gelsin ....
sayg ı lar ı mla_
