unit bmdm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, qydm, DB, ImgList, Grids, DBGrids, StdCtrls, ExtCtrls, ComCtrls,
  ToolWin;

type                    
  Tf_bmdm = class(Tf_qydm)
    procedure B4Click(Sender: TObject);override;
    procedure B2Click(Sender: TObject);override;
    procedure B3Click(Sender: TObject);override;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_bmdm: Tf_bmdm;

implementation
  uses DataModal;
{$R *.dfm}

procedure Tf_bmdm.B4Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit1.SetFocus;
  with Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from t_bmdm');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
      DataSource1.DataSet := Data.Query1;
end;

procedure Tf_bmdm.B2Click(Sender: TObject);
begin
  if (Data.Query1.Active = True)and(Data.Query1.RecordCount>0) then
    if(Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'') then
    begin
      if Application.MessageBox('確實要修改當前記錄嗎?','提示',mb_YesNo)=ID_Yes then
      begin
        Try
          with Data.Query2 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('update t_bmdm set bmdm =:a,bmmc = :b where bmdm = :c');
            ParamByName('a').AsString := Trim(Edit1.Text);
            ParamByName('b').AsString := Trim(Edit2.Text);
            ParamByName('c').AsString := Trim(Data.Query1.Fields[0].AsString);
            ExecSQL;
          end;
          Application.MessageBox('修改成功.','提示',64);
          B4.OnClick(Sender);
        Except
          Application.MessageBox('修改失敗.','提示',64);
        end;
      end;
    end
    else
      Application.MessageBox('區域信息不完整.','提示',64)
  else
    Application.MessageBox('沒有可修改的數據.','提示',64);
end;

procedure Tf_bmdm.B3Click(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'') then
    Try
      with Data.Query2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert t_bmdm values(:a,:b)');
        ParamByName('a').AsString := Trim(Edit1.Text);
        ParamByName('b').AsString := Trim(Edit2.Text);
        ExecSQL;
      end;
      Application.MessageBox('操作成功.','提示',64);
      B4.OnClick(Sender);
      B3.Enabled := False;
    Except
      Application.MessageBox('操作失敗.','提示',64);
    End
  else
    Application.MessageBox('區域信息不能為空.','提示',64);

end;

end.