langkah-langkah membuat sistem informasi menggunakan report wizard


LANGKAH-LANGKAH MEMBUAT REPORT DENGAN MENNGGUNAKAN REPORT WIZARD


Judul : Sistem Informasi Stok Obat


      1. Membuat tabel pada Microsoft Acces yang terdiri dari 3 tabel.
A.  Tabel obat

  

         B.Tabel Pegawai
 
         C. Tabel Obat Masuk
 2. Membuat form pada Embarcadero XE2
     A. Form menu utama
                 Langkah-langkah :
1.    Masukan komponen Main Menu
2.    Tuliskan nama-nama Menu dan Main Menu nya
3.    Untuk memanggil setiap Form pada menu utama masukan coding. Sebagai contoh : Form2.Show; 

    B. Form data obat

 Langkah-langkah : 
1.    Masukan komponen AdoTable
  • Properties - ConectionString :  Build - Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - Table Name : tbuku
  •  Properties - Active : True
  2.    Masukan komponen DBGrid
  •  Properties - Datasource - Datasource1
  3.    Masukan Button
  • Button tambah : Adotable1.Insert;
  • Button simpan : Adotable1.Post;
  • Button edit : Adotable1.Edit;
  • Button hapus : Adotable1.Delete;
  • Button keluar : Close

   C. Form data pegawai
Langkah-langkah :
1.    Masukan komponen AdoTable
  •  Properties - ConectionString :  Build - Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - Table Name : tanggota
  •  Properties - Active : True
2.    Masukan komponen DBGrid
  •  Properties : Datasource - Datasource1
3.    Masukan Button
  •  Button tambah : Adotable1.Insert;
  •  Button simpan : Adotable1.Post;
  •  Button edit : Adotable1.Edit;
  •  Button hapus : Adotable1.Delete;
  •  Button keluar : Close
   D. Form data obat masuk
Langkah-langkah :
1.    Masukan komponen AdoTable
  •  Properties - ConectionString :  Build - Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - Table Name : tpinjam
  •  Properties - Active : True
2.    Masukan komponen DBGrid
  •  Properties : Datasource - Datasource1
3.    Masukan Button
  •  Button tambah : Adotable1.Insert;
  •  Button simpan : Adotable1.Post;
  •  Button edit : Adotable1.Edit;
  •  Button hapus : Adotable1.Delete;
  •  Button keluar : Close
   E. Form pencarian data obat
Langkah-langkah :
1.    Masukan komponen AdoQuery
  •  Properties - Conectionstring : Build- Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - SQL : Select*from tbuku
  •  Properties - Active : True
2.    Masukan Data Source
  •  Properties - Dataset : ADOQuery1
3.    Masukan Edit
  •  Edit1 : Properties - Text : Select*from tbuku
  •  Edit 2
4.    Masukan Button
  •  Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;
 Adoquery1.SQL.Add(Edit1.Text);
 Adoquery1.Open;
  •  Button View : Adoquery1.Close;
Adoquery1.SQL.Clear;
If RadioButton3.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tbuku Where thn_terbit=’+Quotedstr(Edit2.Text));
End;
If RadioButton2.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tbuku Where jdl_buku=’+Quotedstr(Edit2.Text));
End;
If RadioButton1.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tbuku Where kd_buku=’+Quotedstr(Edit2.Text));
End;
Adoquery1.Open;
End;
  •  Button Preview : FrxReport1.Showreport();
  •  Button Keluar : Close;
5.    Masukan GroupBox :
  •  Properties - Caption : Cari Data
6.    Masukan RadioButton :
  •  Kode Buku : Edit2.Setfocus;
  •  Judul : Edit2.Setfocus;
  •  Tahun Terbit : Edit2.Setfocus;
7.    Masukan DBGrid :
  •  Properties - DataSource : DataSource1
8.    Masukan FrxDBDataset :
  •  Properties - Dataset : DataSet1
