'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;
end; end.
П'ята форма: форма пошуку, пошук значень за заданим користувачем критерієм.
unit Unit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, jpeg, StdCtrls, XPMan; = class (TForm): TGroupBox;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;: TXPManifest;: TImage;: TEdit; Button1Click (Sender: TObject); Button2Click ( Sender: TObject); Button5Click (Sender: TObject); Edit1KeyPress (Sender: TObject; var Key: Char); Edit3KeyPress (Sender: TObject; var Key: Char); Edit4KeyPress (Sender: TObject; var Key: Char); Edit6KeyPress ( Sender: TObject; var Key: Char); Edit7KeyPress (Sender: TObject; var Key: Char); Edit9KeyPress (Sender: TObject; var Key: Char); Edit10KeyPress (Sender: TObject; var Key: Char); Edit13KeyPress (Sender: TObject; var Key: Char); Edit15KeyPress (Sender: TObject; var Key: Char); Edit16KeyPress (Sender: TObject; var Key: Char);
{Private declarations}
{Public declarations};: TForm6; Unit2, Unit3;
{$ R *. dfm} TForm5.Button1Click (Sender: TObject);, b, c, d, e, f: variant;: = DataModule2.ADOTable1.Lookup (; VarType (a) = varNull TObject);. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';. Text: ='';; TForm5.Button5Click ( Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit3KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit4KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit6KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit7KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit9KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit10KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit13KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;
# 8:;
# 13: Edit1.SetFocus; Key: = Chr (0);;; TForm5.Edit15KeyPress (Sender: TObject; var Key: Char); Key of
'0 '.. '9':;