unit addoiltype;

interface

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

type
  TForm_addoiltype = 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_addoiltype: TForm_addoiltype;

implementation
uses dm;
{$R *.dfm}

procedure TForm_addoiltype.FormShow(Sender: TObject);
begin
edit1.Text:='';
 with form_dm.ADOTable_oiltype do
    begin
        open;
        first;
        listbox1.Items.Clear;
        repeat
            listbox1.Items.Add(fieldbyname('name').AsString);
            Next;
        until eof;
     end;
end;

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

procedure TForm_addoiltype.BitBtn2Click(Sender: TObject);
begin
if listbox1.ItemIndex<>-1 then
begin
  with form_dm.ADOTable_oiltype do
  begin
    open;
    locate('name',listbox1.Items.Strings[listbox1.ItemIndex],[]);
    delete;
  end;
  form_addoiltype.OnShow(nil);
showmessage('刪除成功！');
end
else
begin
  showmessage('請選擇要刪除的油類型！');
  abort;
end;

end;

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

end.