Delphi Forum

Şunlardan birini deneyin

SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND A5 <> ''
ORDER BY A3 ASC



SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND NVL(A5, '') <> ''
ORDER BY A3 ASC



SELECT A3, A4, A5 FROM HTF_KAYITLAR WHERE A5 IS NOT NULL AND COALESCE(CAST(A5 AS ...

SELECT
T1.YIL,
T1.SIRA,
T1.STOK,
T1.ADRES,
T2.SIPARIS_NU,
CASE
WHEN T2.SIPARIS_NU LIKE '%K%' THEN 365
WHEN T2.SIPARIS_NU LIKE '%M%' THEN 730
ELSE 0
END AS GARANTI_SURE,
T2.GARANTI_BAS_TA,
DATEADD(DAY,
CASE
WHEN T2.SIPARIS_NU LIKE '%K%' THEN 365
WHEN T2.SIPARIS_NU LIKE '%M ...

DataSnap değil ama rest tabanlı bir mimari ile yapılabilir. Mobil projeler, büyük esneklik sağlıyor.

Yukarıda arkadaşların önerdiği sistemlerden birini kullanabilirsiniz. Tavsiyelerini dikkate alarak başlayabilirsin.

Kolay gelsin.

Hocam Merak ettiğim bir konu, UniDac Client Dataset ...

Farklı bir yolla çözdüm bende, Lazım olur D7 için

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private ...

İlk satırdan kastınız nedir?
Dosyanın sadece adını mı? uzantısı olmayan ad mı sadece mesela dosya1.txt -> dosya1 olarak mı?
yoksa İlk dosyayı mı?
Eğer Sadece Dosya adını uzantısız istiyorsan şöyle olmalı...

procedure TForm1.Button1Click(Sender: TObject);
VAR
i,LEN:integer; // Len = Length Uzunluk ...

USES
STRUTILS;
procedure memosatirsec(memo : TCustomMemo;satir:integer) ;
begin
with memo do
begin
SelStart := Perform(EM_LINEINDEX, satir, 0) ;
SelLength := Length(Lines[satir]) ;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
st: string;
i: integer;
begin
st := EDIT1 ...

Çözülmüştür

USES
STRUTILS;
procedure memosatirsec(memo : TCustomMemo;satir:integer) ;
begin
with memo do
begin
SelStart := Perform(EM_LINEINDEX, satir, 0) ;
SelLength := Length(Lines[satir]) ;
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
st: string;
i: integer;
begin
st ...

Mesajınıza istinaden bunu deneyin bir.
Listbox2 nin Listbox1 deki sıra karşılığındakileri toplar. Listbox3 de toplanmış olarak ekler

// Burayı bir butona, yada listbox1 in Clickine de veya bir PopupMeüye yazabilirsin
procedure TForm1.ListBox1DblClick(Sender: TObject); //ben dblclicke yazdım.
VAR
A ...

Mobilden yazdım, denemedim

Rastgele isterseniz bu şekilde oluyor, bir fikir vermesi açısından Random kullandım


procedure TForm1.Timer1Timer(Sender: TObject);
VAR
DEGER:INTEGER;
begin
DEGER:= (RANDOM(11));
IF DEGER=1 THEN BEGIN EDIT1.Text:='ALİ' END;
IF DEGER=2 THEN BEGIN EDIT1.Text:='AYŞE' END;
IF DEGER=3 THEN BEGIN EDIT1 ...

Bir fikir verebilir belki

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Application.NormalizeTopMosts;
if CheckBox1.Checked=True then
begin
FormStyle:=fsStayOnTop;
SetWindowPos(Form1.Handle, HWND_TOPMOST, 0,0,0,0, SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);
END
else
begin
FormStyle ...

Verilerini olduğu gibi aktarabilirsiniz fakat yazı tipi, fontu, rengi vs gibi alanlar için veritabanı bunlar için ayrı bir alan ister.
Renk için, Yazı Tipi için, Büyüklüğü için, Kısaca her özellik için ayrı ayrı alan ister ve bunlarla uğraşmak çok zordur.

Öyle yapacağına excell Dosyasını Blob alana ...

Lazım olacak notlar

Null veya Byte uzunluğu 0 olan kayıtları döndür
QUERY1.SQL.Add(' select * From KAYITLARTABLOSU Where (KOLONADI IS NULL OR CHAR_LENGTH(KOLONADI)= 0)');

// String ALanlar İçin Nokta virgül Değişimi SQL Update
update TABLO SET KOLON= (replace(TABLO.KOLON, '.', ',')) ;

// null ...

merak ettiğim bir şey var 5 pc aynı anda veya gelişiguzel zamanlarda clientdeki ana veritabanına bağlanıp data yazabilirmi? bu iletişim problem yaratır mı?

Sorun yaratmaz. sadece zorluk çıkartır
Veritabanı denilen olgu budur zaten, Aslolan Veriler Tek yerde toplanmalıdır, Tüm clientler bağlanıp ...

Veritabanınızda bir tablo daha açıp kullanıcı yetkileri verebilmek için kullanıcı adı(USER) ve şifresi(PASSWORD) alanları yanında birde o kullanıcının erişim yetkileri olarak stok_bakiye_raporu , Stok_hareket_raporu vs. .... gibi alanlar daha ekleyerek ve bunları bir tabloya veya datasete bağlayıp ...