inlistut.~pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

unit inlistut;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ADODB;

type
  Tinlistfm = class(TForm)
    blistado: TADOQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inlistfm: Tinlistfm;

implementation

uses inroomUt, conut;

{$R *.dfm}

procedure Tinlistfm.FormCreate(Sender: TObject);
begin
 with blistado do
   begin
    close;
    sql.clear;
    sql.add('select * from 入住单表  where 单据状态="入住" order by 编号 desc');
    open;
   end;
end;

procedure Tinlistfm.DBGrid1CellClick(Column: TColumn);
begin
{inroomFm.roomtypebox.text:=DBGrid1.Fields[3].AsString;
inroomFm.dddate.date:=DBGrid1.Fields[5].Asdatetime;
inroomFm.lddate.Date:=DBGrid1.Fields[6].Asdatetime;
inroomFm.teledit.text:=DBGrid1.Fields[19].AsString;
inroomFm.roomnumbox.text:=DBGrid1.Fields[9].AsString;
inroomFm.roompriceedit.text:=DBGrid1.Fields[10].AsString;
inroomFm.inprice.text:=DBGrid1.Fields[11].AsString;
inroomFm.zkedit.text:=DBGrid1.Fields[12].AsString;
inroomFm.zkyyedit.text:=DBGrid1.Fields[13].AsString;
inroomFm.peonumedit.text:=DBGrid1.Fields[8].AsString;
if DBGrid1.Fields[14].AsBoolean then
inroomFm.sfjc.Checked:=true
else
inroomFm.sfjc.Checked:=false;
inroomFm.jcpriceedit.text:=DBGrid1.Fields[15].AsString;
inroomFm.yskedit.text:=DBGrid1.Fields[16].AsString;
inroomFm.bookpeoedit.text:=DBGrid1.Fields[17].AsString;
 inroomFm.hybhedit.text:=DBGrid1.Fields[2].AsString;
 inroomFm.ydgsedit.text:=DBGrid1.Fields[18].AsString;
 inroomFm.dr.text:=DBGrid1.Fields[1].AsString;  }
 end;

procedure Tinlistfm.DBGrid1DblClick(Sender: TObject);
begin
 confm.rzdh.text:=DBGrid1.Fields[1].AsString;
{inroomFm.roomtypebox.text:=DBGrid1.Fields[3].AsString;
inroomFm.dddate.date:=DBGrid1.Fields[5].Asdatetime;
inroomFm.lddate.Date:=DBGrid1.Fields[6].Asdatetime;
inroomFm.teledit.text:=DBGrid1.Fields[19].AsString;
inroomFm.roomnumbox.text:=DBGrid1.Fields[9].AsString;
inroomFm.roompriceedit.text:=DBGrid1.Fields[10].AsString;
inroomFm.inprice.text:=DBGrid1.Fields[11].AsString;
inroomFm.zkedit.text:=DBGrid1.Fields[12].AsString;
inroomFm.zkyyedit.text:=DBGrid1.Fields[13].AsString;
inroomFm.peonumedit.text:=DBGrid1.Fields[8].AsString;
if DBGrid1.Fields[14].AsBoolean then
inroomFm.sfjc.Checked:=true
else
inroomFm.sfjc.Checked:=false;
inroomFm.jcpriceedit.text:=DBGrid1.Fields[15].AsString;
inroomFm.yskedit.text:=DBGrid1.Fields[16].AsString;
inroomFm.bookpeoedit.text:=DBGrid1.Fields[17].AsString;
 inroomFm.hybhedit.text:=DBGrid1.Fields[2].AsString;
 inroomFm.ydgsedit.text:=DBGrid1.Fields[18].AsString;
 inroomFm.dr.text:=DBGrid1.Fields[1].AsString; }
end;

end.