ufrm_ysbzjpx_main.~pas

运输培训管理束）录像等四个按钮。 [Conferencing_Vidio_system.rar] - 用微软实时通信（RTC）API创建音频和视频会议、共享应用程序、共享白板、简单的点对点聊天对话

unit uFrm_YsbZjpx_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxBar, jpeg, ExtCtrls, uSysModule;

type
  TFrm_YsbZjpx_Main = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarButton1: TdxBarButton;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarButton5: TdxBarButton;
    dxBarButton6: TdxBarButton;
    Image1: TImage;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton7: TdxBarButton;
    SysModule1: TSysModule;
    procedure dxBarButton6Click(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure dxBarButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_YsbZjpx_Main: TFrm_YsbZjpx_Main;

implementation

uses uFrm_Ysbzjpx_pxjh, uFrm_YsbZjpx_pxcx, uFrm_YsbZjpx_pxcjdj,
  uFrm_YsbZjpx_czzdj, uDm_YsbZjpx;

{$R *.dfm}

procedure TFrm_YsbZjpx_Main.dxBarButton6Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_YsbZjpx_Main.dxBarButton1Click(Sender: TObject);
begin
  Frm_ysbzjpx_pxjh:=TFrm_YsbZjpx_pxjh.Create(self);
  try
    Frm_ysbzjpx_pxjh.ShowModal;
  finally
    Frm_ysbzjpx_pxjh.Free;
  end;
end;

procedure TFrm_YsbZjpx_Main.dxBarButton2Click(Sender: TObject);
begin
  Frm_YsbZjpx_pxcx:=TFrm_YsbZjpx_pxcx.create(self);
  try
  Frm_YsbZjpx_pxcx.showmodal;
  finally
  Frm_YsbZjpx_pxcx.free;
  end;
end;

procedure TFrm_YsbZjpx_Main.dxBarButton3Click(Sender: TObject);
begin
  Frm_YsbZjpx_pxcjdj:=TFrm_YsbZjpx_pxcjdj.create(self);
  try
    Frm_YsbZjpx_pxcjdj.showmodal;
  finally
    Frm_YsbZjpx_pxcjdj.free;
  end;
end;

procedure TFrm_YsbZjpx_Main.dxBarButton7Click(Sender: TObject);
begin
  Frm_YsbZjpx_czzdj:=TFrm_YsbZjpx_czzdj.create(self);
  try
    Frm_YsbZjpx_czzdj.showmodal;
  finally
    Frm_YsbZjpx_czzdj.free;
  end;
end;

procedure TFrm_YsbZjpx_Main.FormCreate(Sender: TObject);
begin
  try
  dm_Ysbzjpx:=Tdm_Ysbzjpx.create(self);
  sysmodule1.login;
  except
    application.Terminate;
  end;

end;

procedure TFrm_YsbZjpx_Main.dxBarButton5Click(Sender: TObject);
begin
SysModule1.UserManager;
end;

end.