Правильная ссылка на эту страницу
http://az-design.ru/Projects/AzBook/AZMicro/AZMicro35.shtml

Таблица "Оборотная ведомость"

       Создание страницы для отображения "Оборотной Ведомости" очень похоже на создание "Журнала по счету", в том что касается выбора параметров. А остальном все еще проще.

создание Оборотной ведомости
Рис.AzMicro010 — создание "Оборотной ведомости"

       Итак, выбираем на PageControl страницу "Оборотная ведомость". После чего:
       — из вкладки "Win32" выбираем компонент TToolBar, кладем его на страницу и устанавливаем свойство Align=alTop, а свойство Height=29;
       — из вкладки "Data Control" выбираем компонент TDBText, кладем его на страницу и устанавливаем свойство Align=alTop, свойство AutoSize=False, а свойство Height=17;
       — из вкладки "Data Control" выбираем компонент TDBMemo, кладем его на страницу и устанавливаем свойство Align=alBottom, а свойство Height=65;
       — из вкладки "Data Control" выбираем компонент TDBGrid, кладем его на страницу и устанавливаем свойство Align=alClient.
       Получилась достаточно удобная заготовка, на которой нужно разместить элементы управления. Что для этого нужно:
       — для перемещения по таблице необходимо с вкладки "Data Control" выбрать компонент TDBNavigator и положить его на ToolBar. В свойстве VisibleButtons достаточно оставить только кнопки nbFirst, nbPrior, nbNext, nbLast. Эта таблица не редактируется, поэтому остальные кнопки бесполезны.
       — для выбора даты начала и конца периода будем использовать компонент TDateTimePicker, который можно взять с вкладки "Win32", а для подписи используем компонент TLabel с вкладки "Standard". Измените свойство Name на dtpDtBeg для начала периода и на dtpDtEnd для конца периода. Соответствующим образом измените свойство Caption для компонента TLabel. Учтите, что свойство AutoSize лучше установить в False, для того чтобы можно было выставить размеры TLabel по своему желанию;
       — и, наконец, нужно как-то запустить процедуру получения "Оборотной ведомости". Для этого можно использовать банальную кнопку TBitBtn с вкладки "Additional". Установите для нее свойства Height=24, Width=103, Caption="Выполнить".

procedure TForm1.cbxSelTurnSheetSelect(Sender: TObject);
Var
  sBeg,sEnd,sLev : String;
  dBeg,dEnd :TDate;
begin
   dBeg := dtDateBeg.Date;     sBeg := ''''+DateToStr(dBeg)+'''';
   dEnd := dtDateEnd.Date;     sEnd := ''''+DateToStr(dEnd)+'''';
   If trExeTemp.Active then trExeTemp.Commit;
   trExeTemp.Active := true;
   qrExeTemp.Close;
   qrExeTemp.SQL.Clear;
   qrExeTemp.SQL.Add('Execute procedure TurnSheetCore('+sBeg+','+sEnd+')');
   qrExeTemp.ExecSQL;
   trExeTemp.Commit;
   qrTurnSheet.Close;
   qrTurnSheet.Open;
end;

Архангельский Андрей




<<< Пред. Оглавление
Начало раздела
След. >>>

Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Projects/AzBook/AZMicro/AZMicro35.shtml