udm_ysbzjpx_px.pas

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

unit uDm_ysbZjpx_px;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm_ysbZjpx_px = class(TDataModule)
    dst_px: TADODataSet;
    dst_zgxx: TADODataSet;
    dst_bc: TADODataSet;
    dst_pxbc: TStringField;
    dst_pxzgdm: TStringField;
    dst_pxxm: TStringField;
    dst_pxpxnr: TMemoField;
    dst_pxllcj: TBCDField;
    dst_pxszcj: TBCDField;
    dst_pxpxss: TStringField;
    dst_pxpxbm: TStringField;
    dst_pxjfqk: TBCDField;
    dst_pxcyjf: TBooleanField;
    dst_pxbz: TStringField;
    dst_zzjg: TADODataSet;
    dst_zzjgDM: TStringField;
    dst_zzjgDMYY: TStringField;
    dst_zzjgPYM: TStringField;
    dst_zzjgJGLB: TStringField;
    dst_zzjgFLAG: TStringField;
    dst_zgxxzgdm: TStringField;
    dst_zgxxxm: TStringField;
    dst_zgxxpym: TStringField;
    dst_zgxxdwbm: TStringField;
    dst_zgxxdwmc: 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;
    dst_whcddm: TADODataSet;
    dst_xbbm: TADODataSet;
    dst_zgxxxb_lookup: TStringField;
    dst_zgxxwhcd_lookup: TStringField;
    dst_pxbmbm: TStringField;
    dst_pxbmmc: TStringField;
    dst_pxpym: TStringField;
    procedure dst_pxNewRecord(DataSet: TDataSet);
    procedure dst_pxzgdmChange(Sender: TField);
    procedure DataModuleCreate(Sender: TObject);
  private
    Fpxbc: string;
    { Private declarations }
  public
    procedure pxcx(bc:string);
    procedure zgxxcx;
    procedure PxjlInsert;
    procedure pysearch(pym:string);
    property pxbc: string read Fpxbc write Fpxbc;
    { Public declarations }
  end;

var
  dm_ysbZjpx_px: Tdm_ysbZjpx_px;

implementation

uses uDm_YsbZjpx;

procedure Tdm_ysbZjpx_px.pxcx(bc:string);
begin
  with dst_px do
  begin
    close;
    parameters.ParamByName('s_bc').Value:=bc;
    open;
  end;
end;

procedure Tdm_ysbZjpx_px.zgxxcx;
begin
  if (dst_zzjg.Active) and (not dst_zzjg.IsEmpty) then
  with dst_zgxx do
  begin
    close;
    parameters.ParamByName('dm').Value:=dst_zzjg.FieldByName('dm').Value;
    open;
  end;
end;

{$R *.dfm}

procedure Tdm_ysbZjpx_px.dst_pxNewRecord(DataSet: TDataSet);
begin
  dst_px.FieldByName('bc').Value:=pxbc;
end;

procedure Tdm_ysbZjpx_px.PxjlInsert;
begin
  if not dst_zgxx.IsEmpty then
    if dst_px.Locate('zgdm',dst_zgxx.FieldByName('zgdm').Value,[]) then
      exit
    else
    begin
      dst_px.Insert;
      dst_px.FieldByName('zgdm').Value:=dst_zgxx.FieldByName('zgdm').Value;
    end;
end;

procedure Tdm_ysbZjpx_px.dst_pxzgdmChange(Sender: TField);
begin
  dst_px.FieldByName('xm').Value:=dst_zgxx.fieldbyname('xm').Value;
  dst_px.FieldByName('bmbm').Value:=dst_zgxx.fieldbyname('dwbm').Value;
  dst_px.FieldByName('bmmc').Value:=dst_zgxx.fieldbyname('dwmc').Value;
  dst_px.FieldByName('pym').Value:=dst_zgxx.fieldbyname('pym').Value;  
end;

procedure Tdm_ysbZjpx_px.DataModuleCreate(Sender: TObject);
begin
  dst_whcddm.Open;
  dst_bc.Open;
  dst_xbbm.Open;
  dst_zzjg.Open;
end;

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

end;

end.