Delphi Indonesia :: View topic - cara bikin no id pasien buat program dokter

Delphi Indonesia

Tip n Trik Pemrograman - cara bikin no id pasien buat program dokter

rizu - 05-09-2008 21:24
Post subject: cara bikin no id pasien buat program dokter

kakak..maap..mgkn pertanyaannya terlalu mudah..tapi saya bnr2 bingung..
ada yg bisa bantu ajarin caranya buat no id pasien..
ketentuannya begini..
no id ada 1huruf awal dari nama depan pasien +no urut dari banyaknya pasien dgn huruf awal dari nama pasien..

contoh..
nama:Budi
no idnya adalah B01(karena budi adalah pasien pertama yg menggunakan huruf B)

mohon bantuannya kakak..
makasih.. Smile

n3o_cybertech - 06-09-2008 08:21
Post subject: RE: cara bikin no id pasien buat program dokter

pas onExit edNama(Input nama pasien) misalnya, kita crop 1 karakter utama, misalkan :

[pas]
var
strPertama,strMax: String;
begin
strPertama := edNama.Text[1];
with Query1 do
begin
Close;
SQL.Text := 'SELECT mid(idpasien,2,length(idpasien)) FROM pasien ORDER BY idpasien DESC';
Open;
end;
if Query1.Eof then
begin
edKode.Text := strPertama + '1';
exit;
end;
strMax := Query1.FieldByName('idpasien').AsString;
edKode.Text := strPertama + IntToStr(StrToInt(strMax) + 1);
end;
[/pas]
ya gitu klo gak salah...lom tak coba di delphinya...kode di atas asumsinya anda memakai MySQL sebagai databasenya...

wahyu_elrahma - 06-09-2008 09:23
Post subject: RE: cara bikin no id pasien buat program dokter

mungkin bisa menambahkan dari mas tigor, untuk sintak sqlnya gini aja :

$_sql :="SELECT LEFT(nama, 1) FROM pasien ORDER BY nama ASC ";

jadi, ngambil nama dari tabel pasien 1 karakter. trus divariabelkan untuk dibuat autocode

rizu - 06-09-2008 10:30
Post subject: RE: cara bikin no id pasien buat program dokter

ow..saya coba dl..makasih bny kk.. Smile

n3o_cybertech - 06-09-2008 14:41
Post subject: RE: cara bikin no id pasien buat program dokter

Quote:

mungkin bisa menambahkan dari mas tigor

wah nyebut merk neh... Mr. Green

rizu - 07-09-2008 21:10
Post subject: RE: cara bikin no id pasien buat program dokter

kk2 masih ga bisa..T_T

heerrr - 07-09-2008 23:49
Post subject:

nih yang sekali query Very Happy

Code:

select concat(UPPER(left('NAMAPASIENBARU',1)),right(concat('000000000',count(*)+1),5)) as NextPasienID from tpasien where UPPER(left(fnama,1))=UPPER(left('NAMAPASIENBARU',1));

rizu - 09-09-2008 20:56
Post subject:

makasih kk2

nick - 18-11-2008 00:06
Post subject:

Om n3o_cybertech, Kalo memakai Paradox bisa ga?
Koq Error : "length(idpasien)". Question

johnizzy - 18-11-2008 00:16
Post subject:

waduh ane ga pake paradox....

nick - 18-11-2008 00:26
Post subject:

Waduuhhhh....
Ada solusi buat paradox ga ya?

nick - 18-11-2008 18:15
Post subject:

Hmmm......

nick - 18-11-2008 18:15
Post subject:

Hmmm......