【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“HotelIntro_Unit.pas”一文,供大家参考学习
unit HotelIntro_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls, DBCtrls, Mask, Buttons, ExtCtrls;
type
TfrmHotelIntro = class(TForm)
btnClose: TBitBtn;
DBMemo1: TDBMemo;
btnSave: TBitBtn;
lblHotelIntro: TLabel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label7: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit7: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
edtCreateDate: TDBEdit;
sbtnSelectDate: TSpeedButton;
Label5: TLabel;
procedure btnCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure btnSaveClick(Sender: TObject);
procedure sbtnSelectDateClick(Sender: TObject);
private
{ Private declarations }
public
end;
var
frmHotelIntro: TfrmHotelIntro;
implementation
uses DM_Unit;
{$R *.dfm}
procedure TfrmHotelIntro.btnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmHotelIntro.FormShow(Sender: TObject);
begin
DM.tblHotelCompany.Open;
end;
procedure TfrmHotelIntro.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Perform(WM_NEXTDLGCTL, 0, 0);
Key := #0;
end;
end;
procedure TfrmHotelIntro.btnSaveClick(Sender: TObject);
begin
DM.DataSetSave(DM.tblHotelCompany);
end;
procedure TfrmHotelIntro.sbtnSelectDateClick(Sender: TObject);
begin
edtCreateDate.Text := DM.SelectDate(DM.tblHotelCompany);
end;
end.