.Active:=False;.Query1.SQL.Add(laquo;Select * From + Form1.Table1.TableName +
where raquo;+Form4.ComboBox1.Text+laquo;=raquo;+#39+Form4.Edit1.Text+#39+laquo;;raquo;);.Query1.Active:=True;.DataSource1.DataSet:=Form1.Query1;goto 2; elseForm1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTimebegini:=0 to length (Form4.Edit2.Text) do beginForm4.Edit2.Text [i] in [ a .. z raquo ;, а .. я ] then begin ( Введіть день ); goto 2; end; end; i:=0 to length (Form4.Edit3.Text) do beginForm4.Edit3.Text [ i] in [ a .. z , а .. я ] then begin ( Введіть місяць ); goto 2; end; end; i:=0 to length ( Form4.Edit4.Text) do beginForm4.Edit4.Text [i] in [ a .. z , а .. я ] then begin ( Введіть рік ); goto 2; end; end; form4.CheckBox1.Checked=true then begini:=0 to length (Form4.Edit2.Text) do beginForm4.Edit2.Text [i] in [ a .. z , laquo ; а .. я ] then begin ( Введіть день ); goto 2; end; end; i:=0 to length (Form4.Edit3.Text) do beginForm4.Edit3.Text [i] in [ a .. z , а .. я ] then begin ( Введіть місяць ); goto 2; end; end; i:=0 to length (Form4.Edit4.Text) do beginForm4.Edit4.Text [i] in [ a .. z , а .. я ] then begin ( Введіть рік ); goto 2; end ; end; i:=0 to length (Form4.Edit5.Text) do beginForm4.Edit5.Text [i] in [ a .. z , а .. я ] then begin ( Введіть годину ??raquo;); goto 2; end; end; i:=0 to length (Form4.Edit6.Text) do beginForm4.Edit6.Text [i] in [ a .. z , а .. я ] then begin ( Введіть хвилини ); goto 2; end; end; i:=0 to length (Form4.Edit7.Text) do beginForm4.Edit7.Text [i ] in [ a .. z , а .. я ] then begin ( Введіть секунди ); goto 2; end; end; .Query1.SQL.Clear ;. Memo1.Lines.Clear; .Memo1.Lines.Add ( Select * from + Form1.Table1.TableName +
where + Form4.ComboBox1.Text + = + # 39 + Form4.Edit2.Text + .
+ Form4.Edit3.Text + . + Form4.Edit4.Text + + Form4.Edit5.Text + :
+Form4.Edit6.Text+laquo;:raquo;+Form4.Edit7.Text+#39+laquo;;raquo;);.Query1.Active:=False;.Query1.SQL.Add(laquo;Select * From + Form1.Table1.TableName +
where + Form4.ComboBox1.Text + = + # 39 + Form4.Edit2.Text + .
+ Form4.Edit3.Text + . + Form4.Edit4.Text + + Form4.Edit5.Text + :
+Form4.Edit6.Text+laquo;:raquo;+Form4.Edit7.Text+#39+laquo;;raquo;);.Query1.Active:=True;.DataSource1.DataSet:=Form1.Query1;goto 2; end; .Query1.SQL.Clear; .Memo1.Lines.Clear; .Memo1.Lines.Add ( Select * from + Form1.Table1.TableName +
where + Form4.ComboBox1.Text + = + # 39 + Form4.Edit2.Text + .
+Form4.Edit3.Text+laquo;.raquo;+Form4.Edit4.Text+#39+laquo;;raquo;);.Query1.Active:=False;.Query1.SQL.Add(laquo;Select * From + Form1.Table1.TableName +
where + Form4.ComboBox1.Text + = + # 39 + Form4.Edit2.Text + .
+ Form4.Edit3.Text + . + Form4.Edit4.Text + # 39 + laquo ;; );
Form1.Query1.Active:=True;
Form1.DataSource1.DataSet:=Form1.Query1; goto 2; end;
2:
end; TForm4.Button3Click (Sender: TObject) ;. DataSource1.DataSet:=Form1.Table1 ;; TForm4.Edit1KeyPress (Sender: TObject; var Key: Char);
var k: integer;
if Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType in [ftSmallint, ftInteger, ftFloat] beginKey in [ 0 .. 9 , . , # 8] then begin
if key=. then//перевірка для тільки однієї коми
beginForm4.Edit1.Text= then key:=# 0; k:=1 to Length (Form4.Edit1.Text) doForm4.Edit1.Text [k]=. then key:=# 0 ;;; else key:=# 0 ;; end; TForm4.ComboBox1KeyUp (Sender: TObject; var Key: Word ;: TShiftState) ;. ComboBox1.Text:= raquo ;;; TForm4. ComboBox1Select (Sender: TObject);Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTimebegin.CheckBox1.Show;.Edit1.Visible:=false;.Edit2.Show;.Edit2.Text:=laquo;ддraquo;;.Edit3.Show;
form4.Edit3.Text:= мм raquo ;;
Form4.Edit4.Show; .Edit4.Text:= рррр raquo ;; begin Form4.CheckBox1.hide;.Edit2.Visible:=false;.Edit3.Visible:=false;.Edit4.Visible:=false;.Edit5.Visible:=false;.Edit6.Visible:=false;.Edit7.Visible:=false;.Edit1.Show; end ;; TForm4.CheckBox1Click (Sender: TObject);
begin
if form4.CheckBox1.Checked=true then begin.Edit5.Show;.Edit5.Text:=laquo;ччraquo;;.Edit6.Show;.Edit6.Text:=laquo;ммraquo;;.Edit7.Show;.Edit7.Text:=laquo;ссraquo;;else begin.Edit5.Hide; .Edit6.Hide; .Edit7.Hide; end ;; TForm4.Edit7KeyPress (Sender: TObject; var Key: Char);
begin
if Form1.Table1.FieldByName (Form4.ComboBox1.Text) .DataType=ftDateTime then
begin
