setdatasource.pas

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

unit SetDataSource;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,IniFiles;

type
  TfrmSetDataSource = class(TForm)
    Label1: TLabel;
    edtServerName: TEdit;
    Label2: TLabel;
    edtClientName: TEdit;
    Label3: TLabel;
    edtUserName: TEdit;
    Label4: TLabel;
    edtPassword: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    edtDataBaseName: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSetDataSource: TfrmSetDataSource;

implementation

{$R *.dfm}
uses
  DataCenter;

procedure TfrmSetDataSource.BitBtn2Click(Sender: TObject);
begin
  close;
  Application.Terminate;
end;


procedure TfrmSetDataSource.BitBtn1Click(Sender: TObject);
var
  MyIniFile:TIniFile;
  fileName:string;
begin
  filename:=ExtractFilePath(paramstr(0))+'Server.ini';
  myinifile:=TInifile.Create(filename);
  myinifile.writestring('Server','ServerName',edtServerName.Text);
  myinifile.writestring('Server','ClientName',edtClientName.Text);
  myinifile.writestring('Server','DataBaseName',edtDataBaseName.Text);
  myinifile.WriteString('Server','UserName',edtUserName.Text);
  myinifile.WriteString('Server','Password',edtPassword.Text);
  if DmData.ConnectDataSource(Sender) then
  begin
{     SetDataSourceForm.Hide;
     PassForm.ShowModal; }
     frmSetDataSource.close;
  end else
  begin
    showmessage('设置错误，请重新设置！');
    edtServerName.SetFocus;
  end;
end;

end.