【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“orderManager.pas”一文,供大家参考学习!
unit orderManager;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, ComCtrls;
type
TRoomOrderForm = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
edVIP: TEdit;
Label2: TLabel;
edAdults: TEdit;
Label3: TLabel;
edCustomerName: TEdit;
Label4: TLabel;
edChidren: TEdit;
Label5: TLabel;
edTelNo: TEdit;
Label6: TLabel;
cbInDate: TDateTimePicker;
Label7: TLabel;
edID: TEdit;
Label8: TLabel;
cbLeaveDate: TDateTimePicker;
Label9: TLabel;
edFax: TEdit;
Label10: TLabel;
cbinTime: TDateTimePicker;
Label11: TLabel;
edEML: TEdit;
Label12: TLabel;
edStanderRoom: TEdit;
Label13: TLabel;
edMobile: TEdit;
Label14: TLabel;
edLuxury: TEdit;
Label15: TLabel;
edOrderNo: TEdit;
Label16: TLabel;
cbReserveTime: TDateTimePicker;
memNote: TMemo;
GroupBox2: TGroupBox;
dbgridOrderInfo: TDBGrid;
Label17: TLabel;
edStanders: TEdit;
Label18: TLabel;
edLuxuries: TEdit;
Panel5: TPanel;
Panel6: TPanel;
lbAcceptOrder: TLabel;
lbModify: TLabel;
Panel7: TPanel;
GroupBox3: TGroupBox;
rbCustomerNo: TRadioButton;
edCustomerNo: TEdit;
rbVIPNo: TRadioButton;
edVIPNo: TEdit;
lbSearch: TLabel;
lbRestSearch: TLabel;
lbAssignRoom: TLabel;
lbCancel: TLabel;
GroupBox4: TGroupBox;
DBGrid1: TDBGrid;
lbCancelRoom: TLabel;
lbReset: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure lbAcceptOrderMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
procedure lbAcceptOrderMouseLeave(Sender: TObject);
procedure lbModifyMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbModifyMouseLeave(Sender: TObject);
procedure lbAssignRoomMouseLeave(Sender: TObject);
procedure lbAssignRoomMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbSearchMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbSearchMouseLeave(Sender: TObject);
procedure lbRestSearchMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbRestSearchMouseLeave(Sender: TObject);
procedure rbCustomerNoClick(Sender: TObject);
procedure rbVIPNoClick(Sender: TObject);
procedure lbAcceptOrderClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dbgridOrderInfoCellClick(Column: TColumn);
procedure lbModifyClick(Sender: TObject);
procedure lbCancelClick(Sender: TObject);
procedure lbCancelMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbCancelMouseLeave(Sender: TObject);
procedure lbAssignRoomClick(Sender: TObject);
procedure lbSearchClick(Sender: TObject);
procedure lbRestSearchClick(Sender: TObject);
procedure lbCancelRoomMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbCancelRoomMouseLeave(Sender: TObject);
procedure lbResetMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure lbResetMouseLeave(Sender: TObject);
procedure lbResetClick(Sender: TObject);
procedure lbCancelRoomClick(Sender: TObject);
private
{ Private declarations }
public
procedure zeroInput;
end;
var
RoomOrderForm: TRoomOrderForm;
implementation
uses HotelDataModule,hotelmain,HotelClasses, roomInfoForm;
{$R *.dfm}
procedure TRoomOrderForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
HotelManagerForm.mnNewOrder.Enabled :=true;
RoomorderForm.Destroy;
end;
procedure TRoomOrderForm.lbAcceptOrderMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
lbAcceptorder.Font.Color :=clblue;
end;
procedure TRoomOrderForm.lbAcceptOrderMouseLeave(Sender: TObject);
begin
lbAcceptOrder.Font.Color :=clBlack;
end;
procedure TRoomOrderForm.lbModifyMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
lbModify.Font.Color :=clblue;
end;
procedure TRoomOrderForm.lbModifyMouseLeave(Sender: TObject);
begin
lbModify.Font.Color :=clblack;
end;
procedure TRoomOrderForm.lbAssignRoomMouseLeave(Sender: TObject);
begin
lbAssignroom.Font.Color :=clblack;
end;
procedure TRoomOrderForm.lbAssignRoomMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
lbAssignRoom.Font.Color :=clBlue;
en