p_bjkb.pas

来自「Delphi语言版豆豆主站 http://www.ddvip.net ht」· PAS 代码 · 共 69 行

unit p_bjkb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, StdCtrls,p_mc, Buttons, XPMenu;

type
  Tf_bjkb = class(TF_mc)
    Bevel1: TBevel;
    Label1: TLabel;
    xq: TDBLookupComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    XPMenu1: TXPMenu;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_bjkb: Tf_bjkb;

implementation
uses p_dm,p_print;
{$R *.dfm}

procedure Tf_bjkb.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tf_bjkb.BitBtn1Click(Sender: TObject);
begin
 with dm do
 begin
   q_kcb.Close;
   q_kcb.Open;
   q_kcb.Filter:='xqh='''+xq.KeyValue+'''';
   q_kcb.Filtered:=true;
   f_print.QR.Preview;
   close;
 end;
end;

procedure Tf_bjkb.FormCreate(Sender: TObject);
begin
  inherited;
  with dm do
  begin
    t_xueqi.Filtered:=false;
    if t_xueqi.RecordCount=0 then
      bitbtn1.Enabled:=false
    else
      begin
        bitbtn1.Enabled:=true;
        xq.KeyValue:=t_xueqi['xqh'];
      end;
  end;
  f_bjkb.ShowModal;
end;

end.