?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -