udatarecord.pas

说明: 比较简单的人事档案管理程序,包含了人事档案的大部分功能,做人事档案的兄弟可以看看. 本程序类型：delphi7 + Access2000 桌面数据库 初始用户名/密码:admin

unit UDataRecord;

interface

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

type
  TForm_DataRecord = class(TForm)
    FirstDeptNumber: TStaticText;
    SecondDeptNumber: TStaticText;
    AllRecord: TStaticText;
    DBGridEh1: TDBGridEh;
    ADOQDataRecord: TADOQuery;
    Label1: TLabel;
    DS11: TDataSource;
    ADOQuery1: TADOQuery;
    ADOQuery1DSDesigner: TWideStringField;
    ADOQuery1DSDesigner2: TIntegerField;
    ADOQuery1Field: TStringField;
    procedure FormShow(Sender: TObject);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form_DataRecord: TForm_DataRecord;

implementation
uses Umain;
{$R *.dfm}

procedure TForm_DataRecord.FormShow(Sender: TObject);
begin
//统计一级部门数量
  try
    with ADOQDataRecord do
    begin
      close;
      sql.Clear;
      sql.Text := 'select dept_UPid from Dept Where dept_UPid=0';
      open;
    end;
    FirstDeptNumber.Caption := FirstDeptNumber.Caption + ' ' + inttostr(ADOQDataRecord.RecordCount);
  except
    beep;
    showmessage('打开部门表失败');
  end;
//统计二级部门数量
  try
    with ADOQDataRecord do
    begin
      close;
      sql.Clear;
      sql.Text := 'select dept_UPid from Dept Where dept_UPid<>0';
      open;
    end;
    SecondDeptNumber.Caption := SecondDeptNumber.Caption + ' ' + inttostr(ADOQDataRecord.RecordCount);
  except
    beep;
    showmessage('打开部门表失败');
  end;
//统计全体职工人数
  Form_main.TabEmployee.Open;
  AllRecord.Caption := AllRecord.Caption + inttostr(Form_main.TabEmployee.RecordCount);
  Form_main.TabEmployee.Close;
  ADOQuery1.Open;
end;

procedure TForm_DataRecord.ADOQuery1CalcFields(DataSet: TDataSet);
begin
ADOQuery1.fieldByName('数据库文件路径').AsString := form_main.AppPath+'data\adjt.mdb';
end;

end.