You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
47 lines
922 B
Plaintext
47 lines
922 B
Plaintext
11 months ago
|
unit FindListu;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
||
|
|
StdCtrls, Grids, DBGrids, Buttons, Db, DBTables, BusinessSkinForm, ADODB,
|
||
|
|
bsSkinCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrmFindList = class(TForm)
|
||
|
|
Label1: TLabel;
|
||
|
|
DBGrid1: TDBGrid;
|
||
|
|
dsrCust: TDataSource;
|
||
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
||
|
|
qryCust: TADOQuery;
|
||
|
|
bsSkinButton2: TbsSkinButton;
|
||
|
|
bsSkinButton3: TbsSkinButton;
|
||
|
|
procedure DBGrid1DblClick(Sender: TObject);
|
||
|
|
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frmFindList: TfrmFindList;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses u_main;
|
||
|
|
|
||
|
|
{$R *.DFM}
|
||
|
|
|
||
|
|
procedure TfrmFindList.DBGrid1DblClick(Sender: TObject);
|
||
|
|
begin
|
||
|
|
ModalResult:=mrOK;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TfrmFindList.FormKeyPress(Sender: TObject; var Key: Char);
|
||
|
|
begin
|
||
|
|
if Key=#13 then ModalResult:=mrOK;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|