david
637d8e92fd
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@26 05c56307-c608-d34a-929d-697000501d7a
97 lines
2.7 KiB
ObjectPascal
97 lines
2.7 KiB
ObjectPascal
unit DBDemoMainUnit;
|
|
|
|
interface
|
|
|
|
{$I ..\cxVer.inc}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes,
|
|
Graphics, Controls, Forms, Dialogs, DemoBasicMain, cxStyles, cxGraphics, cxEdit,
|
|
cxScheduler, cxSchedulerCustomControls, cxSchedulerCustomResourceView,
|
|
cxSchedulerDayView, cxSchedulerDateNavigator, DB, cxSchedulerStorage,
|
|
cxSchedulerDBStorage, DBTables, cxLookAndFeels, Menus, StdCtrls,
|
|
ExtCtrls, cxControls, ComCtrls, cxSchedulerWeekView, Math,
|
|
cxSchedulerTimeGridView, cxSchedulerUtils, cxSchedulerYearView,
|
|
cxLookAndFeelPainters, cxContainer, cxCheckBox, cxButtons,
|
|
cxSchedulerHolidays, cxSchedulerGanttView, cxGroupBox;
|
|
|
|
type
|
|
TDBDemoMainForm = class(TDemoBasicMainForm)
|
|
EventsTable: TTable;
|
|
SchedulerDataSource: TDataSource;
|
|
SchedulerDBStorage: TcxSchedulerDBStorage;
|
|
cxButton1: TcxButton;
|
|
cxCheckBox1: TcxCheckBox;
|
|
cxGroupBox1: TcxGroupBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure chDataModeClick(Sender: TObject);
|
|
procedure cxButton1Click(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
FEventCount: Integer;
|
|
FMaxID: Integer;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DBDemoMainForm: TDBDemoMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDBDemoMainForm.FormCreate(Sender: TObject);
|
|
var
|
|
ADate: TDateTime;
|
|
I: Integer;
|
|
begin
|
|
inherited;
|
|
ADate := EncodeDate(2005, 9, 30);
|
|
Scheduler.GotoDate(ADate);
|
|
ADate := ADate + Scheduler.OptionsView.WorkStart;
|
|
Scheduler.SelectTime(ADate, ADate, nil);
|
|
FMaxID := 0;
|
|
FEventCount := SchedulerDBStorage.EventCount;
|
|
for I := 0 to FEventCount - 1 do
|
|
FMaxID := Max(FMaxID, SchedulerDBStorage.Events[I].ID);
|
|
end;
|
|
|
|
procedure TDBDemoMainForm.chDataModeClick(Sender: TObject);
|
|
begin
|
|
SchedulerDBStorage.SmartRefresh := (Sender as TcxCheckBox).Checked;
|
|
end;
|
|
|
|
procedure TDBDemoMainForm.cxButton1Click(Sender: TObject);
|
|
begin
|
|
MaxRandomPeriod := 720;
|
|
GenerateRandomEvents(5000);
|
|
MaxRandomPeriod := 180;
|
|
end;
|
|
|
|
procedure TDBDemoMainForm.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
if (FEventCount < SchedulerDBStorage.EventCount) and
|
|
(MessageDlg('Do you want to delete previously created events?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
|
|
begin
|
|
SchedulerDBStorage.BeginUpdate;
|
|
try
|
|
I := 0;
|
|
while I < SchedulerDBStorage.EventCount do
|
|
begin
|
|
if SchedulerDBStorage.Events[I].ID > FMaxID then
|
|
SchedulerDBStorage.Events[I].Delete
|
|
else
|
|
Inc(I);
|
|
end;
|
|
finally
|
|
SchedulerDBStorage.EndUpdate;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
end.
|