Помощь в написании студенческих работ
Антистрессовый сервис

Реализация программного средства

Реферат: Реализация программного средства
РефератПомощь в написанииУзнать стоимостьмоей работы

Рисунок 3.8. Форма авторизации Для портативности программы база данных перенесена в папку с проектом. На DataModule загружен компонент ADOConnection, в котором установлена связь с созданной базой данных. Так как системой будут пользоваться только работники магазина и администрация, защиту от пароля можно убрать в самом Access. Для этого нужно включить опцию «Пустой пароль» и в свойстве… Читать ещё >

Реализация программного средства (реферат, курсовая, диплом, контрольная)

Описание и проектирование программного комплекса, а также выбор средства для разработки программного продукта уже готовы. Теперь, непосредственно, можно приступать к реализации информационной системе.

Для начала необходимо создать саму базу данных в Microsoft Access, состоящую из шести таблиц. Для каждой из таблиц указаны атрибуты. Физическая структура таблиц присутствует в рисунках 1.1 — 1.6.

Заказы.

Рисунок 3.1 Заказы.

Клиенты.

Рисунок 3.2 Клиенты.

Поставка.

Рисунок 3.3 Поставка.

Поставщики.

Рисунок 3.4 Поставщики.

Сотрудники.

Рисунок 3.5 Сотрудники.

Товары.

Рисунок 3.6 Товары С базе данных Access использует схема данных между таблицами, схема данных предназначены для улучшения связи между таблицами для упрощения ввода данных.

Схема данных.

Рисунок 3.7 Схема данных База данных готова, после этого приступили к основному этапу курсовой работы — реализации приложения для взаимодействия с созданной базой данных. информационный система интерфейс программа Для начала создадим десять форм. На первой форме изображено окно авторизации, представленное на рисунке 1.7, в котором необходимо вводить логин и пароль, после вода нажимаем на кнопку вход, после этого будет переход на форму БД Компьютерного магазина «Терабайт», в зависимости от того под каким логином был произведен вход (если вход произведен от администрации, то будут доступны все функции меню, а если вход будет произведен сотрудником, то на форме будет ограниченные возможности).

При нажатии на кнопку вход прописана процедура для открытия соответственной формы. Общий код процедуры для этой кнопки приведен ниже:

Общий код процедуры Таблица 3.1.

Компонент.

Свойство.

Значение.

Label1.

Caption.

Логин.

Label2.

Caption.

Пароль.

Edit1.

Caption.

«Очистить свойства».

Edit2.

Caption.

«Очистить свойства».

Form1.

Caption.

Авторизация.

BitBtn1.

Caption.

&Вход.

procedure TForm9. BitBtn1Click (Sender: TObject);

begin.

prior:=0;

if (Edit1.Text='Admin')and (Edit2.Text='ytgh') then.

begin prior:=1;

form1.Show;

end;

if (Edit1.Text='user')and (Edit2.Text='djkuf') then.

begin.

prior:=1;

form10.Show;

end;

if prior=0 then.

begin.

