data.~pas

delphi的一个开发实例

unit Data;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, ADODB,Inifiles, DBClient, MConnect, Menus,
  SConnect, ObjBrkr, Provider, ScktComp;

type
  Tfrm_Data = class(TDataModule)
    Socket_Connection: TSocketConnection;
    Simple_ObjectBroker: TSimpleObjectBroker;
    ClientDataSet_Add: TClientDataSet;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    ClientDataSet2: TClientDataSet;
    ClientDataSet3: TClientDataSet;
    ClientDataSet4: TClientDataSet;
    ClientDataSet_Goods: TClientDataSet;
    Client_Temp: TClientDataSet;
    DataSource_Search: TDataSource;
    ClientDataSet_Select: TClientDataSet;
    ClientDataSet_Stock_States: TClientDataSet;
    DataSource_Stock_States: TDataSource;
    DataSource_Stock_States_detail: TDataSource;
    ClientDataSet_Stock_States_detail: TClientDataSet;
    ClientDataSet_Stock_States_Total: TClientDataSet;
    DataSource_Stock_States_Total: TDataSource;
    ClientDataSet_Goods_Information: TClientDataSet;
    DataSource_Goods_Information: TDataSource;
    DataSource_StoreProdc: TDataSource;
    StoredProc1: TStoredProc;
    ClientDataSet_Stock_Jion_Search: TClientDataSet;
    DataSource_Stock_Jion_Search: TDataSource;
    ClientDataSet_Submit_adopt: TClientDataSet;
    DataSource_Submit_adopt: TDataSource;
    ClientDataSet_Submit_adopt_detail: TClientDataSet;
    DataSource_Submit_adopt_detail: TDataSource;
    ClientDataSet_Receipt: TClientDataSet;
    DataSource_Receipt: TDataSource;
    ClientDataSet_Submit_quit_detail: TClientDataSet;
    DataSource_Submit_quit_detail: TDataSource;
    ClientDataSet_Submit_quit: TClientDataSet;
    DataSource_Submit_quit: TDataSource;
    ClientDataSet_Storage_Warn: TClientDataSet;
    DataSource_Storage_Warn: TDataSource;
    ClientDataSet_Company: TClientDataSet;
    DataSource_Company: TDataSource;
    ClientDataSet_TMP: TClientDataSet;
    DataSource_TMP: TDataSource;
    Data_SP_Part_Set: TDataSource;
    Data_Goods: TDataSource;
    Client_Goods: TClientDataSet;
    Data_Part_Set: TDataSource;
    Client_Part_Set: TClientDataSet;
    Client_SP_Part_Set: TClientDataSet;
    Data_Stock_States: TDataSource;
    Client_Stock_States: TClientDataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Pub_Right:String;
  end;

var
  frm_Data: Tfrm_Data;
implementation

uses Connect, func;

{$R *.dfm}

procedure Tfrm_Data.DataModuleCreate(Sender: TObject);
var
    f:TiniFile;
    IPAddress,Server_Guider,Server_nameer:string;
    i,j,icount,itemp:integer;
begin
    try
        f:=Tinifile.Create(ExtractFilePath(application.ExeName)+'GD_IP_Config.ini');
        //********服务器名称解密码************
        try
            Server_Guider:=f.ReadString('NetSetting','Server_Guid','');
            Server_nameer:=f.ReadString('NetSetting','Server_name','');
            IPAddress:=f.ReadString('NetSetting','IP_Address','');
            icount:=length(IPAddress) div 3;
            for i:=1 to icount do
            begin
                itemp:=strtoint(copy(IPAddress,(i-1)*3+1,3));
            end;
        except
            IPAddress:='';
        end;
        IPAddress:=Encrypt(IPAddress,'luersoft');
        //********服务器名称解密码************

        Socket_Connection.Connected:=False;
        Socket_Connection.Address:=IPAddress;
        Socket_Connection.ServerGUID:=Server_Guider;
        Socket_Connection.ServerName:=Server_Nameer;
        Socket_Connection.Connected:=True;
       // f.Free;
     except
        application.MessageBox('【远程服务器连接错误】,请重新注册连接!','错误',mb_iconwarning);
        Application.CreateForm(Tfrm_Connect, frm_Connect);
        frm_Connect.ShowModal;
        frm_Connect.Free;
        system.Halt(0);
    end;
    f.Free;
end;


end.