|
Вопрос # 4 294/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Вопрос 1.
На форме располагаются параметры, где необходимо выбрать текущую и конечную дату, после этого в таблице должны отфильтроваться данные по выбранным датам. Как я понимаю необходимо создать запрос. В запросах я честно говоря не понимаю.
Данная форма есть на рисунке. Большое спасибо!
Вопрос 2.
Необходимо создать отчет, у меня все получилось, но только есть некоторые трудности, как изменить параметры страницы, сделать рамки таблицы. Использую код:
Вопрос 3. Необходимо чтобы БД автоматически сохранялась и обновлялась каждый день в архив. Подскажите пожалуйста как это организовать, никогда с этим не сталкивалась.
Может кто знает что нибудь, помогите пожалуйста! Большое спасибо!
К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)
Приложение: Переключить в обычный режим- procedure TForm5.bsSkinButton1Click(Sender: TObject);
- var
- XLApp,Sheet,Colum:Variant;
- index,i:Integer;
- begin
- XLApp:= CreateOleObject(\'Excel.Application\');
- XLApp.Visible:=true;
- XLApp.Workbooks.Add(-4167);
-
-
-
-
-
-
- Colum.Range[\'A\'+IntToStr(6),\'J\'+IntToStr(6)].RowHeight:=28;
- Colum.Columns.ColumnWidth:=15;
- Colum.Columns.Font.Size:=8;
-
-
-
- Colum.Range[\'A1\',\'J3\'].Font.Name:=\'Times New Roman\';
- Colum.Range[\'A1\',\'J3\'].Font.Bold:=true;
- Colum.Range[\'A1\',\'J3\'].Font.Size:=15;
- Colum.Range[\'A1\',\'J3\'].Columns.WrapText:=false;
-
-
- Colum.Range[\'A3\',\'J1\'].Font.Name:=\'Times New Roman\';
- Colum.Range[\'A3\',\'J1\'].Font.Bold:=true;
- Colum.Range[\'A3\',\'J1\'].Font.Size:=12;
- Colum.Range[\'A3\',\'J1\'].Columns.WrapText:=false;
-
-
- Colum.Rows[5].Font.Name:=\'Times New Roman\';
- Colum.Rows[5].HorizontalAlignment:=xlCenter;
- Colum.Rows[5].Font.Bold:=true;
- Colum.Rows[5].Font.Size:=12;
-
-
-
-
-
-
-
-
-
-
- index:=6;
- ADOTable1.First;
- for i:=0 to ADOTable1.RecordCount-1 do
- begin
- Sheet.Cells[index,1]:=ADOTable1.Fields.Fields[0].AsString;
- Sheet.Cells[index,2]:=ADOTable1.Fields.Fields[1].AsString;
- Sheet.Cells[index,3]:=ADOTable1.Fields.Fields[2].AsString;
- Sheet.Cells[index,4]:=ADOTable1.Fields.Fields[3].AsString;
- Sheet.Cells[index,5]:=ADOTable1.Fields.Fields[4].AsString;
- Sheet.Cells[index,6]:=ADOTable1.Fields.Fields[5].AsString;
- Sheet.Cells[index,7]:=ADOTable1.Fields.Fields[6].AsString;
- Sheet.Cells[index,8]:=ADOTable1.Fields.Fields[7].AsString;
- Sheet.Cells[index,9]:=ADOTable1.Fields.Fields[8].AsString;
- Inc(index);
-
 |
Вопрос задала: Geny (статус: Посетитель)
Вопрос отправлен: 7 июня 2010, 14:46
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Vic
Здравствуйте, Geny!
1. SELECT нужные поля из таблицы (через запятую) where (поле даты) between :dat1 AND :dat2
здесь dat1 = значение даты из первого календаря
dat2 - из второго.
2. запишите макрос в Excel для Вашего отчета
код этого макроса можно использовать в Вашем приложении
3. В справке MSAccess очень подробно описана процедура создания резервной копии БД
 |
Ответ отправил: Vic (статус: 1-ый класс)
Время отправки: 7 июня 2010, 16:54
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