messagebox (0,Вы вели неверный логин или пароль', mb_iconwarning or mb_OK);

Edit2.Text:='';

Edit1.Text:='';

Продолжение таблицы 1.1.

Exit;

end;

if prior=1 then form9. Visible:=false;

end;

BitBtn2.

Caption.

&Выход.

Image1.

Picture.

«Выбрать любой фон».

Рисунок 3.8. Форма авторизации Для портативности программы база данных перенесена в папку с проектом. На DataModule загружен компонент ADOConnection, в котором установлена связь с созданной базой данных. Так как системой будут пользоваться только работники магазина и администрация, защиту от пароля можно убрать в самом Access. Для этого нужно включить опцию «Пустой пароль» и в свойстве LoginPrompt прописать параметр False, чтобы не открывалось окно для ввода логина и пароля.

Настройки доступа к базе данных.

Рисунок 3.8 Настройки доступа к базе данных На DataModule также добавляем следующие компоненты Свойства компонентов Таблица 3.2.

Компонент.

Свойство.

Значение.

ADOTable1.

Connection.

Form1.ADOConnection1.

TableName.

`Имя таблицы, соответствующее форме'.

Name.

Zakazy.

Active.

True.

DataSource1.

DataSet.

ADOTable1.

Name.

Zakazy1.

ADOTable2.

Connection.

Form1.ADOConnection1.

TableName.

«Имя таблицы, соответствующее форме».

Name.

Sotrudniki.

Active.

True.

DataSource2.

DataSet.

ADOTable1.

Name.

Sotrudniki1.

ADOTable3.

Connection.

Form1.ADOConnection1.

TableName.

«Имя таблицы, соответствующее форме».

Name.

Klient.

Active.

True.

DataSource3.

DataSet.

ADOTable1.

Name.

Klient1.

ADOTable4.

Connection.

Form1.ADOConnection1.

TableName.

«Имя таблицы, соответствующее форме».

Name.

Tovary.

Active.

True.

DataSource4.

DataSet.

ADOTable1.

Name.

Tovary1.

ADOTable5.

Connection.

Form1.ADOConnection1.

TableName.

«Имя таблицы, соответствующее форме».

Name.

Postavka.

Active.

True.

DataSource5.

DataSet.

ADOTable1.

Name.

Postavka1.

ADOTable6.

Connection.

Form1.ADOConnection1.

TableName.

«Имя таблицы, соответствующее форме».

Name.

Postavshik.

Active.

True.

DataSource6.

DataSet.

ADOTable1.

Name.

Postavshik1.

Компоненты на DataModule.

Рисунок 3.9 Компоненты на DataModule.

На каждой форме добавлены компоненты, которые охарактеризованные в таблице 1.3 — 2.1; Примеры интерфейсов форм представлены на рисунках 1.9 — 2.4;

Таблица 1.3 Свойства компонентов «Заказы».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Zakazy1.

DBNavigator1.

DataSource.

DataModule8.Zakazy1.

GroupBox1.

Caption.

Редактор Базы.

Label1.

Caption.

Код Товара.

Label2.

Caption.

Код Сотрудника.

Label3.

Caption.

Код Клиента.

Label4.

Caption.

Дата Размещения.

Label5.

Caption.

Дата Исполнения.

DBLookupComboBox1.

DataSource.

DataModule8.Zakazy1.

DataField.

Код_товара.

ListSourse.

DataModule8.Tovary1.

ListField.

Наименование_товара.

KeyField.

Код_товара.

DBLookupComboBox2.

DataSource.

DataModule8.Zakazy1.

DataField.

Код_сотрудника.

ListSourse.

DataModule8.Sotrudniki1.

ListField.

ФИО_сотрудника.

KeyField.

Код_сотрудника.

DBLookupComboBox3.

DataSource.

DataModule8.Zakazy1.

DataField.

Код_клиента.

ListSourse.

DataModule8.Klient1.

ListField.

ФИО_клиента.

KeyField.

Код_клиента.

DBEdit1.

DataSource.

DataModule8.Zakazy1.

DataField.

Дата_размещения.

DBEdit1.

DataSource.

DataModule8.Zakazy1.

DataField.

Дата_исполнения.

DateTimePicker1.

OnChange.

Код «DbEdit1.Text:=DateToStr (DateTimePicker1.Date);».

DateTimePicker1.

OnChange.

Код «DbEdit2.Text:=DateToStr (DateTimePicker2.Date);».

BitBtn1.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm2. BitBtn1Click (Sender: TObject);

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

if (form9.Edit1.Text='2')and (form9.Edit2.Text='2') then.

begin.

ok:=1;

form10.Show;

close;

end;

end;

BitBtn2.

Caption.

Сохранить.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm2. BitBtn2Click (Sender: TObject);

begin.

DBgrid1.DataSource.DataSet.Post;

end;

BitBtn3.

Caption.

Добавить.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm2. BitBtn3Click (Sender: TObject);

begin.

DBgrid1.DataSource.DataSet.Append;

end;

BitBtn4.

Caption.

Экспорт данных в Excel.

procedure TForm2. BitBtn4Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=18;

Colum.Columns[2]. ColumnWidth:=18;

Colum.Columns[3]. ColumnWidth:=30;

Colum.Columns[4]. ColumnWidth:=30;

Colum.Columns[5]. ColumnWidth:=30;

Colum.Columns[6]. ColumnWidth:=18;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clRed;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows[4]. Font. Size:=12;

Colum.Rows[5]. Font. Size:=12;

Colum.Rows[6]. Font. Size:=12;

Colum.Rows.Font.Name:=' Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,3]: ='" Заказы" '+DateToStr (Date);

Sheet.Cells[2,1]: ='Код заказа';

Sheet.Cells[2,2]: ='Код товара';

Sheet.Cells[2,3]: ='Код сотрудника';

Sheet.Cells[2,4]: ='Дата размещения';

Sheet.Cells[2,5]: ='Дата исполнения';

Sheet.Cells[2,6]: ='Код клиента';

index :=3;

DataModule8.Zakazy1.DataSet.First;

for i:=0 to DataModule8. Zakazy1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Zakazy1.DataSet.Fields.Fields[0]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Zakazy1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Zakazy1.DataSet.Fields.Fields[2]. AsString;

Sheet.Cells[index, 4]: = DataModule8. Zakazy1.DataSet.Fields.Fields[3]. AsString;

Sheet.Cells[index, 5]: = DataModule8. Zakazy1.DataSet.Fields.Fields[4]. AsString;

Sheet.Cells[index, 6]: = DataModule8. Zakazy1.DataSet.Fields.Fields[5]. AsString;

Inc (index);

DataModule8.Zakazy1.DataSet.Next;

end;

Forma2.

Caption.

Заказы.

Форма «Заказы».

Рисунок 3.9 Форма «Заказы».

Таблица 3.4 Свойства компонентов «Сотрудники».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Sotrudniki1.

DBNavigator1.

DataSource.

DataModule8.Sotrudniki1.

RadioGroup1.

Caption.

Вид сортировки.

Items.

«Записываем по каким критериям сортировать».

По ФИО Сотрудника По дате рождения По должности.

BitBtn1.

Caption.

Сортировать.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm3. BitBtn1Click (Sender: TObject);

begin.

case RadioGroup1. ItemIndex of.

  • 0:DataModule8.Sotrudniki.indexFieldNames:='ФИО_сотрудника';
  • 1:DataModule8.Sotrudniki.IndexFieldNames:='Дата_рождения';
  • 2:DataModule8.Sotrudniki.IndexFieldNames:='Должность';

end;

end;

BitBtn2.

Caption.

Экспорт данных в Excel.

procedure TForm3. BitBtn2Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=18;

Colum.Columns[2]. ColumnWidth:=30;

Colum.Columns[3]. ColumnWidth:=30;

Colum.Columns[4]. ColumnWidth:=30;

Colum.Columns[5]. ColumnWidth:=30;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clRed;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows[4]. Font. Size:=12;

Colum.Rows[5]. Font. Size:=12;

Colum.Rows.Font.Name:=' Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,3]: ='" Сотрудники" '+DateToStr (Date);

Sheet.Cells[2,1]: ='ФИО сотрудника';

Sheet.Cells[2,2]: ='Дата рождения';

Sheet.Cells[2,3]: ='Адрес';

Sheet.Cells[2,4]: ='Телефон';

Sheet.Cells[2,5]: ='Должность';

index :=3;

DataModule8.Sotrudniki1.DataSet.First;

for i:=0 to DataModule8. Sotrudniki1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Sotrudniki1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Sotrudniki1.DataSet.Fields.Fields[2]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Sotrudniki1.DataSet.Fields.Fields[3]. AsString;

Sheet.Cells[index, 4]: = DataModule8. Sotrudniki1.DataSet.Fields.Fields[4]. AsString;

Sheet.Cells[index, 5]: = DataModule8. Sotrudniki1.DataSet.Fields.Fields[5]. AsString;

Inc (index);

DataModule8.Sotrudniki1.DataSet.Next;

end;

end;

BitBtn3.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm2. BitBtn3Click (Sender: TObject);

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

if (form9.Edit1.Text='2')and (form9.Edit2.Text='2') then.

begin.

ok:=1;

form10.Show;

close;

end;

end;

Форма «Сотрудники».

Рисунок 3.10 Форма «Сотрудники».

Таблица 3.5. Свойства компонентов «Клиенты».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Klient1.

DBNavigator1.

DataSource.

DataModule8.Klient1.

GroupBox1.

Caption.

Введите ФИО клиента, которого нужно найти.

Color.

clActiveCaption.

BitBtn1.

Caption.

Применить фильтр

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm4. BitBtn1Click (Sender: TObject);

begin.

DataModule8.Klient.Filtered:= true;

DataModule8.Klient.Filter:= 'ФИО_клиента='+#39+edit1.Text+#39;

end;

BitBtn2.

Caption.

Показать все записи.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm4. BitBtn2Click (Sender: TObject);

begin.

DataModule8.Klient.Filtered:= False;

end;

BitBtn3.

Caption.

Экспорт данных в Excel.

procedure TForm4. BitBtn3Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=35;

Colum.Columns[2]. ColumnWidth:=35;

Colum.Columns[3]. ColumnWidth:=20;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clNavy;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows.Font.Name:='Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,2]: ='" Клиенты" '+DateToStr (Date);

Sheet.Cells[2,1]: ='ФИО клиента';

Sheet.Cells[2,2]: ='Адрес';

Sheet.Cells[2,3]: ='Телефон';

index :=3;

DataModule8.Klient1.DataSet.First;

for i:=0 to DataModule8. Klient1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Klient1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Klient1.DataSet.Fields.Fields[2]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Klient1.DataSet.Fields.Fields[3]. AsString;

Inc (index);

DataModule8.Klient1.DataSet.Next;

end;

end;

BitBtn4.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm4. BitBtn4Click (Sender: TObject);

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

if (form9.Edit1.Text='2')and (form9.Edit2.Text='2') then.

begin.

ok:=1;

form10.Show;

close;

end;

end;

Форма «Клиенты».

Рисунок 3.11 Форма «Клиенты».

Таблица 3.6. Свойства компонентов «Товары».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Tovary1.

DBNavigator1.

DataSource.

DataModule8.Tovary1.

RadioGroup1.

Caption.

Фильтр

Items.

«Записываем по каким критериям сортировать».

По стоимости закупки По наличие По количеству По стоимости продажи.

BitBtn1.

Caption.

Сортировать.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm5. BitBtn1Click (Sender: TObject);

begin.

case RadioGroup1. ItemIndex of.

  • 0:DataModule8.Tovary.indexFieldNames:='Стоимость_закупки';
  • 1:DataModule8.Tovary.IndexFieldNames:='Наличие';
  • 2:DataModule8.Tovary.IndexFieldNames:='Количество';
  • 3:DataModule8.Tovary.IndexFieldNames:='Стоимость_продажи';

end;

end;

BitBtn2.

Caption.

Экспорт данных в Excel.

procedure TForm5. BitBtn2Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=18;

Colum.Columns[2]. ColumnWidth:=18;

Colum.Columns[3]. ColumnWidth:=50;

Colum.Columns[4]. ColumnWidth:=50;

Colum.Columns[5]. ColumnWidth:=18;

Colum.Columns[6]. ColumnWidth:=18;

Colum.Columns[7]. ColumnWidth:=18;

Colum.Columns[8]. ColumnWidth:=18;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clBlue;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows[4]. Font. Size:=12;

Colum.Rows[5]. Font. Size:=12;

Colum.Rows[6]. Font. Size:=12;

Colum.Rows[7]. Font. Size:=12;

Colum.Rows[8]. Font. Size:=12;

Colum.Rows.Font.Name:=' Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,3]: ='" Товары" '+DateToStr (Date);

Sheet.Cells[2,1]: ='Код товара';

Sheet.Cells[2,2]: ='Код поставки';

Sheet.Cells[2,3]: ='Наименование товара';

Sheet.Cells[2,4]: ='Описание';

Sheet.Cells[2,5]: ='Стоимость закупки';

Sheet.Cells[2,6]: ='Наличие';

Sheet.Cells[2,7]: ='Количество';

Sheet.Cells[2,8]: ='Стоимость продажи';

index :=3;

DataModule8.Tovary1.DataSet.First;

for i:=0 to DataModule8. Tovary1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Tovary1.DataSet.Fields.Fields[0]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Tovary1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Tovary1.DataSet.Fields.Fields[2]. AsString;

Sheet.Cells[index, 4]: = DataModule8. Tovary1.DataSet.Fields.Fields[3]. AsString;

Sheet.Cells[index, 5]: = DataModule8. Tovary1.DataSet.Fields.Fields[4]. AsString;

Sheet.Cells[index, 6]: = DataModule8. Tovary1.DataSet.Fields.Fields[5]. AsString;

Sheet.Cells[index, 7]: = DataModule8. Tovary1.DataSet.Fields.Fields[6]. AsString;

Sheet.Cells[index, 8]: = DataModule8. Tovary1.DataSet.Fields.Fields[7]. AsString;

Inc (index);

DataModule8.Tovary1.DataSet.Next;

end;

end;

BitBtn3.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm5. BitBtn3Click (Sender: TObject);

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

if (form9.Edit1.Text='2')and (form9.Edit2.Text='2') then.

begin.

ok:=1;

form10.Show;

close;

end;

end;

Форма «Товары».

Рисунок 3.12 Форма «Товары».

Таблица 3.7 Свойства компонентов «Поставка».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Postavka1.

DBNavigator1.

DataSource.

DataModule8.Postavka1.

Edit1.

Caption.

Код поставщика.

DBLookupComboBox1.

DataSource.

DataModule8.Postavka1.

DataField.

Код_поставщика.

ListSourse.

DataModule8.Postavshik1.

ListField.

Название_поставщика.

KeyField.

Код_поставщика.

BitBtn1.

Caption.

Экспорт данных в Excel.

procedure TForm6. BitBtn1Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=18;

Colum.Columns[2]. ColumnWidth:=20;

Colum.Columns[3]. ColumnWidth:=20;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clGreen;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows.Font.Name:='Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,2]: ='" Поставка" '+DateToStr (Date);

Sheet.Cells[2,1]: ='Код_поставки';

Sheet.Cells[2,2]: ='Код_поставщика';

Sheet.Cells[2,3]: ='Дата_поставки';

index :=3;

DataModule8.Postavka1.DataSet.First;

for i:=0 to DataModule8. Postavka1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Postavka1.DataSet.Fields.Fields[0]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Postavka1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Postavka1.DataSet.Fields.Fields[2]. AsString;

Inc (index);

DataModule8.Postavka1.DataSet.Next;

end;

BitBtn3.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

if (form9.Edit1.Text='2')and (form9.Edit2.Text='2') then.

begin.

ok:=1;

form10.Show;

close;

end;

end;

Форма «Поставка».

Рисунок 3.13 Форма «Поставка».

Таблица 3.8 Свойства компонентов «Поставщики».

Компонент.

Свойство.

Значение.

DBGrid1.

DataSource.

DataModule8.Postavshik1.

DBNavigator1.

DataSource.

DataModule8.Postavshik1.

BitBtn1.

Caption.

Экспорт данных в Excel.

procedure TForm7. BitBtn1Click (Sender: TObject);

var.

XLapp, Sheet, Colum: Variant;

index, i: Integer;

begin.

XLApp:= CreateOleObject ('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add (-4167);

XLApp.Workbooks[1]. WorkSheets[1].Name:='Отчет';

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Columns;

Colum.Columns[1]. ColumnWidth:=20;

Colum.Columns[2]. ColumnWidth:=20;

Colum.Columns[3]. ColumnWidth:=50;

Colum.Columns[4]. ColumnWidth:=18;

Colum.Columns[5]. ColumnWidth:=50;

Colum:=XLApp.Workbooks[1]. WorkSheets['Отчет'].Rows;

Colum.Rows[2]. Font. Bold:=true;

Colum.Rows[1]. Font. Bold:=true;

Colum.Rows[1]. Font. Color:=clOlive;

Colum.Rows[1]. Font. Size:=12;

Colum.Rows[2]. Font. Size:=12;

Colum.Rows[3]. Font. Size:=12;

Colum.Rows[4]. Font. Size:=12;

Colum.Rows[5]. Font. Size:=12;

Colum.Rows.Font.Name:=' Times New Roman';

Sheet:=XLApp.Workbooks[1]. WorkSheets['Отчет'];

Sheet.Cells[1,3]: ='" Поставщик" '+DateToStr (Date);

Sheet.Cells[2,1]: ='Код поставщика';

Sheet.Cells[2,2]: ='Название поставщика';

Sheet.Cells[2,3]: ='ФИО представителя';

Sheet.Cells[2,4]: ='Телефон';

Sheet.Cells[2,5]: ='Адрес';

index :=3;

DataModule8.Postavshik1.DataSet.First;

for i:=0 to DataModule8. Postavshik1.DataSet.RecordCount-1 do.

begin.

Sheet.Cells[index, 1]: = DataModule8. Postavshik1.DataSet.Fields.Fields[0]. AsString;

Sheet.Cells[index, 2]: = DataModule8. Postavshik1.DataSet.Fields.Fields[1]. AsString;

Sheet.Cells[index, 3]: = DataModule8. Postavshik1.DataSet.Fields.Fields[2]. AsString;

Sheet.Cells[index, 4]: = DataModule8. Postavshik1.DataSet.Fields.Fields[3]. AsString;

Sheet.Cells[index, 5]: = DataModule8. Postavshik1.DataSet.Fields.Fields[4]. AsString;

Inc (index);

DataModule8.Postavshik1.DataSet.Next;

end;

BitBtn2.

Caption.

На главную.

Glyph.

«Выбрать значок размера 20×20 расширение *.bmp».

procedure TForm7. BitBtn2Click (Sender: TObject);

begin.

ok:=0;

if (form9.Edit1.Text='1')and (form9.Edit2.Text='1') then.

begin.

ok:=1;

form1.Show;

close;

end;

end;

Форма «Поставщики».

Рисунок 3.14 Форма «Поставщики».

Показать весь текст
Заполнить форму текущей работой

Сессия? Спокойно!