End If '标题内容
If Args(0) = \标题\ Oj.Text = vs(21) End If '图例位置
If Args(0) = \图例\ Select Case vs(22) Case \底部\
Oj.Position = MSExcel.XlLegendPosition.xlLegendPositionBottom Case \右上角\
Oj.Position = MSExcel.XlLegendPosition.xlLegendPositionCorner Case \靠上\
Oj.Position = MSExcel.XlLegendPosition.xlLegendPositionTop Case \靠右\
Oj.Position = MSExcel.XlLegendPosition.xlLegendPositionRight Case \靠左\
Oj.Position = MSExcel.XlLegendPosition.xlLegendPositionLeft End Select End If
全局代码
Public exStr As String = \绘图区\
菜单事件
======================================= =====Excel报表.Foxdb=====
项目事件
MainTableChanged
Static i As Integer '定义静态变量i
If MainTable.Name = \统计表\如果进入的是统计表 If i = 0 Then '加入i等于0 i = 1 '那么将i的值设为1
Forms(\窗口1\打开窗口 End If
Forms(\窗口1\Else
Forms(\窗口1\End If
计划管理
表事件
窗口表事件
窗口与控件事件
窗口1_AfterLoad
21
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量 Chart= e.Form.Controls(\引用窗口中的图表 Chart.DataSource = \统计表\设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系 Series = Chart.SeriesList.Add() '增加一个图系 Series.X.DataField = \产品\轴绑定到产品列 Series.Y.DataField = \数量\轴绑定到数量列
窗口1_Button1_Click
Dim b As New XLS.Book
Dim t As Table = Tables(\统计表\Dim s As XLS.Sheet = b.Sheets(0)
Dim Chart As WinForm.Chart = Forms(\窗口1\For c As Integer = 0 To t.Cols.Count -1 '添加列标题 s(0, c).Value = t.Cols(c).Name Next
For r As Integer = 0 To t.Rows.Count - 1 '填入数据 For c As Integer = 0 To t.Cols.Count -1 s(r +1, c).Value = t.rows(r)(c) Next Next
'插入图表
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image,0,0,422,258) b.Save(\Dim Proc As New Process
Proc.File = \Proc.Start()
自定义函数
全局代码
菜单事件
======================================= =====SQL与自动输入.Foxdb=====
项目事件
AfterOpenProject
Dim cmd As New SQLCommand Dim dt As DataTable
cmd.ConnectionName = \行政区域\
cmd.CommandText = \省市 From {行政区域}\dt = cmd.ExecuteReader
Tables(\客户\省市\省市\
BeforeConnectOuterDataSource
If e.name = \行政区域\
e.ConnectionString = \行政区域.mdb;Persist Security Info=False\
22
End if
计划管理
表事件
客户_PrepareEdit
If e.IsFocusCell Then '如果是焦点单元格
If e.Col.Name = \县市\如果正在编辑的是县市列 Dim cmd As New SQLCommand Dim dt As DataTable
cmd.ConnectionName = \行政区域\
cmd.CommandText = \县市 From {行政区域} Where [省市] = '\省市\& \
dt = cmd.ExecuteReader
e.Col.Combolist = dt.GetComboListString(\县市\ End If End If
客户_DataColChanged
If e.DataCol.Name = \省市\县市\ Dim cmd As New SQLCommand Dim dt As DataTable
Dim dr As DataRow = e.DataRow cmd.ConnectionName = \行政区域\
cmd.CommandText = \行政区域} Where [省市] = '\省市\县市] = '\& dr(\县市\ dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
dr(\区号\区号\ dr(\邮编\邮编\ Else
dr(\区号\ dr(\邮编\ End If End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
菜单事件
======================================= =====下拉目录树.foxdb=====
项目事件
AfterOpenProject
23
Tables(\客户\县市\窗口1\Forms(\窗口2\
计划管理
表事件
窗口表事件
窗口与控件事件
Button1_Click
Dim trv As WinForm.TreeView = e.Form.Controls(\trv.BuildTree(\行政区域\省市|县市\
TreeView1_NodeMouseClick
If e.Node.Level = 1 Then '如果单击的是第二层节点 Dim ps() As String = e.Node.FullPath.Split(\ Dim tr As Row = Tables(\客户\
Dim dr As DataRow = DataTables(\行政区域\省市 = '\县市 = '\& \
If dr IsNot Nothing Then '如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行. tr(\省市\省市\ tr(\县市\县市\ tr(\区号\区号\ tr(\邮编\邮编\
e.Form.DropDownBox.Value = tr(\县市\'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据. End If
e.Form.DropDownBox.CloseDropdown() End If
窗口1_AfterLoad
Dim trv As WinForm.TreeView = e.Form.Controls(\trv.BuildTree(\行政区域\省市|县市\
窗口2_Button1_Click
With Tables(\客户\
.Position = .Position - 1 End With
窗口2_Button2_Click
With Tables(\客户\
.Position = .Position + 1 End With
窗口2_Button3_Click
Tables(\客户\
24
窗口2_Button4_Click
With Tables(\客户\
If .Current IsNot Nothing Then .Current.Delete End If End With
自定义函数
全局代码
菜单事件
======================================= =====下拉窗口演示.Foxdb=====
项目事件
AfterOpenProject
Tables(\表A\第一列\窗口1\Tables(\表A\第二列\窗口2\Tables(\表A\第三列\窗口4\Forms(\窗口3\
计划管理
表事件
窗口表事件
窗口与控件事件
Button1_Click
For Each ctl As WinForm.Control In e.Form.Controls '遍历所有控件
If TypeOf ctl Is WinForm.RadioButton Then '如果此控件是RadionButton(单选框) Dim rdo As WinForm.RadioButton = ctl If rdo.Checked Then '如果已经选中
e.Form.DropDownBox.Value = rdo.Text '将此单选框的文本赋值给下拉组合框 e.Form.DropDownBox.CloseDropdown() '关闭下拉窗口 Exit For End If End If Next
Button1_Click
e.Form.DropDownBox.CloseDropdown()
Button2_Click
e.Form.DropDownBox.CloseDropdown(False)
25