113
составление FormSpr.TabSheet6.Show;
end;
отделе procedure TFormMain.N11Click(Sender: финансовый TObject);
системные begin
FormVacMis.Show;
оптимизации FormVacMis.TabSheet2.Show;
end;
направлений procedure TFormMain.N2Click(Sender: основную TObject);
успех begin
Application.Terminate;
end;
контролировать procedure представлена TFormMain.N4Click(Sender: TObject);
недостаточная begin
организации FormAbout.Show;
end;
procedure программы TFormMain.N26Click(Sender: есть TObject);
begin
procedure Dm.TPersonal.Locate('Код текстовый сотрудника',Dm.QState.FieldByName('Код
сотрудника').AsString,[]);
кодирование FormAnketa.Show;
end;
необходимости procedure TFormMain.Button1Click(Sender: отображение TObject);
access begin
Dm.TState.Insert;
данных FormStat.Show;
end;
114
информационное procedure TFormMain.Button3Click(Sender: полной TObject);
цели begin
Dm.TPersonal.Delete;
end;
формирование procedure ранее TFormMain.Button2Click(Sender: TObject);
также begin
трудоемкость FormStat.Show;
end;
procedure response TFormMain.N14Click(Sender: решения TObject);
var ExcelApp: отсутствие OleVariant;
формы begin
try
ExcelApp := накладных GetActiveOleObject('Excel.Application');
всех except
on EOLESysError do
поможет ExcelApp := память CreateOleObject('Excel.Application');
end;
ExcelApp.Visible := таким True;
поскольку ExcelApp.DisplayAlerts := False;
Ошибка!
о
Ошибка!
');
ExcelApp.WorkSheets[1].Activate;
try
собственными Dm.ExecSQL(' количество SELECT t1.Принят, модуль t1.[Табельный расходы номер], t2.[Фамилия],
других t2.[Имя], который t2.[Отчество], t4.[Наименование] AS батарей Должность, места t5.[Название] AS Отдел,
системой t3.[Оклад], ранее t3.[Надбавка], t1.[Дата творческая договора], каждое t1.[Договор] ' +
' FROM [эффективности Штат] t1, [private Сотрудник] t2, [Штатное таким расписание] t3,
[именно Должность] t4, [Отдел] t5' +
' access WHERE режиме t1.[Код расписания]=t3.[Код программ расписания]' +
' AND celeron t1.[Код сотрудника]=t2.[Код итого сотрудника]' +
' AND отдела t3.[Код отдела]=t5.[Код тема отдела]' +
115
' AND другой t3.[Код должности]=t4.[Код требованиям должности]' +
' AND этапе t1.[Табельный номер]=' +
физической Dm.QState.FieldByName('ТабНомер').AsString );
таблица Dm.QSelect.Active:=true;
except
End;
критерии ExcelApp.Range['B9',EmptyParam].Formula:=FormAbout.Edit1.Text;
написать ExcelApp.Range['J13',EmptyParam].Formula:=Date;
ExcelApp.Range['I17',EmptyParam].Formula:=Dm.QSelect.FieldByName('Принят').As
String;
Ошибка!
+''+
Ошибка!
+' '+Dm.QSelect.FieldByName('Отчество').AsString;
информации ExcelApp.Range['J21',EmptyParam].Formula:=Dm.QSelect.FieldByName('Табельный
россии номер').AsString;
ExcelApp.Range['C23',EmptyParam].Formula:=Dm.QSelect.FieldByName('Отдел').AsS
tring;
Ошибка!
;
структура ExcelApp.Range['E31',EmptyParam].Formula:=Dm.QSelect.FieldByName('Оклад').AsFloat
;
ExcelApp.Range['E32',EmptyParam].Formula:=Dm.QSelect.FieldByName('Надбавка').
AsFloat;
итого ExcelApp.Range['E37',EmptyParam].Formula:=Dm.QSelect.FieldByName('Дата
высчитанное договора').AsString;
116
ExcelApp.Range['H37',EmptyParam].Formula:=Dm.QSelect.FieldByName('Договор').A
sString;
формы ExcelApp.Range['E41',EmptyParam].Formula:=FormAbout.Edit2.Text;
отображаются ExcelApp.Range['J41',EmptyParam].Formula:=FormAbout.Edit3.Text;
end;
procedure начальной TFormMain.N15Click(Sender: кроме TObject);
var ExcelApp: ответственного OleVariant;
ходе begin
try
ExcelApp := текстовый GetActiveOleObject('Excel.Application');
описание except
on EOLESysError do
алекс ExcelApp := увеличению CreateOleObject('Excel.Application');
end;
ExcelApp.Visible := таблица True;
сотрудника ExcelApp.DisplayAlerts := False;
Ошибка!
об
Ошибка!
');
ExcelApp.WorkSheets[1].Activate;
try
проектирование Dm.ExecSQL(' имеет SELECT t1.Принят, информационных t1.[Табельный работать номер], t2.[Фамилия],
оборудования t2.[Имя], excelapp t2.[Отчество], t4.[Наименование] AS хранящаяся Должность, участкам t5.[Название] AS Отдел,
учитывать t1.[Дата procedure договора], t1.[Договор], комплекс t1.[Основание] ' +
' более FROM [Штат] t1, [пенсионного Сотрудник] t2, [риском Штатное расписание] t3,
[информации Должность] t4, [также Отдел] t5' +
' WHERE длительная t1.[Код используемых расписания]=t3.[Код расписания]' +
' AND опишем t1.[Код система сотрудника]=t2.[Код сотрудника]' +
' AND поскольку t3.[Код удалить отдела]=t5.[Код отдела]' +
' AND procedure t3.[Код пенсионном должности]=t4.[Код должности]' +
' AND также t1.[Табельный машинной номер]=' +
Dm.QState.FieldByName('ТабНомер').AsString );
117
память Dm.QSelect.Active:=true;
разработанного except
End;
ExcelApp.Range['B9',EmptyParam].Formula:=FormAbout.Edit1.Text;
комплекс ExcelApp.Range['J15',EmptyParam].Formula:=Date;
бюджету ExcelApp.Range['F18',EmptyParam].Formula:=Dm.QSelect.FieldByName('Дата
договора').AsString;
Ошибка!
;
реализации ExcelApp.Range['I17',EmptyParam].Formula:=Dm.QSelect.FieldByName('Принят').AsString
;
ExcelApp.Range['B21',EmptyParam].Formula:=Dm.QSelect.FieldByName('Фамилия').
AsString+' '+генерируются Dm.QSelect.FieldByName('Имя').AsString+''+
освобождение Dm.QSelect.FieldByName('Отчество').AsString;
ExcelApp.Range['L21',EmptyParam].Formula:=Dm.QSelect.FieldByName('Табельный
лазерная номер').AsString;
объем ExcelApp.Range['B23',EmptyParam].Formula:=Dm.QSelect.FieldByName('Отдел').AsString
;
ExcelApp.Range['B25',EmptyParam].Formula:=Dm.QSelect.FieldByName('Должность'
).AsString;
Ошибка!
;
разграничения ExcelApp.Range['E40',EmptyParam].Formula:=FormAbout.Edit2.Text;
ExcelApp.Range['K40',EmptyParam].Formula:=FormAbout.Edit3.Text;
end;
118
зарплата procedure после TFormMain.DBGrid1DblClick(Sender: TObject);
является begin
рисунок FormStat.Show;
end;
procedure формирование TFormMain.N17Click(Sender: этапе TObject);
begin
улучшенная FormSpr.Show;
отличие FormSpr.TabSheet7.Show;
end;
procedure указывает TFormMain.N18Click(Sender: логов TObject);
begin
работать FormStList.Show;
end;
одного procedure TFormMain.N16Click(Sender: параметр TObject);
nominal begin
FormVacMis.Show;
известны FormVacMis.TabSheet1.Show;
end;
lenovo procedure TFormMain.Button4Click(Sender: номер TObject);
другой begin
FormSpr.Show;
текстовый FormSpr.TabSheet6.Show;
end;
//эксплуатации Процедура отправки программной данных в если Excel
Procedure procedure ExcExport( дата Tema:string; Query:TADOQuery);
var текстовый ExcelApp: procedure OleVariant;
119
i,j:integer;
procedure begin
try
эндрю ExcelApp := GetActiveOleObject('Excel.Application');
руководителя except
on исаев EOLESysError do
ExcelApp := формирование CreateOleObject('Excel.Application');
end;
имеет ExcelApp.Visible := True;
eolesyserror ExcelApp.DisplayAlerts := энтони False;
ExcelApp.WorkBooks.Add;
всех ExcelApp.WorkSheets[1].Activate;
текущем ExcelApp.Range['A1',EmptyParam].Formula:=Tema;
ExcelApp.Range['A2',EmptyParam].Formula:='№';
сохранение Query.First;
покупка ExcelApp.Cells.Item [2,2]:=Query.FieldCount;
For j:=0 to отделов Query.FieldCount-1 do
документов ExcelApp.Cells.Item [2,j+2]:=Query.Fields.Fields[j].DisplayName;
i:=3;
сотрудника While not информационной Query.Eof do
Begin
несложно ExcelApp.Cells.Item[ разр i,1]:=i-2;
For j:=0 to Query.FieldCount-1 do
получать ExcelApp.Cells.Item[ характеристика i,j+2]:=Query.Fields.Fields[j].Value;
Query.Next;
ватт i:=i+1;
End;
// может Выравнивание заголовка управлять таблицы по приобретаемая центру и выделение ответственный жирным
внемашинное ExcelApp.Range['A1', ExcelApp.Cells.Item [1,таблица Query.FieldCount+1]].Select;
структурная ExcelApp.Selection.Merge;
120
ExcelApp.Rows.Rows[1].HorizontalAlignment:=3;
отражается ExcelApp.Rows.Rows[2].HorizontalAlignment:=3;
комплекс ExcelApp.Rows.Rows[1].Font.Bold:=true;
ExcelApp.Rows.Rows[2].Font.Bold:=true;
// работа Автоподбор именно ширины столбцов
направлений ExcelApp.Cells.Select;
осуществляется ExcelApp.Selection.Columns.AutoFit;
//Прорисовка менеджер границ
связанные ExcelApp.Range['A2', ExcelApp.Cells.Item [сотрудник i-1,Query.FieldCount+1]].Select;
средства ExcelApp.Selection.Borders[7].LineStyle:=1;
ExcelApp.Selection.Borders[8].LineStyle:=1;
деятельность ExcelApp.Selection.Borders[9].LineStyle:=1;
время ExcelApp.Selection.Borders[10].LineStyle:=1;
ExcelApp.Selection.Borders[11].LineStyle:=1;
которой ExcelApp.Selection.Borders[12].LineStyle:=1;
// итого Снятие выделения
схема ExcelApp.Range['A2', текстовый EmptyParam].Select;
End;
procedure дата TFormMain.N19Click(Sender: предприятия TObject);
begin
энтони ExcExport( средств N19.Caption, Dm.QPersonal);
end;
процесс procedure оперативной TFormMain.N20Click(Sender: TObject);
var обязаны ExcelApp: задачи OleVariant;
begin
try
lenovo ExcelApp := нужно GetActiveOleObject('Excel.Application');
except
on таким EOLESysError do
121
процесс ExcelApp := CreateOleObject('Excel.Application');
end;
основную ExcelApp.Visible := система True;
ExcelApp.DisplayAlerts := провалу False;
Ошибка!
документов в
Ошибка!
');
приобретение ExcelApp.WorkSheets[1].Activate;
ExcelApp.Range['J5',EmptyParam].Formula:=FormAbout.Edit7.Text;
разграничения ExcelApp.Range['C6',EmptyParam].Formula:=FormAbout.Edit4.Text;
капитальных ExcelApp.Range['N6',EmptyParam].Formula:=FormAbout.Edit5.Text;
ExcelApp.Range['L7',EmptyParam].Formula:=FormAbout.Edit1.Text;
отпуск ExcelApp.Range['B47',EmptyParam].Formula:=FormAbout.Edit2.Text;
финансовых ExcelApp.Range['W47',EmptyParam].Formula:=FormAbout.Edit3.Text;
ExcelApp.Range['B49',EmptyParam].Formula:=DateToStr(Now);
end;
частота procedure оператором TFormMain.N21Click(Sender: TObject);
var except ExcelApp: objectpascal OleVariant;
begin
try
управления ExcelApp := созданные GetActiveOleObject('Excel.Application');
except
on осуществить EOLESysError do
необходимость ExcelApp := CreateOleObject('Excel.Application');
end;
большое ExcelApp.Visible := основе True;
ExcelApp.DisplayAlerts := слаженность False;
Ошибка!
договор.xlt');
ExcelApp.WorkSheets[1].Activate;
try
122
Dm.ExecSQL ('SELECT t2.[Фамилия], t2.[Имя], t2.[Отчество],
t4.[Наименование] AS Должность, t5.[Название] AS Отдел, t1.[Дата договора],
t1.[Договор] ' +
' FROM [Штат] t1, [Сотрудник] t2, [Штатное расписание] t3,
[Должность] t4, [Отдел] t5' +
' WHERE t1.[Код расписания]=t3.[Код расписания]' +
' AND t1.[Код сотрудника]=t2.[Код сотрудника]' +
' AND t3.[Код отдела]=t5.[Код отдела]' +
' AND t3.[Код должности]=t4.[Код должности]' +
' AND t1.[Табельный номер]=' +
Dm.QState.FieldByName('ТабНомер').AsString );
Dm.QSelect.Active:=true;
except
End;
ExcelApp.Range['B9',EmptyParam].Formula:=FormAbout.Edit1.Text;
ExcelApp.Range['B15',EmptyParam].Formula:=FormAbout.Edit1.Text;
ExcelApp.Range['C17',EmptyParam].Formula:=FormAbout.Edit2.Text;
ExcelApp.Range['H17',EmptyParam].Formula:=FormAbout.Edit3.Text;
ExcelApp.Range['B20',EmptyParam].Formula:=Dm.QSelect.FieldByName('Фамилия').
AsString+' '+Dm.QSelect.FieldByName('Имя').AsString+'
'+Dm.QSelect.FieldByName('Отчество').AsString;
ExcelApp.Range['B27',EmptyParam].Formula:=Dm.QSelect.FieldByName('Должность'
).AsString;
ExcelApp.Range['C31',EmptyParam].Formula:=Dm.QSelect.FieldByName('Отдел').AsS
tring;
ExcelApp.Range['G46',EmptyParam].Formula:=Dm.QSelect.FieldByName('Дата
договора').AsString;