udm_ysbzjpx_czzdj.pas

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

unit uDm_Ysbzjpx_czzdj;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm_ysbZjpx_czzdj = class(TDataModule)
    dst_zgxx: TADODataSet;
    dst_bc: TADODataSet;
    dst_zgxxzgdm: TStringField;
    dst_zgxxxm: TStringField;
    dst_zgxxpym: TStringField;
    dst_zgxxbmbm: TStringField;
    dst_zgxxbmmc: TStringField;
    dst_zgxxxbdm: TStringField;
    dst_zgxxaqkpbh: TStringField;
    dst_zgxxcsrq: TDateTimeField;
    dst_zgxxmzdm: TStringField;
    dst_zgxxcjgzsj: TDateTimeField;
    dst_zgxxjguan: TStringField;
    dst_zgxxjtzz: TStringField;
    dst_zgxxgz: TStringField;
    dst_zgxxrdsj: TDateTimeField;
    dst_zgxxdebyyx: TStringField;
    dst_zgxxdezy: TStringField;
    dst_zgxxwhcd: TStringField;
    dst_zgxxdebysj: TDateTimeField;
    dst_zgxxzw: TStringField;
    dst_zgxxaqzgzh: TStringField;
    dst_zgxxjnjdjb: TStringField;
    dst_zgxxjnjdzh: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure cx(bc:string);
    procedure pySearch(pym:string);
    { Public declarations }
  end;

var
  dm_ysbZjpx_czzdj: Tdm_ysbZjpx_czzdj;

implementation

procedure Tdm_ysbZjpx_czzdj.cx(bc:string);
begin
  with dst_zgxx do
  begin
    close;
    parameters.ParamByName('s_bc').Value:=bc;
    open;
  end;
end;

{$R *.dfm}

procedure Tdm_ysbZjpx_czzdj.DataModuleCreate(Sender: TObject);
begin
  dst_bc.Open;
end;

procedure Tdm_ysbZjpx_czzdj.pySearch(pym:string);
begin
  if  pym='' then
    dst_zgxx.Filtered:=false
  else
  begin
    dst_zgxx.Filter:= 'pym like '+quotedstr(pym+'%');
    dst_zgxx.Filtered:=true;
  end

end;

end.