78
procedure TForm2.N9Click(Sender: TObject);
begin
DataModule5.T_REM.Active := True;
Form9.ShowModal;
end;
unit Unit3;
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
DataModule5.T_SPR_VIDW.Active := True;
end;
procedure TForm3.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DataModule5.T_SPR_VIDW.Active := False;
end;
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_SPR_VIDW.Sort := '[Название вида работы] ASC';
end;
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_SPR_VIDW.Sort := '[Название вида работы] DESC';
end;
unit Unit4;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
79
Close;
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
DataModule5.T_SPR_NEISPR.Active := True;
end;
procedure TForm4.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DataModule5.T_SPR_NEISPR.Active := False;
end;
procedure TForm4.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_SPR_NEISPR.Sort := '[Название неисправности] ASC';
end;
procedure TForm4.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_SPR_NEISPR.Sort := '[Название неисправности] DESC';
end;
unit Unit6;
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm6.FormActivate(Sender: TObject);
begin
DataModule5.T_SPR_TIPO.Active := True;
end;
procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DataModule5.T_SPR_TIPO.Active := False;
80
end;
procedure TForm6.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_SPR_TIPO.Sort := '[Название типа оборудования] ASC';
end;
procedure TForm6.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_SPR_TIPO.Sort := '[Название типа оборудования] DESC';
end;
unit Unit7;
procedure TForm7.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm7.BitBtn2Click(Sender: TObject);
var
xlsApp, xlsBook, xlsSheet: Variant;
RowCount, NumRow, NumCol: Integer;
begin
try
//создаем объект Excel
xlsApp := CreateOleObject('Excel.Application');
except
ShowMessage('Возможно не установлен MS Excel.');
Exit;
end;
xlsApp.Visible := True;
xlsApp.DisplayAlerts := False;
try
81
xlsBook := xlsApp.Workbooks.Open('C:\Temp\ZAYAVKA\docs\Список
заявок');
xlsSheet := xlsBook.Worksheets.Item[1];
DataModule5.T_ZAYAVKA.First;
while not DataModule5.T_ZAYAVKA.Eof do
begin
xlsSheet.Cells[DataModule5.T_ZAYAVKA.RecNo+1,1] :=
IntToStr(DataModule5.T_ZAYAVKA.FieldByName('Номер_заявки').AsInteger);
xlsSheet.Cells[DataModule5.T_ZAYAVKA.RecNo+1,2] :=
DataModule5.T_ZAYAVKA.FieldByName('Заказчик').AsString;
xlsSheet.Cells[DataModule5.T_ZAYAVKA.RecNo+1,3] :=
DataModule5.T_ZAYAVKA.FieldByName('Продукция').AsString;
xlsSheet.Cells[DataModule5.T_ZAYAVKA.RecNo+1,4] :=
IntToStr(DataModule5.T_ZAYAVKA.FieldByName('Количество').AsInteger);
xlsSheet.Cells[DataModule5.T_ZAYAVKA.RecNo+1,5] :=
DataModule5.T_ZAYAVKA.FieldByName('Статус заявки').AsString;
DataModule5.T_ZAYAVKA.Next;
end;
except
ShowMessage('Невозможно открыть файл.');
end;
xlsSheet := xlsBook.Worksheets.Item[1];
end;
procedure TForm7.FormActivate(Sender: TObject);
begin
DataModule5.T_SPR_OBOR.Active := True;
DataModule5.T_SPR_TIPO.Active := True;
end;
procedure TForm7.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DataModule5.T_SPR_OBOR.Active := False;
82
end;
procedure TForm7.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_SPR_OBOR.Sort := '[Название оборудования] ASC';
end;
procedure TForm7.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_SPR_OBOR.Sort := '[Название оборудования] DESC';
end;
unit Unit8;
procedure TForm8.BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm8.FormActivate(Sender: TObject);
begin
DataModule5.T_CLIENT.Active := True;
end;
procedure TForm8.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
DataModule5.T_CLIENT.Active := False;
end;
procedure TForm8.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_CLIENT.Sort := '[ФИО клиента] ASC';
end;
procedure TForm8.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_CLIENT.Sort := '[ФИО клиента] DESC';
end;
83
unit Unit9;
procedure TForm9.RadioButton1Click(Sender: TObject);
begin
DataModule5.T_REM.Sort := '[ФИО ремонтника] ASC';
end;
procedure TForm9.RadioButton2Click(Sender: TObject);
begin
DataModule5.T_REM.Sort := '[ФИО ремонтника] DESC';
end;
