unit addtype2;

interface

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

type
  TForm_addtype2 = class(TForm)
    Panel1: TPanel;
    ListBox1: TListBox;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn_cancle: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn_cancleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_addtype2: TForm_addtype2;

implementation
uses dm;
{$R *.dfm}

procedure TForm_addtype2.FormShow(Sender: TObject);
begin
 with form_dm.ADOTable_type2 do
    begin
        open;
        first;
        listbox1.Items.Clear;
        repeat
            listbox1.Items.Add(form_dm.ADOTable_type2.fieldbyname('ccjl').AsString);
            form_dm.ADOTable_type2.Next;
        until eof;
     end;
end;

procedure TForm_addtype2.BitBtn1Click(Sender: TObject);
begin
if edit1.text='' then
begin
  showmessage('請輸入你要增加的類型！');
  edit1.setfocus;
  abort;
end;
with form_dm.ADOTable_type2 do
begin
  open;
  if locate('ccjl',edit1.Text,[]) then
  begin
    showmessage('您要增加的類型已經存在！');
    edit1.setfocus;
    abort;
  end;
  append;
  fieldvalues['ccjl']:=edit1.Text;
  post;
end;
form_addtype2.OnShow(nil);
showmessage('增加成功！');
end;

procedure TForm_addtype2.BitBtn2Click(Sender: TObject);
begin
if listbox1.ItemIndex<>-1 then
begin
  with form_dm.ADOTable_type2 do
  begin
    open;
    locate('ccjl',listbox1.Items.Strings[listbox1.ItemIndex],[]);
    delete;
  end;
end;
form_addtype2.OnShow(nil);
showmessage('刪除成功！');
end;

procedure TForm_addtype2.BitBtn_cancleClick(Sender: TObject);
begin
close;
end;

end.