Arıza onarım için gelen cihazların narım süreçlerini derleyen ara yüz ve kaynak kodları ile ilgili yaptığım çalışma.

var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); begin ADOQUERY2.Active :=FALSE; ADOQUERY2.Close; ADOQUERY2.SQL.Clear; ADOQUERY2.SQL.Add('SELECT * FROM PMUSTERI WHERE '+label15.Caption+' LIKE "%'+EDIT2.TEXT+'%"'); ADOQUERY2.Active :=TRUE; edit2.Text :=''; adoquery2.open; END; procedure TForm1.BitBtn3Click(Sender: TObject); begin panel9.Visible :=false;

end; procedure TForm1.BitBtn4Click(Sender: TObject); begin panel6.Visible :=false; end; procedure TForm1.Button10Click(Sender: TObject); begin if dbedit2.Text >'' then begin adotable1.Edit; DBEDIT10.Text :=DBEDIT28.Text ; end else PANEL13.Visible :=TRUE; panel13.Caption :='Önce FiŞ Açmalİsİnİz'; panel11.Visible :=false; panel6.Visible :=True; end; procedure TForm1.Button11Click(Sender: TObject); begin PANEL12.Visible :=FALSE; end; procedure TForm1.Button12Click(Sender: TObject); begin PANEL12.Visible :=FALSE; PANEL13.Visible :=FALSE; end; procedure TForm1.Button13Click(Sender: TObject); begin DBGRID3.DataSource :=DATASOURCE6; end; procedure TForm1.Button14Click(Sender: TObject); begin ADOTABLE1.Edit ; DBEDIT7.Text:=DBEDIT30.Text; end; procedure TForm1.Button15Click(Sender: TObject); begin ADOTABLE1.Edit; DBEDIT9.Text :=DBEDIT39.Text; DBEDIT7.Text :=DBEDIT38.Text; end; procedure TForm1.Button16Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; end; procedure TForm1.Button17Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False;

panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\DEPODAKIARIZALILAR.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'SERVİSE GÖNDERİLECEK DEPODAKİ ARIZALI ÜRÜNLER '; DBGRID6.Columns[4].FieldName :='MTT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='DEPODAKIARIZALILAR'; end; procedure TForm1.Button17MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'SERVİSE GİDECEK ARIZALI ÜRÜNLER DEPOSU'; end; procedure TForm1.Button18Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\TESLIMEDILENLER.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'MÜŞTERİYE TESLİMATI GERÇEKLEŞEN ÜRÜNLER '; DBGRID6.Columns[4].FieldName :='MTAT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='TESLIMEDILENLER'; end; procedure TForm1.Button18MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'MÜŞTERİYE TESLİM EDİLENLER'; end; procedure TForm1.Button19Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\SERVISEGIDENLER.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'SERVİSTE ONARIM SÜRECİNDE OLANLAR '; DBGRID6.Columns[4].FieldName :='KTT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='SERVISEGIDENLER';

