ufrmqd.pas

一个会议签到系统

unit uFrmQD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ImgList, Buttons;

type
  TFrmQD = class(TForm)
    Timer1: TTimer;
    IMGTree: TImageList;
    TrvHY: TTreeView;
    Bevel1: TBevel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
   Procedure PGetHY();
    { Public declarations }
  end;

var
  FrmQD: TFrmQD;

implementation

uses uDMOA, uDataOA, uFunSys, uFrmQDShow;

{$R *.dfm}

{ TFrmQD }

procedure TFrmQD.PGetHY;
var
  Str:String;
begin
  Str:='Select * from TAD02_HY order by sBM';
  FCarryOutSQL(DMOA.ADOQry ,Str,True);
  PCuiFengFillTreeD(TrvHY,DMOA.ADOQry,'sBM','sMC');
end;

procedure TFrmQD.FormShow(Sender: TObject);
begin
  PGetHY();
end;

procedure TFrmQD.SpeedButton1Click(Sender: TObject);
var
  Str,S:String;
  FrmX:TFrmQDShow;
begin
  if TrvHY.Selected = nil then Exit;
  if TrvHY.Selected.AbsoluteIndex = 0 then Exit;

  S:=MyCutString(True,TrvHY.Selected.Text);



  FrmX:=TFrmQDShow.Create(Application);
  FrmX.Visible:=False;
  FrmX.BorderStyle:=bsDialog;
  FrmX.Position:=poScreenCenter;
  FrmX.sSYSHYBM:=S;
  FrmX.sSYSHYMC:=MyCutString(False,TrvHY.Selected.Text);
  FrmX.LblBT.Caption:=FrmX.sSYSHYMC;   
  FrmX.PRenInit;
  FrmX.ShowModal; 
end;

end.