Değerli arkadaşlar yerelde bir arkadaşım için hazırladığım sigorta poliçesi teklif takip ve iade programımı sizlerle paylaşıyorum.
Program ile
1- sigorta teklifi verme teklif verilen müşterinin durumunun takibi
2- müşterilerin takip edilecek konularını kaydetme ve takip etme
3- iptal edilen sigortalar için iade işlemleri(Nakit işlemlerde)
4- Günlük olarak yapılan işlemleri kaydetme
5- Veresiye kaydetme/ödeme işlemleri
6- Standart program eklentileri(kullanıcılar, sistem tanımları vs.)
7-yapılan kayıtlardan poliçesi bitecek müşterileri süzme ve yeni teklif oluşturabilme(henüz yapım aşamasında)


kullanıcı : admin
şifre: 1234

Değerlendirme ve eleştirilerinizi bekliyorum. 
Burada bulunmamızın amacı öğrenmek ve paylaşmak olduğuna göre yanlış yaptığım yerleri LÜTFEN söyleyin.

Yerel Ağda bulunan cihazların mac ve ip adreslerini listeleyen uygulama ektedir.

Tüm form üyelerine iyi çalışmalar dilerim.
Ekte sunduğum program İtfaiye ve acil çağrı merkezleri için hazırlanmış olay ihbar ve araç çıkış kayıtlarını tutmakta faydalı olacağına inandığım bir veri tabanı.
Bu veri tabanını hazırlamamda emeği geçen başta @berduş Hocam'a ve diğer yardımcı olan hocalarıma sonsuz teşekkürlerimi sunarım. Umarım işinize yarar.

Pencerenin boyutları formun boyutuna eşit değilse, pencere formun yüksekliği ve genişliğine uyacak şekilde yeniden boyutlandırılır.

Sub ResetWindowSize(frm As Form) 

 Dim intWindowHeight As Integer 

 Dim intWindowWidth As Integer 

 Dim intTotalFormHeight As Integer 

 Dim intTotalFormWidth As Integer 

 Dim intHeightHeader As Integer 

 Dim intHeightDetail As Integer 

 Dim intHeightFooter As Integer 

 

 ' Determine form's height. 

 intHeightHeader = frm.Section(acHeader).Height 

 intHeightDetail = frm.Section(acDetail).Height 

 intHeightFooter = frm.Section(acFooter).Height 

 intTotalFormHeight = intHeightHeader _ 

 + intHeightDetail + intHeightFooter 

 ' Determine form's width. 

 intTotalFormWidth = frm.Width 

 ' Determine window's height and width. 

 intWindowHeight = frm.InsideHeight 

 intWindowWidth = frm.InsideWidth 

 

 If intWindowWidth <> intTotalFormWidth Then 

 frm.InsideWidth = intTotalFormWidth 

 End If 

 If intWindowHeight <> intTotalFormHeight Then 

 frm.InsideHeight = intTotalFormHeight 

 End If 

End Sub