procedure TForm2.FormCreate(Sender: TObject);
VAR
ara:boolean;
begin
edit1.Text:=datetostr(date); //edit1’i visible=true yap
ara:=table2.Locate('ÖLÇÜMTARIHI',edit1.Text,[locaseinsensitive]);
if ara=true then begin
PlaySound(pChar('SYSTEMSTART'),0,SND_SYNC);
showmessage('BUGÜN ÖLÇÜM VAR');
end else begin
showmessage('BUGÜN ÖLÇÜM YOK');
end;
VAR
ara:boolean;
begin
edit1.Text:=datetostr(date); //edit1’i visible=true yap
ara:=table2.Locate('ÖLÇÜMTARIHI',edit1.Text,[locaseinsensitive]);
if ara=true then begin
PlaySound(pChar('SYSTEMSTART'),0,SND_SYNC);
showmessage('BUGÜN ÖLÇÜM VAR');
end else begin
showmessage('BUGÜN ÖLÇÜM YOK');
end;
