frmconfigunit.pas

根据客户对销售人员回款返利和业绩返利的功能需求所开发

unit frmConfigUnit;

interface

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

type
  TfrmConfig = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    ComboBox1: TComboBox;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure getConnected;
    procedure getDataBase;
  public
    flag:Boolean;
    { Public declarations }
  end;

var
  frmConfig: TfrmConfig;

implementation

uses dmUnit;

{$R *.dfm}

procedure TfrmConfig.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
     Edit2.SetFocus;
end;

procedure TfrmConfig.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit3.SetFocus;
end;

procedure TfrmConfig.Edit3KeyPress(Sender: TObject; var Key: Char);
var
 vConnect,vName:String;
 adoQuery:TAdoquery;
begin
 { if key=#13 then
   begin
   vConnect:='Provider=SQLOLEDB.1;Password='+Edit3.Text+';Persist Security Info=True;User ID=';
   vConnect:=vConnect+Edit2.Text+' ;Initial Catalog=master;Data Source='+edit1.Text;
  Try
    dm.AdoConnection1.Connected:=false;
    dm.AdoConnection1.ConnectionString:=vConnect;
    dm.AdoConnection1.Connected:=True;
  Except
    showMessage('Please Check your Setting');
    Abort;
  End;
    adoQuery:=tAdoquery.Create(self);
    adoQuery.Connection:=dm.ADOConnection1;
    adoquery.Active:=False;
    adoQUery.SQL.Clear;
    adoquery.SQL.Add('exec sp_helpdb');
    adoquery.Active:=true;
    ComboBox1.Items.Clear;

    AdoQuery.First;
    while not AdoQuery.Eof do
    begin
      vName:=AdoQuery.FieldByName('name').AsString;
      if ((vName='master') or (vName='model') or (vName='msdb') or (vName='Northwind')
         or (vName='pubs') or (vName='tempdb')) then
      else        //是系统数据库就不用显示了
         ComboBox1.Items.Add(vName);
      AdoQuery.Next;
    end;
    Adoquery.Active:=False;
    Adoquery.Free;
    combobox1.SetFocus;
       //在此为数据库帐套增加下拉筐;
    end;  }
end;

procedure TfrmConfig.BitBtn1Click(Sender: TObject);
var
  vConnect:String;
begin

   vConnect:='Provider=SQLOLEDB.1;Password='+Edit3.Text+';Persist Security Info=True;User ID=';
   vConnect:=vConnect+Edit2.Text+' ;Initial Catalog=sunSystem;Data Source='+edit1.Text;
   dm.ADOConnection1.Connected:=False;
   dm.ADOConnection1.ConnectionString:=vConnect;

   
  try
    dm.ADOConnection1.Connected:=True;
    showMessage('测试成功，请保存退出');
  except
    showMessage('不能连接到服务器');
  end;
end;

procedure TfrmConfig.BitBtn2Click(Sender: TObject);
var
  alias,user,pwd,db:String;
  iniConfig:Tinifile;
begin
  iniConfig:=Tinifile.Create('windowsc.ini');
  alias:=edit1.Text;
  user:=Edit2.Text;
  pwd:= Edit3.Text;
  pwd:=dm.Enc(pwd);
  db:=combobox1.Text;
  iniConfig.WriteString('server','ip',alias);
  iniConfig.WriteString('server','user',user);
  iniConfig.WriteString('server','pwd',pwd);
  iniCOnfig.WriteString('server','db',db);

 showMessage('请重新打开');

  iniConfig.Free;
  Application.Terminate;
end;

procedure TfrmConfig.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not flag then
    application.Terminate;
end;

procedure TfrmConfig.FormCreate(Sender: TObject);
var
  iniConfig:Tinifile;
  Alias,user,pwd:string;
begin
  iniConfig:=Tinifile.Create('windowsc.ini');
  Alias:=iniConfig.ReadString('server','ip','0');
  user:=iniConfig.ReadString('server','user','0');
  pwd:=iniConfig.ReadString('server','pwd','0');
  pwd:=dm.Dec(pwd);
  Edit1.Text:=Alias;
  Edit2.Text:=user;
  Edit3.Text:=pwd;
  iniConfig.Free;
end;

procedure TfrmConfig.getDataBase;
begin

end;

procedure TfrmConfig.getConnected;
begin

end;

end.