template3.tbl

电气控制仿真软件

<?xml version="1.0" encoding="gb2312"?>
<vg Version="450" Zoom="22,1" Range="2,-1,1063,1497" BackColor="$808080" Pattern="1">
<Page Name="Page" Bounds="1.634146,-0.878049,1062.637791,1497.121951" PrintRatio="70" Margin="60,60,60,60" PaperWidth="1820" PaperHeight="2570"/>
<Sheet Name="Sheet1">
<Text Name="Text1" Bounds="495.436807,71.073171,609.436807,108.073171" Origin="21.436807,35.073171" AutoSize="True" Border="$0" FontName="宋体" FontSize="29" TextAlign="0" Text="客户资料"/>
<Text Name="text2" Bounds="53.951220,122.682927,216.000000,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1010606" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="Company"/>
<Text Name="text12" Bounds="216.000000,122.682927,373.951220,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1010601" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.Company"/>
<Text Name="text4" Bounds="53.951220,165.682927,216.000000,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6010106" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="City"/>
<Text Name="text13" Bounds="216.000000,165.682927,373.951220,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6010101" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.City"/>
<Text Name="text3" Bounds="373.951220,122.682927,533.951220,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1010601" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="Contact"/>
<Text Name="text5" Bounds="533.951220,122.682927,693.951220,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1010601" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.Contact"/>
<Text Name="text7" Bounds="373.951220,165.682927,533.951220,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6010101" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="Fax"/>
<Text Name="text8" Bounds="533.951220,165.682927,693.951220,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6010101" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.Fax"/>
<Text Name="text9" Bounds="693.951220,122.682927,856.000000,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1010601" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="Phone"/>
<Text Name="text10" Bounds="856.000000,122.682927,1013.951220,165.682927" Origin="21.951220,26.682927" Pattern="1" Border="$1060601" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.Phone"/>
<Text Name="text16" Bounds="693.951220,165.682927,856.000000,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6010101" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="LastInvoiceDate"/>
<Text Name="text17" Bounds="856.000000,165.682927,1013.951220,208.682927" Origin="21.951220,26.682927" Pattern="1" Border="$6060101" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;客户资料表.LastInvoiceDate"/>
<Text Name="text6" Bounds="53.951220,233.682927,216.000000,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="SaleDate"/>
<Text Name="text11" Bounds="216.000000,233.682927,372.951220,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="Terms"/>
<Text Name="text14" Bounds="372.951220,233.682927,532.951220,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="PaymentMethod"/>
<Text Name="text15" Bounds="532.951220,233.682927,691.951220,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="ItemsTotal"/>
<Text Name="text19" Bounds="691.951220,233.682927,856.000000,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="AmountPaid"/>
<Text Name="text20" Bounds="856.000000,233.682927,1013.951220,257.682927" Origin="21.951220,26.682927" BackColor="$C0C0C0" Pattern="1" FontName="宋体" FontSize="16" FontBold="True" BorderInterval="4" Text="ShipDate"/>
<Text Name="text22" Bounds="216.000000,257.682927,372.951220,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;交易明细表.Terms"/>
<Text Name="text23" Bounds="372.951220,257.682927,532.951220,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;交易明细表.PaymentMethod"/>
<Text Name="text24" Bounds="532.951220,257.682927,691.951220,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" TextAlign="26" BorderInterval="4" Text="&amp;交易明细表.ItemsTotal"/>
<Text Name="text25" Bounds="691.951220,257.682927,856.000000,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" TextAlign="26" BorderInterval="4" Text="&amp;交易明细表.AmountPaid"/>
<Text Name="text26" Bounds="856.000000,257.682927,1013.951220,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" TextAlign="24" BorderInterval="4" Text="&amp;交易明细表.ShipDate"/>
<Text Name="Text27" Bounds="53.951220,257.682927,216.000000,281.682927" Origin="21.951220,26.682927" Pattern="1" FontName="宋体" FontSize="16" Text="&amp;交易明细表.SaleDate"/>
<Elliment Name="交易明细表" Bounds="193.951220,314.682927,305.951220,346.682927" Origin="234.201220,355.557927" Visible="False" SQL="''">
<Shape Name="Rect1" Bounds="193.951220,314.682927,305.951220,346.682927" Origin="233.951220,330.682927" Pattern="1">
<Text Name="Text1" Bounds="193.951220,314.682927,305.951220,346.682927" Origin="249.951220,330.682927" 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>
<Elliment Name="客户资料表" Bounds="52.951220,310.682927,164.951220,342.682927" Origin="92.951220,350.682927" Visible="False" SQL="''">
<Shape Name="Rect1" Bounds="52.951220,310.682927,164.951220,342.682927" Origin="92.951220,326.682927" Pattern="1">
<Text Name="Text1" Bounds="52.951220,310.682927,164.951220,342.682927" Origin="108.951220,326.682927" 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 = SheetCount - 1
End Function
Public Function NextPage()
ActiveSheetIndex = ActiveSheetIndex + 1
End Function
Private Function OnLoad(Sender)
Run CreateIt3
End Function
Public Function PrevPage()
if ActiveSheetIndex &gt; 1 then
	ActiveSheetIndex = ActiveSheetIndex - 1
end if
End Function
</Programe>
</Sheet>
</vg>