da_un.pas

一个就业管理系统

unit da_un;

interface

uses
  SysUtils, Classes, DB, ADODB,forms;

type
  Tda = class(TDataModule)
    ADOConnection1: TADOConnection;
    temp: TADOQuery;
    ADOTable1: TADOTable;
    da_temp: TDataSource;
    st_q: TADOQuery;
    da_st: TDataSource;
    jy_q: TADOQuery;
    da_jy: TDataSource;
    pa_q: TADOQuery;
    da_pa: TDataSource;
    cl_q: TADOQuery;
    da_cl: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    stupa_q: TADOQuery;
    da_stupa: TDataSource;
    stucl_q: TADOQuery;
    da_stucl: TDataSource;
    sex_q: TADOQuery;
    da_sex: TDataSource;
    stujy_q: TADOQuery;
    da_stujy: TDataSource;
    serjy_q: TADOQuery;
    da_serjy: TDataSource;
    sercl_q: TADOQuery;
    da_sercl: TDataSource;
    main_q: TADOQuery;
    da_main: TDataSource;
    main_pa_q: TADOQuery;
    main_jy_q: TADOQuery;
    main_cl_q: TADOQuery;
    temp1: TADOQuery;
    temp2: TADOQuery;
    temp3: TADOQuery;
    infocl_q: TADOQuery;
    da_infocl: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
    procedure main_qAfterOpen(DataSet: TDataSet);
    procedure main_pa_qAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  da: Tda;

implementation
uses main_un;
{$R *.dfm}

procedure Tda.DataModuleCreate(Sender: TObject);
begin
adoconnection1.connected:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.ExeName)+'DA\clzz.mdb;Persist Security Info=False';
adoconnection1.Connected:=true;
end;

procedure Tda.main_qAfterOpen(DataSet: TDataSet);
begin
if main_q.RecordCount=0 then
Form1.bsSkinDBGrid1.Enabled:=false
else
Form1.bsSkinDBGrid1.Enabled:=true;
form1.bsSkinStatusPanel1.Caption:='总共有'+IntToStr(main_q.RecordCount)+'学生满足条件';
end;

procedure Tda.main_pa_qAfterOpen(DataSet: TDataSet);
begin
 Form1.bsSkinStatusPanel2.Caption:='共有'+IntToStr(main_pa_q.RecordCount)+'个专业';
end;

end.