DELPHİ 7
Kod: Tümünü seç
unit PORTFOY_EKRANI;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, Menus, Grids, DBGrids, StdCtrls, DB, ADODB;
type
TPORTFOY_EKRANI1 = class(TForm)
img1: TImage;
pnl1: TPanel;
dbgrdPORTFOY_LISTE: TDBGrid;
pmMENU: TPopupMenu;
Gncelle1: TMenuItem;
lbl1: TLabel;
cbbFIRMA_UNVANI: TComboBox;
lbl2: TLabel;
cbbSEHIR_ADI: TComboBox;
cbbILCE_ADI: TComboBox;
lbl3: TLabel;
lbl4: TLabel;
YeniPortfyEkle1: TMenuItem;
MesajGnder1: TMenuItem;
AramaYap1: TMenuItem;
N1: TMenuItem;
AramaKayd1: TMenuItem;
ds1: TDataSource;
QRYLISTE: TADOQuery;
DataSource1: TDataSource;
cbbSEMT: TComboBox;
edtPOSTA_KODU: TEdit;
lbl5: TLabel;
procedure YeniPortfyEkle1Click(Sender: TObject);
procedure cbbSEHIR_ADIChange(Sender: TObject);
procedure cbbILCE_ADIChange(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PORTFOY_EKRANI1: TPORTFOY_EKRANI1;
TEMP_SEHIR_KIMLIK: String;
implementation
uses YENI_PORTFOY_EKRAN1, KULLANICI_GIRISI1;
{$R *.dfm}
procedure TPORTFOY_EKRANI1.YeniPortfyEkle1Click(Sender: TObject);
begin
YENI_PORTFOY_EKRAN.showmodal;
end;
procedure TPORTFOY_EKRANI1.cbbSEHIR_ADIChange(Sender: TObject);
begin
//// ŞEHİR KIMLIK BULUNUYOR VE İLÇELER LİSTELENİYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Add('SELECT * FROM ADRES_ILLER');
QRYLISTE.SQL.Add('WHERE SEHIR_ADI = '''+cbbSEHIR_ADI.Text+''' ');
QRYLISTE.Open;
TEMP_SEHIR_KIMLIK :=QRYLISTE.Fieldbyname('SEHIR_KIMLIK').Text;
//// İLÇELER ALINIYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Add(' SELECT * FROM ADRES_ILCELER ');
QRYLISTE.SQL.Add(' WHERE SEHIR_KIMLIK = '''+TEMP_SEHIR_KIMLIK+''' ');
QRYLISTE.SQL.Add(' ORDER BY ILCE_ADI ');
QRYLISTE.Open;
cbbILCE_ADI.Clear;
while not QRYLISTE.Eof do
begin
cbbILCE_ADI.items.add(QRYLISTE.fieldbyname('ILCE_ADI').Text);
QRYLISTE.next;
end;
//// İLÇELER BİTTİ
end;
procedure TPORTFOY_EKRANI1.cbbILCE_ADIChange(Sender: TObject);
VAR
TEMP_ILCE_KIMLIK, POSTA_KODU_KIMLIK : String;
begin
//// İLÇE LİSTELENİYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Add(' SELECT dbo.ADRES_ILCELER.*, dbo.ADRES_SEMTLER.*, dbo.ADRES_MAHALLELER.* '
+' FROM dbo.ADRES_MAHALLELER INNER JOIN '
+' dbo.ADRES_SEMTLER ON dbo.ADRES_MAHALLELER.SEMT_KIMLIK = dbo.ADRES_SEMTLER.SEMT_KIMLIK RIGHT OUTER JOIN '
+' dbo.ADRES_ILCELER ON dbo.ADRES_SEMTLER.ILCE_KIMLIK = dbo.ADRES_ILCELER.ILCE_KIMLIK ');
QRYLISTE.SQL.Add(' WHERE dbo.ADRES_ILCELER.SEHIR_KIMLIK = '''+TEMP_SEHIR_KIMLIK+''' ');
QRYLISTE.SQL.Add(' and ILCE_ADI = '''+cbbILCE_ADI.Text+''' ');
QRYLISTE.Open;
TEMP_ILCE_KIMLIK:=QRYLISTE.Fieldbyname('SEMT_KIMLIK').Text;
POSTA_KODU_KIMLIK:=QRYLISTE.Fieldbyname('POSTA_KODU_KIMLIK').Text;
//// MAHALLELER ALINIYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Add(' SELECT * FROM ADRES_MAHALLELER ');
QRYLISTE.SQL.Add(' WHERE SEMT_KIMLIK = '''+TEMP_ILCE_KIMLIK+''' ');
QRYLISTE.Open;
cbbSEMT.Clear;
while not QRYLISTE.Eof do
begin
cbbSEMT.items.add(QRYLISTE.fieldbyname('MAHALLE_ADI').Text);
QRYLISTE.next;
end;
//// MAHALLELER BİTTİ
//// POSTA KODLARI ALINIYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Add(' SELECT * FROM ADRES_POSTA_KODLARI ');
QRYLISTE.SQL.Add(' WHERE POSTA_KODU_KIMLIK = '''+POSTA_KODU_KIMLIK+''' ');
QRYLISTE.Open;
edtPOSTA_KODU.Text:=QRYLISTE.Fieldbyname('POSTA_KODU').Text;
end;
procedure TPORTFOY_EKRANI1.FormShow(Sender: TObject);
begin
cbbSEHIR_ADI.Clear;
cbbILCE_ADI.Clear;
cbbSEMT.Clear;
cbbSEHIR_ADI.Clear;
cbbFIRMA_UNVANI.Clear;
//// ŞEHİRLER ALINIYOR
QRYLISTE.Close;
QRYLISTE.SQL.Clear;
QRYLISTE.SQL.Text:='SELECT * FROM ADRES_ILLER ORDER BY SEHIR_ADI';
QRYLISTE.Open;
cbbSEHIR_ADI.Clear;
while not QRYLISTE.Eof do
begin
cbbSEHIR_ADI.items.add(QRYLISTE.fieldbyname('SEHIR_ADI').Text);
QRYLISTE.next;
end;
//// ŞEHİRLER BİTTİ
end;
end.