undm.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit Undm;

interface

uses
  SysUtils, Classes, DB, ADODB,Windows,Forms, RpCon, RpConDS,
  RpRave, RpBase, RpSystem, RpDefine;
  

type
  TDM = class(TDataModule)
    AdoConn: TADOConnection;
    AQ1: TADOQuery;
    AQ4: TADOQuery;
    AQ3: TADOQuery;
    AQ2: TADOQuery;
    AQ5: TADOQuery;
    AQ6: TADOQuery;
    AQ7: TADOQuery;
    AQ8: TADOQuery;
    AQ9: TADOQuery;
    AQ10: TADOQuery;
    RvDsConn: TRvDataSetConnection;
    AQ20: TADOQuery;
    AdoQback: TADOQuery;
    AQ21: TADOQuery;
    RvSystem1: TRvSystem;
    RvP: TRvProject;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure RvSystem1OverrideSetup(ReportSystem: TRvSystem;
      OverrideMode: TOverrideMode; var OverrideForm: TForm);
  private
    { Private declarations }
    procedure ConnData(str:string);
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses UnOracleSetup, UnFuntion;

{$R *.dfm}

procedure TDM.ConnData(str:string);
begin
  with adoconn do
  begin

    Connected:=False;
    ConnectionString:=str;
    try
      Connected:=True;
      ErrorConn:=False;
    except
     ErrorConn:=True;

    end;
  end;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
var
  strdata:string;
begin
   // if
   readini('Oracle','Conn',strdata); //then
//    begin
      if pos('|',strdata)>0 then
      begin
        Connstr:='Provider=OraOledb.Oracle.1;password=sbdj;Persist Security Info=False;User Id=sbdj;Data Source='+trim(copy(strdata,1,pos('|',strdata)-1));
        try
        SaveDay:=strtoint(copy(strdata,pos('|',strdata)+1,MaxInt));
        except
        SaveDay:=1;
        end;
      end else begin
        connstr:=trim(strdata);
        SaveDay:=1;
      end;
  //  end
   // else
  //    Connstr:='';//'Provider=OraOledb.Oracle.1;password=sbdj;Persist Security Info=False;User Id=sbdj;Data Source=Yhdy';

       ConnData(Connstr);

end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin
  AdoConn.Close;
  AdoConn.Free;
end;

procedure TDM.RvSystem1OverrideSetup(ReportSystem: TRvSystem;
  OverrideMode: TOverrideMode; var OverrideForm: TForm);
begin
 {   case
    OverrideMode of
    omCreate:
    begin
        OverrideForm := TSCSetupForm.Create(nil);
        //OverrideForm.Caption := RvSystem1.TitleSetup;
        (OverrideForm as TSCSetupForm).ReportSystem := ReportSystem;
    end;
    omShow:
    begin
        with OverrideForm as TSCSetupForm, ReportSystem do
        begin
          PreviewSetup := False;
          Aborted := ShowModal = mrCancel;
        end;
    end;
    omWait:
    begin
    // {because showModal: no wait necessary!}
 {   end;
    omFree:
    begin
        OverrideForm.Free;
    end;
    end;  }
end;

end.