Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.06.2012, 20:39   #1
Vasiliska
Пользователь
 
Аватар для Vasiliska
 
Регистрация: 28.04.2012
Сообщений: 22
Плохо Объясните тупой что это???

Как это расшифровать и переделать под свой график и таблицу????
Код:
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.

Последний раз редактировалось Stilet; 05.06.2012 в 22:16.
Vasiliska вне форума
Старый 05.06.2012, 22:19   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А де ты это выцарапала?
Это код, который показывает на экране форму с двумя выпадающими календарями.
Пользунок выбирает в них дату, закрывает форму, и далее то что он выбрал возвращается из процедуры GetDiapason.
Этот модуль формы никакого отношения к графикам не имеет, и в принципе не говорит о области применения. Это черный ящик, который можно применить практически в любой задаче, где нужно выбрать диапазон даты-времени.

P.S. Еси шо я баиньки... Завтра тему посмотрю, если кто-то из местных не ответит стелепатировав
Good night...
I'm learning to live...
Stilet вне форума
Старый 06.06.2012, 09:30   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Название темы нарушает правила форума.
(и я вообще не уверен, что раздел БД в Delphi выбран удачно!)

Поэтому я закрываю тему.

Модератор
Serge_Bliznykov вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объясните как это сделать . Progra-ман Компоненты Delphi 1 24.01.2012 01:51
LPRECT ??? объясните что это и зачем оно. ромик0 Общие вопросы C/C++ 18 16.01.2012 11:14
Ключи от Интернет - что это значит? Объясните глупому. grenles Свободное общение 17 03.08.2010 19:40
Эквалайзер...что это? кто это? Можно ли с ним подружиться? .Phoenix Мультимедиа в Delphi 45 08.04.2010 23:37
Объясните,что это за метод -ushёl- Общие вопросы Delphi 2 06.04.2010 11:48