datalink.pas

来自「这个工资管理系统是我今年的毕业设计」· PAS 代码 · 共 59 行

unit datalink;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,inifiles, StdCtrls;

type
  TForm30 = class(TForm)
    Image1: TImage;
    Open1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Label1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form30: TForm30;

implementation
uses login;
{$R *.dfm}

procedure TForm30.Label1Click(Sender: TObject);
var
   vinifile:tinifile;
   inistr:string;
begin
   inistr:=extractfilepath(paramstr(0))+'config.ini';
   vinifile:=tinifile.Create(inistr);
   if open1.Execute then
   begin
   label3.Caption :=open1.FileName;
   vinifile.WriteString('System','Data Source',open1.FileName);
   showmessage('系统数据库己经加载成功！点击重新登陆进行操作！');
   end;
end;

procedure TForm30.Label4Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm30.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate ;
end;

end.