frmmisdatap.~pas

二次开发模块 一、条形码的批量生成

unit FrmMisDataP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmRootAddP, StdCtrls, Buttons, ExtCtrls, IniFileS;

type
  TFrmMisData = class(TFrmRootAdd)
    Label1: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    function ConToDestData: Boolean;    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMisData: TFrmMisData;

implementation

uses DataDmP, SUFunctionP;

{$R *.dfm}

procedure TFrmMisData.FormShow(Sender: TObject);
var DelphiIni:TIniFile;
begin
//   inherited;
   DelphiIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Set.ini');
   Edit1.Text:=DelphiIni.ReadString('UFSOFT', 'MISData',Edit1.Text);
   Edit2.Text:=DelphiIni.ReadString('UFSOFT', 'MISServer',Edit2.Text);
   Edit3.Text:=DelphiIni.ReadString('UFSOFT', 'MISUser',Edit3.Text);
   Edit4.Text:=DelphiIni.ReadString('UFSOFT', 'MISPass',Edit4.Text);
  if Edit4.Text<>'' then
     Edit4.Text:=SUFunction.EncryptionEngine(Edit4.Text,'1234',False);
   DelphiIni.Free;
end;

procedure TFrmMisData.BtnSaveClick(Sender: TObject);
var DelphiIni:TIniFile;
    LsPass:String;
begin
   inherited;
   if not ConToDestData then
     begin
       Application.MessageBox(Pchar('无法连接MIS系统数据源！'),'信息',MB_OK+ MB_ICONINFORMATION);
       Abort;
     end;
  LsPass:=Edit4.Text;
  if LsPass<>'' then
     LsPass:=SUFunction.EncryptionEngine(LsPass,'1234',True);
   DelphiIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Set.ini');
   DelphiIni.WriteString('UFSOFT', 'MISData',Edit1.Text);
   DelphiIni.WriteString('UFSOFT', 'MISServer',Edit2.Text);
   DelphiIni.WriteString('UFSOFT', 'MISUser',Edit3.Text);
   DelphiIni.WriteString('UFSOFT', 'MISPass',LsPass);
   DelphiIni.Free;
   Application.MessageBox(Pchar('MIS系统数据源保存成功！'),'信息',MB_OK+ MB_ICONINFORMATION);
   Close;
end;

function TFrmMisData.ConToDestData: Boolean;
Var LsStr:WideString;
    Pr_DataServer,Pr_DataUser,Pr_DataPassword:String;
    DelphiIni:TIniFile;
begin
  Try
     DelphiIni:= TIniFile.Create(ExtractFilePath(Application.ExeName)+'Set.ini');
{     Pr_DataServer       :=  DelphiIni.ReadString('UFSOFT', 'MISServer',Pr_DataServer);
     Pr_DataUser         :=  DelphiIni.ReadString('UFSOFT', 'MISUser',Pr_DataUser);
     Pr_DataPassword     :=  DelphiIni.ReadString('UFSOFT', 'MISPass',Pr_DataPassword);
}
     Pr_DataServer       :=  Edit2.Text;
     Pr_DataUser         :=  Edit3.Text;
     Pr_DataPassword     :=  Edit4.Text;

//     DestDataName     :=  DelphiIni.ReadString('UFSOFT', 'DestData',DestDataName);
     DelphiIni.Free;
     LsStr:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+Pr_DataUser+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;';
     LsStr:=LsStr+'Initial Catalog='+Edit1.Text+';Data Source='+Pr_DataServer+';Password='+Pr_DataPassword+';';
     DataDm.ConDestUfsoft.Connected:=False;
     DataDm.ConDestUfsoft.ConnectionString:=LsStr;
     DataDm.ConDestUfsoft.KeepConnection:=True;
     DataDm.ConDestUfsoft.Connected:=True;
     Result:=True;
  except
     Result:=False;
  end;
end;

end.