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

unit date;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, Menus, SUIMainMenu,
  SUIPopupMenu, ADCcode;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    DBMemo2: TDBMemo;
    suiPopupMenu1: TsuiPopupMenu;
    N1: TMenuItem;
    ADOTable1DSDesigner: TWideStringField;
    ADOTable1DSDesigner2: TMemoField;
    ADOTable1id: TAutoIncField;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
begin
  Form2.Caption := '添加代码';
  Form2.suiMemo1.Visible := true;
  Form2.suiEdit1.Visible := true;
  Form2.suiButton1.Visible := true;
  Form2.suiMemo1.Align := altop;
  Form2.suiMemo1.Height := 345;
  Form2.addsave.Visible := false;
  Form2.addmemo.Visible := false;
  Form2.added.Visible := false;
  Form2.suiButton2.Visible := false;
  Form2.Show;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  if N4.Caption = '窗口置顶' then
  begin
    Form1.FormStyle := fsStayOnTop;
    N4.Caption := '取消置顶';
  end
  else
  begin
    Form1.FormStyle := fsNormal;
    N4.Caption := '窗口置顶';
  end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  Form2.Show;
  Form2.Caption := '修改代码';
  Form2.addmemo.Show;
  Form2.added.Show;
  Form2.addsave.Show;
  Form2.suiButton2.Visible := false;
  Form2.suiButton1.Hide;
  Form2.suiMemo1.Hide;
  Form2.suiEdit1.Hide;
end;

procedure TForm1.N3Click(Sender: TObject);
begin

  Form2.Caption := '确定要删除吗？';
  Form2.addmemo.Show;
  Form2.added.Show;
  Form2.suiButton2.Visible := true;
  Form2.addsave.Hide;
  Form2.addsave.Caption := '删除';
  Form2.suiButton1.Hide;
  Form2.suiMemo1.Hide;
  Form2.suiEdit1.Hide;
  form2.addclear.Visible := false;
  Form2.Show;
end;

end.