main.pas

主要用于报表精确打印

unit Main;

interface

uses
  Windows,Forms, DB, DBTables, Controls, Dialogs, Menus, Classes,
  ComCtrls, RM_dset, RM_dbset, RM_class, XPMenu,registry,ExtCtrls, ADODB,
  RM_Desgn, jpeg, StdCtrls, ToolWin, FR_Desgn, FR_DSet,
  FR_DBSet, FR_Class;
type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Window1: TMenuItem;
    Tile1: TMenuItem;
    Cascade1: TMenuItem;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    ADO1: TMenuItem;
    N1: TMenuItem;
    Main_ADOConn: TADOConnection;
    Prtdesign: TMenuItem;
    ADOTable: TADOTable;
    RMDesigner1: TRMDesigner;
    XPMenu1: TXPMenu;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    ToolButton1: TToolButton;
    DateTimePicker1: TDateTimePicker;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    frDesigner1: TfrDesigner;
    procedure Exit1Click(Sender: TObject);
   
    procedure Tile1Click(Sender: TObject);
    procedure Cascade1Click(Sender: TObject);
    procedure ADO1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
   // procedure prtdesignerClick(Sender: TObject);
    procedure PrtdesignClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

  private
    { Private declarations }
  public
     Adoconnectstring:string;
  end;

var
  MainForm: TMainForm;

implementation
uses
   ADOconnect,pubfunc;


{$R *.DFM}



procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;




procedure TMainForm.Tile1Click(Sender: TObject);
begin
  Tile;
end;

procedure TMainForm.Cascade1Click(Sender: TObject);
begin
  Cascade;
end;

procedure TMainForm.ADO1Click(Sender: TObject);

begin
  try
    ADOLinkForm:=TADOLinkForm.create(application);
    ADOLinkForm.Show;
  finally
    //ADOLinkForm.Free;
    screen.ActiveForm.Refresh;
  end;
  end;




procedure TMainForm.FormActivate(Sender: TObject);
  var
     ADOlinkreg0:treginifile;
begin
  Adoconnectstring:='';
  adolinkreg0:=treginifile.Create('');
 with adolinkreg0 do
  begin
   try
     RootKey:=HKEY_LOCAL_MACHINE;
      if  keyexists('software\topapp\adodata') then
       begin
        openkey('software\topapp',false);
        Adoconnectstring:=readstring('adodata','adolink','');
        if Adoconnectstring<>'' then
           begin

             free;
           end
        else
           begin
              showmessage('系统数据库连接尚未配置,请与系统管理员联系！');
              free;
       end;
       end
    else
      begin
        showmessage('系统数据库连接尚未配置,请与系统管理员联系！');
        free;
        
      end;
   except
     begin
      showmessage('读取注册表出现异常错误！请与系统管理员联系！');
      free;
     end;
   end;
end; 
end;

procedure TMainForm.PrtdesignClick(Sender: TObject);
begin
if Adoconnectstring<>'' then
 begin
  Main_ADOConn.connectionstring:=Adoconnectstring;
 try

    ADOTable.TableName:='prttable';
    ADOTable.Active:=true;
    frReport1.DesignReport;
    //RMReport1.DesignReport;
  finally
   // showmessage('数据库连接出现错误或[prttable]表被破坏！请与系统管理员联系！');
    ADOTable.Active:=false;
    Main_ADOConn.Close;
 end;
 end

end;



procedure TMainForm.FormDestroy(Sender: TObject);
begin
 ADOTable.Active:=false;
 Main_ADOConn.Close;
end;

end.