u5_3.pas

前言 随着旅游业的发展

unit U5_3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls, ComCtrls,
  Menus, Buttons, ImgList;

type
  TF5_3 = class(TForm)
    Splitter1: TSplitter;
    CheckBox1: TCheckBox;
    Panel1: TPanel;
    Panel2: TPanel;
    TreeView1: TTreeView;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    SBTadd: TSpeedButton;
    SBTdel: TSpeedButton;
    SBThuifu: TSpeedButton;
    SBTsave: TSpeedButton;
    SBTexit: TSpeedButton;
    ImageList1: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTexitClick(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure SBTsaveClick(Sender: TObject);
    procedure SBTaddClick(Sender: TObject);
    procedure SBTdelClick(Sender: TObject);
    procedure DBGrid1ColEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F5_3: TF5_3;

implementation

uses UDmo;

{$R *.dfm}

procedure TF5_3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TF5_3.SBTexitClick(Sender: TObject);
begin
  if SBTsave.Enabled=true then
  begin
    try
      if MessageBox(Handle, '确认要保存数据吗？', '提示',
        MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
      dmo.ADOQuery1.Post;
    except
      messageBox(Handle,'输入有误，请从新输入','提示',
        MB_ICONQUESTION or MB_OKCANCEL);

    end;
  end;
  Close;
  Dmo.ADOQuery1.Close;
end;

procedure TF5_3.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  str:string;
  info:string;
begin
  str:=TreeView1.selected.Text;
  if str='菜肴' then info:='cy'
  else if str='餐桌号' then info:='cz'
  else if str='酒类' then info:='cj'
  else if str='会议室' then info:='kh'
  else if str='加床费' then info:='kj'
  else if str='其他商品' then info:='kq'
  else if str='房金' then info:='kf'
  else if str='手牌号' then info:='xs'
  else if str='消费及服务' then info:='xx'
  else if str='通信' then info:='st'
  else if str='网络室' then info:='sl'
  else if str='文字处理' then info:='sw'
  else if str='包厢费' then info:='yb'
  else info:='*';
  with dmo.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select sangpinName as ''代码'',mingcheng as ''名称'','
            +'danwei as ''单位'',yushe as ''预设单价'','
            +'quyu as ''区域'',louceng as ''楼层'','
            +'guige as ''规格'',renshu as ''人数'','
            +'tel as ''电话'',bumen as ''部门'' from jichu');
    sql.Add('where sangpinName like('''+info+'%'')');
    open;
    Edit;
  end;

end;

procedure TF5_3.SBTsaveClick(Sender: TObject);
begin
  try
    if MessageBox(Handle, '确认要保存数据吗？', '提示',
       MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
       dmo.ADOQuery1.Post;
  except
    messageBox(Handle,'输入有误，请从新输入','提示',
    MB_ICONQUESTION or MB_OKCANCEL);
  end;
end;

procedure TF5_3.SBTaddClick(Sender: TObject);
begin
  try
    SBTsave.Enabled:=true;
    dmo.ADOQuery1.Insert;
    
  except
  //
  end;
end;

procedure TF5_3.SBTdelClick(Sender: TObject);
begin
  SBtsave.Enabled:=false;
  try
    if MessageBox(Handle, '确认要删除该记录吗？', '提示',
       MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
        dmo.ADOQuery1.Delete;
  except
  //
  end;
end;

procedure TF5_3.DBGrid1ColEnter(Sender: TObject);
begin
    SBTsave.Enabled:=true;
end;

end.