ufrm_ysbzjpx_czzdj.pas

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

unit uFrm_YsbZjpx_czzdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxdbtrel,
  StdCtrls, RzLabel, dxDBTLCl, dxGrClms, DB, RzButton, DBCtrls;

type
  TFrm_YsbZjpx_czzdj = class(TForm)
    dxDBGrid1: TdxDBGrid;
    Panel4: TPanel;
    Panel1: TPanel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    dxDBGrid1zgdm: TdxDBGridMaskColumn;
    dxDBGrid1xm: TdxDBGridMaskColumn;
    dxDBGrid1pym: TdxDBGridMaskColumn;
    dxDBGrid1dwmc: TdxDBGridMaskColumn;
    dxDBGrid1xbdm: TdxDBGridMaskColumn;
    dxDBGrid1aqkpbh: TdxDBGridMaskColumn;
    dxDBGrid1csrq: TdxDBGridDateColumn;
    dxDBGrid1mzdm: TdxDBGridMaskColumn;
    dxDBGrid1cjgzsj: TdxDBGridDateColumn;
    dxDBGrid1jguan: TdxDBGridMaskColumn;
    dxDBGrid1jtzz: TdxDBGridMaskColumn;
    dxDBGrid1gz: TdxDBGridMaskColumn;
    dxDBGrid1rdsj: TdxDBGridDateColumn;
    dxDBGrid1debyyx: TdxDBGridMaskColumn;
    dxDBGrid1dezy: TdxDBGridMaskColumn;
    dxDBGrid1whcd: TdxDBGridMaskColumn;
    dxDBGrid1debysj: TdxDBGridDateColumn;
    dxDBGrid1zw: TdxDBGridMaskColumn;
    dxDBGrid1aqzgzh: TdxDBGridMaskColumn;
    dxDBGrid1jnjdjb: TdxDBGridMaskColumn;
    dxDBGrid1jnjdzh: TdxDBGridMaskColumn;
    RzLabel1: TRzLabel;
    dxLookupTreeView1: TdxLookupTreeView;
    DBNavigator1: TDBNavigator;
    RzBitBtn1: TRzBitBtn;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_YsbZjpx_czzdj: TFrm_YsbZjpx_czzdj;

implementation

uses uDm_Ysbzjpx_czzdj;

{$R *.dfm}

procedure TFrm_YsbZjpx_czzdj.FormCreate(Sender: TObject);
begin
  dm_ysbZjpx_czzdj:=Tdm_ysbZjpx_czzdj.create(self);
end;

procedure TFrm_YsbZjpx_czzdj.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm_ysbZjpx_czzdj.free;
end;

procedure TFrm_YsbZjpx_czzdj.dxLookupTreeView1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  if dxLookupTreeView1.Text='' then
    exit;
  dm_ysbzjpx_czzdj.cx(dxLookupTreeView1.Text);

end;

procedure TFrm_YsbZjpx_czzdj.RzBitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_YsbZjpx_czzdj.Edit1Change(Sender: TObject);
begin
  dm_ysbzjpx_czzdj.pysearch(edit1.Text);
end;

end.