home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / JIZD_RAD / JIZD_RAD.KL3 < prev    next >
Text File  |  1999-06-17  |  3KB  |  101 lines
  1. Program Jizd_rad;
  2.  
  3. procedure TForm.PageControl1Change(Sender: TObject);
  4. var cc: Integer;
  5. begin
  6.   cc:= PageControl1.PageIndex;
  7.   if cc=0 then Edit1.Text:= IntToStr(DataTable1.Count);
  8.   if cc=1 then Edit2.Text:= IntToStr(DataTable2.Count);
  9.   if cc=3 then Hodiny1.Time:=time;
  10. end;
  11.  
  12. procedure TForm.FormActivate(Sender: TObject);
  13. begin
  14.    PageControl1.PageIndex:=0;
  15. end;
  16.  
  17. procedure TForm.Button1Click(Sender: TObject);
  18. begin
  19.    Panel1.Visible := True;
  20.    Button2.Visible:= True;
  21.    Button1.Visible:= False;
  22. end;
  23.  
  24. procedure TForm.Button2Click(Sender: TObject);
  25. begin
  26.    DataTable1.Filter := '';
  27.    Panel1.Visible := False;
  28.    Button2.Visible:= False;
  29.    Button1.Visible:= True;
  30. end;
  31.  
  32. procedure TForm.ButtonP1Click(Sender: TObject);
  33. var cc:string;
  34. begin
  35.    cc:="TYP='"+ Editp1.Text+"'.AND.OD='"+ Editp2.Text+"'";
  36. // ShowMessage("Podmφnka: "+cc);
  37.    DataTable1.Filter := cc;
  38.    Panel1.Visible := False;
  39.    Button2.Visible:= True;
  40.    Button1.Visible:= True;
  41. end;
  42.  
  43. procedure TForm.Button3Click(Sender: TObject);
  44. var cc,cc1: string;
  45.     i, ss, rr: Integer;
  46. begin
  47.    ss:=screen.cursor;
  48.    Screen.Cursor := crHourGlass;
  49.    paska1.visible:= True; Button4.Visible:=True;
  50.    cc:=TimeToStr(Hodiny1.time);
  51.    if Length(cc)=8 then cc:=Copy(cc,1,2) else cc:= Copy(cc,1,1);
  52.    Label4.Caption:= "Odjezdy od> "+cc;
  53.    for i:=ListBox1.Items.Count downto 1 do
  54.        ListBox1.Items.delete(i-1);
  55.    Paska1.Min:= 0;
  56.    Paska1.Max:= DataTable1.Count;
  57.    DataTable1.GoTop;
  58.    while not DataTable1.eof do
  59.    begin
  60.       rr:=DataTable1.ReadNum("cas");
  61.       if (rr>=StrToReal(cc)) and (rr<=StrToReal(cc)+2) then
  62.       begin
  63.          cc1:=" linka:"+DataTable1.ReadStr("typ");
  64.          cc1:=cc1+" z: "+DataTable1.ReadStr("od");
  65.          cc1:=cc1+" "+DataTable1.ReadStr("pozn");
  66.          ListBox1.Items.add(RealToStr(rr,5,2)+cc1);
  67.       end;
  68.       DataTable1.Skip(1);
  69.       Paska1.StepIt;
  70.    end;
  71.    Paska1.Visible:= False; Button3.Visible:= False;
  72.    Screen.Cursor:= ss;
  73. end;
  74.  
  75. procedure TForm.ListBox1Click(Sender: TObject);
  76. begin
  77.    ShowMessage("PoΦet °ßdk∙:"+IntToStr(ListBox1.Items.Count));
  78. end;
  79.  
  80. procedure TForm.Button4Click(Sender: TObject);
  81. var i: Integer;
  82. begin
  83.    Button3.Visible:= True;
  84.    Hodiny1.Time:= Time;
  85.    for i:= ListBox1.Items.Count downto 1 do
  86.        ListBox1.Items.delete(i-1);
  87.    Button4.Visible:=False;
  88. end;
  89.  
  90. procedure TForm.FormShow(Sender: TObject);
  91. begin
  92.    Edit1.Text:= DataTable1.Count;
  93. end;
  94.  
  95. procedure TForm.Button5Click(Sender: TObject);
  96. begin
  97.    RunExe('Jizd_Rad.htm','' ,'' , False);
  98. end;
  99.  
  100. end.
  101.