ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > Programlama

Programlama Programlama hakkında herşeyi paylaştığımız, soru ve sorunlarımızı tartıştığımız bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 28.12.06, 15:37   #1 (permalink)
Deneyimli Tayfa
 
silentwolf - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Dec 2006
Nereden: burada
Mesaj Sayısı: 3.964
Konu Sayısı: 157
Takım: Fenerbahçe
Rep Gücü: 196650
Rep Puanı: 19663395
Rep Derecesi : silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000silentwolf 0-10000000
Ruh Hali:

Standart Personel programı--İşe Yarayacagından Eminim !..




Girilen personel bilgilerini listbox'lara atayan ve gerektiginde Silme, yer degişimi, arama ve kayıt degişikligi gibi
uygulamaları olan ve girilen bilgileri form kapatıldıgında kaydedip bir sonraki çalıştıgında kayıtları gösteren bir program. İşe yarayacagına eminim.

Özellikle Ögrenci arkadaşlarımızın işine yarayacaktır.yeni başlayanlar içinde faydalı. Örnegimiz için 3 edit, 8 label, 6 button, 3 listbox ekleyin.

Label'ların 4'ünün cation özelligine sırası ile "Personelin,ADI SOYADI,MESLEGİ,ÇALIŞTIGI BİRİM" degerlerini verelim.büyük yazmış oldugum label 2,3ve4 'ün karşısına edit 1,2 ve 3'ü getirelim. Label 5'in caption özelligine 'Personel sayısı' degerini girelim. Karşısına label6'yı getirelim burada kayıt sayısı görülecek.label7 nin caption özelligine "sıra no" degerini verelim ve karşısına label8'i getirelim.burada ise seçili kaydın sıra numarası görülecek.buttonları ekleyip sırasıyla caption özelligine şu degerleri verelim: 1.ye "ekle", 2.ye "sil", 3.ye "bul", 4.ye "degiştir", 5.ye "taşı", 6.ya ise "araya ekle" degerlerini verelim.

Diger elemanlarıda ekledikten sonra aşagıdaki kodları yazınız. Umarım kolay anlatmışımdır zorlanmazsınız inşallah.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
ListBox1: TListBox;
ListBox2: TListBox;
ListBox3: TListBox;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin {bilgilerin listelere eklenmesi}
if Listbox1.Items.IndexOf (edit1.Text)>-1 then
showMessage(edit1.Text+' adlı personel zaten var')
else
begin
listbox1.Items.Add(edit1.Text);
listbox2.Items.Add(edit2.Text);
listbox3.Items.Add(edit3.Text);
label6.Caption:=InTtoStr(Listbox1.Items.Count);
Listbox1.ItemIndex:=listbox1.Items.Count-1;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var {seçili elemanın silinmesi}
c,Ind:integer;
begin
Ind:=listbox1.ItemIndex;
if Ind<0 then
showMessage('silinecek personeli listeden seçin')
else
begin
c:=ApplicaTion.MessageBox('seçili personel silinsin mi?','Personel Silme',Mb_YesNo+ Mb_IconQuesTion);
if c=IDYes then
begin
listbox1.Items.Delete(Ind);
listbox2.Items.Delete(Ind);
listbox3.Items.Delete(Ind);
label6.Caption:=IntTostr(listbox1.Items.Count);
end;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var {listedeki bir elemanı bulunması}
Ind:integer;
begin
Ind:=listbox1.Items.IndexOf(edit1.Text);
if Ind<0 then
showMessage(edit1.Text+ ' isimli personel bulunamadı')
else
ListBox1.ItemIndex:=Ind;
end;

procedure TForm1.Button4Click(Sender: TObject);
var {seçili elemanın silinmesi}
Ind:integer;
begin
Ind:=Listbox1.ItemIndex;
if Ind<0 then
showMessage ('degiştirilecel elemanı listeden seçiniz')
else
begin
listbox1.Items[Ind]:=Edit1.Text;
listbox2.Items[Ind]:=Edit2.Text;
listbox3.Items[Ind]:=Edit3.Text;
end;
end;

procedure TForm1.Button5Click(Sender: TObject);
var {elemanın taşınması}
ind,yeniInd:integer;
begin
ind:=listbox1.ItemIndex;
if ind<0 then
showMessage('önce taşınacak personeli listeden seçiniz')
else
begin
yeniInd:= StrToInt(Inputbox('Yer değişme','seçili personel listede kaçıncı sıraya gelsin','1'));
YeniInd:=yeniInd-1;
if (YeniInd<0) or (yeniInd>listbox1.Items.Count) then
showmessage('Geçersizbi sıra numarası girdinz')
else
listbox1.Items.Move(ind,YeniInd);
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var {araya eleman ekleme}
Ind:integer;
begin
Ind:=listbox1.ItemIndex;
if Ind<0 then
showmessage('Önce nerye ekleyeceginizi listeden seçiniz')
else
if listbox1.Items.IndexOf(Edit1.Text)>1 then
showMessage(edit1.Text+' adlı personel zaten var')
Else
begin
listbox1.Items.Insert(Ind,Edit1.Text);
listbox2.Items.Insert(Ind,Edit2.Text);
listbox3.Items.Insert(Ind,Edit3.Text);
listbox1.ItemIndex:=listbox1.Items.Count-1;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin {form yüklendigindedosya içeriklerinin listelere yüklenmesi }
if FileExists('PerAd.dat') then
begin
listbox1.Items.LoadFromFile('PerAd.dat');
listbox2.Items.LoadFromFile('PerMes.dat');
listbox3.Items.LoadFromFile('PerBirim.dat');
end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var {listelerden birinde bir eleman seçildiginde digerlerininde seçilmesini saylar}
Ind,Tind:integer;
begin
Ind:=TListbox(sender).ItemIndex;
Tind:=Tlistbox(sender).TopIndex;
listbox1.ItemIndex:=Ind;
listbox2.ItemIndex:=Ind;
listbox3.ItemIndex:=Ind;
listbox1.TopIndex:=Tind;
listbox2.TopIndex:=Tind;
listbox3.TopIndex:=Tind;
label8.Caption:=IntTostr(Ind+1);
edit1.Text:=Listbox1.Items[Ind];
Edit2.Text:=Listbox1.Items[Ind];
Edit3.Text:=Listbox1.Items[Ind];
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin {form kapatıldıgında bilgileri kayıt eder}
listbox1.Items.SaveToFile('PerAd.Dat');
listbox2.Items.SaveToFile('PerMes.Dat');
listbox3.Items.SaveToFile('PerBirim.Dat');
end;
end.


__________________
bir silahım olsaydı...




hiç bir farklılık ayrımcılığa neden olamaz.
Hürriyet Hürriyettir.

silentwolf isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 03.01.10, 13:02   #2 (permalink)
Yeni Tayfa
 
omer_evet - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jan 2010
Mesaj Sayısı: 1
Konu Sayısı: 0
Rep Gücü: 0
Rep Puanı: 10
Rep Derecesi : omer_evet 0-250000
Standart Cevap: Personel programı--İşe Yarayacagından Eminim !..




delphide personel programı lazım
okulda projem var yoksa delphiden kalacam yardım


omer_evet isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 02:04.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.