loading...

Senin, 24 Mei 2010

PERINTAH PADA DELPHI

Perintah untuk mengisi ComboBox secara Otomatis
procedure TForm6.FormCreate(Sender: TObject);
var
a: integer;
begin
for a:=10 DOWNto 1 do
begin
ComboBox1.Items.Add(IntToStr(a))
end;
end;

Untuk menambahkan dari edit ke label secara berurutan
var
a,n:integer;
begin
n:= StrToInt(Edit1.text);
Label1.Caption:='';
for a:=1 to n do
begin
Label1.Caption:=Label1.Caption + IntToStr(a);
end;
end;
Sedangkan untuk kode program untuk Button simpan/Save seperti dibawah ini:
procedure TForm2.Button1Click(Sender: TObject);
begin
///if ((Edit1.Text='')or(Edit2.Text='')or(Edit4.Text='')or(Edit5.Text='')) then
//else if
//ShowMessage('jangan ada yang kosong...!!!!');
//exit;
ADOTable1.Append;
ADOTable1.FieldByName('Nama_pasien').AsString:=Edit1.Text;
ADOTable1.FieldByName('Alamat').AsString:=Edit2.Text;
ADOTable1.FieldByName('Tan ggal_masuk').AsString:=DateTimePicker1.Format;
ADOTable1.FieldByName('Ruang').AsString:=Edit4.Text;
ADOTable1.FieldByName('Dokter_merawat').AsString:=Edit5.Text;
end;
Perintah untuk Mencari data
Even : KeyOnpress
if key=#13 then begin
if ADOTable1.Locate('Kode_obat',Edit1.Text,[loCaseInsensitive]) then
begin
Edit2.Text:=ADOTable1.fieldByName( 'Nama_Obat').AsString;
Edit3.Text:=ADOTable1.fieldByname( 'Harga').AsVariant;
end
end;
Edit data
if ADOTable1.Locate('Kode_obat',Edit1.Text,[loCaseInsensitive]) then
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Kode_obat').AsString: =Edit1.Text;
ADOTable1.FieldByName('Nama_Obat').AsString: =Edit2.Text;
ADOTable1.FieldByName('Harga').AsVariant:=Edit3.Text;
ADOTable1.Post;
ShowMessage('data telah disimpan');
end
else
begin
ShowMessage('cari dulu data');
exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If ADOTable1.Locate('Kode_obat',Edit1.Text,[loCaseInsensitive])then
begin
Edit2.Text:=ADOTable1.fieldbyname('Nama_obat').AsString;
Edit3.Text:=ADOTable1.fieldbyname('Harga').AsVariant;
end
else
begin
MessageDlg('g nok',mtInformation,[mbOK],0);
Edit1.Clear;
Edit1.SetFocus;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Append;
try
ADOTable1.FieldByName('Kode_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Harga').AsString:=Edit1.Text;
ADOTable1.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
except
MessageDlg('g iso',mterror,[mbOK],0);
ADOTable1.Cancel;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.Edit;
try
ADOTable1.FieldByName('Kode_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Harga').AsString:=Edit1.Text;
ADOTable1.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
except
MessageDlg('g iso',mterror,[mbOK],0);
ADOTable1.Cancel;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.Delete;
try
ADOTable1.FieldByName('Kode_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Nama_obat').AsString:=Edit1.Text;
ADOTable1.FieldByName('Harga').AsString:=Edit1.Text;
ADOTable1.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
except
MessageDlg('g iso',mterror,[mbOK],0);
ADOTable1.Cancel;
end;
end;

Tidak ada komentar: