Что вот этот код делает и как его преределать под парадокс?

[Vasiliska]

unit uDiapason;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons;
type
  TfmDiapason = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    dtpDateFrom: TDateTimePicker;
    dtpDateTo: TDateTimePicker;
    bbtCancel: TBitBtn;
    bbtOK: TBitBtn;
    function GetDiapason(var DateFrom, DateTo: TDateTime): Boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  fmDiapason: TfmDiapason;
implementation
{$R *.dfm}
//Ôóíêöèÿ âîçâðàùàåò äèàïàçîí äàò, çàäàííûé ïîëüçîâàòåëåì:
function TfmDiapason.GetDiapason(var DateFrom, DateTo: TDateTime): Boolean;
begin
  fmDiapason.dtpDateFrom.Date := Date;
  fmDiapason.dtpDateTo.Date := Date;
  if fmDiapason.ShowModal = mrOK then begin
    DateFrom := dtpDateFrom.Date;
    DateTo := dtpDateTo.Date;
    Result := True;
    end
  else
    Result := False;
end;
end.

[ych_del]

Что вот этот код делает

Показывает окно, в котором есть два календарика для выбора начала и конца периода.

как его преределать под парадокс?

Поди знай...

[Stilet]

Vasiliska

А может не нужно кросспостить?
Я же сказал что код сей не имеет никакого отношения к базам данных.

[Vasiliska]

Ну тогда подскажи как сделать так чтобы имел?

[Аватар]

Вы так прикалываетесь? Можно и продолжить - на основании периода заданного в форме сделать запрос в базу данных и сформировать оборотно-сальдовую ведомость по складу № 5

[Serge_Bliznykov]

так. обсуждаемый вопрос НЕ ИМЕЕТ никакого отношения к БАЗАМ ДАННЫХ.

ТЕМА ЗАКРЫТА!