Manual Book Klinik Setia

MANUAL BOOK

Manual book berfungsi untuk memudahkan anda untuk mengenal dan mengetahui bagaimana proses menjalankan program dengan benar. Manual book ini merupakan salah satu informasi dalam program, baik dalam cara membuat mau pun langkah kerja menjalankan program.

Berikut adalah langkah-langkah membuat program Klinik Setia.

1. Buka aplikasi delphi

$Description: D:\proses\pilih delphi.png$

2. Pilih form untuk membuat tampilan program

$Description: D:\proses\buat form.png$

3. Tampilan from Baru

$Description: D:\proses\tampilan form baru.png$

4. Design tampilan pada form seperti berikut

5. Ganti nama caption dan name seperti berikut

$Description: D:\proses\Design sudah jadi.png$

6. Buat lah script seperti berikut

unit KLINIK;

interface

uses

Windows, Messages,shellAPI, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, ExtCtrls;

type

TForm1 = class(TForm)

lblJudul: TLabel;

lblkodedok: TLabel;

lblnamadok: TLabel;

lblspesialis: TLabel;

lblbiaya: TLabel;

lbltotal: TLabel;

lbl0: TLabel;

GroupBox1: TGroupBox;

lblhrgobt: TLabel;

lblnambat: TLabel;

bthitung: TButton;

btkeluar: TButton;

btbersihkan: TButton;

edNamBat: TEdit;

edhrg: TEdit;

Label1: TLabel;

lbltime: TLabel;

lbldate: TLabel;

Timer1: TTimer;

Button1: TButton;

label4: TLabel;

Label5: TLabel;

Label6: TLabel;

lblNamaPasien: TLabel;

MaskEdit1: TMaskEdit;

nama: TEdit;

lbnampas: TListBox;

lbnambat: TListBox;

lbhrg: TListBox;

Label2: TLabel;

Label3: TLabel;

Label7: TLabel;

Button2: TButton;

Label8: TLabel;

ListBox1: TListBox;

Button3: TButton;

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Timer1Timer(Sender: TObject);

procedure bthitungClick(Sender: TObject);

procedure btkeluarClick(Sender: TObject);

procedure btbersihkanClick(Sender: TObject);

procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);

procedure namaKeyPress(Sender: TObject; var Key: Char);

procedure edNamBatKeyPress(Sender: TObject; var Key: Char);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses StrUtils, help;

{$R *.dfm}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if MaskEdit1.Text='' then

begin

MaskEdit1.Text:='';

showmessage('ID atau Kode Belum diisi!');

end

else

Label4.Caption:=LeftStr(MaskEdit1.Text,3);

label5.Caption:=MidStr(MaskEdit1.Text,5,3);

label6.Caption:=RightStr(MaskEdit1.Text,1);

if Label4.Caption='AAA' then

begin

Label4.Caption:='Dr.Sultan';

end

else if Label4.Caption='BBB' then

begin

Label4.Caption:='Dr.Faisal';

end

else if Label4.Caption='CCC' then

begin

Label4.Caption:='Dr.Septy';

end

else if Label4.Caption='DDD' then

begin

Label4.Caption:='Dr.Grace';

end

else

begin

Label4.Caption:='N/A';

Label5.Caption:='0';

label6.Caption:='0';

end;

edNamBat.SetFocus;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

Var jam,tgl,hr,bln,thn:string;

begin

jam := formatdatetime('hh:mm:ss',time);

hr := formatdatetime('dddd',date);

tgl := formatdatetime('dd',date);

thn := formatdatetime('yyyy',date);

bln := formatdatetime('mmmm',date);

lbltime.Caption := jam ;

lbldate.Caption := hr +'/'+tgl+'/'+bln+'/'+thn;

end;

procedure TForm1.bthitungClick(Sender: TObject);

var biaya,hrg:integer;

total:real;

begin

biaya:=StrToInt(Label6.Caption);

hrg:=StrToInt(edhrg.Text);

total:=biaya+hrg;

lbl0.Caption:=FloatToStr(total);

end;

procedure TForm1.btkeluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.btbersihkanClick(Sender: TObject);

begin

MaskEdit1.Clear;

ednambat.Clear;

edhrg.Clear;

nama.CLEAR;

lbltime.Caption:='0';

lbldate.Caption:='0';

lbl0.Caption:='0';

