Arsip: cara bikin no id pasien buat program dokter

more 16 years ago
rizu
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.. :) :) :)

more 16 years ago
n3o_cybertech
pas onExit edNama(Input nama pasien) misalnya, kita crop 1 karakter utama, misalkan :
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;
ya gitu klo gak salah...lom tak coba di delphinya...kode di atas asumsinya anda memakai MySQL sebagai databasenya...
more 16 years ago
wahyu_elrahma
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

more 16 years ago
n3o_cybertech
mungkin bisa menambahkan dari mas tigorwah nyebut merk neh... :mrgreen:

more 16 years ago
heerrr
nih yang sekali query :D
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));

more 16 years ago
nick
Om n3o_cybertech, Kalo memakai Paradox bisa ga?
Koq Error : "length(idpasien)". :?:
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Awas Penipuan
by DelphiExpert in OOT more 17 years ago - menghapus Format Rupiah(Rp) DiDBEedit
by saysansay in Enginering more 19 years ago - Back up Data jika listrik mati / komp Hang
by lekmo in Tip n Trik Pemrograman more 17 years ago - Dua masalah yang bertentangan...
by Random in Hal umum tentang Pascal Indonesia more 17 years ago - Delphi yang digunakan
by barcode in OOT more 19 years ago - cpanel
by Starboard in Hal umum tentang Pascal Indonesia more 19 years ago - Saran: Last Forum Post ?
by cyber_hecker in Kritik & Saran more 19 years ago - hmm, ada yg tau transfer data tabel dr access ke sql server?
by micrens in Tip n Trik Pemrograman more 17 years ago - Format TEdit pada Database
by n3o_cybertech in Tip n Trik Pemrograman more 17 years ago - custom preview form (qrpreview)
by imunk in Tutorial & Community Project more 18 years ago