begin Application.Terminate ; end; end.
unit pencarian; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids; type TForm1 = class(TForm) Label1: TLabel; DataSource1: TDataSource; DBGrid1: TDBGrid; barang: TTable; GroupBox1: TGroupBox; Label2: TLabel; edCari: TEdit; btcari: TButton; btselesai: TButton; procedure edCariChange(Sender: TObject); procedure btcariClick(Sender: TObject); procedure btselesaiClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1;
↧