Ado ile insert ve update
//Kendi hazırladığım programın kaydet butonunu sizle paylaşmak istedim...
//Bazı yerleri kendinize uyarlamanız gerekecek...
//sercom-bilgisayar@hotmail.com
procedure TCariKart.ToolButton1Click(Sender: TObject);
begin
If kodu.Text = '' Then Begin
MessageDlg('Müşteri kodunu boş geçemezsiniz...', mtInformation, [mbOk], 0);
kodu.SetFocus;
Exit;
End;
If unvani.Text = '' Then Begin
MessageDlg('Müşteri ünvanını boş geçemezsiniz...', mtInformation, [mbOk], 0);
unvani.SetFocus;
Exit;
End;
AdoQuery1.SQL.Text := 'SELECT kodu FROM carikart WHERE kodu='''+Trim(kodu.Text)+'''';
AdoQuery1.Open;
kayittarihi.Date := Date;
If AdoQuery1.RecordCount = 0 Then Begin
AdoQuery1.SQL.Text := 'INSERT INTO carikart (kodu,unvani,statusu,eiskodu,adres1,adres2,semt,ilce,il,ulke,postakodu,telefonno1,telefonno2,faxno,ozelkod,' +
'vergino,vergidairesi,vdkodu,kdvno,dovizturu,indirimorani,odemetipi,' +
'cekriskcarpani,senetriskcarpani,kapananrisk,risklimiti,riskkontrolu,detaylibilgi,kayittarihi) VALUES (' +
''''+Trim(kodu.Text)+''','''+Trim(unvani.Text)+''','''+Trim(statusu.Text)+''','''+Trim(eiskodu.Text)+''','''+Trim(adres1.Text)+''','''+Trim(adres2.Text)+''','''+Trim(semt.Text)+''',' +
''''+Trim(ilce.Text)+''','''+Trim(il.Text)+''','''+Trim(ulke.Text)+''','''+Trim(postakodu.Text)+''','''+Trim(telefonno1.Text)+''','''+Trim(telefonno2.Text)+''','''+Trim(faxno.Text)+''','''+Trim(ozelkod.Text)+''',' +
''''+Trim(vergino.Text)+''','''+Trim(vergidairesi.Text)+''','''+Trim(vdkodu.Text)+''','''+Trim(kdvno.Text)+''','''+Trim(dovizturu.Text)+''','''+Trim(indirimorani.Text)+''','''+Trim(odemetipi.Text)+''',' +
''''+Trim(cekriskcarpani.Text)+''','''+Trim(senetriskcarpani.Text)+''','''+Trim(kapananrisk.Text)+''','''+Trim(risklimiti.Text)+''','''+Trim(riskkontrolu.Text)+''','''+Trim(detaylibilgi.Text)+''',' +
''''+FormatDateTime(TarihFormati,kayittarihi.Date)+''')';
AdoQuery1.ExecSQL;
AdoQuery1.Close;
End Else Begin
AdoQuery1.SQL.Text := 'UPDATE carikart SET unvani='''+Trim(unvani.Text)+''',statusu='''+Trim(statusu.Text)+''',eiskodu='''+Trim(eiskodu.Text)+''',adres1='''+Trim(adres1.Text)+''',adres2='''+Trim(adres2.Text)+''',semt='''+Trim(semt.Text)+''',' +
'ilce='''+Trim(ilce.Text)+''',il='''+Trim(il.Text)+''',ulke='''+Trim(ulke.Text)+''',postakodu='''+Trim(postakodu.Text)+''',telefonno1='''+Trim(telefonno1.Text)+''',telefonno2='''+Trim(telefonno2.Text)+''',' +
'faxno='''+Trim(faxno.Text)+''',ozelkod='''+Trim(ozelkod.Text)+''',vergino='''+Trim(vergino.Text)+''',vergidairesi='''+Trim(vergidairesi.Text)+''',vdkodu='''+Trim(vdkodu.Text)+''',kdvno='''+Trim(kdvno.Text)+''',' +
'dovizturu='''+Trim(dovizturu.Text)+''',indirimorani='''+Trim(indirimorani.Text)+''',odemetipi='''+Trim(odemetipi.Text)+''',cekriskcarpani='''+Trim(cekriskcarpani.Text)+''',' +
'senetriskcarpani='''+Trim(senetriskcarpani.Text)+''',kapananrisk='''+Trim(kapananrisk.Text)+''',risklimiti='''+Trim(risklimiti.Text)+''',riskkontrolu='''+Trim(riskkontrolu.Text)+''',' +
'detaylibilgi='''+Trim(detaylibilgi.Text)+''' WHERE kodu='''+Trim(kodu.Text)+'''';
AdoQuery1.ExecSQL;
AdoQuery1.Close;
End;
CariBulmaFormu.ADOQuery1.Close;
CariBulmaFormu.ADOQuery1.Open;
CariBulmaFormu.ADOQuery1.First;
Close;
end;
InputBoxda şifre(*) olarak yazsın
const InputBoxMessage = WM_USER + 200;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure InputBoxSetPasswordChar(var Msg: TMessage); message InputBoxMessage;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.InputBoxSetPasswordChar(var Msg: TMessage);
var
hInputForm, hEdit, hButton: HWND;
begin
hInputForm := Screen.Forms[0].Handle;
if (hInputForm <> 0) then
begin
hEdit := FindWindowEx(hInputForm, 0, 'TEdit', nil);
SendMessage(hEdit, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
InputString: string;
begin
PostMessage(Handle, InputBoxMessage, 0, 0);
InputString := InputBox('Input Box', 'Please Enter a Password', '');
Edit1.Text := InputString;
end;
Formun panelde çıkarmak.
//Kullanılışı:
FormuPaneldeGoster(F_DSPD_HkmGrsmslPuanlari, TF_DSPD_HkmGrsmslPuanlari,
Self, PnlFrm, StatusBar1);
//Ünite ...
unit UAsGForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, Extctrls, ComCtrls;
Var
EnSonGosterilenForm:TForm;
procedure FormuFreeEt(var Reference; Sure:Integer=500);
procedure FormuGoster(var Reference;
InstanceClass: TComponentClass);
procedure FormuGosterMdl(var Reference;
InstanceClass: TComponentClass);
procedure FormuPaneldeGoster(var Reference;
InstanceClass: TComponentClass;
PPnl:TPanel); Overload;
//////Bunu kullanıyor diğerlerini de sizlerin takdirine bırakıyorum.........
procedure FormuPaneldeGoster(var Reference;
InstanceClass: TComponentClass;
PAnaForm:TForm;
PPnl:TPanel;
PStatusBar:TStatusBar);Overload;
procedure FormuNesnedeGoster(var Reference;
InstanceClass: TComponentClass;
PNesne:TWinControl);
Implementation
procedure FormuPaneldeGoster(var Reference;
InstanceClass: TComponentClass;
PAnaForm:TForm;
PPnl:TPanel;
PStatusBar:TStatusBar);Overload;
var
Instance: TComponent;
// Form:TForm;
begin
If Pointer(Reference) = Nil Then
Begin
Instance := TComponent(InstanceClass.NewInstance);
TComponent(Reference) := Instance;
Try
Instance.Create(PAnaForm);
Except
TComponent(Reference) := nil;
Raise;
End;
End;
If EnSonGosterilenForm <> Nil Then
EnSonGosterilenForm.Close;
TForm(Reference).Parent := PPnl;
EnSonGosterilenForm:= TForm(Reference);
PStatusBar.Panels[3].Text:= 'Gösterilen Pencere: ' + TForm(Reference).Caption;
TForm(Reference).BorderStyle := bsNone;
TForm(Reference).Position := poDefault;
TForm(Reference).Top := 0;
TForm(Reference).Left := 0;
TForm(Reference).ClientWidth := PPnl.Width;
TForm(Reference).ClientHeight:= PPnl.Height;
TForm(Reference).Show;
end;
procedure FormuGoster(var Reference;
InstanceClass: TComponentClass);
var
Instance: TComponent;
Begin
If Pointer(Reference) = Nil Then
Begin
Instance := TComponent(InstanceClass.NewInstance);
TComponent(Reference) := Instance;
Try
Instance.Create(Application);
Except
TComponent(Reference) := nil;
Raise;
End;
End;
TForm(Reference).Show;
End;
procedure FormuGosterMdl(var Reference;
InstanceClass: TComponentClass);
var
Instance: TComponent;
Begin
If Pointer(Reference) = Nil Then
Begin
Instance := TComponent(InstanceClass.NewInstance);
TComponent(Reference) := Instance;
Try
Instance.Create(Application);
Except
TComponent(Reference) := nil;
Raise;
End;
End;
TForm(Reference).ShowModal;
End;
procedure FormuPaneldeGoster(var Reference;
InstanceClass: TComponentClass;
PPnl:TPanel);
var
Instance: TComponent;
Form:TForm;
begin
If Pointer(Reference) = Nil Then
Begin
Instance := TComponent(InstanceClass.NewInstance);
TComponent(Reference) := Instance;
Try
Instance.Create(Application);
Except
TComponent(Reference) := nil;
Raise;
End;
End;
If EnSonGosterilenForm <> Nil Then
EnSonGosterilenForm.Close;
TForm(Reference).Parent := PPnl;
EnSonGosterilenForm:= TForm(Reference);
// StatusBar1.Panels[3].Text:= 'Gösterilen Pencere: ' + TForm(Reference).Caption;
TForm(Reference).BorderStyle := bsNone;
TForm(Reference).Position := poDefault;
TForm(Reference).Top := 0;
TForm(Reference).Left := 0;
{ TForm(Reference).Width := 890;
TForm(Reference).Height:= 700;}
TForm(Reference).Show;
end;
procedure FormuNesnedeGoster(var Reference;
InstanceClass: TComponentClass;
PNesne:TWinControl);
var
Instance: TComponent;
Form:TForm;
begin
If Pointer(Reference) = Nil Then
Begin
Instance := TComponent(InstanceClass.NewInstance);
TComponent(Reference) := Instance;
Try
Instance.Create(Application);
Except
TComponent(Reference) := nil;
Raise;
End;
End;
TForm(Reference).Parent := PNesne;
TForm(Reference).BorderStyle := bsNone;
TForm(Reference).Position := poDefault;
TForm(Reference).Top := 0;
TForm(Reference).Left := 0;
{ TForm(Reference).Width := 890;
TForm(Reference).Height:= 700;}
TForm(Reference).Show;
end;
procedure FormuFreeEt(var Reference; Sure:Integer=500);
Var BslgcSaati, AktifSaat: TDateTime;
FarkSure :Double;
A:THandle;
Begin
BslgcSaati:= Now;
Repeat
AktifSaat:= Now;
FarkSure := ( Double(AktifSaat ) *24*60*60*1000 ) -
( Double(BslgcSaati) *24*60*60*1000 ) ;
// Form1.Memo1.Lines.Add(FloatToStr(FarkSure))
Until FarkSure >= Sure;
// ShowMessage(TForm(Reference).Name);
// ShowMessage( IntToStr( TForm(Reference).Handle) );
TForm(Reference).Free;
TForm(Reference):= Nil;
End;
end.
SOD - Basit Fizik Kanunlarini Iceren DLL ve Export Listesi
00000000000000000000000000000000000000000
//Aşağıda önce dll kodları
00000000000000000000000000000000000000
library genelfizik;
uses
SysUtils,
Math,
Classes;
{$R *.res}
function kosinus(aci:real):extended;export;
var
p:extended;
begin
p:=pi/180;
kosinus:=cos(aci*p);
end;
function sinus(aci:real):extended;export;
var
p:extended;
begin
p:=pi/180;
sinus:=sin(aci*p);
end;
//hareket
function hiz(yol,zaman:extended):extended;export;
begin
hiz:=yol/zaman;
end;
function yol(hiz,zaman:extended):extended;export;
begin
yol:=hiz/zaman;
end;
function zaman(hiz,yol:extended):extended;export;
begin
zaman:=yol/hiz;
end;
function ivme(hiz,zaman:extended):extended;export;
begin
ivme:=hiz/zaman;
end;
function ivme_hiz(ivme,zaman:extended):extended;export;
begin
ivme_hiz:=ivme/zaman;
end;
function ivme_zaman(ivme,hiz:extended):extended;export;
begin
ivme_zaman:=hiz/ivme;
end;
function ivme_hiz_x(ilkhiz,ivme,zaman:extended):extended;export;
begin
ivme_hiz_x:=ilkhiz+(ivme*zaman);
end;
function ivmeli_yol(ilkyol,ilkhiz,zaman,ivme:extended):extended;export;
begin
ivmeli_yol:=ilkyol+(ilkhiz*zaman)+(0.5*ivme*Power(zaman,2));
end;
function hiz_ivme(ilkhiz,ivme,yol:extended):extended;export;
begin
hiz_ivme:=sqrt(power(ilkhiz,2)+(2*ivme*yol));
end;
function yol_toplam_hiz(ilkhiz,sonhiz,zaman:extended):extended;export;
begin
yol_toplam_hiz:=0.5*(ilkhiz+sonhiz)*zaman;
end;
function atisuzakligi(ilkhiz,ivme,aci:extended):extended;export;
begin
atisuzakligi:=(Power(ilkhiz,2)*ivme)*sinus(2*aci);
end;
//vektor
function xvektor(uzunluk:extended; aci:real):extended;export;
begin
Result:=uzunluk*(kosinus(aci));
end;
function yvektor(uzunluk:extended; aci:real):extended;export;
begin
Result:=uzunluk*(sinus(aci));
end;
function vektorx(uzunluk:extended; aci:real):extended;export;
begin
Result:=uzunluk/kosinus(aci);
end;
function vektory(uzunluk:extended; aci:real):extended;export;
begin
Result:=uzunluk/sinus(aci);
end;
// Genel Sabitler
function andromeda:extended;export;
begin
result:=(2*power(10,22));
end;
function galaxy:extended;export;
begin
result:=(6*Power(10,18));
end;
function alphacentauri:extended;export;
begin
result:=(4.3*Power(10,16));
end;
function pluto:extended;export;
begin
Result:=(5.9*Power(10,12));
end;
function gunesradius:extended;export;
begin
Result:=(6.9*Power(10,8));
end;
function dunyaradius:extended;export;
begin
Result:=(6.4*Power(10,6));
end;
function everest:extended;export;
begin
Result:=(8.9*Power(10,3));
end;
function insan:extended;export;
begin
Result:=(1.7);
end;
function Poliomyelitis:extended;export;
begin
Result:=(1.2*Power(10,(-8)));
end;
function hidrojen:extended;export;
begin
Result:=(5*power(10,(-11)));
end;
function proton:extended;export;
begin
Result:=(1.2*power(10,(-15)));
end;
function mgalaxy:extended;export;
begin
Result:=(2.2*Power(10,41));
end;
function mgunes:extended;export;
begin
Result:=(2*power(10,30));
end;
function mdunya:extended;export;
begin
Result:=(6*Power(10,24));
end;
function may:extended;export;
begin
Result:=7.4*Power(10,22);
end;
function mdeniz:extended;export;
begin
Result:=1.4*power(10,21);
end;
function minsan:extended;export;
begin
Result:=5.9;
end;
function mproton:extended;export;
begin
Result:=1.7*power(10,-27);
end;
function melektron:extended;export;
begin
Result:=9.1*Power(10,-31);
end;
function daireselivme(hiz,yaricap:Extended):Extended;export;
begin
Result:=Power(hiz,2)/yaricap;
end;
function kuvvet(kutle,ivme:extended):Extended;export;
begin
Result:=kutle*ivme;
end;
function kutle(ivme,kuvvet:Extended):Extended;export;
begin
Result:=kuvvet/ivme;
end;
function ivme_kuvvet(kutle,kuvvet:Extended):Extended;export;
begin
Result:=kuvvet/kutle;
end;
function kuvvet_yay(katsayi,mesafe:Extended):Extended;export;
begin
Result:=(0-katsayi)*mesafe;
end;
function yay_katsayisi(kuvvet,mesafe:Extended):Extended;export;
begin
Result:=(0-kuvvet)/mesafe;
end;
function yay_mesafesi(kuvvet,katsayi:Extended):Extended;export;
begin
Result:=(0-kuvvet)/katsayi;
end;
function yorunge_kuvveti(kutle1,kutle2,mesafe:Extended):Extended;export;
begin
Result:=(6.67*Power(10,-11)*kutle1*kutle2)/mesafe;
end;
exports daireselivme,kuvvet,kutle,ivme_kuvvet,kuvvet_yay,yay_katsayisi,
yay_mesafesi,yorunge_kuvveti,kosinus,sinus,mproton,melektron,minsan,may,mdeniz,mgalaxy,mgunes,mdunya,andromeda,galaxy,alphacentauri,pluto,gunesradius,dunyaradius,everest,insan,Poliomyelitis,hidrojen,proton,vektorx,vektory,xvektor,yvektor,hiz,yol,zaman,ivme,ivme_hiz,ivme_zaman,ivme_hiz_x,ivmeli_yol,hiz_ivme,yol_toplam_hiz;
begin
end.
000000000000000000000000000000000000000000000000000000000000000000000000000000000
Bu aşağıdakı bölümü de programınızda tanıtıyorsunuz bunun için
tavsiyem bu aşağıdaki kodları bir txt dosyasına kaydedip şu şekilde
programınıza tanıtmanız olacaktır
000000000000000000000000000000000000000000000000000000000000000000000000000000000
implementation
{$R *.dfm}
{$I 'GenelDllFonksiyonlari.txt'}
000000000000000000000000000000000000000000000000000000000000000000000000000000000
// Gelen Sabitler Modulu
Function andromeda:extended;far;external 'genelfizik.dll'; //gunes - andromeda uzakligi
Function galaxy:extended;far;external 'genelfizik.dll'; //galaximizin yari capi
Function alphacentauri:extended;far;external 'genelfizik.dll'; //alphacentauri yildizina uzaklik
Function pluto:extended;far;external 'genelfizik.dll'; //plutonun yorunge yaricapi
Function gunesradius:extended;far;external 'genelfizik.dll'; //gunesin yaricapi
Function dunyaradius:extended;far;external 'genelfizik.dll'; //dunyanin yaricapi
Function everest:extended;far;external 'genelfizik.dll'; //everest tepesinin yuksekligi
Function insan:extended;far;external 'genelfizik.dll'; //insanin ortalama uzunlugu
Function Poliomyelitis:extended;far;external 'genelfizik.dll'; //poliomyelitis virisunun boyu
Function hidrojen:extended;far;external 'genelfizik.dll'; //hidrojen atomunun yaricapi
Function proton:extended;far;external 'genelfizik.dll'; // protonun yaricapi
Function mgalaxy:extended;far;external 'genelfizik.dll'; //galaximizin kutlesi
Function mgunes:extended;far;external 'genelfizik.dll'; //gunesin kutlesi
Function mdunya:extended;far;external 'genelfizik.dll'; //dunyanun kutlesi
Function may:extended;far;external 'genelfizik.dll'; //ayin kutlesi
Function mdeniz:extended;far;external 'genelfizik.dll'; //denizlerin toplam kutlesi
Function minsan:extended;far;external 'genelfizik.dll'; //insanin ortalama kutlesi
Function mproton:extended;far;external 'genelfizik.dll'; //protonun kutlesi
Function melektron:extended;far;external 'genelfizik.dll'; //elektronun kutlesi
function kosinus(aci:real):extended;far;external 'genelfizik.dll' //kosinus hesabi acisal
function sinus(aci:real):extended;far;external 'genelfizik.dll' //sinus hesabi acisal
// Vektorel Hesaplar Modulu
Function xvektor(uzunluk:extended; aci:real):extended;far;external 'genelfizik.dll'
Function yvektor(uzunluk:extended; aci:real):extended;far;external 'genelfizik.dll'
Function vektorx(uzunluk:extended; aci:real):extended;far;external 'genelfizik.dll'
Function vektory(uzunluk:extended; aci:real):extended;far;external 'genelfizik.dll'
// genelfizik Modulu
Function hiz(yol,zaman:extended):extended;far;external 'genelfizik.dll'; //v=x/t
Function yol(hiz,zaman:extended):extended;far;external 'genelfizik.dll';
function zaman(hiz,yol:extended):extended;far;external 'genelfizik.dll';
function ivme(hiz,zaman:extended):extended;far;external 'genelfizik.dll';
function ivme_hiz(ivme,zaman:extended):extended;far;external 'genelfizik.dll';
function ivme_zaman(ivme,hiz:extended):extended;far;external 'genelfizik.dll';
function ivme_hiz_x(ilkhiz,ivme,zaman:extended):extended;far;external 'genelfizik.dll';
function ivmeli_yol(ilkyol,ilkhiz,zaman,ivme:extended):extended;far;external 'genelfizik.dll';
function hiz_ivme(ilkhiz,ivme,yol:extended):extended;far;external 'genelfizik.dll';
function yol_toplam_hiz(ilkhiz,sonhiz,zaman:extended):extended;far;external 'genelfizik.dll';
function atisuzakligi(ilkhiz,ivme,aci:extended):extended;far;external 'genelfizik.dll';
function daireselivme(hiz,yaricap:Extended):Extended;far;external 'genelfizik.dll';
function kuvvet(kutle,ivme:extended):Extended;far;external 'genelfizik.dll'
function kutle(ivme,kuvvet:Extended):Extended;far;external 'genelfizik.dll'
function ivme_kuvvet(kutle,kuvvet:Extended):Extended;far;external 'genelfizik.dll'
function kuvvet_yay(katsayi,mesafe:Extended):Extended;far;external 'genelfizik.dll'
function yay_katsayisi(kuvvet,mesafe:Extended):Extended;far;external 'genelfizik.dll'
function yay_mesafesi(kuvvet,katsayi:Extended):Extended;far;external 'genelfizik.dll'
function yorunge_kuvveti(kutle1,kutle2,mesafe:Extended):Extended;far;external 'genelfizik.dll'
000000000000000000000000000000000000000000000000000000000000000000000000000000000
Veee basit bir örnek
Edit1 uzayda birinci cismin kütlesi
Edit2 uzayda ikinci cismin kütlesi
Edit3 ise aralarındaki uzaklıktır
Edit4 ise bu ikisi arasında oluşacak kütle çekim kuvvetini verecektir size
edit1.text:=FloatToStr(minsan);
edit2.Text:=FloatToStr(mdunya);
edit3.Text:=FloatToStr(dunyaradius);
olarak uygulayacak olursanız size dünyanın uyguladığı ortalama yer çekim kuvvetini
bulmuş olacaksınız :D
000000000000000000000000000000000000000000000000000000000000000000000000000000000
Edit4.Text:=FloatToStr(yorunge_kuvveti(StrToFloat(edit1.Text),StrToFloat(edit2.Text),StrToFloat(edit3.Text)));
000000000000000000000000000000000000000000000000000000000000000000000000000000000