label4.Caption:='0';

Label5.Caption:='0';

Label6.Caption:='0';

MaskEdit1.ReadOnly:=False;

end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13))then exit;

Label4.Caption:=LeftStr(MaskEdit1.Text,3);

label5.Caption:=MidStr(MaskEdit1.Text,5,2);

label6.Caption:=RightStr(MaskEdit1.Text,1);

if Label4.Caption='AAA' then

begin

Label4.Caption:='Dr.Angga';

nama.setfocus;

end

else if Label4.Caption='BBB' then

begin

Label4.Caption:='Dr.Faisal';

nama.setfocus;

end

else if Label4.Caption='CCC' then

begin

Label4.Caption:='Dr.Septy';

nama.setfocus;

end

else if Label4.Caption='DDD' then

begin

Label4.Caption:='Dr.Astri';

nama.setfocus;

end;

if Label5.Caption='01' then

begin

Label5.Caption:='Anak';

nama.SetFocus;

end

else if Label5.Caption='02' then

begin

Label5.Caption:='Dewasa';

nama.SetFocus;

end

else if Label5.Caption='03' then

begin

Label5.Caption:='Dalam';

nama.SetFocus;

end

else if Label5.Caption='04' then

begin

Label5.Caption:='THT';

nama.SetFocus;

end;

if Label6.Caption='1' then

begin

Label6.Caption:='200000';

nama.SetFocus;

end

else if Label6.Caption='2' then

begin

Label6.Caption:='250000';

nama.SetFocus;

end

else if Label6.Caption='3' then

begin

Label6.Caption:='300000';

end

else if Label6.Caption='4' then

begin

Label6.Caption:='350000';

end

else

begin

Label4.Caption:='N/A';

Label5.Caption:='0';

label6.Caption:='0';

ShowMessage('Data Anda Salah silahkan isi ulang kode');

MaskEdit1.Text:='';

MaskEdit1.SetFocus;

end;

if MaskEdit1.Text='' then

begin

MaskEdit1.Text:='';

showmessage('ID atau Kode Belum diisi!');

MaskEdit1.SetFocus;

MaskEdit1.Enabled:=False;

end;

procedure TForm1.namaKeyPress(Sender: TObject; var Key: Char);

begin

If not (key=chr(13)) then exit;

edNamBat.SetFocus;

end;

procedure TForm1.edNamBatKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

edhrg.SetFocus;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

lbnampas.Items.Add(nama.Text);

lbnambat.Items.Add(edNamBat.Text);

lbhrg.Items.Add(lbl0.Caption);

ListBox1.Items.Add(label4.Caption);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

fHelp.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

shellexecute(0,'open','..\KlinikSetia by Tia.W\manual book.docx','','',SW_SHOWNORMAL);

end;

end.

7. Hasil program klinik setelah dirunning.

$Description: D:\proses\hasil program setelah dirunning.png$

Langkah-langkah menjalankan program ‘KLINIK SETIA’ sebagai berikut :

1. Buka Program Klinik Setia melalui aplikasi delphi dengan pilih FILEàOPEN PROJECTàPILIH KLINIK SETIAà OPEN maka akan tampil program seperti berikut:

$Description: D:\proses\menjalankan program\tampilan awal.png$

2. Masukkan Kode Dokter XXX-XX-X

XXX = Untuk menentukan nama dokter

XX = Untuk menentukan spesialis dokter

X = Untuk menentukan biaya periksa

Contoh : “AAA-02-4”

Maka AAA = Nama Dr.Angga

02 = Spesialis Dewasa

4 = Biaya Periksa Rp 350000

$Description: D:\proses\menjalankan program\pengisian kodek.png$

3. Isi Nama Pasien(nama panggil/nama lengkap) setelah menginputkan kode dokter.

Contoh:

Nama Pasien “Tia”

$Description: D:\proses\menjalankan program\nama pasien.png$

4. Kemudian lanjutkan menginputkan data dengan tekan “ENTER”à Tulis Nama dan Harga yang telah disarankan dokter. Berikut tampilan gambarnya:

$Description: D:\proses\menjalankan program\input data nm dan hrg.png$

5. Untuk mengetahui Total Bayar (periksa & obat) silahkan klik button “HITUNG” maka total yang harus anda bayar akan tampil di label yang memiliki caption “0”. Berikut tampilan gambarnya: