Dosya sistemi proplemi...???

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Cevapla
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

Dosya sistemi proplemi...???

Mesaj gönderen b@dboyvz »

Selamün Aleyküm kolay gelsin herkese yaf bi program yapıyordum evde bilgisayarımda hersey süperdi hastane için isim aliyo geliş gidişleri kaydediyo sonra tatile memleketime geldim bilgisayarıma yükledim delphiyi ve programa devam ettim ama şimdi kayıtları bulmuo en son kaydı gösterio hiç bi farkı yoq evdekiyle proplemi ne olabilir????
Allaha emanet olun... :?
Sevgilerle Delphi,,,
Başa dön
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Aklıma gelen ilk şey: Alias.
Biraz daha bilgi verirseniz daha çok cevap alabilirsiniz.
Başa dön
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

valla daha ne diim

Mesaj gönderen b@dboyvz »

Hocam okulda kayit yapiyorum arama yapıyorum herseyi yapıyorum ama şimdi memlekette geldim ama benim bilgisayarımda aynı seyi yapmıo valla tam problemi bilmiorum veya eksik anlatıyorum isterseniz kodları yollarım ama bişey farkeder mi onu da bilmiorum yaf cvp bekliorum yani özü kayit yaparken veya ararken ana yani kod yazmaya başladıgım bilgisayarda yapıo ama başka bilgisayara geldiğinde sadece son kayitlari buluo
ok?
saolun...
bekliorum...
Sevgilerle Delphi,,,
Başa dön
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Ne yaptığını, hangi vertitabanını nasıl kullandığını, nasıl arama ve kayıt yaptığını anlatmazsan, bize malûm olacağını beklersen cevabı da çok beklersin :idea:
b@dboyvz yazdı:Hocam okulda kayit yapiyorum arama yapıyorum herseyi yapıyorum ama şimdi memlekette geldim ama benim bilgisayarımda aynı seyi yapmıo...
Bu bahsettiğin şeyin ne olduğunu bildiğimizi mi sanıyorsun :?:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Başa dön
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Bilgi vermemekte inat ediyor gibi görünseniz de hangi bilgileri göndereceğinizi bilmediğinizden kaynaklandığını düşünüp müneccimliğe başlıyorum :roll:

Table ya da Query kullanıyorsanız, ObjectInspector'de DataBaseName seçersiniz. Seçtiğiniz şey Alias'tır. Alias, VT dosyalarının tutulduğu klasörü belirtir. Bu nedenle programı başka bilgisayara kopyala-yağıştır ile taşıdığınızda sorun oluşur;
Alias ın belirttiği yerde VT dosyaları yoktur. Misal programı yazdığınız yerde Alias D:\Delphi\Proje1\VeriTabani klasörünü gösteriyordur, kopyaladığınız bilgisayarda ise VT dosyaları C:\Proje1\VeriTabanı klasörü içindedir...

Bir sorun daha var. VT'yi kullanmanız için BDE ayarlarının yapılması gerekir.
Programı yazdığınız bilgisayarda Delphi kurulurken bu ayarlar yapıldığı için ayrıca bi şey yapmanıza gerek kalmaz. Programı başka bilgisayarda kullanabilmeniz için o bilgisayarda da BDE ayarlarının yapılması gerekir.
Setup programları bu işi yapıyor.

Ama iki durumda da son kayıtları göstermemesi lazım. Başka bi şey olmalı.
Başa dön
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

Haklısınız pardon

Mesaj gönderen b@dboyvz »

Pardon Hocam yaf ben sadece problemi söylüyorum haklısınız hocam veri tabanı yok kodlarla yapıyorum herseyi kod yazma ile yapıoruz bize veritabanı yasak şimdi herkesi bizim gibi zannediorum hani veritabanı falan bizim konumuz deil ya pardon kod yazıyoruz recordları kullanıoruz kayıttipi falan gibi ondan sonrası bahsettiğim gibi saolun...
Sevgilerle Delphi,,,
Başa dön
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Kodlara bakmadan bi yorum yapamam(yapamayız).
Ama son kayıtların görünüp diğerlerinin görünmemesi çok ilginç...
Başa dön
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

