【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,MC_FJTHGL.pas,希望对大家有所帮助!
unit MC_FJTHGL;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, DBCtrls, Grids, DBGrids, Db, ExtCtrls, Buttons, DBActns,
ActnList, ImgList;
type
TFJTHGL = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
ActionList1: TActionList;
DataSetFirst1: TDataSetFirst;
DataSetLast1: TDataSetLast;
DataSetNext1: TDataSetNext;
DataSetPrior1: TDataSetPrior;
Edit1: TEdit;
Label1: TLabel;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn9Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FJTHGL: TFJTHGL;
implementation
uses MC_TLCYGLXT, MC_FJTHGL_LR;
{$R *.DFM}
procedure TFJTHGL.FormCreate(Sender: TObject);
begin
If Not Assigned(FJTHGL_LR) Then
begin
FJTHGL_LR:=TFJTHGL_LR.Create(Self);
end;
end;
procedure TFJTHGL.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#8 then key:=#8
else if (key<'0') or (key>'9') then //屏蔽非数字键
if key=#13 then BitBtn5.SetFocus //将焦点跳转到"查询"按钮
else key:=#0; //空格键
end;
procedure TFJTHGL.BitBtn5Click(Sender: TObject); //查询房台信息
begin
If Length(Edit1.Text) = 0 Then //如果没有输入
查询内容
begin
ShowMessage('请在左边的信息框中输入编号信息');
Edit1.SetFocus;
End
Else //如果输入查询内容
begin
TLCYGLXT.FJTHXXB.Refresh;//刷新数据
if TLCYGLXT.FJTHXXB.Locate('编号',StrToInt(Edit1.Text),[loCaseInsensitive]) then //查寻房台信息
end;
end;
procedure TFJTHGL.BitBtn8Click(Sender: TObject);
begin
TLCYGLXT.FJTHXXB.Refresh; //刷新数据
If TLCYGLXT.FJTHXXB.RecordCount <> 1 Then
begin
if TLCYGLXT.FJTHXXB.FieldByName('状态').AsString='空闲' then
begin
if MessageDLG('确认删除选定的客房信息吗?',mtCustom,[mbYes,mbNO],0)=mrYes then
begin
TLCYGLXT.FJTHXXB.Delete;
end;
End
Else
begin
ShowMessage('对不起,要删除房台正在营业,不能删除它的信息.');
end;
End
else ShowMessage('数据信息只剩一条,不能删除!!');
end;
procedure TFJTHGL.BitBtn7Click(Sender: TObject); //修改数据
begin
TLCYGLXT.FJTHXXB.Refresh;//刷新数据
TLCYGLXT.FJTHLXB.Refresh;
TLCYGLXT.FJTHBMB.Refresh;
if TLCYGLXT.FJTHXXB.FieldByName('状态').AsString<>'空闲' then
begin
ShowMessage('对不起,要修改房台正在营业,不能进行修改.');
End
Else
begin
TLCYGLXT.FJTHXXB.Edit; //进入编辑模式
FJTHGL_LR.ShowModal; //调入房台信息修改窗口
end;
end;
procedure TFJTHGL.BitBtn6Click(Sender: TObject); //添加房台信息
var BH:integer;
begin
TLCYGLXT.FJTHXXB.Last;
BH:=TLCYGLXT.FJTHXXB.FieldBYName('编号').AsInteger+1;
TLCYGLXT.FJTHXXB.Append;
TLCYGLXT.FJTHXXB.FieldBYName('编号').AsInteger:=BH;
TLCYGLXT.FJTHXXB.FieldBYName('状态').AsString:='空闲';
TLCYGLXT.FJTHXXB.FieldBYName('类型说明').AsString:=TLCYGLXT
.FJTHLXB.FieldByName('类型说明').AsString;
TLCYGLXT.FJTHXXB.FieldBYName('餐饮部门').AsString:=TLCYGLXT
.FJTHBMB.FieldByName('部门名称').AsString;
TLCYGLXT.FJTHXXB.FieldBYName('服务费').AsInteger:=0;
FJTHGL_LR.ShowModal; //调入房台信息添加窗口
end;
procedure TFJTHGL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ANimateWindow(handle,200,AW_HOR_NEGATIVE+AW_Hide+AW_SLIDE); //将窗体从右至左移出屏幕
TLCYGLXT.FJTHXXB.Close; //关闭房间台号信息表
TLCYGLXT.FJTHLXB.Close; //关闭房间台号类型表
TLCYGLXT.FJTHBMB.Close; //关闭房间台号部门表
end;
procedure TFJTHGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FJTHGL_LR.Release;//释放FJTHGL_LR窗口
FJTHGL_LR:=Nil;//
FJTHGL.Release;//释放FJTHGL窗口
FJTHGL:=Nil;
end;
procedure TFJTHGL.BitBtn9Click(Sender: TObject);
begin
Close; //退出房台信息管理
end;
end.