align="justify"> if not (key in [ 0 .. 9 , # 8]) then key:=# 0; end ;; TForm4.Edit6KeyPress (Sender: TObject; var Key: Char); Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime then
begin
if not (key in [ 0 .. 9 , # 8]) then key:=# 0; end ;; TForm4.Edit5KeyPress (Sender: TObject; var Key: Char); Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime thennot (key in [ 0 .. 9 , # 8]) then key:=# 0; end ;; TForm4.Edit4KeyPress (Sender: TObject; var Key: Char);
begin
if Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime thennot (key in [ 0 .. 9 , # 8]) then key:=# 0; end ;; TForm4.Edit3KeyPress (Sender: TObject; var Key: Char);
begin
if Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime thennot (key in [ 0 .. 9 , # 8]) then key:=# 0; end ;;
TForm4.Edit2KeyPress (Sender: TObject; var Key: Char); Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime thennot (key in [ 0 .. laquo ; 9 , # 8]) then key:=# 0; end ;; TForm4.FormCreate (Sender: TObject);
begin;.
Форма «Про програму» Unit5;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Buttons, jpeg, ExtCtrls;=class (TForm): TLabel ;: TLabel ;: TImage ;: TBitBtn;:TLabel; BitBtn1Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5; Unit1;
{$ R * .dfm} TForm5.BitBtn1Click (Sender: TObject) ;. Hide ;; TForm5.FormCreate (Sender: TObject);
begin;.
Висновок
У ході виконання курсової роботи був мною створений користувальницький інтерфейс для бази даних. У створеній програмі був реалізований пошук по різних полях бази даних, також в програмі є можливість управляти базою за допомогою мови SQL (Structured Query Language - «мова структурованих запитів»).
Завдання курсової роботи виконана в повній мірі, але в програмі можна реалізувати безліч різних ідей необхідних для різних сфер людської діяльності.
