memo.pas

一个图书批发商的通用软件

unit Memo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Buttons;

type
  TfrmMemo = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    qryMemo: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMemo: TfrmMemo;

  procedure loadeMemo;
  procedure frmMemoShowmal;
implementation

uses Data;

{$R *.dfm}

procedure loadeMemo;
var qrymemo :tadoquery;
begin
  qrymemo :=TADOQuery.Create(application);
  qrymemo.Connection :=dmData.adcDatabase;
  try
    with qrymemo do
    begin
      Close;
      sql.Text :='Select * from tbmemo';
      open;
      strmemo:= fieldbyname('memo').AsString;

     end;
  finally
    qrymemo.Free;
  end;
end;
procedure TfrmMemo.FormCreate(Sender: TObject);
begin
  memo1.Text :=strmemo;
end;

procedure frmMemoShowmal;
begin
   frmMemo :=TfrmMemo.Create(Application);
  with frmmemo do
  try
    ShowModal;
  finally
    free;
  end;

end;
procedure TfrmMemo.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TfrmMemo.BitBtn1Click(Sender: TObject);
var qrymemo :tadoquery;
begin
  qrymemo :=TADOQuery.Create(application);
  qrymemo.Connection :=dmData.adcDatabase;
  try
    with qrymemo do
    begin
      Close;
      sql.Text :='Select * from tbmemo';
      open;
      edit;
      fieldbyname('memo').AsString :=Memo1.Text;
      strmemo :=Memo1.Text;
      post;
     end;
  finally
    qrymemo.Free;
  end;
  close;
end;

end.