custselect.pas

来自「医药连锁经营管理系统源码」· PAS 代码 · 共 51 行

unit CustSelect;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGridEh, DbUtilsEh, EhLibCDS, xEhLibCtl, DB, DBClient, MConnect,
  RzButton, StdCtrls, RzLabel, Mask, RzEdit,xBaseFrm,iMainFrm;

type
  TFmCustSelect = class(TXBaseForm)
    Panel1: TPanel;
    xDBGridEh1: TxDBGridEh;
    Client_Cust: TClientDataSet;
    CommCnn: TDCOMConnection;
    Ds_Cust: TDataSource;
    Client_CustCustNo: TStringField;
    Client_CustCustName: TStringField;
    Client_CustFullName: TStringField;
    procedure xDBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    class function ClassDo(iType: Byte;Value: Variant): Variant;
  end;

var
  FmCustSelect: TFmCustSelect;

implementation

{$R *.dfm}
class function TFmCustSelect.ClassDo(iType: Byte;Value: Variant): Variant;
begin
  With TFmCustSelect.Create(application) do
  begin
   if showmodal=mrok then
    if modalresult=mrok then
     begin
      Result:=Client_CustCustName.Value;
     end;
  end;
end;

procedure TFmCustSelect.xDBGridEh1DblClick(Sender: TObject);
begin
  ModalResult:=mrOk;
end;

end.