idleroombed.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 73 行

unit IdleRoomBed;

interface

uses 
  forms, StdCtrls, Db, Buttons, Controls, ExtCtrls,
  Grids, DBGrids, ComCtrls, Classes, Windows, Messages, SysUtils, DBCtrls,
  ADODB, ADOQry;

type
  TfrmIdleRoomBed = class(TForm)
    qryIdleBed: TADOQry;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    edRoom: TEdit;
    cmdQuery: TBitBtn;
    cmdPrint: TBitBtn;
    DBGrid1: TDBGrid;
    qryIdleBedCode: TStringField;
    Label2: TLabel;
    Image1: TImage;
    cmdExit: TBitBtn;
    Label3: TLabel;
    qryRoomType: TADOQry;
    DataSource2: TDataSource;
    qryRoomTypeCode: TStringField;
    qryRoomTypeName: TStringField;
    cboRoomType: TDBLookupComboBox;
    procedure cmdQueryClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cmdPrintClick(Sender: TObject);
    procedure cmdExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmIdleRoomBed: TfrmIdleRoomBed;

implementation

uses SelfFunc, RptExcel, Main;

{$R *.DFM}

procedure TfrmIdleRoomBed.cmdQueryClick(Sender: TObject);
begin
	with qryIdleBed do
    begin
    	Close;
        Parameters[0].Value :=edRoom.Text +'%';
        if cboRoomType.KeyValue ='%' then
        	Parameters[1].Value :='%'
        else Parameters[1].Value :=cboRoomType.KeyValue;
        Open;
    end;
end;

procedure TfrmIdleRoomBed.FormCreate(Sender: TObject);
begin
	Image1.Picture.Assign(frmMain.imgTitle.Picture);

    qryRoomType.Open;
    cboRoomType.KeyValue :='%';
    cmdQuery.OnClick(nil);
end;

procedure TfrmIdleRoomBed.cmdPrintClick(Sender: TObject);
begin
	frmRptExcel.PrintRpt('