config.~pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit Config;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, TradeImage, LabelButton;

type
  TF_Config = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    lbBtnExit: TLabelBtn;
    ticancel: TTradeImg;
    lbBtnOK: TLabelBtn;
    TradeImg1: TTradeImg;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure TradeImg1Click(Sender: TObject);
    procedure lbBtnOKClick(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure lbBtnExitClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Config: TF_Config;

implementation
uses  IniFiles,Qt;
{$R *.dfm}


procedure TF_Config.SpeedButton1Click(Sender: TObject);
        {*****确定按钮单击事件*****}
var
    ini:TIniFile;
begin 
    if (Edit1.Text='')or(Edit2.Text='') then
      begin
      ShowMessage('请输入数据库服务器名和数据库名');
      Edit1.SetFocus;  //焦点在数据库服务器名输入框
      exit;
      end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    ini.WriteString('Database','Initial Catalog',Edit2.Text);  //将数据库名写入配置文件
    ini.WriteString('Database','Data Source',Edit1.Text);      //将数据库服务器名写入配置文件
    F_Config.Close;  //关闭数据库服务器配置窗口

end;

procedure TF_Config.SpeedButton2Click(Sender: TObject);
begin      {*****取消按钮单击事件*****}
    F_Config.Close;  //关闭数据库服务器配置窗口
end;

procedure TF_Config.Edit2KeyPress(Sender: TObject; var Key: Char);
begin     {*****数据库名输入框键盘输入事件*****}
    if (Key = #13) then        //按下回车键执行
        SpeedButton1Click(Sender); //调用确定按钮点击事件
end;

procedure TF_Config.TradeImg1Click(Sender: TObject);
       {*****确定按钮单击事件*****}
var
    ini:TIniFile;
begin 
    if (Edit1.Text='')or(Edit2.Text='') then
      begin
      ShowMessage('请输入数据库服务器名和数据库名');
      Edit1.SetFocus;  //焦点在数据库服务器名输入框
      exit;
      end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    ini.WriteString('Database','Initial Catalog',Edit2.Text);  //将数据库名写入配置文件
    ini.WriteString('Database','Data Source',Edit1.Text);      //将数据库服务器名写入配置文件
    F_Config.Close;  //关闭数据库服务器配置窗口

end;

procedure TF_Config.lbBtnOKClick(Sender: TObject);
       {*****确定按钮单击事件*****}
var
    ini:TIniFile;
begin 
    if (Edit1.Text='')or(Edit2.Text='') then
      begin
      ShowMessage('请输入数据库服务器名和数据库名');
      Edit1.SetFocus;  //焦点在数据库服务器名输入框
      exit;
      end;
    //打开INI文件，如果不存在则创建与应用程序同名，后缀名为.INI的ini配置文件
    ini := TIniFile.Create(ChangeFileExt(Application.ExeName,'.INI'));
    ini.WriteString('Database','Initial Catalog',Edit2.Text);  //将数据库名写入配置文件
    ini.WriteString('Database','Data Source',Edit1.Text);      //将数据库服务器名写入配置文件
    F_Config.Close;  //关闭数据库服务器配置窗口

end;

procedure TF_Config.ticancelClick(Sender: TObject);
begin      {*****取消按钮单击事件*****}
    F_Config.Close;  //关闭数据库服务器配置窗口
end;

procedure TF_Config.lbBtnExitClick(Sender: TObject);
begin      {*****取消按钮单击事件*****}
    F_Config.Close;  //关闭数据库服务器配置窗口
end;

end.