end; procedure TForm1.Button19MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'SERVİSTE OLANLAR'; end; procedure TForm1.Button1Click(Sender: TObject); begin if LABEL66.Caption ='' then BEGIN ADOTABLE11.Insert ; ADOTABLE11.FieldByName('AFN').AsString := dbedit47.Text ; ADOTABLE11.FieldByName('MEXEFE').AsString := LABEL55.Caption; ADOTABLE11.Post; END ELSE BEGIN ADOTABLE11.Edit; ADOTABLE11.FieldByName('MEXEFE').AsString := LABEL55.Caption; ADOTABLE11.Post; END; end; procedure TForm1.Button20Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\FIRMADAONARIM.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'TEDARİKÇİ FİRMADA ONARIM SÜRECİNDE OLANLAR '; DBGRID6.Columns[4].FieldName :='KTT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='FIRMADAONARIM'; end; procedure TForm1.Button20MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'TEDARİKÇİ FİRMADA ONARIMDA OLANLAR'; end; procedure TForm1.Button21Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\SIPARISTEKILER.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF';

ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'TEDARİKÇİ FİRMADA SİPARİŞ SÜRECİNDE OLANLAR '; DBGRID6.Columns[4].FieldName :='KTT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='SIPARISTEKILER'; end; procedure TForm1.Button21MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'FİRMADA SİPARİŞ SÜRECİNDE OLANLAR'; end; procedure TForm1.Button22Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\ONARIMDANGELENLER.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'ONARIMDAN VE SİPARİŞTEN GELEN TESLİME HAZIR ÜRÜNLER '; DBGRID6.Columns[4].FieldName :='KTT'; LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); LABEL58.Caption :='ONARIMDANGELENLER'; end; procedure TForm1.Button22MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='ONARIMDAN VE SİPARİŞTEN GELENLER'; end; procedure TForm1.Button23Click(Sender: TObject); begin adoquery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\'+LABEL58.Caption+'.mdb;Persist Security Info=False'; ADOQUERY1.Close; with ADOQUERY1 do begin with sql do begin clear; add('select * from AKF Where '+LABEL57.Caption +'=:S1'); parameters[0].Value :=EDIT3.Text ; //add('select * from AKF Where '+ LABEL57.Caption+ '=:S1'); end; adoquery1.open; end; end; procedure TForm1.Button24Click(Sender: TObject); begin LABEL56.Caption :=INTTOSTR(ADOTABLE1.RecordCount); end; procedure TForm1.Button25Click(Sender: TObject);

begin adotable10.Active :=false; adotable10.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\'+LABEL55.Caption +'.mdb;Persist Security Info=False'; adotable10.TableName := 'AKF'; ADOTABLE10.Active :=TRUE; PANEL18.Caption := 'SERVİSE GÖNDERİLECEK DEPODAKİ ARIZALI ÜRÜNLER '; DBGRID6.Columns[4].FieldName :='MTT'; ADOTABLE10.Insert; ADOTABLE10.FieldByName('KOD').AsString := ADOTABLE8.FieldByName('KOD').AsString; ADOTABLE10.FieldByName('AFN').AsString := ADOTABLE8.FieldByName('AFN').AsString; ADOTABLE10.FieldByName('AD').AsString := ADOTABLE8.FieldByName('AD').AsString; ADOTABLE10.FieldByName('SOYAD').AsString := ADOTABLE8.FieldByName('SOYAD').AsString; ADOTABLE10.FieldByName('TELEFON').AsString := ADOTABLE8.FieldByName('TELEFON').AsString; ADOTABLE10.FieldByName('TANIM').AsString := ADOTABLE8.FieldByName('TANIM').AsString; ADOTABLE10.FieldByName('ARIZA').AsString := ADOTABLE8.FieldByName('ARIZA').AsString; ADOTABLE10.FieldByName('MTT').AsString := ADOTABLE8.FieldByName('MTT').AsString; ADOTABLE10.FieldByName('KTT').AsString := ADOTABLE8.FieldByName('KTT').AsString; ADOTABLE10.FieldByName('KGT').AsString := ADOTABLE8.FieldByName('KGT').AsString; ADOTABLE10.FieldByName('SERVIS').AsString := ADOTABLE8.FieldByName('SERVIS').AsString; ADOTABLE10.FieldByName('MHT').AsString := ADOTABLE8.FieldByName('MHT').AsString; ADOTABLE10.FieldByName('MTAT').AsString := ADOTABLE8.FieldByName('MTAT').AsString; //ADOTABLE8.FieldByName('MEKSEFE').AsString := 'SERVİSTE İŞTE' ; ADOTABLE10.Post ; ADOTABLE8.Delete; end; procedure TForm1.Button26Click(Sender: TObject); begin LABEL55.Caption :='DEPODAKIARIZALILAR'; panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=TRUE; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\DEPODAKIARIZALILAR.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; PANEL18.Caption := 'SERVİSE GÖNDERİLECEK DEPODAKİ ARIZALI ÜRÜNLER '; DBGRID6.Columns[4].FieldName :='MTT'; ADOTABLE8.Insert; ADOTABLE8.FieldByName('KOD').AsString := ADOTABLE1.FieldByName('KOD').AsString; ADOTABLE8.FieldByName('AFN').AsString := ADOTABLE1.FieldByName('AFN').AsString; ADOTABLE8.FieldByName('AD').AsString := ADOTABLE1.FieldByName('AD').AsString; ADOTABLE8.FieldByName('SOYAD').AsString := ADOTABLE1.FieldByName('SOYAD').AsString; ADOTABLE8.FieldByName('TELEFON').AsString := ADOTABLE1.FieldByName('TELEFON').AsString; ADOTABLE8.FieldByName('TANIM').AsString := ADOTABLE1.FieldByName('TANIM').AsString; ADOTABLE8.FieldByName('ARIZA').AsString := ADOTABLE1.FieldByName('ARIZA').AsString; ADOTABLE8.FieldByName('MTT').AsString := ADOTABLE1.FieldByName('MTT').AsString; ADOTABLE8.FieldByName('KTT').AsString := ADOTABLE1.FieldByName('KTT').AsString; ADOTABLE8.FieldByName('KGT').AsString := ADOTABLE1.FieldByName('KGT').AsString; ADOTABLE8.FieldByName('SERVIS').AsString := ADOTABLE1.FieldByName('SERVIS').AsString; ADOTABLE8.FieldByName('MHT').AsString := ADOTABLE1.FieldByName('MHT').AsString; ADOTABLE8.FieldByName('MTAT').AsString := ADOTABLE1.FieldByName('MTAT').AsString; //ADOTABLE8.FieldByName('MEKSEFE').AsString := 'SERVİSTE İŞTE' ;

