di_dbmemofield.pas

来自「亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能」· PAS 代码 · 共 64 行

unit DI_DBMemoField;

{
代码单元名称：通用数据登录工具文本字段编辑窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：王树润
时间：2001,1,30
}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, DI_Main;

type
  TDI_DfmDBMemoField = class(TForm)
    DBMemo1: TDBMemo;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    DI_DfmMain: TDI_DfmMain;
    FieldName: string;
    constructor Create(Owner: TComponent; AFieldName: string; var ADI_DfmMain:
      TDI_DfmMain); overload;
  end;

implementation

uses DI_DataModul1;

{$R *.DFM}

{ TDfmDBMemoField }

constructor TDI_DfmDBMemoField.Create(Owner: TComponent; AFieldName: string; var
  ADI_DfmMain: TDI_DfmMain);
begin
  inherited Create(Owner);
  FieldName := AFieldName;
  DI_DfmMain := ADI_DfmMain;
end;

procedure TDI_DfmDBMemoField.FormShow(Sender: TObject);
begin
  DBMemo1.DataSource := DI_DfmDataModule1.TTableDataSource;
  DBMemo1.DataField := FieldName;
end;

procedure TDI_DfmDBMemoField.Button1Click(Sender: TObject);
begin
  DBMemo1.DataField := '';
  DI_DfmMain.DI_DfmMain_ActiveMemoNumber :=
    DI_DfmMain.DI_DfmMain_ActiveMemoNumber - 1;
  Close;
end;

end.