delphi klinik

Created with Delphi 7 by Avid/Kira
Form ‘klinik’

Database pemeriksaan

Sintak:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, DB, DBTables;

type
Tfpemeriksaan = class(TForm)
edno_pasien: TEdit;
ednama: TEdit;
Eddokter: TEdit;
Edtgl_periksa: TEdit;
Edobat: TEdit;
Edbiaya_periksa: TEdit;
tbperiksa: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
btsimpan: TButton;
btbatal: TButton;
btcari: TButton;
btedit: TButton;
bthapus: TButton;
btexit: TButton;
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure btsimpanClick(Sender: TObject);
procedure btbatalClick(Sender: TObject);
procedure btcariClick(Sender: TObject);
procedure bteditClick(Sender: TObject);
procedure bthapusClick(Sender: TObject);
procedure btexitClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fpemeriksaan: Tfpemeriksaan;

implementation

{$R *.dfm}

procedure Tfpemeriksaan.FormCreate(Sender: TObject);
begin
edno_pasien.Text:='';
ednama.Text:='';
edobat.Text:='';
eddokter.Text:='';
edbiaya_periksa.Text:='';
end;

procedure Tfpemeriksaan.btsimpanClick(Sender: TObject);
begin
Tbperiksa.Append;
Tbperiksa['No_pasien']:=edno_pasien.Text;
Tbperiksa['Nama_pasien']:=ednama.Text;
Tbperiksa['Nama_dokter']:=eddokter.Text;
Tbperiksa['Tgl_periksa']:=edtgl_periksa.Text;
Tbperiksa['Obat']:=edobat.Text;
Tbperiksa['Biaya_periksa']:=edbiaya_periksa.Text;
Tbperiksa.Post;
Tbperiksa.ApplyUpdates;
Tbperiksa.Active:=false;
Tbperiksa.Active:=true;
ShowMessage('Data Telah Tersimpan');
FormCreate(sender);
edno_pasien.SetFocus;
end;

procedure Tfpemeriksaan.btbatalClick(Sender: TObject);
begin
FormCreate(sender);
edno_pasien.SetFocus;
end;

procedure Tfpemeriksaan.btcariClick(Sender: TObject);
begin
if Tbperiksa.Locate('No_pasien',edno_pasien.Text,[LocaseInsensitive]) then
begin
edno_pasien.Text:=Tbperiksa['No_pasien'];
ednama.Text:=Tbperiksa['Nama_pasien'];
eddokter.Text:=Tbperiksa['Nama_dokter'];
//edtgl_periksa.Text:=Tbperiksa['Tgl_periksa'];
edobat.Text:=Tbperiksa['Obat'];
edbiaya_periksa.Text:=Tbperiksa['Biaya_periksa'];
end
else
ShowMessage('Data Tidak Ditemukan');
end;

procedure Tfpemeriksaan.bteditClick(Sender: TObject);
begin
Tbperiksa.Edit;
Tbperiksa['No_pasien']:=edno_pasien.Text;
Tbperiksa['Nama_pasien']:=ednama.Text;
Tbperiksa['Nama_dokter']:=eddokter.Text;
//Tbperiksa['Tgl_periksa']:=edtgl_periksa.Text;
Tbperiksa['Obat']:=edobat.Text;
Tbperiksa['Biaya_periksa']:=edbiaya_periksa.Text;
Tbperiksa.Post;
Tbperiksa.ApplyUpdates;
Tbperiksa.Active:=false;
Tbperiksa.Active:=true;
ShowMessage('Data Telah Diubah');
FormCreate(sender);
edno_pasien.SetFocus;
end;