Script database delphi7

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, Mask,

  jpeg;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    ednama: TEdit;

    edalamat: TEdit;

    edtempat: TEdit;

    edtgl: TEdit;

    edagama: TEdit;

    edkw: TEdit;

    edgol: TEdit;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADOConnection2: TADOConnection;

    ADOTable1: TADOTable;

    Label10: TLabel;

    edkerja: TEdit;

    btsimpan: TButton;

    btbatal: TButton;

    edstatus: TEdit;

    MaskEdit1: TMaskEdit;

    Label11: TLabel;

    edjk: TEdit;

    Image1: TImage;

    Memo1: TMemo;

    Label12: TLabel;

    procedure ednamaKeyPress(Sender: TObject; var Key: Char);

    procedure edalamatKeyPress(Sender: TObject; var Key: Char);

    procedure edtempatKeyPress(Sender: TObject; var Key: Char);

    procedure edtglKeyPress(Sender: TObject; var Key: Char);

    procedure edagamaKeyPress(Sender: TObject; var Key: Char);

    procedure edstatusKeyPress(Sender: TObject; var Key: Char);

    procedure edkwKeyPress(Sender: TObject; var Key: Char);

    procedure edgolKeyPress(Sender: TObject; var Key: Char);

    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);

    procedure edkerjaKeyPress(Sender: TObject; var Key: Char);

    procedure FormActivate(Sender: TObject);

    procedure btsimpanClick(Sender: TObject);

    procedure edjkKeyPress(Sender: TObject; var Key: Char);

    procedure btbatalClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ednamaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if ednama.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

      ednama.SetFocus;

    end

  else

    edalamat.SetFocus;

end;

procedure TForm1.edalamatKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edalamat.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

      edalamat.SetFocus

    end

      else

    edtempat.SetFocus;

end;

procedure TForm1.edtempatKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edtempat.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

       edtempat.setfocus;

    end

  else

    edtgl.setfocus;

end;

procedure TForm1.edtglKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edtgl.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

    end

  else

    edjk.SetFocus;

end;

procedure TForm1.edagamaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edagama.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

      edagama.setfocus;

    end

  else

    edstatus.SetFocus;

end;

procedure TForm1.edstatusKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edstatus.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

      edstatus.setfocus;

    end

  else

    edkw.SetFocus;

end;

procedure TForm1.edkwKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edkw.Text='' then

begin

ShowMessage('Data Harus Diisi');

edkw.setfocus;

                   end

  else

                   edgol.SetFocus;

end;

procedure TForm1.edgolKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if edgol.Text='' then

    begin

     ShowMessage('Data Harus Diisi');

     edgol.setfocus;

    end

  else

                                MaskEdit1.SetFocus;

end;

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

  if MaskEdit1.Text='' then

                begin

                                 ShowMessage('Data Harus Diisi');

                                maskedit1.setfocus;

                 end

  else

    edkerja.SetFocus;

end;

procedure TForm1.edkerjaKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

 if edkerja.Text='' then

    begin

      ShowMessage('Data Harus Diisi');

                                   edkerja.setfocus;

    end

  else

                   btsimpan.SetFocus;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

ednama.SetFocus;

end;

procedure TForm1.btsimpanClick(Sender: TObject);

begin

Adotable1.Open;

AdoTable1.Append;

ADOTable1.FieldByName('Nama').AsString:=ednama.Text;

ADOTable1.FieldByName('Alamat').AsString:=edalamat.Text;

ADOTable1.FieldByName('Tempat').AsString:=edtempat.Text;

ADOTable1.FieldByName('TanggalLahir').AsString:=edtgl.Text;

ADOTable1.FieldByName('Agama').AsString:=edagama.Text;

ADOTable1.FieldByName('Status').AsString:=edstatus.Text;

ADOTable1.FieldByName('Kewarganegaraan').AsString:=edkw.Text;

ADOTable1.FieldByName('GolonganDarah').AsString:=edgol.Text;

ADOTable1.FieldByName('TanggalPembuatanKTP').AsString:=MaskEdit1.Text;

ADOTable1.FieldByName('Pekerjaan').AsString:=edkerja.Text;

 ShowMessage('DataTelahTersimpan');

end;

procedure TForm1.edjkKeyPress(Sender: TObject; var Key: Char);

begin

if not (key=chr(13)) then exit;

if edjk.Text='' then

begin

 ShowMessage('Data Harus Diisi');

 edjk.setfocus;

                end

else

                edagama.SetFocus;

end;

procedure TForm1.btbatalClick(Sender: TObject);

begin

ednama.clear;

edalamat.clear;

edtempat.clear;

edtgl.clear;

edjk.clear;

edagama.clear;

edstatus.clear;

edkw.clear;

edgol.clear;

maskedit1.clear;

edkerja.clear;

ednama.setfocus;

end;

end.