selbill.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit selBill;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, Grids, DBGrids, Buttons, DBGridEh;

type
  TdlgSelBill = class(TForm)
    cmdOk: TBitBtn;
    cmdCancel: TBitBtn;
    DBGridEh1: TDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  protected
    xSql:string;
    xCaption:string;
    xParams1:integer;
    //xParams1:string;
    Function GetInvoNo:string;
    Function GetBillId:integer;
  public
    { Public declarations }
    property  BillId :integer read GetBillId ;
    property  InvoNo :string read GetInvoNo ;
    property  NewSql:string read xSql write xSql;
    //property  sParams1:string write xParams1;
    property  nParams1:integer write xParams1;
    property  dlgCaption:string read xcaption write xCaption;
  end;

var
  dlgSelBill: TdlgSelBill;

implementation
uses datamodule1;
{$R *.DFM}

Function TdlgSelBill.GetInvoNo:string;
begin
  result:=trim(DataE2.queryDlg.fieldbyname('InvoNo').asstring);
end;

Function TdlgSelBill.GetBillid:integer;
begin
  result:=DataE2.queryDlg.fieldbyname('billid').asinteger;
end;

procedure TdlgSelBill.FormShow(Sender: TObject);
var
  sText:string;
  n:integer;
begin
  caption:=xCaption;
  with DataE2 do
  begin
    QueryDlg.close;
    sText:=trim(queryDlg.sql.text) ;//sql未变，不必重新初始化
    if (sText<>xSql) or (xCaption='转房') then
    begin
      queryDlg.sql.clear;
      queryDlg.sql.add(xSql);
    end;
    n:=pos(':',xSql);
    if n>0 then //有参数
       queryDlg.Parameters[0].value:=xParams1;
    QueryDlg.open;
  end;
end;

procedure TdlgSelBill.DBGrid1CellClick(Column: TColumn);
begin
  modalResult:=mrok;
end;

procedure TdlgSelBill.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then modalResult:=mrok;
end;

end.