Delphi Forum

Selâmlar, Geçen haftalarda Visera için yazılmıştı. Tahminen 1-2- haftaya kadar 15 TL gibi çok cüzi bir rakamla satışa çıkacak. Ekran görüntülerini altta görebilirsiniz. Programda Siz veritabanlarını belirtiyorsunuz. Ki bu birbirinden uzak veritabanı bile olabilir otomatik karşılaştır diye bir tuş tı...

Resim olarak kayıt etme yerine datasını kayıt edebilirsiniz.. unit ads_GraphicStrings; {Copyright(c)2000 Advanced Delphi Systems Richard Maley Advanced Delphi Systems 12613 Maidens Bower Drive Potomac, MD 20854 USA phone 301-840-1554 maley@advdelphisys.com The code herein can be used or modified by ...

MySQL in şu an 5.6.20 sürümünün daha kararlı olduğunu biliyorum. Ben de 5.1 de sıkıntılar yaşamıştım. Sanırım Sizin çözümünüz MySQL 32 bit 5.6 ya geçmeniz.. 64 bit sürümlerde sıkıntılar var.

Teşekkürler..

Farklı bir bakış :D Function MySQLTarihiHazirla(Tarih:TDate):String; var Gun,Ay,Yil:String; begin try Calendar1.CalendarDate:=Tarih; Yil := IntToStr(Calendar1.Year); If Calendar1.Month<10 Then Ay :='0'+IntToStr(Calendar1.Month) else Ay :=IntToStr(Calendar1.Month); If Calendar1.Day<10 Then Gun:='0'+I...

MySQL e yeni geçtik..

Açıkcası wireless ortamında kullanımı çok kötü.. Kablo şart. Birde 64 bit sıkıntılı.. 64 bit MySQL yerine 32 olanı kurabilirsiniz. Onun haricinde bir 5.6.20 versiyonun da bir sıkıntı yok bildiğim.

Function TForm1.KelimeEsitlikOrani(s1, s2: string): Integer; var hit: Integer; p1, p2: Integer; l1, l2: Integer; pt: Integer; diff: Integer; hstr: string; test: array [1 .. 255] of Boolean; begin if Length(s1) < Length(s2) then begin hstr := s2; s2 := s1; s1 := hstr; end; l1 := Length(s1); l2 := Le...

Selamlar, Function InternettenSayfasindanVeriCek(Url:WideString):WideString; var GelenVeri: TStringStream; s:WideString; begin Result:=''; try If Trim(Url)='' Then Exit; GelenVeri := TStringStream.Create('', TEncoding.UTF8); IdHttp1.Get(Trim(Url), GelenVeri); s:=GelenVeri.DataString; s:=AnsiReplaceT...

Selâmlar, Arkadaşlar veritabanı tablosunda alfabetik bir alana sayı girildiğinde order by stokadi dediğimde de sıralamayı doğru yapmamaktadır. Firedac'ın AdConnection.sort.options özelliğinde bazı seçimleri seçtiğimde de yapmamakta. http://www.gonulkitabi.com/siralama.png http://www.gonulkitabi.com/...

Çözüm : var FDPageCount:Integer; QuickRep1.Prepare; //Sayfayı hazırlıyor.. FDPageCount:=QuickRep1.QRPrinter.PageCount; QuickRep1.Print; procedure TForm1.QRExprPrint(sender: TObject; var Value: String); //Diğer QrExpr ler bu olayı kullanmaktadır.. begin try QrExpr:=Sender As TQrExpr; If (QrExpr.Tag=...

Çözüm : QuickRep1.Options.LastPageFooter:=False; Ayrıca bu kon ile band içerisinde ki elemanların yukarıdan konumunu değiştirebilirsiniz procedure TForm1.Summary1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); var I:Integer; begin With Sender as TQRBand do For I:=1 to ControlCount do Wit...

Selâmlar, Hesapları Borç, Alacak, Bakiye listeleyebilmenin için en sağlam şekli için veritabanında bir bakiye alanı açmanızı öneririm. Cari hesabın veya stok tanımının ilgili formu açıldığında borç alacak / giren çıkan döngüsüyle bakiye/kalan alanlarını doldurabilirsiniz. Dolayısıyla yoğun bir işlem...

Selâmlar, ESRehber.Close; ESRehber.SQL.Clear; ESRehber.SQL.Add('SELECT ESTOK_KODU, ESTOK_ADI, ESTHAR_TARIH, EFISNO, EFIS_NO, EGCTIP, EOLCU_BR1, EBARKOD1 FROM TBLEMANET '); ESRehber.SQL.Add('WHERE EGCTIP='+#39+'G'+#39+' ); ESRehber.SQL.Add('AND ECARI_KOD='+QuotedStr(Form3.DBEdit1.text)); ESRehber.SQL...

Selâmlar, Select* From StokTablom Where Contains(stok_kodu , '*'+Edit1.Text+'*') or Contains(stok_cinsi , '*'+Edit1.Text+'*') or Contains(malgrubu , '*'+Edit1.Text+'*') or Contains(marka , '*'+Edit1.Text+'*') or Contains(altgrup , '*'+Edit1.Text+'*') or Contains(ozelkod , '*'+Edit1.Text+'*') or Cont...

Selâmlar,

Sanırım WideString, PWideChar komutlarını inceleyiniz.