udm_ysbzjpx_czzdj.~pas

来自「运输培训管理束）录像等四个按钮。 [Conferencing_Vidio_s」· ~PAS 代码 · 共 65 行

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);
    { 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;

end.