96
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmSellers: TfmSellers;
implementation
uses uDM, uIncome;
{$R *.dfm}
procedure TfmSellers.FormShow(Sender: TObject);
begin
DM.dstSellers.Open;
end;
procedure TfmSellers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Набор данных остается открытым, если открыты формы, где он
используется:
if not fmIncome.Showing then
DM.dstSellers.Close;
end;
end.
unit uRequests;
interface
uses
97
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, ActnList, StdActns, ActnMan, StdCtrls, Buttons, Grids,
DBGrids, ToolWin, ActnCtrls, ActnMenus, ExtCtrls, DBCtrls, Mask, ComCtrls;
type
TfmRequests = class(TForm)
Panel1: TPanel;
DBNavigator1: TDBNavigator;
bbtExit: TBitBtn;
Panel2: TPanel;
Panel3: TPanel;
Splitter2: TSplitter;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label5: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Label6: TLabel;
DBLookupComboBox3: TDBLookupComboBox;
Label7: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
DBMemo1: TDBMemo;
98
Label9: TLabel;
DBEdit2: TDBEdit;
GroupBox1: TGroupBox;
chbDate1: TCheckBox;
dtpDate1: TDateTimePicker;
chbDate2: TCheckBox;
dtpDate2: TDateTimePicker;
chbState: TCheckBox;
dblcbState: TDBLookupComboBox;
chbPlace: TCheckBox;
dblcbPlace: TDBLookupComboBox;
chbEmp: TCheckBox;
dblcbEmp: TDBLookupComboBox;
DBGrid1: TDBGrid;
Label8: TLabel;
DBEdit4: TDBEdit;
Label10: TLabel;
DBEdit5: TDBEdit;
procedure FormShow(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure chbDate1Click(Sender: TObject);
procedure DBGrid1Enter(Sender: TObject);
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
99
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmRequests: TfmRequests;
implementation
uses uDepartments, uEmployees, uParameters, uTypes, uDM, uInventory,
ADODB, DB, uRep, uInventList, uProducers, uPlacesList,
uStatus;
{$R *.dfm}
procedure TfmRequests.FormShow(Sender: TObject);
begin
DM.dstRequest.Open;
end;
//Сортировка списка заказов по полю, по загаловку которого сделан клик
мышью:
procedure TfmRequests.DBGrid1TitleClick(Column: TColumn);
begin
if Column.Field.FieldName = 'Состояние' then
DM.dstRequest.Sort := 'СостояниеID'
else if Column.Field.FieldName = 'Инцидент' then
DM.dstRequest.Sort := 'ИнцидентID'
else if Column.Field.FieldName = 'РабМесто' then
100
DM.dstRequest.Sort := 'РабМестоID'
else if Column.Field.FieldName = 'Исполнитель' then
DM.dstRequest.Sort := 'ИсполнительID'
else
DM.dstRequest.Sort := Column.Field.FieldName;
end;
//Отбор заказов по выбранным критериям:
procedure TfmRequests.chbDate1Click(Sender: TObject);
var
Filter: string;
begin
Filter := '';
if chbDate1.Checked then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'ДатаВремяПриема >= ' +
QuotedStr(DateToStr(dtpDate1.Date));
end;
if chbDate2.Checked then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'ДатаВремяПриема <= ' +
QuotedStr(DateToStr(dtpDate2.Date));
end;
101
if chbState.Checked and (dblcbState.KeyValue <> Null) then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'СостояниеID = ' + IntToStr(dblcbState.KeyValue);
end;
if chbPlace.Checked and (dblcbPlace.KeyValue <> Null) then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'РабМестоID = ' + IntToStr(dblcbPlace.KeyValue);
end;
if chbEmp.Checked and (dblcbEmp.KeyValue <> Null) then
begin
if Filter <> '' then
Filter := Filter + ' and ';
Filter := Filter + 'ИсполнительID = ' + IntToStr(dblcbEmp.KeyValue);
end;
if Filter <> '' then
begin
DM.dstRequest.Filter := Filter;
DM.dstRequest.Filtered := True;
end
else
DM.dstRequest.Filtered := False;
102
end;
//DBNavigator1 привязывается к выбранному DBGrid'у и соответствующему
набору данных:
procedure TfmRequests.DBGrid1Enter(Sender: TObject);
begin
DBNavigator1.DataSource := (Sender as TDBGrid).DataSource;
end;
//Выделение цветом заказов в зависимости от состояния:
procedure TfmRequests.DBGrid1DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DM.dstRequest.FieldByName('Состояние').AsString = 'Выполнен' then
DBGrid1.Canvas.Font.Color := clBlue
else if (DM.dstRequest.FieldByName('Состояние').AsString = 'Передан на
исполнение') or
(DM.dstRequest.FieldByName('Состояние').AsString = 'Повторный') then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
procedure TfmRequests.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.dstRequest.Close;
end;
end.
unit uRep;
103
//Модуль для формирования отчетов и документов
interface
uses
Windows, SysUtils, Classes, ComObj, DB, Controls, Forms, ADODB, Math,
DBGrids;
procedure Rep_Universal(ADBGrid: TDBGrid; NumCol: Integer; ACaption: string);
procedure Rep_Passport(DeviceID: Integer);
procedure Rep_DeviceMove;
procedure Rep_AllPlacesEquipment;
implementation
uses
uDM, DateUtils, Dialogs;
//Формирование отчета по выбранному набору данных (вывод заголовков
видимых
//полей и их значений):
procedure Rep_Universal(ADBGrid: TDBGrid; NumCol: Integer; ACaption: string);
var
Excel: Variant;
i, j, Width: Integer;
begin
Excel := CreateOleObject('Excel.Application');
Screen.Cursor := crHourGlass;
try
try
Excel.Application.EnableEvents := False;
Excel.Workbooks.Add;
104
for i:=0 to NumCol-1 do
begin
//Вывод в шапку таблицы названий полей из DBGrid'а:
Excel.Cells[5,i+1] := ADBGrid.Columns[i].Title.Caption;
//Форматирование заголовка:
Width := Min(30, Trunc(ADBGrid.Columns[i].Width * 0.2));
Excel.Cells[5,i+1].ColumnWidth := Width;
Excel.Cells[5,i+1].Font.Bold := True;
end;
Excel.Cells[1,1] := Date;
Excel.Cells[3,1] := ACaption;
Excel.Cells[3,1].Font.Bold := True;
Excel.Cells[3,1].Font.Size := 12;
i := 5;
//Экспорт данных из таблиц БД:
with ADBGrid.DataSource.DataSet do
begin
DisableControls; //Отключаем сетку на время формирования отчета
First;
while not Eof do
begin
Inc(i);
//Выводятся NumCol первых полей таблицы, отображенных в DBGrid'е:
for j:=0 to NumCol-1 do
105
Excel.Cells[i,j+1] :=
FieldByName(ADBGrid.Columns[j].FieldName).AsString;
Next;
end;
end; //with
Excel.Application.EnableEvents := True;
Excel.Visible := True;
except
Excel.Quit;
end;
finally
ADBGrid.DataSource.DataSet.EnableControls;
Screen.Cursor := crDefault;
ADBGrid.Enabled := True;
end;
end;
//Формирование паспорта устройства:
procedure Rep_Passport(DeviceID: Integer);
var
Excel: Variant;
WorkbookName: string;
PosInc, i: Integer;
begin
//Шаблон хранится в папке Шаблоны:
WorkbookName := GetCurrentDir + '\Шаблоны\' + 'Паспорт устройства.xlt';