e_suseanpai.pas

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

unit E_SuSeAnPai;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  jpeg, ExtCtrls, Grids, DBGrids, MyGrid, StdCtrls, FormStore, Db,
  Buttons, MacroQuery, ADOQry, ADODB, AdoMacroQry, StoreForm;

type
  TFrmE_SuSeAnPai = class(TForm)
    GroupBox1: TGroupBox;
    MyGrid1: TMyGrid;
    GroupBox2: TGroupBox;
    MyGrid2: TMyGrid;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    qryNoBed: TAdoMacroQry;
    DataSource1: TDataSource;
    StoreForm1: TStoreForm;
    qryFreeBed: TAdoMacroQry;
    DataSource2: TDataSource;
    qryFreeBedCode: TStringField;
    CmdExit: TBitBtn;
    qryNoBedCode: TStringField;
    qryUpdate: TADOQry;
    cmdLocate: TBitBtn;
    qryNoBedName: TStringField;
    qryNoBedssex: TStringField;
    qryNoBedsDept: TStringField;
    qryNoBedsZhiWu: TStringField;
    qryNoBedNl: TIntegerField;
    qryNoBedsJiGuan: TStringField;
    qryNoBedPydate: TDateTimeField;
    qryNoBedID: TIntegerField;
    qryRoomType: TADOQry;
    qryRoomTypeCode: TStringField;
    qryRoomTypeSex: TSmallintField;
    qryRoomTypeZhiJi: TStringField;
    qryNoBedSex: TBooleanField;
    qryNoBedZhiJi: TStringField;
    qryNoBedsZhiJi: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure CmdExitClick(Sender: TObject);
    procedure MyGrid2DblClick(Sender: TObject);
    procedure cmdLocateClick(Sender: TObject);
    procedure qryNoBedAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmE_SuSeAnPai: TFrmE_SuSeAnPai;

implementation

uses Main, SelfFunc, RptExcel, DsLocate;

{$R *.DFM}

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

	qryNoBed.Open;
end;

procedure TFrmE_SuSeAnPai.CmdExitClick(Sender: TObject);
begin
	close;
end;

procedure TFrmE_SuSeAnPai.MyGrid2DblClick(Sender: TObject);
begin
	if qryFreeBed.IsEmpty then Exit;
	if QrynoBed.IsEmpty then Exit;
	if not msgboxsel('叫谔粄