Разработка программы для автоматизации работы книжного каталога

    end;

  Form14.Show;

end;

 

procedure TForm13.Image2Click(Sender: TObject);

begin

  if Form1.RadioButton1.Checked=True then

    begin

      Form15.TreeView1.Height:=561;

      Form15.TreeView1.Width:=273;

      Form15.TreeView1.Top:=88;

      Form15.TreeView1.Left:=16;

      Form15.TreeView1.Visible:=True;

      Form15.TreeView2.Visible:=False;

      Form15.TreeView3.Visible:=False;

      Form15.TreeView1.FullCollapse;

    end;

  if Form1.RadioButton2.Checked=True then

    begin

      Form15.TreeView2.Height:=561;

      Form15.TreeView2.Width:=273;

      Form15.TreeView2.Top:=88;

      Form15.TreeView2.Left:=16;

      Form15.TreeView2.Visible:=True;

      Form15.TreeView1.Visible:=False;

      Form15.TreeView3.Visible:=False;

      Form15.TreeView2.FullCollapse;

    end;

  if Form1.RadioButton3.Checked=True then

    begin

      Form15.TreeView3.Height:=561;

      Form15.TreeView3.Width:=273;

      Form15.TreeView3.Top:=88;

      Form15.TreeView3.Left:=16;

      Form15.TreeView3.Visible:=True;

      Form15.TreeView1.Visible:=False;

      Form15.TreeView2.Visible:=False;

      Form15.TreeView3.FullCollapse;

    end;

  Form15.Show;

  Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\hello.html');

end;

 

end.

 

Форма видео справки

 

unit Unit14;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, MPlayer;

 

