e_rmbdmag.pas

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

unit E_RmBdMag;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, Db, Mask, DBCtrls,
  Provider, DBClient, ObeyTable, jpeg, FormStore, MyGrid, ADODB, ADOQry,
  StoreForm;

type
  TfrmE_RmBdMag = class(TForm)
    DataSource1: TDataSource;
    Panel1: TPanel;
    DBGrid1: TMyGrid;
    cmdPrint: TBitBtn;
    cmdExit: TBitBtn;
    Label7: TLabel;
    Image1: TImage;
    DBGrid2: TMyGrid;
    qryBrowse: TADOQry;
    qryBrowseCode: TStringField;
    qryBrowseBedCount: TIntegerField;
    qryBrowseBedHead: TStringField;
    qryBrowseFreeBeds: TIntegerField;
    qryEmp: TADOQry;
    DataSource2: TDataSource;
    qryEmpCode: TStringField;
    qryEmpName: TStringField;
    qryEmpsZhiWu: TStringField;
    StoreForm1: TStoreForm;
    qryEmpPydate: TDateTimeField;
    qryEmpssex: TStringField;
    Query3: TADOQry;
    qryBrowseFType: TStringField;
    qryBrowseName: TStringField;
    qryBrowseYrzRs: TIntegerField;
    qryEmpBed: TStringField;
    qryEmpsDept: TStringField;
    qryEmpNl: TIntegerField;
    qryEmpsJiGuan: TStringField;
    procedure cmdExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure qryBrowseCalcFields(DataSet: TDataSet);
    procedure qryBrowseAfterScroll(DataSet: TDataSet);
    procedure cmdPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmE_RmBdMag: TfrmE_RmBdMag;

implementation

uses RptExcel, SelfFunc, Main;

{$R *.DFM}

procedure TfrmE_RmBdMag.cmdExitClick(Sender: TObject);
begin
	Close;
end;

procedure TfrmE_RmBdMag.FormKeyPress(Sender: TObject; var Key: Char);
begin
	if Key =#13 then
    begin
    	Key :=#0;
        Self.SelectNext(Self.ActiveControl, True,True);
    end;
end;


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

    qryBrowse.Open;
end;

procedure TfrmE_RmBdMag.qryBrowseCalcFields(DataSet: TDataSet);
begin
	qryBrowseFreeBeds.value:=qryBrowsebedcount.value-qryBrowseYrzRs.value;
end;

procedure TfrmE_RmBdMag.qryBrowseAfterScroll(DataSet: TDataSet);
begin
	qryEmp.Close;
    if qryBrowse.IsEmpty then Exit;

    qryEmp.Parameters[0].Value:=qryBrowseCode.Value;
    qryEmp.Open;
end;

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