gelio ama ...

Mesaj gönderen b@dboyvz »

Hocam kodları yollum ama 2kod arasında ne fark olabilir benanlamadım gelioooo
biraz frazla uzun ama kusuruma bakmayınne biliosak kullanmaya çalıştık

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, Mask, OleCtnrs;

type
  kayittipi=record
  tc:string[11];
  adsoy:string[25];
  bad:string[15];
  ada:string[15];
  bk:string[15];
  bkn:string[15];
  sy:string[15];
  gt:string[15];
  ct:string[15];
  da:string[15];
  rapor:string[100];
  rt:string[15];
  otutar:string[15];
  tutar:string[15];
  os:string[20];
  taksit:string[255];
  ts:string[2];
  cikti:string[255];
  ciktii:string[255];
  oda:string[5];
  end;
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    Edit5: TEdit;
    ComboBox2: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    ComboBox3: TComboBox;
    Memo1: TMemo;
    PaintBox1: TPaintBox;
    MaskEdit2: TMaskEdit;
    MaskEdit3: TMaskEdit;
    MaskEdit4: TMaskEdit;
    Label20: TLabel;
    OleContainer1: TOleContainer;
    Label21: TLabel;
    Memo2: TMemo;
    Label22: TLabel;
    TabSheet4: TTabSheet;
    Memo3: TMemo;
    Button6: TButton;
    Timer1: TTimer;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Button13: TButton;
    Button15: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button11: TButton;
    Button4: TButton;
    Edit6: TEdit;
    Button5: TButton;
    Button14: TButton;
    Button12: TButton;
    Button10: TButton;
    Edit15: TEdit;
    Label31: TLabel;
    Button16: TButton;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label70: TLabel;
    Label71: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Button16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dosya:file of kayittipi;
  kayit:kayittipi;
  implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(dosya,'yener.dat');
 {$I-}
 reset(dosya);
 {$I+};
 if IOresult<>0 then rewrite(dosya);
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
kayit.tc:=Edit1.Text;
kayit.adsoy:=Edit2.Text;
kayit.bad:=Edit3.Text;
kayit.ada:=edit4.Text;
kayit.bk:=ComboBox1.Text;
kayit.bkn:=edit5.Text;
kayit.sy:=ComboBox2.Text;
kayit.gt:=MaskEdit2.Text;
kayit.da:=edit8.Text;
kayit.rapor:=Memo1.Text;
kayit.ct:=MaskEdit4.Text;
kayit.rt:=MaskEdit3.Text;
kayit.tutar:=edit12.Text;
kayit.otutar:=edit13.Text;
kayit.taksit:=memo2.Text;
kayit.os:=ComboBox3.Text;
kayit.ts:=edit6.Text;
kayit.oda:=edit15.Text;
if (edit15.Text=label32.Caption) and (label37.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label33.Caption) and (label38.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label34.Caption) and (label39.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label35.Caption) and (label40.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label36.Caption) and (label41.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label42.Caption) and (label47.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label43.Caption) and (label48.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label44.Caption) and (label49.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label45.Caption) and (label50.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label46.Caption) and (label51.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label52.Caption) and (label57.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label53.Caption) and (label58.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label54.Caption) and (label59.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label55.Caption) and (label60.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');

if (edit15.Text=label56.Caption) and (label61.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label62.Caption) and (label67.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label62.Caption) and (label68.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label64.Caption) and (label69.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label65.Caption) and (label70.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label66.Caption) and (label71.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label72.Caption) and (label77.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label73.Caption) and (label78.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label74.Caption) and (label79.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label75.Caption) and (label80.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label76.Caption) and (label81.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if messagedlg('Kayit Yapılsın mı???',mtInformation,[mbyes,mbno],0)=mryes then
begin
seek(dosya,filesize(dosya));
write(dosya,kayit);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
MaskEdit2.Text:='';
edit7.Text:='';
edit8.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit6.Text:='';
edit12.Text:='';
edit15.Text:='';
ComboBox1.Text:='Seçiniz!!!';
ComboBox2.Text:='Seçiniz!!!';
ComboBox3.Text:='Seçiniz!!!';
memo1.Text:='';
memo2.Text:='';
Memo3.Text:='';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;

c:word;
begin
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kayit);
if (kayit.tc=edit1.Text) or (kayit.bkn=edit5.Text)then
 edit1.Text:=kayit.tc;
 edit2.Text:=kayit.adsoy;
 edit3.Text:=kayit.bad;
 edit4.Text:=kayit.ada;
 ComboBox1.Text:=kayit.bk;
 edit5.Text:=kayit.bkn;
 Maskedit2.Text:=kayit.gt;
 ComboBox2.Text:=kayit.sy;
 edit7.Text:=edit2.Text;
 memo1.text:=kayit.rapor;
 edit8.Text:=kayit.da;
 maskedit3.Text:=kayit.rt;
 maskedit4.Text:=kayit.ct;
 edit11.Text:=edit2.Text;
 edit12.Text:='';
 edit13.Text:=kayit.otutar;
 edit15.Text:=kayit.oda;
 ComboBox3.Text:=kayit.os;
 Memo2.Text:=kayit.taksit;
 edit6.Text:=kayit.ts;
 edit12.Text:=kayit.tutar;
 end;
 end;
procedure TForm1.Button4Click(Sender: TObject);
var
bagkur,ssk,emeklisandigi,ogrenci,memur,diger:string;
a:integer;
b:real;
c:real;
begin
a:=strtoint(edit12.Text);
if ComboBox1.Text='BagKur' then
b:=a*0.1
else if ComboBox1.Text='SSK' then
b:=a*0.2
else if ComboBox1.Text='EmekliSandigi' then
b:=a*0.3
else if ComboBox1.Text='Ogrenci' then
b:=a*0
else if ComboBox1.Text='Memur' then
b:=a*0.4
else if ComboBox1.Text='Diger' then
b:=a*1;
if ComboBox3.Text='Pesin'  then
begin
edit13.text:=floattostr(b*0.9);
memo2.Text:='Peşin Ödeniyor!!!';
end
else
begin
edit13.text:=floattostr(b*1);
memo2.Text:='Taksit Sayisini Seçin!!!';
end;

end;
procedure TForm1.Button5Click(Sender: TObject);
var
t,j,n:integer;
sonuc:real;
w:word;
begin
n:=strtoint(edit6.Text);
t:=strtoint(edit13.Text);
sonuc:=0;
if n>12 then
begin
w:=messagedlg('12den fazla taksit olmaz KUSURA BAKMAYIN!!!',mtWarning,[mbyes,mbno],0);
 if w=mryes then
 begin
 n:=12;
 edit6.Text:='12'
 end
 else if w=mrno then

  exit; end
 else
 for j:=1 to n do
 begin
 sonuc:=t/n;

 memo2.Lines.Add(inttostr(j)+'. Taksit  '  +    floattostr(sonuc) +  '  TL');

 end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
memo3.Lines.Add('Geliş Tarihi ' +MaskEdit2.Text);
memo3.lines.add('Çıkış Tarihi ' +MaskEdit4.text );
memo3.Lines.Add('TC Kimlik Numarası   : ' + edit1.Text);
memo3.Lines.Add('Adi Soyadi                  : ' + edit2.Text);
memo3.Lines.Add('Baba Adi                     : ' + edit3.text);
memo3.Lines.Add('Ana Adi                       : ' + edit4.text);
memo3.Lines.Add('Bağlı Olduğu Kurum   : ' + ComboBox1.Text);
memo3.Lines.Add('Tahsis Numarası       : ' + Edit5.Text);
memo3.Lines.Add('Sevk Yeri                    : ' + ComboBox2.Text);
memo3.Lines.Add('Doktorun Adi Soyadi : ' +Edit8.Text);
memo3.Lines.Add('Rapor                          : ' +memo1.text);
memo3.Lines.Add('Randevu Tarihi          : ' +MaskEdit3.Text);
memo3.Lines.Add('Ödenecek Tutar         : ' +edit13.Text);
memo3.Lines.Add('Taksitler                     : ' +Memo2.text);
memo3.Lines.Add('Oda Numarası                : ' +edit15.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
kayit.tc:=Edit1.Text;
kayit.adsoy:=Edit2.Text;
kayit.bad:=Edit3.Text;
kayit.ada:=edit4.Text;
kayit.bk:=ComboBox1.Text;
kayit.bkn:=edit5.Text;
kayit.sy:=ComboBox2.Text;
kayit.gt:=MaskEdit2.Text;
kayit.da:=edit8.Text;
kayit.rapor:=Memo1.Text;
kayit.ct:=MaskEdit4.Text;
kayit.rt:=MaskEdit3.Text;
kayit.tutar:=edit12.Text;
kayit.otutar:=edit13.Text;
kayit.taksit:=memo2.Text;
kayit.os:=ComboBox3.Text;
kayit.ts:=edit6.Text;
kayit.oda:=edit15.Text;
write(dosya,kayit);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
MaskEdit2.Text:='';
edit7.Text:='';
edit8.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
edit11.Text:='';
edit15.Text:='';
edit12.Text:='';
edit13.Text:='';
edit6.Text:='';
edit12.Text:='';
ComboBox1.Text:='Seçiniz!!!';
ComboBox2.Text:='Seçiniz!!!';
ComboBox3.Text:='Seçiniz!!!';
memo1.Text:='';
memo2.Text:='';
Memo3.Text:='';

edit1.SetFocus;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label24.Caption:=datetostr(date);
label26.Caption:=timetostr(time);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
MaskEdit2.Text:='';
edit7.Text:='';
edit8.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit6.Text:='';
edit15.Text:='';
edit12.Text:='';
ComboBox1.Text:='Seçiniz!!!';
ComboBox2.Text:='Seçiniz!!!';
ComboBox3.Text:='Seçiniz!!!';
memo1.Text:='';
memo2.Text:='';
Memo3.Text:='';

edit1.clear;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
dosya1:file of kayittipi;

begin
assignfile(dosya1,'MalCan.txt');
begin
while not EOF(dosya) do
begin
reset(dosya);
seek(dosya,i);
read(dosya,kayit);
if (kayit.tc<>edit1.text) then
begin
reset(dosya1);
seek(dosya1,filesize(dosya));
write(dosya1,kayit);
end;
end;
closefile(dosya);
deletefile('yener.dat');
renamefile('MalCan.txt','yener.dat');
end;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
MaskEdit2.Text:='';
edit7.Text:='';
edit8.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit6.Text:='';
edit15.text:='';
ComboBox1.Text:='Seçiniz!!!';
ComboBox2.Text:='Seçiniz!!!';
ComboBox3.Text:='Seçiniz!!!';
memo1.Text:='';
memo2.Text:='';
Memo3.Text:='';

end;

procedure TForm1.Button13Click(Sender: TObject);
begin
edit7.Text:='';
edit8.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
memo1.Text:='';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit6.Text:='';
ComboBox3.Text:='Seçiniz!!!';
memo2.Text:='';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
Memo3.Text:='';
end;

procedure TForm1.Edit2Change(Sender: TObject);

begin
edit2.CharCase:=ecUpperCase;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
edit3.CharCase:=ecUpperCase;
end;

procedure TForm1.Edit4Change(Sender: TObject);
begin
edit4.CharCase:=ecUpperCase;
end;

procedure TForm1.Edit8Change(Sender: TObject);
begin
edit8.CharCase:=ecUpperCase;
end;
 procedure TForm1.Button16Click(Sender: TObject);
 begin
if (kayit.oda=label32.Caption) then
label37.Caption:='Dolu'
else
label37.Caption:='Boş';
if (kayit.oda=label33.Caption) then
label38.Caption:='Dolu'
else
label38.Caption:='Boş';
if (kayit.oda=label34.Caption) then
label39.Caption:='Dolu'
else
label39.Caption:='Boş';
if (kayit.oda=label35.Caption) then
label40.Caption:='Dolu'
else
label40.Caption:='Boş';
if (kayit.oda=label36.Caption) then
label41.Caption:='Dolu'
else
label41.Caption:='Boş';
if (kayit.oda=label42.Caption) then
label47.Caption:='Dolu'
else
label47.Caption:='Boş';
if (kayit.oda=label43.Caption) then
label48.Caption:='Dolu'
else
label48.Caption:='Boş';
if (kayit.oda=label44.Caption) then
label49.Caption:='Dolu'
else
label49.Caption:='Boş';
if (kayit.oda=label45.Caption) then
label50.Caption:='Dolu'
else
label50.Caption:='Boş';
if (kayit.oda=label46.Caption) then
label51.Caption:='Dolu'
else
label51.Caption:='Boş';
if (kayit.oda=label52.Caption) then
label57.Caption:='Dolu'
else
label57.Caption:='Boş';
if (kayit.oda=label53.Caption) then
label58.Caption:='Dolu'
else
label58.Caption:='Boş';
if (kayit.oda=label54.Caption) then
label59.Caption:='Dolu'
else
label59.Caption:='Boş';
if (kayit.oda=label55.Caption) then
label60.Caption:='Dolu'
else
label60.Caption:='Boş';
if (kayit.oda=label56.Caption) then
label61.Caption:='Dolu'
else
label61.Caption:='Boş';
if (kayit.oda=label62.Caption) then
label67.Caption:='Dolu'
else
label67.Caption:='Boş';
if (kayit.oda=label63.Caption) then
label68.Caption:='Dolu'
else
label68.Caption:='Boş';
if (kayit.oda=label64.Caption) then
label69.Caption:='Dolu'
else
label69.Caption:='Boş';
if (kayit.oda=label65.Caption) then
label70.Caption:='Dolu'
else
label70.Caption:='Boş';
if (kayit.oda=label66.Caption) then
label71.Caption:='Dolu'
else
label71.Caption:='Boş';
if (kayit.oda=label72.Caption) then
label77.Caption:='Dolu'
else
label77.Caption:='Boş';
if (kayit.oda=label73.Caption) then
label78.Caption:='Dolu'
else
label78.Caption:='Boş';
if (kayit.oda=label74.Caption) then
label79.Caption:='Dolu'
else
label79.Caption:='Boş';
if (kayit.oda=label75.Caption) then
label80.Caption:='Dolu'

else
label80.Caption:='Boş';
if (kayit.oda=label76.Caption) then
label81.Caption:='Dolu'
else
label81.Caption:='Boş';
end;


end.
Sevgilerle Delphi,,,
Başa dön
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

bi garip tarafı daha var

Mesaj gönderen b@dboyvz »

hocamson kaydı gösterio ama kayıt alırken ilk kaydın tc kimlik numarasına göre gösterio enterasan...
Sevgilerle Delphi,,,
Başa dön
Kullanıcı avatarı
naile
Admin
Mesajlar: 1873
Kayıt: 11 Haz 2003 10:11

Mesaj gönderen naile »

Bu kadar uzun kodu kimse anlamaz da, satır satır bakıp anlamaya çalışmaz da. Yapmanız gereken çalışmayan kısmı göndermeniz, ilgili satıra F5 ile break point koyup F8 veya F7 ile step step kodları kontrol etmeniz.
Başa dön
Kullanıcı avatarı
nitro
Üye
Mesajlar: 1112
Kayıt: 23 Ağu 2004 01:18
Konum: Çanakkale
İletişim:
İletişim nitro

Mesaj gönderen nitro »

kardeş ben bu eski dosyalama olaylarını 6 yıl önce bıraktım, o nedenler yardımcı olamayacağım ama kendine çok eziyet çektirmişsin, bu kadar ifli ifade kullanacağına case kullanımını öğren.
kolay gelsin.
Başa dön
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

:shock: :shock: :shock:
incelemeye çalışırım, ne kadar sürer bilmiyorum.
Ben de şunu öneriyorum; FindComponent. Misal

Kod: Tümünü seç

if (edit15.Text=label32.Caption) and (label37.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label33.Caption) and (label38.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label34.Caption) and (label39.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label35.Caption) and (label40.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label36.Caption) and (label41.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label42.Caption) and (label47.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label43.Caption) and (label48.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label44.Caption) and (label49.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label45.Caption) and (label50.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label46.Caption) and (label51.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label52.Caption) and (label57.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label53.Caption) and (label58.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label54.Caption) and (label59.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label55.Caption) and (label60.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label56.Caption) and (label61.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label62.Caption) and (label67.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label62.Caption) and (label68.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label64.Caption) and (label69.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label65.Caption) and (label70.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label66.Caption) and (label71.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label72.Caption) and (label77.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label73.Caption) and (label78.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label74.Caption) and (label79.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label75.Caption) and (label80.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
if (edit15.Text=label76.Caption) and (label81.caption='Dolu') then
showmessage('Oda Dolu Başka Oda Seçin!');
Yerine

Kod: Tümünü seç

var
  i:integer;
begin
  For i:=33 To 76 Do 
  begin
    if (edit15.text=TLabel(FindComponent('Label'+IntToStr(i))).Caption) and (TLabel(FindComponent('Label'+inttostr(i+5))).Caption='Dolu') Then
      showMessage('Oda Dolu Başka Oda Seçin');
  end;
End;
Başa dön
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Hata1

Kod: Tümünü seç

if (kayit.tc=edit1.Text) or (kayit.bkn=edit5.Text)then
 edit1.Text:=kayit.tc;
 edit2.Text:=kayit.adsoy;
 edit3.Text:=kayit.bad;
 edit4.Text:=kayit.ada;
 ComboBox1.Text:=kayit.bk;
 edit5.Text:=kayit.bkn;
 Maskedit2.Text:=kayit.gt;
 ComboBox2.Text:=kayit.sy;
 edit7.Text:=edit2.Text;
 memo1.text:=kayit.rapor;
 edit8.Text:=kayit.da;
 maskedit3.Text:=kayit.rt;
 maskedit4.Text:=kayit.ct;
 edit11.Text:=edit2.Text;
 edit12.Text:='';
 edit13.Text:=kayit.otutar;
 edit15.Text:=kayit.oda;
 ComboBox3.Text:=kayit.os;
 Memo2.Text:=kayit.taksit;
 edit6.Text:=kayit.ts;
 edit12.Text:=kayit.tutar;
 end;
 end;
ilk satırda then'den sonra begin yazmalısın.
if'e bağlı olarak birden fazla satır yazdıracaksan şu şekilde kullanmalısın;

Kod: Tümünü seç

If sart Then 
begin
  kod
  kod
  kod
end;
incelemeye devam ediyorum hata bulursam yazarım. Bulamazsam da yazarım :) Ama findcomponent'i mutlaka kullan :wink:

EDİT: Başka bi şey bulamadım. Hangi buton ne iş yapar; hangi edit hangi bilgiyi tutar; sorunlar nelerdir, bu soruların cevaplarını verirsen bana çok yardımcı olursun.
Başa dön
Kullanıcı avatarı
tuanna
Üye
Mesajlar: 582
Kayıt: 06 Ara 2004 05:01
Konum: Ankara
İletişim:
İletişim tuanna

Mesaj gönderen tuanna »

bence bu arakadaşın baştan başlaması lazım ve veri tabanı ile tanışması lazım...
Siz hayal edin...Biz yapalım TuannaSoft...
Başa dön
b@dboyvz
Üye
Mesajlar: 20
Kayıt: 01 Nis 2006 08:19

Öncelikle saolun

Mesaj gönderen b@dboyvz »

Valla saol ama begin end problemi bunu çözermi bilmiorum bunu deneyeceğim evde net yok git gel yapmak zorunda kalıorum kusura bakmayın findcompenenti kullanacağım evde aynı formatta yazılı begin endler aynı ben bide exe yollim orada editlerin yerleri biraz daha açık ama tam yazmıo onuda gönderirim ok? exeyi nasıl yollim gerekiyorsa buara bize veri tabanı kullanmak yasak bu şekilde yapmamız istenio ok görüşmek üzere!!!
eywallah
Sevgilerle Delphi,,,
Başa dön
Cevapla

“Programlama” sayfasına dön