unit_setup.pas

美汇美容网网站管理系统

unit Unit_Setup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, XPMenu, IniFiles, Registry;

type
  TForm_Setup = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    XPMenu1: TXPMenu;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn3: TBitBtn;
    Label7: TLabel;
    Panel3: TPanel;
    Label8: TLabel;
    Label11: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn4: TBitBtn;
    Label12: TLabel;
    Edit9: TEdit;
    Label13: TLabel;
    Edit10: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TabSheet3Show(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure TabSheet1Show(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Setup: TForm_Setup;

implementation

{$R *.dfm}

procedure TForm_Setup.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TForm_Setup.FormCreate(Sender: TObject);
begin
   Self.Left:= Round(Screen.Width/2-Width/2);
   Self.Top:=Round(Screen.Height/2-Height/2);
end;

procedure TForm_Setup.TabSheet3Show(Sender: TObject);
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  edit7.Text:=meihuisetup.ReadString('Ftp Setup','ServerIp','202.103.64.151');
  edit8.Text:=meihuisetup.ReadString('Ftp Setup','ServerPort','21');
  edit9.Text:=meihuisetup.ReadString('Ftp Setup','UserName','meihui');
  edit10.Text:=meihuisetup.ReadString('Ftp Setup','Password','');
  meihuisetup.Free;
end;

procedure TForm_Setup.BitBtn4Click(Sender: TObject);
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  meihuisetup.WriteString('Ftp Setup','ServerIp',edit7.Text);
  meihuisetup.WriteString('Ftp Setup','ServerPort',edit8.Text);
  meihuisetup.WriteString('Ftp Setup','UserName',edit9.Text);
  meihuisetup.WriteString('Ftp Setup','Password',edit10.Text);
  meihuisetup.Free;

  application.MessageBox('FTP设置保存成功.','提示',MB_OK);
end;

procedure TForm_Setup.BitBtn3Click(Sender: TObject);
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  meihuisetup.WriteString('Image Setup','LocalSaveDir',edit5.Text);
  meihuisetup.WriteString('Image Setup','RemoteSaveDir',edit6.Text);
  meihuisetup.Free;

  application.MessageBox('图片保存目录保存成功.','提示',MB_OK);
end;

procedure TForm_Setup.TabSheet2Show(Sender: TObject);
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  edit5.Text:=meihuisetup.ReadString('Image Setup','LocalSaveDir','');
  edit6.Text:=meihuisetup.ReadString('Image Setup','RemoteSaveDir','');
  meihuisetup.Free;
end;

procedure TForm_Setup.TabSheet1Show(Sender: TObject);
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  edit1.Text:=meihuisetup.ReadString('ODBC Setup','DataBaseServerIp','202.103.64.151');
  edit2.Text:=meihuisetup.ReadString('ODBC Setup','DataBaseName','meihui');
  edit3.Text:=meihuisetup.ReadString('ODBC Setup','UserName','meihui');
  edit4.Text:=meihuisetup.ReadString('ODBC Setup','Password','meihui');
  meihuisetup.Free;
end;

procedure TForm_Setup.BitBtn2Click(Sender: TObject);
var
  meihuisetup:TIniFile;
  registerTemp:TRegistry;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  meihuisetup.WriteString('ODBC Setup','DataBaseServerIp',edit1.Text);
  meihuisetup.WriteString('ODBC Setup','DataBaseName',edit2.Text);
  meihuisetup.WriteString('ODBC Setup','UserName',edit3.Text);
  meihuisetup.WriteString('ODBC Setup','Password',edit4.Text);
  meihuisetup.Free;

  registerTemp:=TRegistry.Create();
  with registerTemp do
  begin
    RootKey:=HKEY_CURRENT_USER;

    //找到Software\ODBC\ODBC.INI\ODBC Data Sources
    if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
    begin //注册一个DSN名称
      WriteString('hnmeihui','MySQL ODBC 3.51 Driver');
    end
    else
    begin//创建键值失败
      application.MessageBox('保存ODBC数据源失败.','错误',MB_OK);
      exit;
    end;
    CloseKey;

    //找到或创建Software\ODBC\ODBC.INI\MyAccess,写入DSN配置信息
    if OpenKey('Software\ODBC\ODBC.INI\hnmeihui',True) then
    begin
      WriteString('Database',edit2.Text);//数据库目录
      WriteString('Description','美汇网站数据库连接');//数据源描述
      WriteString('Driver','C:\WINNT\System32\myodbc3.dll');//驱动程序DLL文件
      WriteString('Option','3'); //驱动程序标识
      WriteString('Password',edit4.Text);//用户密码
      WriteString('Port','3306');//端口
      WriteString('Server',edit1.Text);//服务器名称
      WriteString('User',edit3.Text);//用户名称
    end
    else//创建键值失败
    begin
      application.MessageBox('保存ODBC数据源失败.','错误',MB_OK);
      exit;
    end;
    CloseKey;

  //找到或创建Software\ODBC\ODBC.INI\MyAccess\Engines\Jet
  //写入DSN数据库引擎配置信息
    {if OpenKey(’Software\ODBC\ODBC.INI\MyAccess\Engines\Jet’,True) then
    begin
　  　WriteString( ’ImplicitCommitSync’, ’Yes’ );
　　  WriteInteger( ’MaxBufferSize’, 512 );//缓冲区大小
  　　WriteInteger( ’PageTimeout’, 10 );//页超时
　  　WriteInteger( ’Threads’, 3 );//支持的线程数目
　　  WriteString( ’UserCommitSync’, ’Yes’ );
    end
    else//创建键值失败
    begin
　  　memo1.lines.add(’增加ODBC数据源失败’);
　　  exit;
    end;
　  CloseKey;}
    Free;
    application.MessageBox('ODBC保存成功.'+#13+'ODBC已经创建.','提示',MB_OK);
  end;
end;

end.