自制代码收集程序－数据库Access（二）

unit ADCcode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIEdit, SUIButton, StdCtrls, SUIMemo, DBCtrls, SUIDBCtrls, Mask;

type
  TForm2 = class(TForm)
    addsave: TsuiButton;
    addclear: TsuiButton;
    addmemo: TsuiDBMemo;
    added: TsuiDBEdit;
    suiMemo1: TsuiMemo;
    suiButton1: TsuiButton;
    suiEdit1: TsuiEdit;
    suiButton2: TsuiButton;
    procedure addsaveClick(Sender: TObject);
    procedure addclearClick(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses date;

{$R *.dfm}

procedure TForm2.addsaveClick(Sender: TObject);
begin
  if Form2.Caption = '修改代码' then
  begin
    Form1.ADOTable1.Edit;
    Form1.ADOTable1.SetFields([nil, added.Text, addmemo.Text]);
    Form1.ADOTable1.Post;
    showmessage('修改成功');
    close;
  end;
end;

procedure TForm2.addclearClick(Sender: TObject);
begin
  if Form2.Caption = '添加代码' then
  begin
    suiMemo1.Text := '';
    suiEdit1.Text := '';
  end
  else
  begin
    addmemo.Text := '';
    added.Text := '';
  end;
end;

procedure TForm2.suiButton1Click(Sender: TObject);
begin
  if Form2.Caption = '添加代码' then
    if (suiMemo1.Text = '') or (suiEdit1.Text = '') then
    begin
      showmessage('请输入标题和内容');
      exit;
    end
    else
    begin
      Form1.ADOTable1.Insert;
      Form1.ADOTable1.Fields[1].AsString := suiEdit1.Text;
      Form1.ADOTable1.Fields[2].AsString := suiMemo1.Text;
      Form1.ADOTable1.Post;
      showmessage('保存成功');
      suiMemo1.Text := '';
      suiEdit1.Text := '';
      close;
    end;
end;

procedure TForm2.suiButton2Click(Sender: TObject);
begin

  Form1.ADOTable1.Edit;
  Form1.ADOTable1.Delete;

  showmessage('删除成功');
  Form2.suiButton2.Visible := false;
  addclear.Visible := true;
  close;

end;

end.