unitdbconnect.pas

来自「这是我做的一个大学院系成绩管理系统」· PAS 代码 · 共 77 行

unit UnitDBConnect;

interface

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

type
  TFMDBConnect = class(TForm)
    DBADOConnection: TADOConnection;
    DataSourceUsers: TDataSource;
    UserADOQuery: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ADOQueryUMan: TADOQuery;
    Label4: TLabel;
    ADOQueryStu: TADOQuery;
    DataSourceStu: TDataSource;
    Label5: TLabel;
    ADOQueryCourse: TADOQuery;
    DataSourceCourse: TDataSource;
    Label6: TLabel;
    ADOQueryClass: TADOQuery;
    DataSourceClass: TDataSource;
    Label7: TLabel;
    ADOQueryIScore: TADOQuery;
    DataSourceIScore: TDataSource;
    Label8: TLabel;
    ADOQueryMScore: TADOQuery;
    DataSourceMScore: TDataSource;
    Label9: TLabel;
    ADOQueryScore: TADOQuery;
    DataSourceQuery: TDataSource;
    Label10: TLabel;
    ADOQueryStat: TADOQuery;
    DataSourceStat: TDataSource;
    ADOQuery1: TADOQuery;
    ADOConnectionMaster: TADOConnection;
    ADOQueryBak: TADOQuery;
    Label11: TLabel;
    ADOQueryExcel: TADOQuery;
    procedure SetQueryActive(Sender: Tobject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMDBConnect: TFMDBConnect;

implementation

uses UnitDefine;
procedure TFMDBConnect.SetQueryActive(Sender: Tobject);
begin
 ADOQueryUMan.Active:=True;
 ADOQueryStu.Active:=True;
 ADOQueryCourse.Active:=True;
 ADOQueryClass.Active:=True;
 ADOQueryIScore.Active:=True;
 ADOQueryMScore.Active:=True;
 ADOQueryScore.Active:=True;
 ADOQueryStat.Active:=True;
 ADOQuery1.Active:=True;
end;
{$R *.dfm}
procedure TFMDBConnect.FormCreate(Sender: TObject);
begin
SetQueryActive(self);
end;

end.