【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供Conf.pas参考,解决您在Conf.pas学习中工作中的难题,参考学习。
unit Conf;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, StrUtils, ExtCtrls, RzPanel, OnGuard, DB,
ADODB, RzStatus, Registry;
type
TConfigForm = class(TForm)
BitBtn2: TBitBtn;
RzGroupBox1: TRzGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label4: TLabel;
Edit4: TEdit;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
RzStatusBar1: TRzStatusBar;
RzFieldStatus1: TRzFieldStatus;
SpeedButton1: TSpeedButton;
InitConn: TADOConnection;
IsExistDB: TADOQuery;
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ConfigForm: TConfigForm;
implementation
uses inc, Main;
{$R *.dfm}
procedure TConfigForm.BitBtn2Click(Sender: TObject);
begin
if ConnStr='' then begin //判断连接的字符串是否为空
Application.Terminate; //终止应用程序
Application.Run;
end else
Close;//退出该程序窗体
end;
procedure TConfigForm.FormShow(Sender: TObject);
var
vReg:TRegistry;//定义注册表变量
TmpStr:string;
i:integer;
vConn1,
vConn2,
vConn3,
vConn4:string;
vP1,
vP2,
vP3,
vP4:integer;
begin
if ConnStr='' then Exit;
vReg:=TRegistry.Create;
vReg.RootKey :=HKEY_LOCAL_MACHINE;//获取注册表项
vReg.OpenKey('SoftWare\Microsoft\Microsoft Access',False);
if vReg.ValueExists('Jeronge') then
ConnStr:=vReg.ReadString('Jeronge')
else
ConnStr:='';
TmpStr:=ConnStr;
vP1:=Pos('User ID=',TmpStr);
vP2:=Pos('Password=',TmpStr);
vP3:=Pos('Initial Catalog=',TmpStr);
vP4:=Pos('Data Source=',TmpStr);
for i:=vP1+4 to vP2-7 do
vConn1:=vConn1+MidStr(TmpStr,i,1);
for i:=vP2+5 to vP3-7 do
vConn2:=vConn2+MidStr(TmpStr,i,1);
for i:=vP3+12 to vP4-7 do
vConn3:=vConn3+MidStr(TmpStr,i,1);
for i:=vP4+8 to length(TmpStr)-1 do
vConn4:=vConn4+MidStr(TmpStr,i,1);
Edit1.Text :=vConn4;
Edit4.Text :=vConn3;
Edit2.Text :=vConn1;
Edit3.Text :=vConn2;
vReg.CloseKey;//关闭注册表对象
vReg.Free;
end;
procedure TConfigForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;//释放窗体
end;
procedure TConfigForm.SpeedButton1Click(Sender: TObject);
const //定义各个数据表的表属性
TableStr:AnsiString='CREATE TABLE [AccountType] ('+
'[AC_ID] [int] NULL ,'+
'[AC_TYPE] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'+
'[AC_LEFT_ID] [char] (10) COLLATE Chinese_PRC_CI_AS NULL '+
') ON [PRIMARY] '+
'CREATE TABLE [AccoutList] ( '+
' [AL_ID] [int] IDENTITY (1, 1) NOT NULL ,'+
' [AL_O_ID] [int] NULL ,'+
' [PSC_ID] [int] NULL ,'+
' [AL_PRICE] [money] NULL ,'+
' [AL_NUMBER] [int] NULL ,'+
' [AL_AGIO] [float] NULL , '+
' [AL_EXIST] [bit] NULL CONSTRAINT [DF_AccoutList_AL_EXIST] DEFAULT (0), '+
' CONSTRAINT [PK_AccoutList] PRIMARY KEY CLUSTERED '+
' ( '+
' [AL_ID] '+
' ) ON [PRIMARY]'+
') ON [PRIMARY] '+
'CREATE TABLE [AddressList] ('+
' [AD_ID] [int] IDENTITY (1, 1) NOT NULL ,'+
' [AD_NAME] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'+
' [AD_PHONE] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'+
' [AD_MOBILE] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'+
' [AD_EMAIL] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,'+
' [AD_REMRAK] [text] COLLATE Chinese_PRC_CI_AS NULL ,'+
' [AD_E_ID] [int] NULL ,'+
' CONSTRAINT [PK_AddressList] PRIMARY KEY CLUSTERED '+
' ( '+
' [AD_ID] '+
' ) ON [PRIMARY]'+
') ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] '+
'CREATE TABLE [Credence] ( '+
' [CD_ID] [int] IDENTITY (1, 1) NOT NULL ,'+
' [CD_NAME] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,'+
' CONS