udm_ysbzjpx_jfjfdj.~pas

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

unit uDm_YsbZjpx_jfjfdj;

interface

uses
  SysUtils, Classes, DB, ADODB,dialogs;

type
  Tdm_ysbzjpx_jfjfdj = class(TDataModule)
    dst_jfjf: TADODataSet;
    dst_bc: TADODataSet;
    dst_jfjfbc: TStringField;
    dst_jfjfzgdm: TStringField;
    dst_jfjfxm: TStringField;
    dst_jfjfbmbm: TStringField;
    dst_jfjfbmmc: TStringField;
    dst_jfjfpxnr: TMemoField;
    dst_jfjfllcj: TBCDField;
    dst_jfjfszcj: TBCDField;
    dst_jfjfpxss: TStringField;
    dst_jfjfpxbm: TStringField;
    dst_jfjfjfqk: TBCDField;
    dst_jfjfcyjf: TBooleanField;
    dst_jfjfbz: TStringField;
    dst_bcBC: TStringField;
    dst_bcPXKSSJ: TDateTimeField;
    dst_bcPXJSSJ: TDateTimeField;
    dst_jfjfpym: TStringField;
    sp_jfjs: TADOStoredProc;
    dst_jfjfzf_calc: TFloatField;
    qry_bmbm: TADOQuery;
    ds_bc: TDataSource;
    dst_zzjg: TADODataSet;
    dst_zzjgDM: TStringField;
    dst_zzjgDMYY: TStringField;
    dst_zzjgPYM: TStringField;
    dst_zzjgJGLB: TStringField;
    dst_zzjgFLAG: TStringField;
    procedure dst_jfjfCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure pxcx(bc:string);
    procedure pysearch(pym:string);
    procedure jfjs(bc:string);
    { Public declarations }
  end;

var
  dm_ysbzjpx_jfjfdj: Tdm_ysbzjpx_jfjfdj;

implementation
{$R *.dfm}
uses uDm_YsbZjpx;

procedure Tdm_ysbzjpx_jfjfdj.pxcx(bc:string);
var
  bmbm:string;
begin
 if not qry_bmbm.IsEmpty then
    bmbm:=qry_bmbm.fieldbyname('bmbm').Value
 else
 begin
    with dst_jfjf do
    begin
      close;
      parameters.ParamByName('s_bc').Value:=bc;
      parameters.ParamByName('s_bmbm').Value:='';
      open;
    end;
    exit;
 end;
  with dst_jfjf do
  begin
    close;
    parameters.ParamByName('s_bc').Value:=bc;
    parameters.ParamByName('s_bmbm').Value:=bmbm;
    open;
  end;
end;

procedure Tdm_ysbzjpx_jfjfdj.pysearch(pym:string);
begin
  if  pym='' then
    dst_jfjf.Filtered:=false
  else
  begin
    dst_jfjf.Filter:= 'pym like '+quotedstr(pym+'%');
    dst_jfjf.Filtered:=true;
  end
end;

procedure Tdm_ysbzjpx_jfjfdj.jfjs(bc:string);
var
  bmbm:string;
begin
 if not qry_bmbm.IsEmpty then
    bmbm:=qry_bmbm.fieldbyname('bmbm').Value
 else
   exit;
  with  sp_jfjs do
  begin
    close;
    parameters.ParamByName('@bc').Value:=bc;
    parameters.ParamByName('@bmbm').Value:=bmbm;
    execproc;
  end;    // with
  with dst_jfjf do
  begin
    close;
    open;
  end;    // with
end;



procedure Tdm_ysbzjpx_jfjfdj.dst_jfjfCalcFields(DataSet: TDataSet);
begin
  dst_jfjf.FieldByName('zf_calc').Value:=dst_jfjf.FieldByName('llcj').Value+dst_jfjf.FieldByName('szcj').Value;
end;

procedure Tdm_ysbzjpx_jfjfdj.DataModuleCreate(Sender: TObject);
begin

  dst_bc.Open;
  qry_bmbm.Open;
  dst_zzjg.Open;
end;

end.