udm_ysbzjpx_pxjh.pas

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

unit uDm_ysbZjpx_pxjh;

interface

uses
  SysUtils, Classes, DB, ADODB,dialogs,windows;

type
  TDm_ysbZjpx_pxjh = class(TDataModule)
    dst_pxjh: TADODataSet;
    dst_pxjhyyyymm: TStringField;
    dst_pxjhpxnr: TBlobField;
  private
    { Private declarations }
  public
    procedure cx(yyyymm:string);
    function New(yyyymm:string): Boolean;
    { Public declarations }
  end;

var
  Dm_ysbZjpx_pxjh: TDm_ysbZjpx_pxjh;

implementation

uses uDm_YsbZjpx;

procedure TDm_ysbZjpx_pxjh.cx(yyyymm:string);
begin
  with dst_pxjh do
  begin
    close;
    parameters.ParamByName('s_yyyymm').Value:=yyyymm;
    open;
  end;
end;

function TDm_ysbZjpx_pxjh.New(yyyymm:string): Boolean;
begin
  cx(yyyymm);
  if dst_pxjh.IsEmpty then
  begin
    dst_pxjh.Insert;
    dst_pxjh.FieldByName('yyyymm').Value:=yyyymm;
    result:=true;
  end
  else
  begin
    showmessage( PChar(copy(yyyymm,1,4)+'年'+copy(yyyymm,5,2)+'月数据已存在！'));
    result:=false;
  end;

end;


{$R *.dfm}
end.