PROGRAM BASIS DATA "pencarian data" PADA DELPHI 7
10.34 | Author: rahmat


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
bkeluar: TButton;
Image1: TImage;
procedure bkeluarClick(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure Edit2Change(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.Edit1Change(Sender: TObject);
begin
  table1.IndexName:='nama';
  table1.FindNearest([edit1.Text]);
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  table1.IndexName:='harga';
  table1.FindNearest([edit2.Text]);
end;

end.
|
This entry was posted on 10.34 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