PROGRAM PECARIAN DATA DI DELPHI 7 DENGAN DATABASE DESKTOP
13.48 | Author: rahmat





unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, DB, DBTables, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    BKELUAR: TButton;
    Table1: TTable;
    Image1: TImage;
    Label6: TLabel;
    procedure BKELUARClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BKELUARClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    table1.Append;
    table1['Kode_Barang']:=edit1.text;
    table1['Nama_Barang']:=edit2.Text;
    table1['Harga_Barang']:=edit3.text;
    table1['Jumlah']:=edit4.text;
    table1['Diskon']:=edit5.text;
table1.Post;  
button1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit5.Text:='';
  button1.Enabled:=false;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (length(edit1.Text)=5)then
  begin
   table1.IndexName:='';
   if table1.FindKey([edit1.Text])then
   begin
showmessage ('DATA SUDAH ADA BROW TULIS YANG LAIN AJA YACH');
    formCreate (sender);
   end else
   begin
      button1.Enabled:=true;
   end;
  end
  else
    formCreate(sender);
end;

end.

|
This entry was posted on 13.48 and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

0 komentar:

Posting Komentar