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

Компонент.

Свойство.

Значение.

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.

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

Компонент.

Свойство.

Значение.

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.

Компонент.

Свойство.

Значение.

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.

Заказы.

Компонент.

Свойство.

Значение.

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;

Компонент.

Свойство.

Значение.

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;

Компонент.

Свойство.

Значение.

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;

Компонент.

Свойство.

Значение.

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;

Компонент.

Свойство.

Значение.

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;