Диплом: Автоматизация рабочего места менеджера отдела продаж для ЗАО «Золотой шар»

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
132
procedure TDataModule3.ADOTable5AfterInsert(DataSet: TDataSet);
begin
AdoTable5.FieldByName('Стоим').Value:=0;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons;
type
TForm4 = class(TForm)
DBEdit1: TDBEdit;
BitBtn1: TBitBtn;
Label1: TLabel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
133
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form4.Hide;
end;
end.
unit Unit5;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
xlapp:variant;
Wordapp:Variant;
implementation
134
uses Unit1, Unit2, Unit3, Unit4, Unit6;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
with DataModule3.ADOQuery3 do begin close;
Parameters [0].Value:=edit1.Text;
open;
end;
end;
procedure TForm5.Edit2Change(Sender: TObject);
begin
DataModule3.ADOQuery4.Close;
DataModule3.ADOQuery4.Parameters[0].Value:=edit2.Text+'%';
DataModule3.ADOQuery4.Open;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
form1.Show;
Form5.Hide;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
form1.Show;
Form5.Hide;
end;
135
procedure TForm5.Edit3Change(Sender: TObject);
begin
DataModule3.ADOQuery9.Close;
DataModule3.ADOQuery9.Parameters[0].Value:=edit3.Text+'%';
DataModule3.ADOQuery9.Open;
end;
procedure TForm5.Button2Click(Sender: TObject);
var mydir:string;
k:byte;
begin
Getdir(0,MyDir);
XLApp:= CreateOleObject('Excel.Application');
XLApp.WorkBooks.Add(MyDir + '\1.xls');
xlAPP.visible:=true;
DataModule3.ADOQuery5.First;
k:=1;
while not DataModule3.ADOQuery5.eof do begin
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,1]:=DataModule3.ADOQuery5.Fiel
dByName('Наим_Пост').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,2]:=DataModule3.ADOQuery5.Fiel
dByName('Шифр').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,3]:=DataModule3.ADOQuery5.Fiel
dByName('Наим_тов').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,4]:=DataModule3.ADOQuery5.Fiel
dByName('Дата_пост').asstring;
XLApp.WorkBooks[1].WorkSheets[1].Cells[4+k,5]:=DataModule3.ADOQuery5.Fiel
dByName('Стоим').asstring;
k:=k+1;
DataModule3.ADOQuery5.Next;
136
XLApp.WorkBooks[1].WorkSheets[1].Cells[2,3]:=Datetostr(date);
end;
end;
procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Show;
Form5.Hide;
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
Datamodule3.ADOQuery1.Open;
Datamodule3.ADOQuery2.Open;
Datamodule3.ADOQuery3.Open;
Datamodule3.ADOQuery4.Open;
Datamodule3.ADOQuery5.Open;
Datamodule3.ADOQuery6.Open;
Datamodule3.ADOQuery8.Open;
Datamodule3.ADOQuery9.Open;
end;
procedure TForm5.Button4Click(Sender: TObject);
var
MyDir:String;
begin
Getdir(0,MyDir);
Wordapp:=CreateOleObject('Word.Application');
WordApp.Documents.Open(MyDir + '\1.doc');
Wordapp.Visible:=true;
137
// Печатаем заголовок
WordApp.Selection.TypeParagraph;
WordApp.Selection.Paragraphs.Alignment:=1;
WordApp.Selection.Font.Size:=20;
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Отчет по дате поставки'+#13+#10);
// Изменяем стиль текущего абзаца,
// потому что он будет в таблице
WordApp.Selection.Font.Size:=12;
WordApp.Selection.Paragraphs.Alignment:=3;
WordApp.Selection.Font.Bold:=false;
// Создание таблицы
WordApp.ActiveDocument.Tables.Add(Range:=WordApp.Selection.Range,
NumRows:=2, NumColumns:=8,
DefaultTableBehavior:=1,
AutoFitBehavior:= 0);
// Заполнение таблицы
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Наим_Пост');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Ном_нак');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Дата_пост');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Шифр');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
138
WordApp.Selection.TypeText('Кол_во');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Стоим');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Сумм_НДС');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Сумма_ск');
WordApp.Selection.MoveRight(12.1);
DataModule3.ADOQuery5.First;
while not DataModule3.ADOQuery4.eof do begin
WordApp.Selection.TypeText
(DataModule3.ADOQuery4.FieldByName('Наим_Пост').asstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Ном_нак').a
sstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Дата_пост')
.asstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Шифр').asst
ring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Кол_во').ass
tring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText
(DataModule3.ADOQuery4.FieldByName('Стоим').asstring);
WordApp.Selection.MoveRight(12.1);
139
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Сумм_НДС
').asstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery4.FieldByName('Сумма_ск').
asstring);
WordApp.Selection.MoveRight(12.1);
DataModule3.ADOQuery4.Next;
end;
// Выход из таблицы
{WordApp.Selection.Move(5.1);
WordApp.Selection.Moved(1.1);
WordApp.Selection.TypeParagraph;
WordApp.Selection.TypeText('Таблица закончена'+#13+#10); }
end;
procedure TForm5.Button5Click(Sender: TObject);
var
MyDir:String;
begin
Getdir(0,MyDir);
Wordapp:=CreateOleObject('Word.Application');
WordApp.Documents.Open(MyDir + '\2.doc');
Wordapp.Visible:=true;
// Печатаем заголовок
WordApp.Selection.TypeParagraph;
WordApp.Selection.Paragraphs.Alignment:=1;
WordApp.Selection.Font.Size:=20;
140
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Отчет по дате Реализации'+#13+#10);
// Изменяем стиль текущего абзаца,
// потому что он будет в таблице
WordApp.Selection.Font.Size:=12;
WordApp.Selection.Paragraphs.Alignment:=3;
WordApp.Selection.Font.Bold:=false;
// Создание таблицы
WordApp.ActiveDocument.Tables.Add(Range:=WordApp.Selection.Range,
NumRows:=2, NumColumns:=5,
DefaultTableBehavior:=1,
AutoFitBehavior:= 0);
// Заполнение таблицы
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Шифр товара');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Кол-во');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Дата реал');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('№ Чека');
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.Font.Bold:=true;
WordApp.Selection.TypeText('Стоимость');
WordApp.Selection.MoveRight(12.1);
DataModule3.ADOQuery9.First;
while not DataModule3.ADOQuery9.eof do begin
141
WordApp.Selection.TypeText
(DataModule3.ADOQuery9.FieldByName('Шифр').asstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery9.FieldByName('Кол_во').ass
tring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery9.FieldByName('Дата_реал').
asstring);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery9.FieldByName('№_Чека').as
string);
WordApp.Selection.MoveRight(12.1);
WordApp.Selection.TypeText(DataModule3.ADOQuery9.FieldByName('Стоим').asst
ring);
WordApp.Selection.MoveRight(12.1);
DataModule3.ADOQuery9.Next;
end;
// Выход из таблицы
{WordApp.Selection.Move(5.1);
WordApp.Selection.Moved(1.1);
WordApp.Selection.TypeParagraph;
WordApp.Selection.TypeText('Таблица закончена'+#13+#10); }
end;
procedure TForm5.Edit4Change(Sender: TObject);
begin
DataModule3.ADOQuery6.Close;
DataModule3.ADOQuery6.Parameters[0].Value:=edit4.Text+'%';

Смотрите также:

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)