querydepartment.pas

来自「delphi renyuanguanlixinxioxitong」· PAS 代码 · 共 117 行

unit QueryDepartment;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QueryModul, DB, ADODB, Grids, DBGrids, ExtCtrls, ComCtrls,
  ToolWin, RpCon, RpConDS, RpDefine, RpRave, RpBase, RpSystem;

type
  TfrmQueryDepartment = class(TfrmQueryModul)
    atbDepartment: TADOTable;
    dsDepartment: TDataSource;
    dbgDepartment: TDBGrid;
    atbDepartmentDEPARTMENTNO: TWideStringField;
    atbDepartmentDEPARTMENTNAME: TWideStringField;
    atbDepartmentUPPERDEPARTMENTNO: TWideStringField;
    atbDepartmentMANAGER: TWideStringField;
    atbDepartmentADDRESS: TWideStringField;
    atbDepartmentTELEPHONE: TWideStringField;
    aqryQueryEMPLOYEENO: TWideStringField;
    aqryQueryEMPLOYEENAME: TWideStringField;
    aqryQuerySEX: TWideStringField;
    aqryQueryPOSTNAME: TWideStringField;
    aqryQueryEMPLOYEEDATE: TDateTimeField;
    aqryQueryWORKDATE: TDateTimeField;
    rvdbDepartment: TRvDataSetConnection;
    aqryQueryDEPARTMENTNO: TWideStringField;
    rvdbSearch: TRvDataSetConnection;
    aqrySearch: TADOQuery;
    rvpDepartment: TRvProject;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  protected
    //以下定义的是虚函数，该虚函数在父类定义了，但是
    //没有实现过程，它们即将在本单元实现
    function funQuery()  :integer; override;
    function funSelect() :integer; override;
    function funView()   :integer; override;
    function funExit()   :integer; override;

  public
    { Public declarations }
  end;

var
  frmQueryDepartment: TfrmQueryDepartment;
  //提供给外界访问该表单的接口函数
  function gfunOpenQueryDepartment() :integer;

implementation
uses DataModual;
{$R *.dfm}
//提供给外界访问该表单的接口函数
function gfunOpenQueryDepartment() :integer;
begin
   frmQueryDepartment :=TfrmQueryDepartment.Create(nil);
   frmQueryDepartment.ShowModal ;
   Result := 0;
   frmQueryDepartment.Free ;
end;
//查询函数
function TfrmQueryDepartment.funQuery() :integer;
begin
   Result :=0;
end;
//选择函数
function TfrmQueryDepartment.funSelect() :integer;
begin
   Result :=0;
end;
//预览函数
function TfrmQueryDepartment.funView() :integer;
begin
  rvpDepartment.Execute ;
  Result :=0;
  rvpDepartment.Close ;
end; 
//退出函数
function TfrmQueryDepartment.funExit() :integer;
begin
   close; 
   Result :=0;
end;   
//表单打开
procedure TfrmQueryDepartment.FormShow(Sender: TObject);
begin
  inherited;
  if  atbDepartment.Active then atbDepartment.Close ;
  try
    atbDepartment.Open ;
    if aqryQuery.Active then aqryQuery.Close ;
    try
      aqryQuery.Open ;
    except
      aqryQuery.Cancel ;
      application.MessageBox('打开查询员工出错','错误');
      close;
    end;
  except
    atbDepartment.Cancel ;
    application.MessageBox('打开部门表出错','错误');
    close;
  end;
end;
//表单关闭
procedure TfrmQueryDepartment.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  if  atbDepartment.Active then atbDepartment.Close ;
end;

end.