ufrm_ysbzjpx_pxdj.pas

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

unit uFrm_YsbZjpx_pxdj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, DB,
  dxdbtrel, dxDBTLCl, dxGrClms, DBCtrls, RzLabel, Mask, RzEdit, RzDBEdit,
  RzButton, dxLayout, dxGrClEx, Buttons, ImgList;

type
  TFrm_YsbZjpx_pxdj = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    dxDBGrid1: TdxDBGrid;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    dxDBGrid2: TdxDBGrid;
    Panel4: TPanel;
    Label1: TLabel;
    dxLookupTreeView1: TdxLookupTreeView;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    dxDBGrid1zgdm: TdxDBGridMaskColumn;
    dxDBGrid1xm: TdxDBGridMaskColumn;
    dxDBGrid1pym: TdxDBGridMaskColumn;
    dxDBGrid1dwbm: TdxDBGridMaskColumn;
    dxDBGrid1dwmc: TdxDBGridMaskColumn;
    dxDBGrid1xbdm: TdxDBGridMaskColumn;
    dxDBGrid1aqkpbh: TdxDBGridMaskColumn;
    dxDBGrid1csrq: TdxDBGridDateColumn;
    dxDBGrid1mzdm: TdxDBGridMaskColumn;
    dxDBGrid1cjgzsj: TdxDBGridDateColumn;
    dxDBGrid1jguan: TdxDBGridMaskColumn;
    dxDBGrid1jtzz: TdxDBGridMaskColumn;
    dxDBGrid1gz: TdxDBGridMaskColumn;
    dxDBGrid1rdsj: TdxDBGridDateColumn;
    dxDBGrid1debyyx: TdxDBGridMaskColumn;
    dxDBGrid1dezy: TdxDBGridMaskColumn;
    dxDBGrid1whcd: TdxDBGridMaskColumn;
    dxDBGrid1debysj: TdxDBGridDateColumn;
    dxDBGrid1zw: TdxDBGridMaskColumn;
    dxDBGrid1aqzgzh: TdxDBGridMaskColumn;
    dxDBGrid1jnjdjb: TdxDBGridMaskColumn;
    dxDBGrid1jnjdzh: TdxDBGridMaskColumn;
    DBNavigator1: TDBNavigator;
    DataSource3: TDataSource;
    dxDBGrid2bc: TdxDBGridMaskColumn;
    dxDBGrid2pxnr: TdxDBGridMemoColumn;
    dxDBGrid2pxbm: TdxDBGridMaskColumn;
    dxDBGrid2cyjf: TdxDBGridCheckColumn;
    dxDBGrid2bz: TdxDBGridMaskColumn;
    RzDBEdit1: TRzDBEdit;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit11: TRzDBEdit;
    RzDBEdit12: TRzDBEdit;
    DBNavigator2: TDBNavigator;
    RzBitBtn1: TRzBitBtn;
    dxDBGrid2zgdm: TdxDBGridExtLookupColumn;
    dxDBGridLayoutList1: TdxDBGridLayoutList;
    dxDBGridLayoutList1Item1: TdxDBGridLayout;
    dxDBGrid2pxss: TdxDBGridPickColumn;
    dxDBGrid2llcj: TdxDBGridMaskColumn;
    dxDBGrid2szcj: TdxDBGridMaskColumn;
    dxDBGrid2Column11: TdxDBGridMaskColumn;
    dxDBGrid2Column12: TdxDBGridMaskColumn;
    dxDBGrid2jfqk: TdxDBGridMaskColumn;
    Label2: TLabel;
    Edit1: TEdit;
    Panel5: TPanel;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    ImageList1: TImageList;
    BitBtn1: TBitBtn;
    procedure dxLookupTreeView1CloseUp(Sender: TObject; Accept: Boolean);
    procedure dxDBGrid1DblClick(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure dxDBGrid2llcjCustomDrawCell(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);
    procedure Edit1Change(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    FPxbc: string;
    { Private declarations }
  public
    property Pxbc: string read FPxbc write FPxbc;
    { Public declarations }
  end;

var
  Frm_YsbZjpx_pxdj: TFrm_YsbZjpx_pxdj;

implementation

uses uDm_ysbZjpx_px;

{$R *.dfm}

procedure TFrm_YsbZjpx_pxdj.dxLookupTreeView1CloseUp(Sender: TObject;
  Accept: Boolean);
begin
  dm_ysbzjpx_px.zgxxcx;

end;

procedure TFrm_YsbZjpx_pxdj.dxDBGrid1DblClick(Sender: TObject);
begin
  dm_ysbzjpx_px.PxjlInsert;
end;

procedure TFrm_YsbZjpx_pxdj.RzBitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_YsbZjpx_pxdj.dxDBGrid2llcjCustomDrawCell(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;

procedure TFrm_YsbZjpx_pxdj.Edit1Change(Sender: TObject);
begin
  dm_ysbzjpx_px.pysearch(edit1.Text);
end;

procedure TFrm_YsbZjpx_pxdj.RzBitBtn2Click(Sender: TObject);
begin
  dxdbgrid1.SelectAll;
end;

procedure TFrm_YsbZjpx_pxdj.RzBitBtn3Click(Sender: TObject);
begin
  dxdbgrid1.ClearSelection;
end;

procedure TFrm_YsbZjpx_pxdj.RzBitBtn4Click(Sender: TObject);
var
  I: Integer;

begin

  for I := 0 to dxDBGrid1.SelectedCount - 1 do    // Iterate
  begin
    dxDBGrid1.DataSource.DataSet.GotoBookmark(pointer(dxDBGrid1.SelectedRows[i]));
    dm_ysbzjpx_px.PxjlInsert;
  end;    // for
{  for I := 0 to dxDBGrid1.Count - 1 do
  begin
    if dxDBGrid1.Items[i].Selected then
      dm_ysbzjpx_px.PxjlInsert;
    dxDBGrid1.GotoNext(true);
  end;    // for

 }

end;

procedure TFrm_YsbZjpx_pxdj.BitBtn1Click(Sender: TObject);
begin
  if MessageBox(Handle, PChar('是否删除，请确认！'), PChar('提示'), 321)=mrOK then
  begin
    dxDBGrid2.DeleteSelection;
    DBNavigator1.SetFocus;
  end;
end;

end.