ADOTABLE8.Post ; ADOTABLE1.Delete; end; procedure TForm1.Button26MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text := 'AFN KARTINDAN DEPOYA DAĞTIM YAPAR'; end; procedure TForm1.Button27Click(Sender: TObject); begin panel9.Visible :=false; panel10.Visible :=false; panel11.Visible :=False; panel16.Visible :=False; panel6.Visible :=FALSE; end; procedure TForm1.Button28Click(Sender: TObject); begin panel20.Visible :=true; end; procedure TForm1.Button29Click(Sender: TObject); var q,t,j:double; begin adoquery4.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\'+LABEL58.Caption+'.mdb;Persist Security Info=False'; with ADOQUERY4 do begin with sql do begin clear; add('select * from AKF Where ('+LABEL61.Caption+' BETWEEN Tar1 AND Tar2)'); parameters[0].Value :=Edit9.Text ; parameters[1].Value :=Edit10.Text; open; adoquery4.Sort :='MTT'; q:=adoquery4.RecordCount ; t:=adotable8.RecordCount ; j:=q / t; panel18.Caption :=( floattostr(q)+' / '+floattostr(t)+' = '+FormatFloat('#,##0.#0',(j))); PANEL20.Visible :=FALSE; PANEL21.Visible := TRUE; // select * from Uye order by Ad desc end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin EDIT3.ReadOnly :=FALSE; END; procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin

EDIT1.Text :='SORGU MOROTUNU AKTİFLEŞTİR'; end; procedure TForm1.Button30Click(Sender: TObject); begin PANEL20.Visible :=FALSE; end; procedure TForm1.Button31Click(Sender: TObject); begin PANEL21.Visible :=FALSE; PANEL18.Caption :=''; end; procedure TForm1.Button32Click(Sender: TObject); begin //adoquery4.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\SERVISLER.mdb;Persist Security Info=False'; ADOQUERY4.Close ; with ADOQUERY4 do begin with sql do begin clear; begin clear; add('select * from SERVIS Where MARKA=:S1'); parameters[0].Value :=EDIT11.Text ; ADOQUERY4.Open; end; DBGRID5.DATASOURCE:=DATASOURCE14; END; //DBGRID5.DATASOURCE:=DATASOURCE9; end; end; procedure TForm1.Button33Click(Sender: TObject); begin DBGRID5.DATASOURCE:=DATASOURCE9; end; procedure TForm1.Button34Click(Sender: TObject); begin EDIT11.Text:=DBEDIT38.Text ; end; procedure TForm1.Button3Click(Sender: TObject); begin panel10.Visible :=true; Button5.Visible :=true; Button7.Visible :=false; label17.Caption := 'Yeni Bir Arİza Talep Kartİ Açacaksİnİz'; edit4.Text :=dbedit16.Text; edit5.Text :=dbedit18.Text; edit6.Text :=dbedit19.Text; edit7.Text :=dbedit20.Text; end; procedure TForm1.Button4Click(Sender: TObject); begin panel10.Visible :=true; Button7.Visible :=true;

