Tugas berikutnya adalah membuat database dengan Ms. Access dan mengkoneksikannya dengan program Dhelpi. ternyata tidak susah. yaaaa hanya sekedar mengkoneksikannya ke database.
jadi seperti ini, buka delphi 7 dan siapkan form kemudian design sesuka hati anda agar tampilan aplikasi anda lebih menarik. Pada tugas kali ini saya membuat aplikasi database hotel.
berikut tampilan design aplikasi sayaa
setelah selesai dengan design, lanjutkan dengan mengisi source code seperti dibawah ini ..
dan dilanjut dengan source yang ini ..
dan ini dia source code yang terakhir ;)
anda tidak dapat melihat dengan jelas source code pada gambar diatas ? coba tulisan dibawah ini :)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls, jpeg, Grids, DBGrids,
DBCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Image1: TImage;
Image2: TImage;
Image3: TImage;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
DBNavigator1: TDBNavigator;
Label15: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Adotable1.Open;
Adotable1.Append;
ADOTable1.FieldByName('DOchk').AsString:=edit1.Text;
ADOTable1.FieldByName('GuID').AsString:=edit2.Text;
ADOTable1.FieldByName('Name').AsString:=edit3.Text;
ADOTable1.FieldByName('Address').AsString:=edit4.Text;
ADOTable1.FieldByName('City').AsString:=edit5.Text;
ADOTable1.FieldByName('State').AsString:=edit6.Text;
ADOTable1.FieldByName('Country').AsString:=edit7.Text;
ADOTable1.FieldByName('TOChk').AsString:=edit8.Text;
ADOTable1.FieldByName('Company').AsString:=edit9.Text;
ADOTable1.FieldByName('Designation').AsString:=edit10.Text;
ADOTable1.FieldByName('Phone').AsString:=edit11.Text;
ADOTable1.FieldByName('RoomType').AsString:=edit12.Text;
ADOTable1.FieldByName('RoomNo').AsString:=edit13.Text;
ADOTable1.FieldByName('Advance').AsString:=edit14.Text;
ADOTable1.Post;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
end;
end.
dan taraaaaa anda dapat Download disini jika anda ingin melihat aplikasi database hotel saya lebih lanjut ;)
semoga berhasil. see u later
