ufrm_ysbzjpx_pxcx.pas

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

unit uFrm_YsbZjpx_pxcx;

interface

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

type
  TFrm_YsbZjpx_pxcx = class(TForm)
    dxDBGrid1: TdxDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    dxLookupTreeView1: TdxLookupTreeView;
    RzBitBtn4: TRzBitBtn;
    DataSource1: TDataSource;
    RzLabel1: TRzLabel;
    DataSource2: TDataSource;
    dxDBGrid1bc: TdxDBGridMaskColumn;
    dxDBGrid1zgdm: TdxDBGridMaskColumn;
    dxDBGrid1xm: TdxDBGridMaskColumn;
    dxDBGrid1pxnr: TdxDBGridMemoColumn;
    dxDBGrid1pxss: TdxDBGridMaskColumn;
    dxDBGrid1pxbm: TdxDBGridMaskColumn;
    dxDBGrid1cyjf: TdxDBGridCheckColumn;
    dxDBGrid1bz: TdxDBGridMaskColumn;
    dxDBGrid1Column12: TdxDBGridMaskColumn;
    dxDBGrid1llcj: TdxDBGridMaskColumn;
    dxDBGrid1szcj: TdxDBGridMaskColumn;
    dxDBGrid1jfqk: TdxDBGridMaskColumn;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn3Click(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_pxcx: TFrm_YsbZjpx_pxcx;

implementation

uses uFrm_YsbZjpx_pxdj, uDm_ysbZjpx_px, uFrm_YsbZjpx_bcwh;

{$R *.dfm}

procedure TFrm_YsbZjpx_pxcx.RzBitBtn1Click(Sender: TObject);
begin

  if dxLookupTreeView1.Text='' then
    exit;
  if dataSource2.DataSet.Active=false then
    exit;
  Frm_YsbZjpx_pxdj:=TFrm_YsbZjpx_pxdj.create(self);
  dm_Ysbzjpx_px.pxbc:=dxLookupTreeView1.Text;
//  Frm_YsbZjpx_pxdj.Pxbc:=dxLookupTreeView1.Text;
  try
    Frm_YsbZjpx_pxdj.showmodal;
  finally
    Frm_YsbZjpx_pxdj.free;
  end;
end;

procedure TFrm_YsbZjpx_pxcx.RzBitBtn4Click(Sender: TObject);
begin
  Frm_YsbZjpx_bcwh:=TFrm_YsbZjpx_bcwh.create(self);
  try
    Frm_YsbZjpx_bcwh.showmodal;
  finally
    Frm_YsbZjpx_bcwh.free;
  end;
end;

procedure TFrm_YsbZjpx_pxcx.dxLookupTreeView1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  if dxLookupTreeView1.Text='' then
    exit;
  dm_ysbzjpx_px.pxcx(dxLookupTreeView1.Text);
end;

procedure TFrm_YsbZjpx_pxcx.FormCreate(Sender: TObject);
begin
  dm_ysbZjpx_px:=tdm_ysbZjpx_px.Create(self);
end;

procedure TFrm_YsbZjpx_pxcx.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dm_ysbZjpx_px.Free;
end;

procedure TFrm_YsbZjpx_pxcx.RzBitBtn3Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_YsbZjpx_pxcx.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.