Button5.Visible :=false; label17.Caption := 'Yeni Bir MüŞteri Kaydİ Açacaksİnİz'; edit4.Text :=dbedit2.Text; edit5.Text :=dbedit4.Text; edit6.Text :=dbedit5.Text; edit7.Text :=dbedit6.Text; end; procedure TForm1.Button5Click(Sender: TObject); begin adotable1.Insert; dbedit2.Text :=edit4.Text; dbedit4.Text :=edit5.Text; dbedit5.Text :=edit6.Text; dbedit6.Text :=edit7.Text; adotable1.Post; panel10.Visible :=false; end; procedure TForm1.Button6Click(Sender: TObject); begin edit4.Text :=''; edit5.Text :=''; edit6.Text :=''; edit7.Text :=''; panel10.Visible :=false; end; procedure TForm1.Button7Click(Sender: TObject); begin adotable3.Insert; dbedit16.Text :=edit4.Text; dbedit18.Text :=edit5.Text; dbedit19.Text :=edit6.Text; dbedit20.Text :=edit7.Text; adotable3.Post; panel10.Visible :=false; end; procedure TForm1.Button8Click(Sender: TObject); begin ADOQUERY3.Active :=FALSE; ADOQUERY3.Close; ADOQUERY3.SQL.Clear; ADOQUERY3.SQL.Add('SELECT * FROM URUNLER WHERE TANIM LIKE "%'+EDIT8.TEXT+'%"'); ADOQUERY3.Active :=TRUE; edit2.Text :=''; adoquery3.open; DBGRID3.DataSource :=DATASOURCE7; end; procedure TForm1.Button9Click(Sender: TObject); begin PANEL12.Caption :=' '+DBEDIT28.Text ; PANEL12.Visible :=TRUE; end; procedure TForm1.DBEdit10Click(Sender: TObject); begin panel9.Visible :=false; panel10.Visible :=false; panel6.Visible :=False; panel14.Visible :=False;

panel16.Visible :=False; panel11.Visible :=true; end; procedure TForm1.DBEdit10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='ONARIM / DEÐİŞİME GİDEN ÜRÜN '; end; procedure TForm1.DBEdit11DblClick(Sender: TObject); begin DBEDIT11.Text :=DATETOSTR(MONTHCALENDAR1.Date ); end; procedure TForm1.DBEdit11MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİNİN GETİRDİÐİ TARİH'; end; procedure TForm1.DBEdit12DblClick(Sender: TObject); begin DBEDIT12.Text :=DATETOSTR(MONTHCALENDAR1.Date ); end; procedure TForm1.DBEdit12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='ONARIMA GÖNDERİLEN TARİH'; end; procedure TForm1.DBEdit13DblClick(Sender: TObject); begin DBEDIT13.Text :=DATETOSTR(MONTHCALENDAR1.Date ); end; procedure TForm1.DBEdit13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİYE HABER VERİLEN TARİH'; end; procedure TForm1.DBEdit14DblClick(Sender: TObject); begin DBEDIT14.Text :=DATETOSTR(MONTHCALENDAR1.Date ); end; procedure TForm1.DBEdit14MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİYE TESLİM EDİLEN TARİH'; end; procedure TForm1.DBEdit1Click(Sender: TObject); begin panel9.Visible :=false; panel10.Visible :=false; panel11.Visible :=False; panel14.Visible :=False; panel16.Visible :=False; panel6.Visible :=true; end;

