Bsystem

МКУ "ЦБ Варгашинского МО" » Программа для библиотек
Программа для библиотек

программа находится в Алфе:
функционал:
1	Картотека	0%
1.1	WEB картатека	0%
2	Документы	0%
3	Читатели	0%
3.1	Интеграция с DLE WEB	0%
4	Отчеты	0%
5	Настройки	0%
-программа Клиент серверная / сервер Mysql или MiraDB
-Клиент Смежный доступен / на плотформах x64bit x32bit
windows xp(sp all), windows 7(sp all), windows 8~8.1(sp all), windows 10(build all);
-клиент может работать как Онлайн так и оффлайн
Скрин:
Ссылка на программу пока не доступна(Как будит реализованы обновление)
минимальные требования CPU600~800 GPU32Mb hdd 30Mb
Скачать программу Winx32bit
Скачать программу Winx64bit
log Алфa:
-доб публ функц 30% реал
-реал инфа версии(клиент/сервер)
-----------------------------------------------------------------------------------------------------------//*
Конвертор Ирбис mysql Скачать файл: debug.rar [3.21 Mb] (cкачиваний: 1) исхлдники Скачать файл: xmls.zip [96.47 Kb] (cкачиваний: 3)
сам код :
Показать / Скрыть текст
unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Xml.xmldom, Xml.XMLIntf, Xml.XMLDoc, Vcl.ComCtrls, System.DateUtils;

type
  TForm2 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    OpenDialog1: TOpenDialog;
    XMLDocument1: TXMLDocument;
    Memo1: TMemo;
    Button2: TButton;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  stopP:bool;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
//sOpenDialog1.Files.LoadFromFile(sOpenDialog1.FileName);
{XMLDocument1.Active := true;
XMLDocument1.FileName:='C:\Users\Professional\Desktop\333.XML';
Memo1.Lines.Text:=XMLDocument1.xml.Text;
XMLDocument1.Active := false;  }
if stopP = false then  stopP := true;




end;

procedure TForm2.Button2Click(Sender: TObject);
label
 bye,GotoLabel2,GotoLabel3;
var  XmlDocNode : IXMLNode;
      //NodeList, NodeList2: IXMLNodelist;
     i, i2, i3, maxP : Integer;
     valF, valT: string;
     Start, Stop: TDateTime;
    Elapsed: int64;