type

  TForm14 = class(TForm)

    MediaPlayer1: TMediaPlayer;

    TrackBar1: TTrackBar;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    Timer1: TTimer;

    Panel1: TPanel;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Panel1Resize(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form14: TForm14;

 

implementation

 

uses Unit2, Unit3, Unit4, Unit5;

 

{$R *.dfm}

 

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

  Form14.MediaPlayer1.Play;

  Form14.MediaPlayer1.DeviceType:=dtAutoSelect;

end;

 

procedure TForm14.BitBtn2Click(Sender: TObject);

begin

  Form14.MediaPlayer1.Pause

end;

 

procedure TForm14.BitBtn3Click(Sender: TObject);

begin

  Form14.MediaPlayer1.Stop;

  Form14.MediaPlayer1.Position:=0;

end;

 

procedure TForm14.Timer1Timer(Sender: TObject);

begin

  Form14.TrackBar1.Position:=Form14.MediaPlayer1.Position;

end;

 

procedure TForm14.Panel1Resize(Sender: TObject);

begin

  Form14.MediaPlayer1.DisplayRect:=Panel1.ClientRect;

end;

 

procedure TForm14.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Form14.MediaPlayer1.Stop;

  Form14.MediaPlayer1.Position:=0;

end;

 

end.

 

Форма тестовой справки

 

unit Unit15;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw, ComCtrls, pngimage, ExtCtrls, StdCtrls;

 

type

  TForm15 = class(TForm)

    TreeView1: TTreeView;

    WebBrowser1: TWebBrowser;

    Image1: TImage;

    Label1: TLabel;

    TreeView2: TTreeView;

    TreeView3: TTreeView;

    procedure FormShow(Sender: TObject);

    procedure TreeView1Click(Sender: TObject);

    procedure TreeView2Click(Sender: TObject);

    procedure TreeView3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form15: TForm15;

 

implementation

 

{$R *.dfm}

 

procedure TForm15.FormShow(Sender: TObject);

begin

  Form15.Color:=clSkyBlue;

end;

 

procedure TForm15.TreeView1Click(Sender: TObject);

begin

  //Admin

  if Form15.TreeView1.Items[0].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\beginning.html');

    end;

  if Form15.TreeView1.Items[2].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\menu.html');

    end;

  if Form15.TreeView1.Items[3].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\export.html');

    end;

  if Form15.TreeView1.Items[4].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\user.html');

    end;

  if Form15.TreeView1.Items[5].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\exit.html');

    end;

  if Form15.TreeView1.Items[6].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\property.html');

    end;

  if Form15.TreeView1.Items[7].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\search.html');

    end;

  if Form15.TreeView1.Items[8].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\all.html');

    end;

  if Form15.TreeView1.Items[9].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\refresh.html');

    end;

  if Form15.TreeView1.Items[10].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\function.html');

    end;

  if Form15.TreeView1.Items[11].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\add.html');

    end;

  if Form15.TreeView1.Items[12].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\del.html');

    end;

  if Form15.TreeView1.Items[13].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\edit.html');

    end;

  if Form15.TreeView1.Items[14].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\info.html');

    end;

  if Form15.TreeView1.Items[15].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\help.html');

    end;

  if Form15.TreeView1.Items[16].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\about.html');

    end;

  if Form15.TreeView1.Items[18].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\v_add.html');

    end;

  if Form15.TreeView1.Items[19].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\v_del.html');

    end;

  if Form15.TreeView1.Items[20].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\v_edit.html');

    end;

  if Form15.TreeView1.Items[21].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\v_search.html');

    end;

  if Form15.TreeView1.Items[22].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\v_sorting.html');

    end;

  if Form15.TreeView1.Items[24].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\r_add.html');

    end;

  if Form15.TreeView1.Items[25].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\r_del.html');

    end;

  if Form15.TreeView1.Items[26].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\r_edit.html');

    end;

end;

 

procedure TForm15.TreeView2Click(Sender: TObject);

begin

  //Pro

  if Form15.TreeView2.Items[0].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\beginning.html');

    end;

  if Form15.TreeView2.Items[2].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\menu.html');

    end;

  if Form15.TreeView2.Items[3].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\export.html');

    end;

  if Form15.TreeView2.Items[4].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\user.html');

    end;

  if Form15.TreeView2.Items[5].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\exit.html');

    end;

  if Form15.TreeView2.Items[6].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\property.html');

    end;

  if Form15.TreeView2.Items[7].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\search.html');

    end;

  if Form15.TreeView2.Items[8].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\all.html');

    end;

  if Form15.TreeView2.Items[9].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\refresh.html');

    end;

  if Form15.TreeView2.Items[10].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\info.html');

    end;

  if Form15.TreeView2.Items[11].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\help.html');

    end;

  if Form15.TreeView2.Items[12].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\about.html');

    end;

  if Form15.TreeView2.Items[14].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\v_search.html');

    end;

  if Form15.TreeView2.Items[15].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\v_sorting.html');

    end;

  if Form15.TreeView2.Items[16].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pro\v_buy.html');

    end;

end;

 

procedure TForm15.TreeView3Click(Sender: TObject);

begin

  //pok

  if Form15.TreeView3.Items[0].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\beginning.html');

    end;

  if Form15.TreeView3.Items[2].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\menu.html');

    end;

  if Form15.TreeView3.Items[3].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\export.html');

    end;

  if Form15.TreeView3.Items[4].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\user.html');

    end;

  if Form15.TreeView3.Items[5].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\exit.html');

    end;

  if Form15.TreeView3.Items[6].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Admin\property.html');

    end;

  if Form15.TreeView3.Items[7].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\search.html');

    end;

  if Form15.TreeView3.Items[8].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\all.html');

    end;

  if Form15.TreeView3.Items[9].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\refresh.html');

    end;

  if Form15.TreeView3.Items[10].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\function.html');

    end;

  if Form15.TreeView3.Items[11].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\buy.html');

    end;

  if Form15.TreeView3.Items[12].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\info.html');

    end;

  if Form15.TreeView3.Items[13].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\help.html');

    end;

  if Form15.TreeView3.Items[14].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\about.html');

    end;

  if Form15.TreeView3.Items[16].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\v_search.html');

    end;

  if Form15.TreeView3.Items[17].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\v_sorting.html');

    end;

  if Form15.TreeView3.Items[18].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\v_buy.html');

    end;

  if Form15.TreeView3.Items[20].Selected then

    begin

      Form15.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName)+'Files\text\Pok\r_buy.html');

    end;

end;

 

end.