home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / nastroje / SNAPPER.ZIP / batchp.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-23  |  9.1 KB  |  267 lines
  1. unit batchp;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Buttons, CheckLst;
  8.  
  9. type
  10.   TfrmBatch = class(TForm)
  11.     CheckListBox1: TCheckListBox;
  12.     BitBtn1: TBitBtn;
  13.     BitBtn2: TBitBtn;
  14.     BitBtn3: TBitBtn;
  15.     BitBtn4: TBitBtn;
  16.     RadioGroup1: TRadioGroup;
  17.     ASCIIBTN: TRadioButton;
  18.     HTMLBTN: TRadioButton;
  19.     IndexCB: TCheckBox;
  20.     procedure FormCreate(Sender: TObject);
  21.     procedure BitBtn1Click(Sender: TObject);
  22.     procedure BitBtn2Click(Sender: TObject);
  23.     procedure BitBtn4Click(Sender: TObject);
  24.     procedure BitBtn3Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   frmBatch: TfrmBatch;
  33.  
  34. implementation
  35.  
  36. uses snapsql, mainp;
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TfrmBatch.FormCreate(Sender: TObject);
  41. var i : integer;
  42. begin
  43.   for i := 0 to Length(Qry_Label)-1 do
  44.       CheckListBox1.Items.Add(qry_label[i]);
  45. end;
  46.  
  47. procedure TfrmBatch.BitBtn1Click(Sender: TObject);
  48. var i : integer;
  49. begin
  50.   for i := 0 to CheckListBox1.Items.Count-1 do
  51.     CheckListBox1.State[i] := cbChecked;
  52.  
  53. end;
  54.  
  55. procedure TfrmBatch.BitBtn2Click(Sender: TObject);
  56. var i : integer;
  57. begin
  58.   for i := 0 to CheckListBox1.Items.Count-1 do
  59.     CheckListBox1.State[i] := cbUnChecked;
  60.  
  61. end;
  62.  
  63. procedure TfrmBatch.BitBtn4Click(Sender: TObject);
  64. begin
  65.   ModalResult := mrCancel;
  66. end;
  67.  
  68. procedure Create_indexHTML;
  69. // actually index.html, navigate.html and links.html
  70. var f : text;
  71.     i : integer;
  72.     b : array[0..17] of boolean;
  73. begin
  74.   AssignFile(f,'output\index.html');
  75.   Rewrite(f);
  76.   Writeln(f,'<HTML>');
  77.   Writeln(f,'<HEAD>');
  78.   Writeln(f,'<TITLE>OraSnapper</TITLE>');
  79.   Writeln(f,'</HEAD>');
  80.   Writeln(f,'<FRAMESET COLS="220,*">');
  81.   Writeln(f,'  <FRAME SRC="navigate.html" NAME="directory" SCROLLING="AUTO" FRAMEBORDER="YES">');
  82.   Writeln(f,'  <FRAME SRC="links.html" NAME="Content" SCROLLING="AUTO" FRAMEBORDER="YES">');
  83.   Writeln(f,'</FRAMESET>');
  84.   Writeln(f,'</HTML>');
  85.   Close(f);
  86.   AssignFile(f,'output\links.html');
  87.   Rewrite(f);
  88.   Writeln(f,'<HTML>');
  89.   Writeln(f,'<HEAD>');
  90.   Writeln(f,'<BODY>');
  91.   Writeln(f,'</BODY>');
  92.   Writeln(f,'</HEAD>');
  93.   Writeln(f,'</HTML>');
  94.   Close(f);
  95.  
  96.   for i := 0 to 17 do
  97.     b[i] := False;
  98.   AssignFile(f,'output\navigate.html');
  99.   Rewrite(f);
  100.   Writeln(f,'<HTML>');
  101.   Writeln(f,'<HEAD>');
  102.   Writeln(f,'<BODY>');
  103.   with frmBatch do
  104.   begin
  105.     for i := 0 to CheckListBox1.Items.Count-1 do
  106.     begin
  107.       if CheckListBox1.State[i] = cbChecked then
  108.       begin
  109.         Case i of
  110.         0 .. 9 : begin
  111.                    if not b[0] then
  112.                      writeln(f,'<b>'+header_label[0]+'</b><br>');
  113.                    b[0] := True;
  114.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  115.                  end;
  116.         10..17 : begin
  117.                    if not b[1] then
  118.                      writeln(f,'<b>'+header_label[1]+'</b><br>');
  119.                    b[1] := True;
  120.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  121.                  end;
  122.         18..22 : begin
  123.                    if not b[2] then
  124.                      writeln(f,'<b>'+header_label[2]+'</b><br>');
  125.                    b[2] := True;
  126.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  127.                  end;
  128.         23..31 : begin
  129.                    if not b[3] then
  130.                      writeln(f,'<b>'+header_label[3]+'</b><br>');
  131.                    b[3] := True;
  132.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  133.                  end;
  134.         32..47 : begin
  135.                    if not b[4] then
  136.                      writeln(f,'<b>'+header_label[4]+'</b><br>');
  137.                    b[4] := True;
  138.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  139.                  end;
  140.         48..52 : begin
  141.                    if not b[5] then
  142.                      writeln(f,'<b>'+header_label[5]+'</b><br>');
  143.                    b[5] := True;
  144.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  145.                  end;
  146.         53..61 : begin
  147.                    if not b[6] then
  148.                      writeln(f,'<b>'+header_label[6]+'</b><br>');
  149.                    b[6] := True;
  150.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  151.                  end;
  152.         62..64 : begin
  153.                    if not b[7] then
  154.                      writeln(f,'<b>'+header_label[7]+'</b><br>');
  155.                    b[7] := True;
  156.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  157.                  end;
  158.         65..70 : begin
  159.                    if not b[8] then
  160.                      writeln(f,'<b>'+header_label[8]+'</b><br>');
  161.                    b[8] := True;
  162.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  163.                  end;
  164.         71..73 : begin
  165.                    if not b[9] then
  166.                      writeln(f,'<b>'+header_label[9]+'</b><br>');
  167.                    b[9] := True;
  168.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  169.                  end;
  170.         74..75 : begin
  171.                    if not b[10] then
  172.                      writeln(f,'<b>'+header_label[10]+'</b><br>');
  173.                    b[10] := True;
  174.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  175.                  end;
  176.         76..83 : begin
  177.                    if not b[11] then
  178.                      writeln(f,'<b>'+header_label[11]+'</b><br>');
  179.                    b[11] := True;
  180.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  181.                  end;
  182.         84..85 : begin
  183.                    if not b[12] then
  184.                      writeln(f,'<b>'+header_label[12]+'</b><br>');
  185.                    b[12] := True;
  186.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  187.                  end;
  188.         86..91 : begin
  189.                    if not b[13] then
  190.                      writeln(f,'<b>'+header_label[13]+'</b><br>');
  191.                    b[13] := True;
  192.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  193.                  end;
  194.         92..98 : begin
  195.                    if not b[14] then
  196.                      writeln(f,'<b>'+header_label[14]+'</b><br>');
  197.                    b[14] := True;
  198.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  199.                  end;
  200.        99..102 : begin
  201.                    if not b[15] then
  202.                      writeln(f,'<b>'+header_label[15]+'</b><br>');
  203.                    b[15] := True;
  204.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  205.                  end;
  206.       103..104 : begin
  207.                    if not b[16] then
  208.                      writeln(f,'<b>'+header_label[16]+'</b><br>');
  209.                    b[16] := True;
  210.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  211.                  end;
  212.       105..107 : begin
  213.                    if not b[17] then
  214.                      writeln(f,'<b>'+header_label[17]+'</b><br>');
  215.                    b[17] := True;
  216.                    writeln(f,'<a href='+IntToStr(i)+'.html Target="Content">'+CheckListBox1.Items.Strings[i]+'</a><br>');
  217.                  end;
  218.         end;
  219.       end;
  220.     end;
  221.   end;
  222.   Writeln(f,'</BODY>');
  223.   Writeln(f,'</HEAD>');
  224.   Writeln(f,'</HTML>');
  225.   Close(f);
  226. end;
  227.  
  228. procedure TfrmBatch.BitBtn3Click(Sender: TObject);
  229. var
  230.     i : integer;
  231.  
  232. begin
  233.   Batch := True;
  234.   for i := 0 to CheckListBox1.Items.Count-1 do
  235.   begin
  236.     frmMain.DBgrid1.Visible := False;
  237. //    frmMain.OraQuery1.DisableControls;
  238.     Query_no := i;
  239.     case Query_no of
  240.       13 : begin
  241.              Create_View(1);
  242.              Create_View(2);
  243.            end;
  244.       35 : Create_View(3);
  245.       36 : Create_View(4);
  246.       42 : Create_View(5);
  247.       70 : Create_View(6);
  248.       72,73 : Create_View(7);
  249.       81,82,83 : Create_View(8);
  250.       91 : Create_View(9);
  251.     end;
  252.     Snap_SQL(Query_no,frmMain.OraQuery1,frmMain.Memo1);
  253.     if CheckListBox1.State[i] = cbChecked then
  254.       if HtmlBTN.Checked then
  255.         ExportToHTML
  256.       else
  257.         ExportToASCII;
  258.   end;
  259.   if HtmlBTN.Checked then
  260.     Create_IndexHTML;
  261.   frmMain.DBGrid1.Visible := True;  
  262. //  frmMain.OraQuery1.EnableControls;
  263.   ModalResult := mrOk;
  264. end;
  265.  
  266. end.
  267.