begin
//memo1.Visible:=false;
  NullStrictConvert := false; // избегаем ошибки преобразования NULL OLE
  Start:=Now;
  XMLDocument1.Active := true;
  XmlDocNode := XMLDocument1.DocumentElement;
  Memo1.Clear;
 // for i := 0 to XmlDocNode.ChildNodes.Count - 1 do begin
    //Memo1.Lines.Add('------------------------');
    //XmlPerson := XmlDocNode.ChildNodes[i];
   // XmlChild := XmlPerson.ChildNodes['collection'].ChildNodes.FindNode('record');
      // if  VarIsClear(XmlChild) then begin
       //Memo1.Lines.Add(XmlDocNode.NodeName);
  if Assigned(XmlDocNode) then
  begin
       Memo1.Clear;
          Memo1.Lines.Add('Root Node: '+XmlDocNode.NodeName);
         Memo1.Lines.Add('Root NUmer: '+inttostr(XmlDocNode.ChildNodes.Count));
         maxP:=  XmlDocNode.ChildNodes.Count;
         ProgressBar1.Max:=maxP;

          // Memo1.Lines.Add(XmlDocNode.ChildNodes.Nodes[0].NodeName);
          // Memo1.Lines.Add(XmlDocNode.ChildNodes.Nodes[0].ChildNodes.Nodes[1].NodeName);

    for i := 0 to XmlDocNode.ChildNodes.Count -1 do  begin
      if (XmlDocNode.ChildNodes.Nodes[i].NodeName = 'record') then begin

            Memo1.Lines.BeginUpdate();
            try
              Memo1.Lines.Add('№:'+ inttostr(i+1) +' '+
                  XmlDocNode.ChildNodes.Nodes[i].NodeName+' '+
                  XmlDocNode.ChildNodes.Nodes[i].Attributes['format']);
            finally
              Memo1.Lines.EndUpdate();
            end;



        ProgressBar1.Position:=ProgressBar1.Position+1;
        Application.ProcessMessages;    if stopP then  goto bye;

      end;
          for i2 := 0 to XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Count -1 do
            Begin
              //  XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Count.n

             if (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeName = 'field') then begin
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '920' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // страна RU ------------------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '102' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               // язык основного текста ------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '101' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               // количествр выдачь книги ----------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '999' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               // BBK книги ------------------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '621' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               //if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '60'  then begin
               //  valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               //end else begin valF:=''; end;
               //if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '964' then begin
               //  valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               //end else begin valF:=''; end;
               // авторский знак книги --------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '908' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '903' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------
               if XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '903' then begin
                 valF:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeValue ; Goto GotoLabel2;
               end else begin valF:=''; end;
               // ----------------------------------------------------------------------------------------

             GotoLabel2:

             if not (valF='') then begin
                Memo1.Lines.BeginUpdate();
                try
                 Memo1.Lines.Add('--2:'+XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].NodeName+' '+valF+'');
                 valF:='';
                finally
                  Memo1.Lines.EndUpdate();
                end;
             end;


              Application.ProcessMessages;  if stopP then  goto bye;
             end;

             //VarIsNull boll   VarToStr sting
               for i3 := 0 to XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Count -1 do
               begin
                if (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeName = 'subfield') then begin
              // valT:= VarToStr(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Text);

                // tag 900
                // Возрастное ограничение 16+  -----------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '900') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'Z')
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end
                    else begin
                      valT:='';
                    end;
                //----------------------------------------------------------------------------------------------------------------------------
                // tag 919
                // язык котологизации  rus ---------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '919') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')
                     // (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'K')       {правила котологизации  PSBO}
                  then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 700
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '700') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')    {Автор}
                      //(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'B')    {Автор Инициалы}
                     // (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'C')    {Автор Инициалы полностью}
                      //(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'F')       {Автор годы рождения -}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '700') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'B')    {Автор Инициалы}
                     // (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'C')    {Автор Инициалы полностью}
                      //(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'F')       {Автор годы рождения -}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '700') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'G')    {Автор Инициалы полностью}
                      //(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'F')       {Автор годы рождения -}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '700') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'F')       {Автор годы рождения -}
                   then begin
                        if VarToStr(XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue) = ' ' then
                        begin
                          valT:=''; Goto GotoLabel3;
                        end;
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 210
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '210') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'D')       {год издания}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '210') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'C')       {издательство}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '210') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')       {город}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 10
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '10') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')       {ISBN}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '10') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'D')       {цена книги}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 215
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '215') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')       {страниц книги}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '215') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'X')       {Тираж книги}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 225
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '225') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')       {из серии книги}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 200
                // --------------------------------------------------------------------------------------------------------------------------
                  if  (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].Attributes['tag'] = '200') and
                      (XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].Attributes['code'] = 'A')       {название книги}
                   then begin
                        valT:= XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue ; Goto GotoLabel3;
                  end else begin valT:=''; end;
                //---------------------------------------------------------------------------------------------------------------------------
                // tag 910
                // --------------------------------------------------------------------------------------------------------------------------



                GotoLabel3:

                 if not (valT='') then begin

                  Memo1.Lines.BeginUpdate();
                    try
                     Memo1.Lines.Add('---3:'+XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeName+' '+valT+'');
                     valT:='';
                    finally
                      Memo1.Lines.EndUpdate();
                    end;



                     {
                    Memo1.Lines.BeginUpdate();
                    try
                    

                       Memo1.Lines.Add('---3:'+XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeName+' '+
                    XmlDocNode.ChildNodes.Nodes[i].ChildNodes.Nodes[i2].ChildNodes.Nodes[i3].NodeValue);
                    finally
                      Memo1.Lines.EndUpdate();
                    end;    }

                 end;

                   Application.ProcessMessages;   if stopP then  goto bye;
                end;

               end;





    end;

           Label1.Caption:= ''+ Round(( i / maxP)  * 100).ToString + '%';
           SendMessage(Memo1.Handle, EM_LINESCROLL, 0,Memo1.Lines.Count);
   end;


            {
        for i := 0 to XmlDocNode.ChildNodes[0].NodeName -1 do
            begin
              NodeList:= XmlDocNode.ChildNodes[i].ChildNodes;
             Memo1.Lines.Add('Node Name: '+NodeList[i].NodeName);

         end;        }




      {
            for i := 0 to XmlDocNode.ChildNodes.Count -1 do
            begin
              Node:= NodeList[i];
              Memo1.Lines.Add('Node Name: '+Node.NodeName+' '+ inttostr(i) +'');
             // Memo1.Lines.Add('Node TEXT: '+Node.Text);

              if Node.HasAttribute('format') then   begin
                 Memo1.Lines.Add('Node Atrubut: '+Node.Attributes['format']);
                 end;
              NodeList2:=  XmlDocNode.ChildNodes[2].ChildNodes;
              for i2 := 0 to XmlDocNode.ChildNodes[2].ChildNodes.Count -1 do begin
                Node2:= NodeList2[i2];
                Memo1.Lines.Add('Node2 Name: '+Node2.NodeName+' '+ inttostr(i2)+'');

               NodeList3:=  XmlDocNode.ChildNodes[4].ChildNodes;
                for i3 := 0 to XmlDocNode.ChildNodes[4].ChildNodes.Count -1 do begin
                  Node3:= NodeList3[i3];
                  Memo1.Lines.Add('Node3 Name: '+Node3.NodeName+' '+ inttostr(i3)+'');
                end;
             end;

            end;    }
        
  end;


      //XmlData := XmlChild.ChildNodes.FindNode('subfield');
     // Memo1.Lines.Add('djn: ' + XmlData.NodeValue);
   //    end;
 // end;
   bye:
  Memo1.Lines.Add('---END---------------------');
  Stop:=Now;
  XMLDocument1.Active := false;
  ProgressBar1.Position:=0;
 // XMLDocument1.Free;
  stopP := false;
  Elapsed:=SecondsBetween(Start, Stop);
   label2.Caption:=IntToStr(Elapsed)+'sec';
   //memo1.Visible:=true;
   Form2.Update;



end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if checkBox1.Checked then begin memo1.Visible:=false;
end else begin  
    memo1.Visible:=true;
  end;
  
end;

procedure TForm2.Button3Click(Sender: TObject);
var puty:string;
begin
   if OpenDialog1.Execute then  puty :=OpenDialog1.FileName;
XMLDocument1.FileName:=puty;
Memo1.Lines.Text:=XMLDocument1.xml.Text;
XMLDocument1.Active := false;
end;

end.
-------------------------------------------------------------------------------//*
старая программа(нет исходников утерены)
Установка:
РАспокавать на диск C:\bsys\
как на скрине 2
Должен стоять MS Office 2003 и выше!
печатает на принтер по умолчанию
Принтер Матречный epson LX 350 A4 или LX 850 A4 (старый) или LX-1050+ A3 (старый) - - был lx-1050+
Скачать файл: Скачать bsys.rar [7.02 Mb] (cкачиваний: 12)
Скачать файл: Скачать доп программа для работы Базы данных bdesetup.exe [4.76 Mb] (cкачиваний: 10)
Память сердца
Информационные ссылки
Календарь
« Июль 2025 »
Пн	Вт	Ср	Чт	Пт	Сб	Вс
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31