delphi Activex

procedure In_Data(var In_Data: OleVariant); safecall; //------------------传递主数据源 procedure In_Cds_Caption(var Cds_Caption: OleVariant); safecall; //---------传递主数据源字段名称 procedure In_Cds_Caption_list(var In_Cds_Caption_list: OleVariant); //------传递从数据源 safecall; procedure In_Data_list(var In_Data_list: OleVariant); safecall; //------传递从数据源字段名称 procedure Set_MasterFields_indexnames( var MasterFields_indexnames: OleVariant); safecall; //------处理主从表关联字段 procedure TActiveFormX.Path(var Path: OleVariant); //动态加载打印文件路径 -----创建数据库 declare @test varchar(10),@sql varchar(500) set @test = 'test' set @sql=' create database '+@test +' on (name = '''+@test+'_dat'',filename = ''d:\'+@test+'.mdf'',size = 10 ) log on ( name = '''+@test+'_log'', filename = ''d:\'+@test+'.ldf'', size = 5mb) ' exec(@sql) ------- 数据主表 CREATE TABLE [dbo].[tb_work] ( [work_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [cust_no] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL , [cust_name] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [produce_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON [PRIMARY] GO 数据从表1： REATE TABLE [dbo].[tb_work_list] ( [work_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [produce_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [prod_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL , [prod_color_no] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL , [prod_color_name] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [type] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO ------------------数据 insert into tb_work(work_no,cust_no,cust_name,produce_no ) select 'G200810-0020','Aoo2','Halo Asia Limited','TM08-153' insert into tb_work_list(work_no,produce_no prod_no,prod_color_no,prod_color_name,type) select 'G200810-0020','TM08-153','旧木原色','Genuine English Reclaimed Timber','旧木系列' select 'G200810-0020','TM08-153','旧木原色1','Genuine English Reclaimed Timber','旧木系列' union all select 'G200810-0020','TM08-153','旧木原色111','Genuine English Reclaimed Timber','旧木系列' union all select 'G200810-0020','TM08-153','旧木原色111','Genuine English Reclaimed Timber','旧木系列'