procedure TForm1.DBEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='KAYIT SIRA NUMARASI'; end; procedure TForm1.DBEdit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİ NUMARASI'; end; procedure TForm1.DBEdit3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='FİŞ NUMARASI'; end; procedure TForm1.DBEdit47Change(Sender: TObject); begin EDIT12.Text :=DBEDIT47.Text; end; procedure TForm1.DBEdit4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='CİHAZ SAHİBİNİN ADI'; end; procedure TForm1.DBEdit5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='CİHAZ SAHİBİNİN SOYADI'; end; procedure TForm1.DBEdit6Click(Sender: TObject); begin EDIT1.Text :=DBEDIT6.TEXT; end; procedure TForm1.DBEdit6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='CİHAZ SAHİBİNİN TELEFONU'; end; procedure TForm1.DBEdit7Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel16.Visible :=False; panel14.Visible :=TRUE; end; procedure TForm1.DBEdit7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='TESLİM EDİLEN KARGO ŞİRKETİ'; end;

procedure TForm1.DBEdit8DblClick(Sender: TObject); begin DBEDIT8.Text :=DATETOSTR(MONTHCALENDAR1.Date ); end; procedure TForm1.DBEdit8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='ONARIMDAN GELDİÐİ TARİH'; end; procedure TForm1.DBEdit9Click(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel16.Visible :=False; panel14.Visible :=TRUE; end; procedure TForm1.DBEdit9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='BAKIM YAPACAK SERVİS'; end; procedure TForm1.DBMemo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='AÇIKLAMA ALANI'; end; procedure TForm1.Edit10DblClick(Sender: TObject); begin EDIT10.Text :=DATETOSTR(MONTHCALENDAR1.Date); end; procedure TForm1.Edit11Change(Sender: TObject); begin Adotable6.Locate(LABEL65.Caption ,Edit11.Text,[loPartialKey]); end; procedure TForm1.Edit12Change(Sender: TObject); begin Adotable11.Locate(LABEL40.Caption ,Edit12.Text,[loPartialKey]); if DBEDIT62.Text = EDIT12.Text THEN BEGIN LABEL66.Caption := DBEDIT62.Text END ELSE LABEL66.Caption :='' ; end; procedure TForm1.Edit13Change(Sender: TObject); begin Adotable11.Locate('AFN',Edit13.Text,[loPartialKey]); end; procedure TForm1.Edit2Change(Sender: TObject); begin

Adotable3.Locate(LABEL15.Caption,Edit2.Text,[loPartialKey]); end; procedure TForm1.Edit2Click(Sender: TObject); begin if label15.Caption ='.' then begin panel9.Visible :=true; end else end; procedure TForm1.Edit3Change(Sender: TObject); begin Adotable8.Locate(LABEL57.Caption,Edit3.Text,[loPartialKey]); end; procedure TForm1.Edit9DblClick(Sender: TObject); begin EDIT9.Text :=DATETOSTR(MONTHCALENDAR1.Date); end; procedure TForm1.FormCreate(Sender: TObject); begin panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; panel16.Visible :=False; panel20.Visible :=False; panel21.Visible :=False; EDIT3.Text :=''; EDIT3.ReadOnly:=TRUE; ; //timer1.Interval:=250;//timerin deðeri ayarlanİyor //caption:='QUICK LIBRERY - BROWSER QUERY '; end; procedure TForm1.Label56Click(Sender: TObject); begin LABEL56.Caption :=INTTOSTR(ADOTABLE8.RecordCount); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin //if Listbox1.Selected[1] = True then begin LABEL54.Caption :=ListBox1.Items[ListBox1.ItemIndex]; panel6.Visible :=False; panel11.Visible :=False; panel12.Visible :=False; panel13.Visible :=False; panel14.Visible :=False; adotable8.Active :=false; adotable8.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\FMS\DATA\'+LABEL54.Caption +'.mdb;Persist Security Info=False'; adotable8.TableName := 'AKF'; ADOTABLE8.Active :=TRUE; panel16.Visible :=TRUE; IF LABEL54.Caption ='DEPODAKIARIZALILAR' THEN PANEL18.Caption := 'SERVİSE GÖNDERİLECEK DEPODAKİ ARIZALI ÜRÜNLER '; IF LABEL54.Caption ='TESLIMEDILENLER' THEN PANEL18.Caption := 'MÜŞTERİYE TESLİMATI GERÇEKLEŞEN ÜRÜNLER '; IF LABEL54.Caption ='SERVISEGIDENLER' THEN PANEL18.Caption := 'SERVİSTE ONARIM SÜRECİNDE OLANLAR ';

IF LABEL54.Caption ='FIRMADAONARIM' THEN PANEL18.Caption := 'TEDARİKÇİ FİRMADA ONARIM SÜRECİNDE OLANLAR '; IF LABEL54.Caption ='SIPARISTEKILER' THEN PANEL18.Caption := 'TEDARİKÇİ FİRMADA SİPARİŞ SÜRECİNDE OLANLAR '; IF LABEL54.Caption ='ONARIMDANGELENLER' THEN PANEL18.Caption := 'ONARIMDAN VE SİPARİŞTEN GELEN TESLİME HAZIR ÜRÜNLER '; end; procedure TForm1.ListBox2DblClick(Sender: TObject); begin LABEL55.Caption :=ListBox2.Items[ListBox2.ItemIndex]; end; procedure TForm1.Panel12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; panel12.Perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm1.Panel13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; panel13.Perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :=''; end; procedure TForm1.Panel20MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; panel13.Perform(WM_SysCommand, SC_DragMove, 0); end; procedure TForm1.RadioButton10Click(Sender: TObject); begin LABEL57.Caption :='AD'; end; procedure TForm1.RadioButton11Click(Sender: TObject); begin LABEL57.Caption :='SOYAD'; end; procedure TForm1.RadioButton12Click(Sender: TObject); begin DBNAVIGATOR1.DataSource :=DATASOURCE2; end; procedure TForm1.RadioButton12MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer); begin EDIT1.Text :='NAVİGATÖRÜ AFN İLE İLİŞKİLENDİRİR'; end; procedure TForm1.RadioButton13Click(Sender: TObject); begin DBNAVIGATOR1.DataSource :=DATASOURCE11; end; procedure TForm1.RadioButton13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='NAVİGATÖRÜ DEPO İLE İLİŞKİLENDİRİR'; end; procedure TForm1.RadioButton14Click(Sender: TObject); begin LABEL61.Caption :='MTT'; end; procedure TForm1.RadioButton14MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİNİN TESLİM ETTİÐİ TARİHE GÖRENSORGU'; end; procedure TForm1.RadioButton15Click(Sender: TObject); begin LABEL61.Caption :='MTAT'; end; procedure TForm1.RadioButton15MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin EDIT1.Text :='MÜŞTERİNİN TESLİM ALDIÐI TARİHE GÖRENSORGU'; end; procedure TForm1.RadioButton16Click(Sender: TObject); begin dbnavigator4.DataSource:=datasource12; end; procedure TForm1.RadioButton17Click(Sender: TObject); begin dbnavigator4.DataSource:=datasource9; end; procedure TForm1.RadioButton18Click(Sender: TObject); begin LABEL65.Caption :='MARKA'; end; procedure TForm1.RadioButton19Click(Sender: TObject); begin LABEL65.Caption :='SERVIS'; end; procedure TForm1.RadioButton1Click(Sender: TObject); begin LABEL15.Caption :='MKOD'; end;

procedure TForm1.RadioButton2Click(Sender: TObject); begin LABEL15.Caption :='AD'; end; procedure TForm1.RadioButton3Click(Sender: TObject); begin LABEL15.Caption :='SOYAD'; end; procedure TForm1.RadioButton4Click(Sender: TObject); begin LABEL15.Caption :='TEL'; end; procedure TForm1.RadioButton9Click(Sender: TObject); begin LABEL57.Caption :='AFN'; end; procedure TForm1.Timer1Timer(Sender: TObject); begin //label59.Caption :=copy(Label59.caption,2,length(Label59.caption)-1)+Label59.caption[1]; end; end.