www.pudn.com > del6235577244.rar > 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.