unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit11;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
begin  //增加車位
  adotable1.Open;
  if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') then
    begin
       if not adotable1.Locate('addressid',edit1.Text,[locaseinsensitive]) then
         begin
         adotable1.Edit;
         adotable1.AppendRecord([edit1.Text,edit2.Text,0]);
         end
       else
         messagebox(handle,'該停車場(chǎng)編號(hào)已存在，請(qǐng)換個(gè)編號(hào)','系統(tǒng)提示',mb_ok+mb_iconinformation);
    end
  else
    messagebox(handle,'編號(hào)與地址不能為空','系統(tǒng)提示提示',mb_ok+mb_iconinformation);
end;

procedure TForm8.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
    if not(key in['0'..'9','a'..'z',#008]) then
    begin
      key:=#0;
     end
end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin  //刪除車位
  if adotable1.FieldByName('addresscase').Value=0 then
   begin
   adotable1.Edit;
   adotable1.Delete;
   adotable1.Next;
   end
   else
   messagebox(handle,'該車位正在使用不能刪除','系統(tǒng)提示',mb_ok+mb_iconinformation);
end;

procedure TForm8.DBGrid1CellClick(Column: TColumn);
begin
  if   not (adotable1.FieldByName('addressid').Value=null) then
  begin
  edit1.Text:=trim(adotable1.FieldByName('addressid').Value);
  edit2.Text:=trim(adotable1.FieldByName('address').Value);
  end;
end;

procedure TForm8.FormActivate(Sender: TObject);
begin
adotable1.Open;
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
adotable1.Close;
end;

end.