Mega Code Archive
Telefon defteri
<![CDATA[
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, Menus, ExtCtrls, jpeg, Grids, DBGrids, MPlayer,
Buttons;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Table1: TTable;
Table1AD: TStringField;
Table1SOYAD: TStringField;
Table1ADRES: TStringField;
Table1TEL: TStringField;
Table1SEHIR: TStringField;
Button5: TButton;
MainMenu1: TMainMenu;
DOSYA1: TMenuItem;
YENKAYIT1: TMenuItem;
KAYDET1: TMenuItem;
DTR1: TMenuItem;
SL1: TMenuItem;
Image1: TImage;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
IKI1: TMenuItem;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ARALAR1: TMenuItem;
PAINT1: TMenuItem;
HESAPMAKNASI1: TMenuItem;
NOTDEFTER1: TMenuItem;
YARDIM1: TMenuItem;
PROGRAMKULLANIMI1: TMenuItem;
Memo1: TMemo;
Button6: TButton;
Timer1: TTimer;
OpenDialog1: TOpenDialog;
MediaPlayer1: TMediaPlayer;
SES1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure YENKAYIT1Click(Sender: TObject);
procedure KAYDET1Click(Sender: TObject);
procedure DTR1Click(Sender: TObject);
procedure SL1Click(Sender: TObject);
procedure IKI1Click(Sender: TObject);
procedure PAINT1Click(Sender: TObject);
procedure HESAPMAKNASI1Click(Sender: TObject);
procedure NOTDEFTER1Click(Sender: TObject);
procedure PROGRAMKULLANIMI1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Timer1Timer(Sender: TObject);
procedure ARALAR1Click(Sender: TObject);
procedure DOSYA1Click(Sender: TObject);
procedure YARDIM1Click(Sender: TObject);
procedure SES1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
P:BOOLEAN;
c:integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
p:=true;
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\JAD-19970915-164340.WAV';
mediaplayer1.open;
mediaplayer1.play;
TABLE1.open;
edit1.text:=' ';
edit2.Text:=' ';
edit3.text:=' ';
edit4.text:=' ';
edit5.Text:=' ';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Next;
edit1.text:=table1ad.Text;
edit2.Text:=table1soyad.Text;
edit3.text:=table1adres.text;
edit4.text:=table1tel.Text;
edit5.Text:=table1sehir.text;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
table1.prior;
edit1.text:=table1ad.Text;
edit2.Text:=table1soyad.Text;
edit3.text:=table1adres.text;
edit4.text:=table1tel.Text;
edit5.Text:=table1sehir.text;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
table1.append;
edit1.text:=' ';
edit2.Text:=' ';
edit3.text:=' ';
edit4.text:=' ';
edit5.Text:=' ';
edit1.SetFocus;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
table1.edit;
table1ad.Text:=edit1.Text;
table1soyad.Text:=edit2.Text;
table1adres.text:=edit3.Text;
table1tel.Text:=edit4.text;
table1sehir.text:=edit5.Text;
table1.UpdateRecord;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
TABLE1.DELETE;
table1.prior;
edit1.text:=table1ad.Text;
edit2.Text:=table1soyad.Text;
edit3.text:=table1adres.text;
edit4.text:=table1tel.Text;
edit5.Text:=table1sehir.text;
end;
procedure TForm1.YENKAYIT1Click(Sender: TObject);
begin
table1.append;
edit1.text:=' ';
edit2.Text:=' ';
edit3.text:=' ';
edit4.text:=' ';
edit5.Text:=' ';
edit1.SetFocus;
end;
procedure TForm1.KAYDET1Click(Sender: TObject);
begin
c:=application.messagebox('Kaydediyorum Emin misiniz?','DİKKAT',mb_yesno+mb_defbutton1);
if c=6 then begin
table1.edit;
table1ad.Text:=edit1.Text;
table1soyad.Text:=edit2.Text;
table1adres.text:=edit3.Text;
table1tel.Text:=edit4.text;
table1sehir.text:=edit5.Text;
table1.UpdateRecord;
end;
end;
procedure TForm1.DTR1Click(Sender: TObject);
begin
table1.edit;
table1ad.Text:=edit1.Text;
table1soyad.Text:=edit2.Text;
table1adres.text:=edit3.Text;
table1tel.Text:=edit4.text;
table1sehir.text:=edit5.Text;
table1.UpdateRecord;
end;
procedure TForm1.SL1Click(Sender: TObject);
begin
c:=application.messagebox('Kaydı Siliyorum Emin misiniz?','DİKKAT',mb_yesno+mb_defbutton1);
if c=6 then begin
TABLE1.DELETE;
table1.prior;
edit1.text:=table1ad.Text;
edit2.Text:=table1soyad.Text;
edit3.text:=table1adres.text;
edit4.text:=table1tel.Text;
edit5.Text:=table1sehir.text;
end;
end;
procedure TForm1.IKI1Click(Sender: TObject);
begin
HALT;
end;
procedure TForm1.PAINT1Click(Sender: TObject);
begin
WINEXEC('"C:\Program Files\Accessories\MSPAINT.EXE"',9);
end;
procedure TForm1.HESAPMAKNASI1Click(Sender: TObject);
begin
WINEXEC('C:\Windows\calc.exe',9);
end;
procedure TForm1.NOTDEFTER1Click(Sender: TObject);
begin
WINEXEC('C:\windows\notepad.exe',9);
end;
procedure TForm1.PROGRAMKULLANIMI1Click(Sender: TObject);
begin
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\CHIMES.wav';
mediaplayer1.open;
mediaplayer1.play;
memo1.visible:=true;
button6.Visible:=true;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
memo1.Visible:=false;
button6.Visible:=false;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit2.setfocus;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit3.setfocus;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit4.setfocus;
end;
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit5.setfocus;
end;
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit1.setfocus;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.caption:=timetostr(now)+' Zenit Software 2001 '+'Telefon Defteri Programı Ver 1.0.0 ' +datetostr(now);
end;
procedure TForm1.ARALAR1Click(Sender: TObject);
begin
if p=true then begin
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\camera.wav';
mediaplayer1.open;
mediaplayer1.play;
end;
end;
procedure TForm1.DOSYA1Click(Sender: TObject);
begin
if p=true then begin;
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\camera.wav';
mediaplayer1.open;
mediaplayer1.play;
end;
end;
procedure TForm1.YARDIM1Click(Sender: TObject);
begin
if p=true then begin
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\camera.wav';
mediaplayer1.open;
mediaplayer1.play;
end;
end;
procedure TForm1.SES1Click(Sender: TObject);
begin
if p=true then p:=false
else
p:=true;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
mediaplayer1.filename:='C:\WINDOWS\MEDIA\Microsoft Office 2000\explode.wav';
mediaplayer1.open;
mediaplayer1.play;
showmessage('Yine Bekleriz....:)) Zenit Software 2001 Ahmet Sİnav');
end;
end.
]]>