Script Delphi7

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    Edit3: TEdit;

    Label4: TLabel;

    Edit4: TEdit;

    Label5: TLabel;

    Edit5: TEdit;

    Label6: TLabel;

    Edit6: TEdit;

    Label7: TLabel;

    Edit7: TEdit;

    Button1: TButton;

    Button2: TButton;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    ADOConnection1: TADOConnection;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    Image1: TImage;

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

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

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

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

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

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

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

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

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

begin

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

if Edit1.Text=' 'then

begin

ShowMessage('Data Harus Diisi');

Edit1.SetFocus;

end

else

Button1.SetFocus;

end;

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

begin

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

if Edit1.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit1.SetFocus;

end

else

Edit2.SetFocus;

end;

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

begin

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

if Edit2.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit2.SetFocus;

end

else

Edit3.SetFocus;

end;

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

begin

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

if Edit3.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit3.SetFocus;

end

else

Edit4.SetFocus;

end;

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

begin

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

if Edit4.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit4.SetFocus;

end

else

Edit5.SetFocus;

end;

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

begin

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

if Edit5.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit5.SetFocus;

end

else

Edit6.SetFocus;

end;

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

begin

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

if Edit6.Text='' then

begin

ShowMessage('Data Harus Diisi');

Edit6.SetFocus;

end

else

Edit7.SetFocus;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

AdoTable1.Open;

AdoTable1.Append;

ADOTable1.FieldByName('NO PUNGGUNG').AsString:=edit1.Text;

ADOTable1.FieldByName('MU').AsString:=edit2.Text;

ADOTable1.FieldByName('CHEALSE').AsString:=edit3.Text;

ADOTable1.FieldByName('ARSENAL').AsString:=edit4.Text;

ADOTable1.FieldByName('LIVERPOOL').AsString:=edit5.Text;

ADOTable1.FieldByName('REAL MADRID').AsString:=edit6.Text;

ADOTable1.FieldByName('BARCELONA').AsString:=edit7.Text;

ADOTable1.Post;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

edit7.Text:='';

end;

end.