Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » Datagrid ile kayıtların göslerilmesi
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Doğum Günü Bulma

Yazar: eternity
Bu Kod İle Hangi Günde Doğduğunuzu Öğrenebilirsiniz.


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9510
Yayın Tar:03.11.2007
Yazar : sahinkalem
Hit :3184

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Personelin günlük giriş çıkış saatlerinin tutulduğu veritabanında kayıtları gösteren formun kodlarıdır. Personelin hepsinin kayıtların tutulduğu tablolar ve bir genel olarak kayıtların tutulduğu 25 adet tabloya ait kayıtların ayrı ayrı gösteridiği bir datagrid uygulamasıdır.
Yazdır komutlarının alıntı olduğunu belirtiyim.

Önce "Project" menüsünden referans ve bileşenleri ekliyoruz.
MS ADO DATA KONTROL 6.0 , MS DATAGRID KONTROL 6.0, MS DATALIST 6.0

Nnesneleri ekleyelim: 1 Adet DataCombo, 4 Adet buton, 1 Adet Datagrid, 1 Adet Label, 2 Adet AdoDc

İlk olarak personele ait tabloları, bütün tablo isimlerinin bulunduğu tabloyu ve bütün personelin kaydının tutulacağı tabloyu (Ben KONTROL adını verdim) oluşturun.

Önce AdoDc1'in custom özelliğinden veritababına bağlayın ve recordsource command type ını CmdTable yapıp bir tablo seçin. Hangi tablo olduğu burda önemli değil çünkü Adodc1 recorsource sürekli değişecek .Datagrid1 in datasource unu boş bırakın çünkü tabloadını datacombodan alacakk.

AdoDc2 yi veritabanına baglayın ve recordsource commandtyppe ını CmdTable yapıp tabloadlarının yazılı olduğu tabloyu seçin. Datacombonun datasourceu ve rowsource Adodc2 yapın, boundcolumn,datafield ve listfield özelliklerinde alanadını seçin

BUTONLAR
command1 datacombodan seçtiğiniz kişinin tablosunu gösterir.
command2 bütün personelin kaydının tutulacağı kaydı gösterir.
command3 datagriddeki kayıtları yazdırır.Yazıcınız yoksa dosya olarak kaydeder
command4 formu kapatır
Form_Resize da bulunan kodlar datagridi formla beraber büyüyp küçülmesini sağlar.
Label' ı ben datacombonun yanına ekleyip kayıt seç yazdım.Siz kendinize göre ayarlayın

-----------Veritabanı adresini kendinize göre ayarlamyı unutmayın--------------

Bundan sonra aşagıdaki kodları ekleyin.
-------------------------------------------------------------------
Private Sub Command1_Click()
Dim kayit As String
Dim strbaglanti As String
Dim tablo As String
Set baglanti = New ADODB.Connection
strbaglanti = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Personel\Personel.mdb;Persist Security Info=False"
baglanti.Open strbaglanti
kayit = DataCombo1.Text
Adodc1.RecordSource = kayit
Set DataGrid1.DataSource = Adodc1
baglanti.Close
Set baglanti = Nothing
Adodc1.Refresh
DataGrid1.Refresh
End Sub

-------------------------------------------------------------------

