template1.tbl

来自「电气控制仿真软件」· TBL 代码 · 共 88 行

<?xml version="1.0" encoding="gb2312"?>
<vg Version="450" Range="0,0,790,1116" BackColor="$808080" Pattern="1">
<Page Name="Page" Bounds="0.000000,0.000000,790.000000,1116.000000" Margin="100,100,100,100" PaperWidth="1820" PaperHeight="2570"/>
<Sheet Name="Sheet1">
<Text Name="Text1" Bounds="320.000000,40.000000,440.000000,73.000000" AutoSize="True" Border="$0" FontName="宋体" FontSize="29" TextAlign="0" Text="客户资料"/>
<Text Name="text2" Bounds="48.000000,96.000000,328.000000,139.000000" Pattern="1" Border="$1010707" FontName="宋体" FontSize="16" FontBold="True" Text="Company"/>
<Text Name="text12" Bounds="328.000000,96.000000,738.888889,139.000000" Pattern="1" Border="$1070701" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Company"/>
<Text Name="text4" Bounds="48.000000,139.000000,328.000000,182.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="City"/>
<Text Name="text13" Bounds="328.000000,139.000000,738.888889,182.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;City"/>
<Text Name="text6" Bounds="48.000000,182.000000,328.000000,224.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="Country"/>
<Text Name="text14" Bounds="328.000000,182.000000,738.888889,224.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Country"/>
<Text Name="text3" Bounds="48.000000,256.000000,328.000000,299.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="Contact"/>
<Text Name="text5" Bounds="328.000000,256.000000,738.888889,299.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Contact"/>
<Text Name="text7" Bounds="48.000000,299.000000,328.000000,342.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="Fax"/>
<Text Name="text8" Bounds="328.000000,299.000000,738.888889,342.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Fax"/>
<Text Name="text9" Bounds="48.000000,342.000000,328.000000,384.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="Phone"/>
<Text Name="text10" Bounds="328.000000,342.000000,738.888889,384.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Phone"/>
<Text Name="text11" Bounds="48.000000,224.000000,328.000000,256.000000" Pattern="1" Border="$1010107" FontName="宋体" FontSize="16" FontBold="True" Text="Addr"/>
<Text Name="text15" Bounds="328.000000,224.000000,738.888889,256.000000" Pattern="1" Border="$1070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;Addr1"/>
<Text Name="text16" Bounds="48.000000,384.000000,328.000000,426.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$7010107" FontName="宋体" FontSize="16" FontBold="True" Text="LastInvoiceDate"/>
<Text Name="text17" Bounds="328.000000,384.000000,738.888889,426.000000" Origin="-304.000000,176.000000" Pattern="1" Border="$7070101" FontName="宋体" FontSize="16" TextAlign="24" Text="&amp;LastInvoiceDate"/>
<Elliment Name="日期" Bounds="546.000000,62.000000,666.000000,82.000000">
<Text Name="Text1" Bounds="546.000000,62.000000,666.000000,82.000000" Border="$0" FontName="宋体" FontSize="16" Text="=Date()"/>
</Elliment>
<Elliment Name="客户资料表" Bounds="104.000000,48.000000,216.000000,80.000000" Origin="144.000000,88.000000" Visible="False" SQL="''">
<Shape Name="Rect1" Bounds="104.000000,48.000000,216.000000,80.000000" Origin="144.000000,64.000000" Pattern="1">
<Text Name="Text1" Bounds="104.000000,48.000000,216.000000,80.000000" Origin="160.000000,64.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()
客户资料表.First()
Run CreateIt1
End Function
Public Function LastPage()
客户资料表.Last()
Run CreateIt1
End Function
Public Function NextPage()
客户资料表.Next()
Run CreateIt1.bas
End Function
Private Function OnLoad(Sender)
Run CreateIt1
End Function
Public Function PrevPage()
客户资料表.Prior()
Run CreateIt1
End Function
</Programe>
</Sheet>
</vg>