9.    Masukan FrxReport :
  •  Double Klik FrxReport
  •  File-New-Standar Report Wizard-Ok
  •  Next-Add All-Finish
  •  Ctrl+P untuk melihat hasil report

   F. Form pencarian data pegawai
Langkah-langkah :
1.    Masukan komponen AdoQuery
  •  Properties - Conectionstring : Build- Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - SQL : Select*from tanggota
  •  Properties - Active : True
2.    Masukan Data Source
  •  Properties - Dataset : ADOQuery1
3.    Masukan Edit
  •  Edit1 : Properties - Text : Select*from tanggota
  •  Edit 2
4.    Masukan Button
  •  Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;
 Adoquery1.SQL.Add(Edit1.Text);
 Adoquery1.Open;
  •  Button View : Adoquery1.Close;
Adoquery1.SQL.Clear;
If RadioButton3.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tanggota Where alamat=’+Quotedstr(Edit2.Text));
End;
If RadioButton2.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tanggota Where kelas=’+Quotedstr(Edit2.Text));
End;
If RadioButton1.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tanggota Where NIS=’+Quotedstr(Edit2.Text));
End;
Adoquery1.Open;
End;
  •  Button Preview : FrxReport1.Showreport();
  •  Button Keluar : Close;
5.    Masukan GroupBox :
  •  Properties - Caption : Cari Data
6.    Masukan RadioButton :
  •  Kode Buku : Edit2.Setfocus;
  •  Judul : Edit2.Setfocus;
  •  Tahun Terbit : Edit2.Setfocus;
7.    Masukan DBGrid :
  •  Properties - DataSource : DataSource1
8.    Masukan FrxDBDataset :
  •  Properties - Dataset : DataSet1
9.    Masukan FrxReport :
  •  Double Klik FrxReport
  •  File-New-Standar Report Wizard-Ok
  •  Next-Add All-Finish
  •  Ctrl+P untuk melihat hasil report
   G. Pencarian data obat masuk
Langkah-langkah :
1.    Masukan komponen AdoQuery
  •  Properties - Conectionstring : Build- Microsoft Jet 4.0 de DB Provider - Next -  Pilih Database
  •  Properties - SQL : Select*from tpinjam
  •  Properties - Active : True
2.    Masukan Data Source
  •  Properties - Dataset : ADOQuery1
3.    Masukan Edit
  •  Edit1 : Properties - Text : Select*from tpinjam
  •  Edit 2
4.    Masukan Button
  •  Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;
 Adoquery1.SQL.Add(Edit1.Text);
 Adoquery1.Open;
  •  Button View : Adoquery1.Close;
Adoquery1.SQL.Clear;
If RadioButton3.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tpinjam Where kd_buku=’+Quotedstr(Edit2.Text));
End;
If RadioButton2.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tpinjam Where NIS=’+Quotedstr(Edit2.Text));
End;
If RadioButton1.Checked=TRUE begin
Adoquery1.SQL.Add(‘Select*from tpinjam Where kd_pinjam=’+Quotedstr(Edit2.Text));
End;
Adoquery1.Open;
End;
  •  Button Preview : FrxReport1.Showreport();
  •  Button Keluar : Close;
5.    Masukan GroupBox :
  •  Properties - Caption : Cari Data
6.    Masukan RadioButton :
  •  Kode Buku : Edit2.Setfocus;
  •  Judul : Edit2.Setfocus;
  •  Tahun Terbit : Edit2.Setfocus;
7.    Masukan DBGrid :
  •  Properties - DataSource : DataSource1
8.    Masukan FrxDBDataset :
  •  Properties - Dataset : DataSet1
9.    Masukan FrxReport :
  •  Double Klik FrxReport
  •  File-New-Standar Report Wizard-Ok
  •  Next-Add All-Finish
  •  Ctrl+P untuk melihat hasil report





 


Komentar

Posting Komentar