memo.pas

来自「一个会员管理系统delphi源代码,非常好」· PAS 代码 · 共 60 行

unit memo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, StdCtrls, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
  cxGridCustomView, cxGrid, cxLookAndFeelPainters, cxContainer, cxTextEdit,
  cxMemo, cxDBEdit, cxButtons;

type
  Tfrmmemo = class(TForm)
    Label1: TLabel;
    cxButton1: TcxButton;
    memo1: TcxDBMemo;
    cxButton2: TcxButton;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmmemo: Tfrmmemo;

implementation

uses md;

{$R *.dfm}

procedure Tfrmmemo.cxButton1Click(Sender: TObject);
begin
  if dm1.qrymemo.State in [dsInsert, dsEdit] then
    Dm1.qrymemo.Post;
  dm1.qrymemo.close;
  close;
end;

procedure Tfrmmemo.cxButton2Click(Sender: TObject);
begin
  if dm1.qrymemo.State in [dsInsert, dsEdit] then
  begin
    Dm1.qrymemo.Post;
  end;
  Dm1.qrymemo.Edit;
end;

procedure Tfrmmemo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.