selpaytype.pas

来自「飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7」· PAS 代码 · 共 89 行

unit selPaytype;

interface

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

type
  TdlgSelPaytype = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    cmdOk: TBitBtn;
    cmdCancel: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    xSql:string;
    xParams1:string;
    Function GetXName:string;
    Function GetXOther:string;    
    Function GetXId:integer;
  public
    { Public declarations }
    property  xId :integer read GetXId ;
    property  xName :string read GetXName ;
    property  xOther :string read GetXOther;
    property  NewSql:string read xSql write xSql;
    property  sParams1:string write xParams1;
  end;

var
  dlgSelPaytype: TdlgSelPaytype;

implementation
uses dataModule1;
{$R *.DFM}

Function TDlgSelPaytype.GetXname:string;
begin
  result:=trim(dataE2.queryDlg.fieldbyname('Name').asstring);
end;

Function TDlgSelPaytype.GetXOther:string;
begin
  result:=trim(dataE2.queryDlg.fieldbyname('other').asstring);
end;

Function TDlgSelPaytype.GetXid:integer;
begin
  result:=dataE2.queryDlg.fieldbyname('id').asinteger;
end;

procedure TdlgSelPaytype.FormShow(Sender: TObject);
var
  sText:string;
  n:integer;
begin
  //repaint;
  with dataE2 do
  begin
    QueryDlg.close;
    sText:=trim(queryDlg.sql.text) ;//sql未变，不必重新初始化
    if (sText<>xSql) 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 TdlgSelPaytype.DBGrid1CellClick(Column: TColumn);
begin
  modalResult:=mrok;
end;

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

end.