template2.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg Version="450" Zoom="55,2" Range="0,0,1340,1892" BackColor="$808080" Pattern="1">
<Page Name="Page" Bounds="0.000000,0.000000,1340.000000,1892.000000" Margin="100,100,100,100" PaperWidth="1820" PaperHeight="2570"/>
<Sheet Name="Sheet1">
<Text Name="Text1" Bounds="600.375000,88.500000,749.375000,121.500000" Origin="-15.625000,56.500000" AutoSize="True" Border="$0" FontName="宋体" FontSize="29" TextAlign="0" Text="交易明细表"/>
<Text Name="text2" Bounds="79.000000,140.000000,168.750000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="OrderNo"/>
<Text Name="text12" Bounds="168.750000,140.000000,352.000000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;OrderNo"/>
<Text Name="text4" Bounds="79.000000,183.000000,168.750000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="CustNo"/>
<Text Name="text13" Bounds="168.750000,183.000000,352.000000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;CustNo"/>
<Text Name="text6" Bounds="672.000000,140.000000,808.000000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="PaymentMethod"/>
<Text Name="text14" Bounds="808.000000,140.000000,992.000000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;PaymentMethod"/>
<Text Name="text3" Bounds="352.000000,140.000000,512.000000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="EmpNo"/>
<Text Name="text5" Bounds="512.000000,140.000000,672.000000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;EmpNo"/>
<Text Name="text7" Bounds="352.000000,183.000000,512.000000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="ShipDate"/>
<Text Name="text8" Bounds="512.000000,183.000000,672.000000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;ShipDate"/>
<Text Name="text9" Bounds="992.000000,140.000000,1118.750000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="TaxRate"/>
<Text Name="text10" Bounds="1118.750000,140.000000,1262.500000,183.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" NumberAttr="1" TextAlign="26" Text="&amp;TaxRate"/>
<Text Name="text11" Bounds="672.000000,183.000000,808.000000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="ItemsTotal"/>
<Text Name="text15" Bounds="808.000000,183.000000,992.000000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;ItemsTotal"/>
<Text Name="text16" Bounds="992.000000,183.000000,1118.750000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" Text="Freight"/>
<Text Name="text17" Bounds="1118.750000,183.000000,1262.500000,226.000000" Origin="0.000000,44.000000" Pattern="1" FontName="宋体" FontSize="16" NumberAttr="1" TextAlign="26" Text="&amp;Freight"/>
<Elliment Name="交易明细表" Bounds="181.000000,90.000000,293.000000,122.000000" Origin="221.250000,130.875000" Visible="False" SQL="''">
<Shape Name="Rect1" Bounds="181.000000,90.000000,293.000000,122.000000" Origin="221.000000,106.000000" Pattern="1">
<Text Name="Text1" Bounds="181.000000,90.000000,293.000000,122.000000" Origin="237.000000,106.000000" Border="$0" FontName="宋体" FontSize="16" Text="交易明细表"/>
</Shape>
<Programe>
Public Function Active()
return ADOQueryActive( ADOQuery )
End Function
Public Function Close()
ADOQueryClose( ADOQuery )
End Function
Public Function Eof()
return ADOQueryEof( ADOQuery )
End Function
Public Function First()
ADOQueryFirst( ADOQuery )
End Function
Public Function GetFieldValue(FName)
return ADOQueryGetFieldValue( ADOQuery, FName )
End Function
Private Function Initialize(Sender)
ADOQuery=ADOQueryCreate()
End Function
Public Function Last()
ADOQueryLast( ADOQuery )
End Function
Public Function Next()
ADOQueryNext( ADOQuery )
End Function
Private Function OnDestroy(Sender)
ADOQueryFree(ADOQuery)
End Function
Public Function Open()
ADOQueryOpen( ADOQuery, sql )
End Function
Public Function Prior()
ADOQueryPrior( ADOQuery )
End Function
</Programe>
</Elliment>
<Programe>
Public Function FirstPage()
ActiveSheetIndex = 1
End Function
Public Function LastPage()
ActiveSheetIndex = Sheets.Count - 1
End Function
Public Function NextPage()
ActiveSheetIndex = ActiveSheetIndex + 1
End Function
Private Function OnLoad(Sender)
Run CreateIt2
End Function
Public Function PrevPage()
if ActiveSheetIndex &gt; 1 then
	ActiveSheetIndex = ActiveSheetIndex - 1
end if
End Function
</Programe>
</Sheet>
</vg>