Private Sub Command2_Click()
Set baglanti = New ADODB.Connection
strbaglanti = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Personel\Personel.mdb;Persist Security Info=False"
baglanti.Open strbaglanti
Adodc1.RecordSource = "KONTROL"
Set DataGrid1.DataSource = Adodc1
baglanti.Close
Set baglanti = Nothing
Adodc1.Refresh
DataGrid1.Refresh
End Sub
-------------------------------------------------------------------
Private Sub Command3_Click()
On Error GoTo hata
Dim g, y, m, n, w As Integer
Dim en(8) As String
g = 0: w = 0
For b = 0 To DataGrid1.Columns.Count - 1
n = 0
Adodc1.Recordset.MoveFirst
For k = 0 To DataGrid1.ApproxCount - 1
m = TextWidth(DataGrid1.Columns(b).Text)
If n < m Then
n = m
End If
Adodc1.Recordset.MoveNext
Next k
n = n + 200
en(g) = n
g = g + 1
DataGrid1.Columns(b).Width = n
Next b
y = 400
Adodc1.Recordset.MoveFirst
For a = 0 To DataGrid1.ApproxCount - 1
w = 200
For s = 0 To DataGrid1.Columns.Count - 1
Printer.CurrentY = 150
Printer.CurrentX = w
Printer.Print DataGrid1.Columns(s).Caption
Printer.CurrentY = y
Printer.CurrentX = w
Printer.Print DataGrid1.Columns(s)
w = w + en(s)
Next s
If Printer.CurrentY + Printer.TextHeight(DataGrid1.Text) > Printer.ScaleHeight - 400 Then
y = 600
Printer.NewPage
End If
y = y + 200
Adodc1.Recordset.MoveNext
Next
Printer.Print
Printer.EndDoc
hata:
End Sub

-------------------------------------------------------------------

Private Sub Command4_Click()
Unload Me
End Sub

-------------------------------------------------------------------

Private Sub Form_Resize()
DataGrid1.Height = Me.ScaleHeight
DataGrid1.Width = Me.ScaleWidth
End Sub

Takıldığınız veya sormak istediğiniz bir şey olursa sahin-kalem@hotmail.com



-------------------------------------------------------------------

Private Sub Command2_Click()
Set baglanti = New ADODB.Connection
strbaglanti = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Personel\Personel.mdb;Persist Security Info=False"
baglanti.Open strbaglanti
Adodc1.RecordSource = "KONTROL"
Set DataGrid1.DataSource = Adodc1
baglanti.Close
Set baglanti = Nothing
Adodc1.Refresh
DataGrid1.Refresh
End Sub
-------------------------------------------------------------------
Private Sub Command3_Click()
On Error GoTo hata
Dim g, y, m, n, w As Integer
Dim en(8) As String
g = 0: w = 0
For b = 0 To DataGrid1.Columns.Count - 1
n = 0
Adodc1.Recordset.MoveFirst
For k = 0 To DataGrid1.ApproxCount - 1
m = TextWidth(DataGrid1.Columns(b).Text)
If n < m Then
n = m
End If
Adodc1.Recordset.MoveNext
Next k
n = n + 200
en(g) = n
g = g + 1
DataGrid1.Columns(b).Width = n
Next b
y = 400
Adodc1.Recordset.MoveFirst
For a = 0 To DataGrid1.ApproxCount - 1
w = 200
For s = 0 To DataGrid1.Columns.Count - 1
Printer.CurrentY = 150
Printer.CurrentX = w
Printer.Print DataGrid1.Columns(s).Caption
Printer.CurrentY = y
Printer.CurrentX = w
Printer.Print DataGrid1.Columns(s)
w = w + en(s)
Next s
If Printer.CurrentY + Printer.TextHeight(DataGrid1.Text) > Printer.ScaleHeight - 400 Then
y = 600
Printer.NewPage
End If
y = y + 200
Adodc1.Recordset.MoveNext
Next
Printer.Print
Printer.EndDoc
hata:
End Sub

-------------------------------------------------------------------

Private Sub Command4_Click()
Unload Me
End Sub

-------------------------------------------------------------------

Private Sub Form_Resize()
DataGrid1.Height = Me.ScaleHeight
DataGrid1.Width = Me.ScaleWidth
End Sub

Takıldığınız veya sormak istediğiniz bir şey olursa sahin-kalem@hotmail.com







Yorumlar, eklemeler ve düşünceler
        çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz
çok kötü işe yaeramazzzzzzzzz


   CER_no_BIL, 10.01.2008 12:35
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin