Bu dersimizde basit bir for döngüsü kullanımını görelim
Kod:
program banka_ornegi;
{$APPTYPE CONSOLE}
uses
SysUtils;
label git;
var
sayac,sayi:integer;
q:char;
begin
writeln('Bankamiza Hosgeldiniz. Sira Almak İcin "Enter" Tusuna Basmalisiniz.İ);
readln; git:
for sayac :=1 to 4 do
begin
writeln(sayac,İ.İ,'numara, lutfen ilgili banka veznemize gidiniz.İ);
if sayac=4 then
begin
writeln('Bekleyen Müsteri Var Mi? E/H İ);
readln(q);
if q='E' then goto git
else
writeln('Tekrar Gorusmegi Dileriz.İ);
readln;
TIBDatabase Properties Çift Tıklayın gelen ekrandan Databasenizin Id ve şifresini Yazınız Charset Wın1254 Yapınız hemen Altındaki Login Prompt Seçenegi işlem yaparken Database Id şifre isteyip istemiyeceğini belirtir Kaldırmanız daha iyi olur..
TIBTransaction Properties kısmından Default database yazan kısıma IBDATABASE nizi gösteriniz..
IBTable Properties Kısmından Database and Transaction kısmını IBTRANSACTİON VE IBDATABASE Ayarlarınız
Daha Sonrasında Datasourcemize IBTable gösteriyoruz
Dbgrid Datasourcesinide Datasource1 olarak ayarlıyoruz veya siz ne olarak belirlediyseniz ismini..
ve Hepsinin Active Özelligin True Yapınız...
IBQUERY İLE BAĞLAMAK İSTEYENLER ...
TIBDatabase Properties Çift Tıklayın gelen ekrandan Databasenizin Id ve şifresini Yazınız Charset Wın1254 Yapınız hemen Altındaki Login Prompt Seçenegi işlem yaparken Database Id şifre isteyip istemiyeceğini belirtir Kaldırmanız daha iyi olur..
TIBTransaction Properties kısmından Default database yazan kısıma IBDATABASE nizi gösteriniz..
IBQuery Database ve Transaction kısmını Ayarlıyoruz IBDatabase ve IBTRansaction olarak
IBQuery Properties kısmındaki SQL Tıklıyoruz Tables kısmından Tableler Çık tıklayınız sonrasında aşagısında Açılan Fields kısmından Görünmesini istediğiniz Kısımları Çift Tıklayınız
* 'a Çıkt Tıklarsanız Tüm sUTUNLARI listeler ve Active Özelligin True Yapınız...
Daha Sonrasında Datasourcemize IBTable gösteriyoruz
Dbgrid Datasourcesinide Datasource1 olarak ayarlıyoruz veya siz ne olarak belirlediyseniz ismini..
ve Hepsinin Active Özelligin True Yapınız...
IBQuery'de Kayıt Yaparken IBTabledaki gibi IBTable1.insert; IBTable1.Append; Gibi komutlar Çalışmaz ancak bunu Çalıştırmak için Forumumuza Bir Adet IBUPdateSql Bileşeni ekleriz IBQUery properties kısmında en Alttaki seçenek UpdateObject Penceresinden IBUpdatesql Gösteriniz Sonrasında IBUpdatesql Çift Tıklayınız Table name Tablonuzu Seçiniz Keyfield ve UpdateFields Hangi alanlara Kayıt Yapacaksanız onları Seçin ve GenerateSQL Diyerek Okeyleyiniz Artık
IBQUERY1.insert; //Kaydet
IBQuery.delete; // Sil
Ibquery.appen; // Yeni Kayıt
procedure TForm1.Edit1Change(Sender: TObject);
begin
NMStrm1.host:=edit1.text;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
NMstrm1.port:=strtoint(edit2.text);
nmstrmserv1.port:=strtoint(edit2.text);
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
nmstrm1.fromname:=edit3.text;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Fstrm: TFileStream;
begin
if opendialog1.execute then
begin
FStrm:=TFilestream.create(Opendialog1.Filename, fmopenread);
try
NMStrm1.postit(Fstrm);
finally
FStrm.free;
end;
end;
end;
procedure TForm1.NMStrm1PacketSent(Sender: TObject);
begin
Caption:=inttostr(nmstrm1.bytessent)+'/'+ inttostr(nmstrm1.bytestotal);
end;
procedure TForm1.NMStrm1MessageSent(Sender: TObject);
begin
Caption:='Dosya Gönderildi';
end;
procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;
strm: TStream);
var
fstrm:tfilestream;
begin
Caption:=sfrom+'dan'+inttostr(strm.size)+'boyutund a dosya geldi';
if savedialog1.execute then
begin
if fileexists(savedialog1.filename) then
deletefile(savedialog1.filename);
fstrm:=tfilestream.create(savedialog1.filename, fmcreate);
try
fstrm.copyfrom(strm, strm.size);
finally
end;
if lowercase(Extractfileext(savedialog1.filename))='. bmp' then
image1.picture.loadfromfile(savedialog1.filename);
end;
end;
end.
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c:array[1..10,1..10]of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);/ilk matrisi okutmak/
var
i,j:integer;
begin
ilk.Text:='';
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
begin
a[i,j]:=strtoint(inputbox('A matrisi',inttostr(i)+','+inttostr(j)+'.elemanın degeri:','1'));
ilk.Text:=ilk.Text+' '+inttostr(a[i,j]);
end;
ilk.Text:=ilk.Text+#13#10;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);/ikinci matrisi okutmak/
var
i,j:integer;
begin
orta.Text:='';
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
begin
b[i,j]:=strtoint(inputbox('B matrisi',inttostr(i)+','+inttostr(j)+'.elemanın değeri:','1'));
orta.Text:=orta.Text+' '+inttostr(b[i,j]);
end;
orta.Text:=orta.Text+#13#10
end;
end;
procedure TForm1.Button3Click(Sender: TObject);/matrislerin toplanması/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[i,j]+b[i,j];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button4Click(Sender: TObject);/matrislerin çıkartılması/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[i,j]-b[i,j];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button5Click(Sender: TObject);/matrislerin transpozesi/
var
i,j:integer;
begin
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
for j:=1 to strtoint(edit2.Text) do
c[i,j]:=a[j,i];
for i:=1 to strtoint(edit1.Text) do
begin
for j:=1 to strtoint(edit2.Text) do
son.Text:=son.Text+' '+inttostr(c[i,j]);
son.Text:=son.Text+#13#10 ;
end;end;
procedure TForm1.Button6Click(Sender: TObject);/matrislerin izi/
var
i,j,toplam:integer;
begin
toplam:=0;
son.Text:='';
for i:=1 to strtoint(edit1.Text) do
toplam:=a[i,i]+toplam;
son.text:=inttostr(toplam);
procedure TForm1.Button1Click(Sender: TObject);
var
sakat:integer;
begin
sakat:=strtoint(edit1.Text );
if sakat<0 then label2.Caption :='sonuç= negatif'
else
label2.Caption :='sonuç= pozitif'
end;
end.
böyle programlar neden yapılır ki saçma bence size yararı olsun yeter bana.
table1.First;
while not table1.Eof do begin
if (Table1Numarasi.Text=edit1.Text)then begin
edit2.Text:=Table1Adi.Text;
edit3.Text:=Table1Soyadi.Text;
edit7.SetFocus;
end;
table1.Next;
end;
