wxp_dm.pas

来自「大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出」· PAS 代码 · 共 104 行

unit wxp_dm;

interface

uses
  SysUtils, Classes, DB, DBTables, Windows, ADODB,Registry;

type
  Tdm_wxp = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Database1: TDatabase;
    Table_contract: TADOQuery;
    Query_contract_machine: TQuery;
    ds_contract_machine: TDataSource;
    ds_contract_z: TDataSource;
    ds_contract_money: TDataSource;
    Query_contract_money: TQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure Table_contractAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
    procedure query2select();    
  public
    { Public declarations }
  end;

var
  dm_wxp: Tdm_wxp;
  FieldType:array of TFieldType;

implementation

{$R *.dfm}

procedure Tdm_wxp.DataModuleCreate(Sender: TObject);
var
computername:pchar;
nsize:Cardinal;
Reg:TRegistry;
flag:string;
begin
    nsize:=MAX_COMPUTERNAME_LENGTH+1;
    getmem(computername,nsize);
    GetComputername(computername,nsize);
    if adoconnection1.connected=true then
        adoconnection1.connected:=false;
    Reg:=TRegistry.Create ;
    try
      Reg.RootKey :=HKEY_CURRENT_USER;
      if Reg.OpenKey('\Software\震雄机械',true) then
      begin
            flag:=Reg.ReadString('Data Source');
            Reg.CloseKey ;
      end;
    finally
      Reg.Free ;
      inherited;
    end;
    if flag='' then
    begin
       adoconnection1.connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=zxjx;Data Source='+computername+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;';//Workstation ID='+computername;
    end
    else
    begin
        adoconnection1.connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=zxjx;Data Source='+flag+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;';//Workstation ID='+computername;
    end;
    //adoconnection1.connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=zxjx;Data Source=LVSG;Data Source=LVSG;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;';//Workstation ID='+computername;
    adoconnection1.DefaultDatabase:='zxjx';
    adoconnection1.connected:=true;
end;

procedure Tdm_wxp.Table_contractAfterScroll(DataSet: TDataSet);
begin
     query2select;
end;


procedure Tdm_wxp.query2select();
begin
  //if query1.recordcount<1 then exit;
  with Query_contract_machine do
   begin
    if active then close;
    unprepare;
     parambyname('hth').AsString:=Table_contract.fieldbyname('合同号').asstring;
   prepare;
    open;
  end;

   with Query_contract_money do
   begin
    if active then close;
    unprepare;
     parambyname('hth').AsString:=Table_contract.fieldbyname('合同号').asstring;
   prepare;
    open;
  end;
end;



end.