ufrm_ysbzjpx_pxcjdj.~pas

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

unit uFrm_YsbZjpx_pxcjdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, dxDBTLCl,
  dxGrClms, DB, StdCtrls, RzLabel, dxdbtrel, RzButton, DBCtrls;

type
  TFrm_YsbZjpx_pxcjdj = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxLookupTreeView1: TdxLookupTreeView;
    RzLabel1: TRzLabel;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    dxDBGrid1bc: TdxDBGridMaskColumn;
    dxDBGrid1zgdm: TdxDBGridMaskColumn;
    dxDBGrid1xm: TdxDBGridMaskColumn;
    dxDBGrid1bmbm: TdxDBGridMaskColumn;
    dxDBGrid1bmmc: TdxDBGridMaskColumn;
    dxDBGrid1pxnr: TdxDBGridMemoColumn;
    dxDBGrid1pxss: TdxDBGridMaskColumn;
    dxDBGrid1pxbm: TdxDBGridMaskColumn;
    dxDBGrid1cyjf: TdxDBGridCheckColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    dxDBGrid1llcj: TdxDBGridMaskColumn;
    dxDBGrid1szcj: TdxDBGridMaskColumn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    DBNavigator1: TDBNavigator;
    Edit1: TEdit;
    Label1: TLabel;
    dxDBGrid1jfqk: TdxDBGridMaskColumn;
    dxDBGrid1Column14: TdxDBGridMaskColumn;
    RzLabel2: TRzLabel;
    DataSource3: TDataSource;
    dxLookupTreeView2: TdxLookupTreeView;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dxDBGrid1llcjCustomDrawCell(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
      AColumn: TdxTreeListColumn; ASelected, AFocused,
      ANewItemRow: Boolean; var AText: String; var AColor: TColor;
      AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_YsbZjpx_pxcjdj: TFrm_YsbZjpx_pxcjdj;

implementation

uses uDm_YsbZjpx_jfjfdj;

{$R *.dfm}

procedure TFrm_YsbZjpx_pxcjdj.FormCreate(Sender: TObject);
begin
  dm_ysbzjpx_jfjfdj:=tdm_ysbzjpx_jfjfdj.Create(self);
end;

procedure TFrm_YsbZjpx_pxcjdj.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm_ysbzjpx_jfjfdj.Free;
end;

procedure TFrm_YsbZjpx_pxcjdj.dxLookupTreeView1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  if dxLookupTreeView1.Text='' then
    exit;
  if DataSource3.DataSet.IsEmpty then
    dxLookupTreeView2.Text:=''
  else
    dxLookupTreeView2.Text:=DataSource3.DataSet.fieldbyname('bm_lookup').Value;
  dm_ysbzjpx_jfjfdj.pxcx(dxLookupTreeView1.Text);

end;

procedure TFrm_YsbZjpx_pxcjdj.RzBitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_YsbZjpx_pxcjdj.Edit1Change(Sender: TObject);
begin
  dm_ysbzjpx_jfjfdj.pysearch(edit1.Text);
end;

procedure TFrm_YsbZjpx_pxcjdj.RzBitBtn1Click(Sender: TObject);
begin
  if dxLookupTreeView1.Text='' then
     exit;
  if (dataSource2.DataSet.Active=false) and (dataSource2.DataSet.IsEmpty) then
     exit;
  dm_ysbzjpx_jfjfdj.jfjs(dxLookupTreeView1.Text);

end;

procedure TFrm_YsbZjpx_pxcjdj.dxDBGrid1llcjCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  if (AText='0') or (AText='0.00') then
    AText:=''
end;

end.