unit Unit9;

interface

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

type
  Tfrmedeqp = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    ComboBox1: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    tys:integer;
  public
    { Public declarations }
   property ty:integer read tys write tys;
  end;

var
  frmedeqp: Tfrmedeqp;

implementation

uses Unit3;

{$R *.dfm}

procedure Tfrmedeqp.FormShow(Sender: TObject);
var qu:tadoquery;
begin
 edit1.Enabled:=tys=1;
 if tys<>1 then //讀取
 begin
  qu:=tadoquery.Create(nil);
  qu.Connection:=dm1.ADOCon1;
  qu.SQL.Text:='select * from equipments where id='''
   +trim(edit1.Text)+'''';
  qu.Open; 
  edit2.text:=qu.fieldbyname('roomnum').AsString;
  combobox1.ItemIndex:=combobox1.Items.IndexOf(trim(qu.fieldbyname('status').AsString));
  qu.close;
  qu.free;
 end
 else
  combobox1.ItemIndex:=0;
end;

procedure Tfrmedeqp.BitBtn1Click(Sender: TObject);
var s:string;
begin
 if trim(edit1.Text)='' then
 begin
  edit1.SetFocus;
  application.MessageBox('請輸入編號','',64);
  modalresult:=mrnone;
  exit;
 end;
 if trim(edit2.Text)='' then
 begin
  edit2.SetFocus;
  application.MessageBox('請輸入房號','',64);
  modalresult:=mrnone;
  exit;
 end;
 if ty=1 then //新
 begin
  if not dm1.ADOCon1.Execute('select id from equipments where id='''
   +trim(edit1.Text)+'''').EOF then
  begin
   edit1.SetFocus;
   application.MessageBox('已有此設備號','',64);
   modalresult:=mrnone;
   exit;
  end;
  s:='insert into equipments (id,roomnum,status) values ('''
   +trim(edit1.Text)+''','''+trim(edit2.Text)+''','''
   +combobox1.Text+''')';
  dm1.ADOCon1.Execute(s);
 end
 else
 begin
  s:='update  equipments  set roomnum='''+trim(edit2.Text)
   +''',status='''+combobox1.Text+''' where id='''+trim(edit1.Text)+'''';
  dm1.ADOCon1.Execute(s);
 end;
end;

end.