Основы COM-технологий. Артемов М.А. и др. - 39 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

//ɡɚɝɨɥɨɜɨɤ
ADODataSet1.fields[1].DisplayLabel := 'ɎɂɈ';
//ɲɢɪɢɧɚ ɫɬɨɥɛɰɚ
ADODataSet1.fields[1].Tag := Round(Word.CentimetersToPoints(10));
//ɨɬɨɛɪɚɠɚɬɶ ɩɨɥɟ
ADODataSet1.fields[1].Visible := True;
//ɡɚɝɨɥɨɜɨɤ
ADODataSet1.fields[2].DisplayLabel := 'Ⱦɨɦ';
//ɲɢɪɢɧɚ ɫɬɨɥɛɰɚ
ADODataSet1.fields[2].Tag:= Round(Word.CentimetersToPoints(1.5));
//ɨɬɨɛɪɚɠɚɬɶ ɩɨɥɟ
ADODataSet1.fields[2].Visible := True;
//ɡɚɝɨɥɨɜɨɤ
ADODataSet1.fields[3].DisplayLabel := 'Ʉɨɪɩɭɫ';
//ɲɢɪɢɧɚ ɫɬɨɥɛɰɚ
ADODataSet1.fields[3].Tag :=
Round(Word.CentimetersToPoints(1.5));
//ɨɬɨɛɪɚɠɚɬɶ ɩɨɥɟ
ADODataSet1.fields[3].Visible := True;
//ɡɚɝɨɥɨɜɨɤ
ADODataSet1.fields[4].DisplayLabel := 'Ʉɜɚɪɬɢɪɚ';
//ɲɢɪɢɧɚ ɫɬɨɥɛɰɚ
ADODataSet1.fields[4].Tag :=
Round(Word.CentimetersToPoints(1.5));
//ɨɬɨɛɪɚɠɚɬɶ ɩɨɥɟ
ADODataSet1.fields[4].Visible := True;
//ɧɟ ɨɬɨɛɪɚɠɚɬɶ ɩɨɥɟ
ADODataSet1.fields[5].Visible := False;
//ɜɵɡɵɜɚɟɬɫɹ ɩɪɨɰɟɞɭɪɚ ɷɤɫɩɨɪɬɚ
TableExport(Word,Document,Selection,ADODataSet1,'ɀɢɜɭɳɢɟ ɧɚ
ɭɥɢɰɟ Ⱥɯɦɟɬɨɜɚ','ȺɏɆȿɌɈȼȺ');
77
78
TableExport(Word,Document,Selection,ADODataSet1,'ɀɢɜɭɳɢɟ ɧɚ
ɭɥɢɰɟ Ʌɟɬɱɢɤɨɜ','ɅȿɌɑɂɄɈȼ');
finally
//ɨɬɨɛɪɚɠɟɬɫɹ Word
Word.Visible := True;
//ɧɟ ɡɚɛɭɞɶɬɟ ɭɞɚɥɢɬɶ ɫɫɵɥɤɢ!!!
Selection := Null;
Document := Null;
Word := Null;
Screen.Cursor := crDefault;
end;
end;
procedure TForm1.TableExport(Word,Document,Selection: Variant;
DataSet: TDataSet; Title,FlagText: String);
var
I,ColCount: Integer; //ɤɨɥɢɱɟɫɬɜɨ ɤɨɥɨɧɨɤ ɜ ɬɚɛɥɢɰɟ
TableBeg: Integer; //ɇɨɦɟɪ ɫɢɦɜɨɥɚ ɜ ɧɚɱɚɥɟ ɬɚɛɥɢɰɵ
TableBeg2: Integer; //ɇɨɦɟɪ ɫɢɦɜɨɥɚ ɜ ɧɚɱɚɥɟ ɞɚɧɧɵɯ ɬɚɛɥɢɰɵ
Vr1,Vr2: OleVariant;
F: Boolean;
St: String;
function ConvertString(S: String): String;
{ɉɪɢ ɮɨɪɦɢɪɨɜɚɧɢɢ ɬɚɛɥɢɰɵ ɜ ɤɚɱɟɫɬɜɟ ɪɚɡɞɟɥɢɬɟɥɹ ɩɨ ɭɦɨɥɱɚɧɢɸ
ɢɫɩɨɥɶɡɭɟɬɫɹ "-", ɤɨɬɨɪɵɣ ɧɟɨɛɯɨɞɢɦɨ ɡɚɦɟɧɢɬɶ ɧɚ ɚɧɚɥɨɝɢɱɧɵɣ
ɫɢɦɜɨɥ ɫ ɤɨɞɨɦ #173}
begin
Result := StringReplace(S,'-',#173,[]);
end;
begin
{ɉɪɨɰɟɞɭɪɚ ɷɤɫɩɨɪɬɢɪɭɟɬ ɥɢɲɶ ɬɟ ɡɚɩɢɫɢ, ɭ ɤɨɬɨɪɵɯ ɡɧɚɱɟɧɢɟ ɩɨ-
ɫɥɟɞɧɟɝɨ ɩɨɥɹ ɫɨɜɩɚɞɚɟɬ ɫ FlagText. ȿɫɥɢ FlagText=,'' ɬɨ ɷɤɫɩɨɪɬɢɪɭɸɬ-
ɫɹ ɜɫɟ ɡɚɩɢɫɢ}
Vr1 := wdStory;
//ɩɟɪɟɯɨɞ ɜ ɤɨɧɟɰ ɞɨɤɭɦɟɧɬɚ
Selection.EndKey(Vr1);
//ɜɫɬɚɜɥɹɟɬɫɹ ɡɚɝɨɥɨɜɨɤ ɬɚɛɥɢɰɵ
Document.Range.InsertAfter(Title);
//ɧɚɫɬɪɨɣɤɢ ɫɬɢɥɹ ɚɛɡɚɰɚ
Document.Paragraphs.Item(Document.Paragraphs.Count).Range.Select; 
      //���������                                                                TableExport(Word,Document,Selection,ADODataSet1,'������� ��
                                                                          ����� ��������','��������');
      ADODataSet1.fields[1].DisplayLabel := '���';                             finally
      //������ �������                                                           //����������� Word
                                                                                 Word.Visible := True;
      ADODataSet1.fields[1].Tag := Round(Word.CentimetersToPoints(10));          //�� �������� ������� ������!!!
     //���������� ����                                                           Selection := Null;
                                                                                 Document := Null;
      ADODataSet1.fields[1].Visible := True;                                     Word := Null;
      //���������                                                                Screen.Cursor := crDefault;
                                                                               end;
      ADODataSet1.fields[2].DisplayLabel := '���';                            end;
      //������ �������
                                                                              procedure TForm1.TableExport(Word,Document,Selection: Variant;
      ADODataSet1.fields[2].Tag:= Round(Word.CentimetersToPoints(1.5));   DataSet: TDataSet; Title,FlagText: String);
      //���������� ����                                                       var
      ADODataSet1.fields[2].Visible := True;                                   I,ColCount: Integer; //���������� ������� � �������
      //���������                                                              TableBeg: Integer; //����� ������� � ������ �������
                                                                               TableBeg2: Integer; //����� ������� � ������ ������ �������
      ADODataSet1.fields[3].DisplayLabel := '������';                          Vr1,Vr2: OleVariant;
      //������ �������                                                         F: Boolean;
                                                                               St: String;
      ADODataSet1.fields[3].Tag :=
Round(Word.CentimetersToPoints(1.5));                                           function ConvertString(S: String): String;
      //���������� ����                                                         {��� ������������ ������� � �������� ����������� �� ���������
                                                                                ������������ "-", ������� ���������� �������� �� �����������
      ADODataSet1.fields[3].Visible := True;                                    ������ � ����� #173}
      //���������                                                               begin
                                                                                  Result := StringReplace(S,'-',#173,[]);
      ADODataSet1.fields[4].DisplayLabel := '��������';                         end;
      //������ �������                                                         begin
                                                                                {��������� ������������ ���� �� ������, � ������� �������� ��-
      ADODataSet1.fields[4].Tag :=                                        �������� ���� ��������� � FlagText. ���� FlagText=,'' �� ������������-
Round(Word.CentimetersToPoints(1.5));                                     �� ��� ������}
      //���������� ����                                                         Vr1 := wdStory;
                                                                                //������� � ����� ���������
      ADODataSet1.fields[4].Visible := True;
      //�� ���������� ����                                                     Selection.EndKey(Vr1);

      ADODataSet1.fields[5].Visible := False;                                  //����������� ��������� �������
      //���������� ��������� ��������                                          Document.Range.InsertAfter(Title);
      TableExport(Word,Document,Selection,ADODataSet1,'������� ��              //��������� ����� ������
����� ��������','��������');                                                   Document.Paragraphs.Item(Document.Paragraphs.Count).Range.Select;
                                   77                                                                       78

Страницы