Listing Program
<!– /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:”"; margin:0in; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:”Times New Roman”; mso-fareast-font-family:”Times New Roman”;} @page Section1 {size:8.5in 11.0in; margin:56.7pt 56.7pt 56.7pt 85.05pt; mso-header-margin:35.45pt; mso-footer-margin:35.45pt; mso-paper-source:0;} div.Section1 {page:Section1;} –>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:”Table Normal”;
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:”";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:”Times New Roman”;
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
unit u_biodata1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls;
type
Tf_biodata1 = class(TForm)
Bevel1: TBevel;
Label13: TLabel;
DBGrid1: TDBGrid;
Bevel2: TBevel;
Bevel3: TBevel;
bt_hapus: TBitBtn;
bt_tutup: TBitBtn;
bt_edit: TBitBtn;
bt_tambah: TBitBtn;
e_nip: TEdit;
e_nama: TEdit;
e_homebase: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
bt_cetak: TBitBtn;
procedure bt_tambahClick(Sender: TObject);
procedure bt_editClick(Sender: TObject);
procedure e_nipKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure bt_hapusClick(Sender: TObject);
procedure bt_tutupClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure bt_cetakClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
f_biodata1: Tf_biodata1;
implementation
uses u_biodata,udm_data, DB, ADODB, qr_direktori;
{$R *.dfm}
procedure Tf_biodata1.bt_tambahClick(Sender: TObject);
begin
with f_biodata do
begin
e_nip.clear;
e_gelar1.Clear;
e_nama.clear;
e_gelar2.Clear;
e_tempat.clear;
dtp_lahir.Date:=date;
cb_sex.ItemIndex:=0;
cb_gol.ItemIndex:=0;
cb_jabfung.ItemIndex:=0;
cb_pendidikan.ItemIndex:=0;
e_homebase.clear;
e_alamat.Clear;
e_telp.clear;
e_hp.clear;
e_fax.clear;
e_email.clear;
e_pakar1.clear;
e_pakar2.clear;
e_pakar3.clear;
dm_data.t_biodata.Append;
showmodal;
end;
end;
procedure Tf_biodata1.bt_editClick(Sender: TObject);
begin
with dm_data.t_biodata do
begin
if recordcount <> 0 then
begin
Locate(‘nip’,e_nip.Text,[]);
if FieldByName(‘nip’).AsString = e_nip.Text then
begin
with f_biodata do
begin
e_nip.Text:=FieldByName(‘nip’).AsString;
e_gelar1.Text:=FieldByName(‘gelar1′).AsString;
e_nama.Text:=FieldByName(‘nama’).AsString;
e_gelar2.Text:=FieldByName(‘gelar2′).AsString;
e_tempat.Text:=FieldByName(‘tempat_lahir’).AsString;
dtp_lahir.Date:=FieldByName(‘tgl_lahir’).asdatetime;
if FieldByName(‘sex’).AsString = ‘Laki-laki’ then
cb_sex.ItemIndex:=0
else
cb_sex.ItemIndex:=1;
if FieldByName(‘pendidikan’).AsString = ‘S1′ then
cb_pendidikan.ItemIndex:=0;
if FieldByName(‘pendidikan’).AsString = ‘S2′ then
cb_pendidikan.ItemIndex:=1;
if FieldByName(‘pendidikan’).AsString = ‘S3′ then
cb_pendidikan.ItemIndex:=2;
cb_gol.ItemIndex:=FieldByName(‘gol_kode’).AsInteger;
cb_jabfung.ItemIndex:=FieldByName(‘jabfung_kode’).AsInteger;
e_homebase.Text:=FieldByName(‘homebase’).AsString;
e_alamat.Text:=FieldByName(‘alamat’).AsString;
e_telp.Text:=FieldByName(‘no_telp’).AsString;
e_hp.Text:=FieldByName(‘no_hp’).AsString;
e_fax.Text:=FieldByName(‘no_fax’).AsString;
e_email.Text:=FieldByName(‘email’).AsString;
e_pakar1.Text:=FieldByName(‘pakar1′).AsString;
e_pakar2.Text:=FieldByName(‘pakar2′).AsString;
e_pakar3.Text:=FieldByName(‘pakar3′).AsString;
dm_data.t_biodata.Edit;;
showmodal;
end;
end;
end
else
showmessage(‘Belum Ada Data’);
end;
end;
procedure Tf_biodata1.e_nipKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
nama:string;
begin
with dm_data.t_biodata do
begin
if key = 13 then
begin
Locate(‘nip’,e_nip.Text,[]);
if FieldByName(‘nip’).AsString = e_nip.Text then
begin
if FieldByName(‘gelar1′).AsString <> ” then
nama:=FieldByName(‘gelar1′).AsString
else
nama:=”;
nama:=nama+’ ‘+FieldValues['nama'];
if FieldByName(‘gelar2′).AsString <> ” then
nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;
e_nama.Text:=nama;
e_homebase.Text:=FieldValues['homebase'];
end
else
showmessage(‘NIP Tidak Ditemukan !’);
end;
end;
end;
procedure Tf_biodata1.bt_hapusClick(Sender: TObject);
begin
with dm_data.t_biodata do
begin
Locate(‘nip’,e_nip.Text,[]);
if FieldByName(‘nip’).AsString = e_nip.Text then
Delete;
end;
end;
procedure Tf_biodata1.bt_tutupClick(Sender: TObject);
begin
close;
end;
procedure Tf_biodata1.DBGrid1CellClick(Column: TColumn);
var
nama:string;
begin
with dm_data.t_biodata do
begin
e_nip.Text:=FieldValues['nip'];
Locate(‘nip’,e_nip.Text,[]);
if FieldByName(‘gelar1′).AsString <> ” then
nama:=FieldByName(‘gelar1′).AsString
else
nama:=”;
nama:=nama+’ ‘+FieldValues['nama'];
if FieldByName(‘gelar2′).AsString <> ” then
nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;
e_nama.Text:=nama;
e_homebase.Text:=FieldValues['homebase'];
end;
end;
procedure Tf_biodata1.bt_cetakClick(Sender: TObject);
var
nama:string;
begin
with dm_data.t_biodata do
begin
close;open;
dm_data.q_biodata.Close;
dm_data.q_biodata.Parameters.ParamValues['nip']:=e_nip.Text;
dm_data.q_biodata.Open;
Locate(‘nip’,e_nip.Text,[]);
if (FieldByName(‘nip’).AsString = e_nip.Text) then
begin
if FieldByName(‘gelar1′).AsString <> ” then
nama:=FieldByName(‘gelar1′).AsString
else
nama:=”;
nama:=nama+’ ‘+FieldValues['nama'];
if FieldByName(‘gelar2′).AsString <> ” then
nama:=nama+’, ‘+FieldByName(‘gelar2′).AsString;
dm_data.q_pendidikan.Close;
dm_data.q_pendidikan.Parameters.ParamValues['nip']:=e_nip.text+’%';
dm_data.q_pendidikan.open;
dm_data.q_buku.Close;
dm_data.q_buku.Parameters.ParamValues['nip']:=e_nip.text+’%';
dm_data.q_buku.open;
dm_data.q_penelitian.Close;
dm_data.q_penelitian.Parameters.ParamValues['nip']:=e_nip.text+’%';
dm_data.q_penelitian.open;
dm_data.q_seminar.Close;
dm_data.q_seminar.Parameters.ParamValues['nip']:=e_nip.text+’%';
dm_data.q_seminar.open;
dm_data.q_artikel.Close;
dm_data.q_artikel.Parameters.ParamValues['nip']:=e_nip.text+’%';
dm_data.q_artikel.open;
with qr do
begin
l_nama.Caption:=nama;
l_ttl.Caption:=FieldByName(‘tempat_lahir’).AsString+’ / ‘+datetostr(FieldByName(‘tgl_lahir’).asdatetime);
preview;
end;
end
else
ShowMessage(‘Data Tidak Ditemukan !’);
end;
end;
end.
