roomkindunit.~pas

很好地delphi书籍源码

unit RoomKindUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin, DBActns, ActnList;

type
  TFrmRoomKind = class(TForm)
    DBGrid1: TDBGrid;
    ToolBar1: TToolBar;
    AddTB: TToolButton;
    DelTB: TToolButton;
    ImageList1: TImageList;
    ModTB: TToolButton;
    SaveTB: TToolButton;
    ExitTB: TToolButton;
    StatusBar1: TStatusBar;
    ActionList1: TActionList;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    procedure FormCreate(Sender: TObject);
    procedure ExitTBClick(Sender: TObject);
    procedure DataSetInsert1Execute(Sender: TObject);
    procedure DataSetDelete1Execute(Sender: TObject);
    procedure DataSetEdit1Execute(Sender: TObject);
    procedure DataSetPost1Execute(Sender: TObject);
  private
    procedure ReFresh;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmRoomKind: TFrmRoomKind;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TFrmRoomKind.FormCreate(Sender: TObject);
begin
  ReFresh;
end;

procedure TFrmRoomKind.ReFresh;
begin
  DataModule1.tbHotelKind.Open;
    DBGrid1.Columns[0].Title.caption:='客房类别';
    DBGrid1.Columns[0].Title.Alignment:=taCenter;
    DBGrid1.Columns[0].Alignment:=taCenter;
    DBGrid1.Columns[1].Title.caption:='租用价格';
    DBGrid1.Columns[1].Title.Alignment:=taCenter;
    DBGrid1.Columns[1].Alignment:=taCenter;
end;

procedure TFrmRoomKind.ExitTBClick(Sender: TObject);
begin
  Close;
end;

procedure TFrmRoomKind.DataSetInsert1Execute(Sender: TObject);
begin
  DataModule1.tbHotelKind.Append;
end;

procedure TFrmRoomKind.DataSetDelete1Execute(Sender: TObject);
begin
 if Application.MessageBox('确实需要删除记录吗!',
       '提示',MB_YesNo+MB_IconExclamation+MB_SystemModal)=IDYES then
    DataModule1.tbHotelKind.Delete;
end;

procedure TFrmRoomKind.DataSetEdit1Execute(Sender: TObject);
begin
  DataModule1.tbHotelKind.Edit;
  ReFresh;
end;

procedure TFrmRoomKind.DataSetPost1Execute(Sender: TObject);
begin
  DataModule1.tbHotelKind.Post;
  ReFresh;
end;

end.