北斗信号模拟器实用方法
1.1.1数据库操作方法
本课题对数据库操作主要是使用的ADO Data控件的提供的方法来实现的。
4.2.4.1ADO Data控件的AddNew方法向表中增加一条记录
功能：为可更新的Recordset对象创建新记录。
语法：recordest.Addnew FieldList, Values
参数说明：Fieldlist 可选。
新记录中字段的单个或一组字段名称或者序列位置。
Values 可选。
新记录中字段的单个或一组值。
如果Fields是数组，那么Values 也必须是有相同成员数的数组，否则将发生错误。
字段名称的次序必须与每个数组中的字段值得次序想匹配。
4.2.4.2ADO Data控件的RecordSource属性查询记录
功能：RecordSource属性用来返回或者设置语句或返回一个记录集的查询.
语法：obiect.RecordSourse[=value]
参数说明：Object 一个对象表达式，其值为“应用于”列表中的一个对象
Value 一个字符串表达式，他指定了一个记录源
4.2.4.3ADO Data控件的Delete方法删除一条记录
功能：删除当前记录或者记录组
语法：recordset.Delete AffectRecords
参数说明：
AffectRecords AffectEnum值，确定Delete方法所影响的记录数目。
4.2.4.4ADO Data控件的Updata方法修改记录。
功能：保存对Recordset对象的当前记录所做的所有更改.
语法：recordset.Update Fields, Value
参数说明：Fields 可选。
变体型，代表单个名称；或者变体型数组，代表需要修改的字段（单个或者多个）名称或序号位置。
Values 可选。
变体型，代表单个值；或者变体型数组，代表新记录中字段（单个或多个）值。
修改记录应该分为4步：
1.通过一个唯一的字段查询要修改的记录。
2.将该记录中要修改的数据显示在文本框中，给用户修改。
3按.照1步中的字段，查询表中的记录。
4.如记录存在，修改该记录，将文本框中的值赋给对应的字段。
1.1.2代码程序：
常规脉冲信号增加代码：
Private Sub Command2_Click()
Dim i As Integer
Adodc1.RecordSource = "select * from 常规脉冲信号"
i = Adodc1.Recordset.RecordCount
i = i + 1
If Text2(0).Text > 2 And Text2(0).Text < 20 And Text2(1).Text < 2000 And Text2(2).Text > 500 And Text2(2).Text < 300000 And Text2(3).Text > 5 And Text2(3).Text < 60 And Text2(5).Text < 360 And Text2(6).Text > 2 And Text2(6).Text < 7 And Text2(4).Text > 0 Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = i
Adodc1.Recordset.Fields(1) = Text2(0).Text
Adodc1.Recordset.Fields(2) = Text2(1).Text
Adodc1.Recordset.Fields(3) = Text2(2).Text
Adodc1.Recordset.Fields(4) = Text2(3).Text
Adodc1.Recordset.Fields(5) = Text2(4).Text
Adodc1.Recordset.Fields(6) = Text2(5).Text
Adodc1.Recordset.Fields(7) = Combo1.Text
Adodc1.Recordset.Fields(8) = Text2(6).Text
Adodc1.Recordset.Update
MsgBox "添加成功"
Else
MsgBox "输入有误"
End If
End Sub
2.常规脉冲删除代码：
Private Sub Command1_Click()
Dim j As Integer
Dim i As Integer
Dim k As Integer
j = Text1.Text
Adodc1.RecordSource = "select * from 常规脉冲信号"
i = Adodc1.Recordset.RecordCount
Adodc1.RecordSource = "select * from 常规脉冲信号where 雷达编号=" + Text1.Text + ""
Adodc1.Refresh。