1) Caption属性：用来显示在控件上的标题。
2) Enable属性：控制控件的激活状态灰色或可用。
3) Appearance属性：值为1时,则以3D效果显示该控件,0则不然。
4) Backcolor属性：用来改变在按钮上显示图像的背景色。
5) Cancel属性：该属性决定按钮是否为一个”取消”按钮。
6) Default属性:决定哪一个命令按钮控件是窗体的缺省命令按钮.
7) Font属性:控制各种文字字体类型.
8) Left,top,height,width属性:设定控件的位置与大小.
9) Style,picture属性:决定按钮的显示方式是否为图像形式出现.
10) Visible属性:确定控件运行时是否为可见.
11) Index属性:当控件为一控件数组时,此属性值为该控件在数组的下标值.
12) DownPicture属性：设置/返回一个对图片的引用，该图片在按钮被单击处于压下状态时显示。
13) DisabledPicture属性：设置/返回一个对图片的引用，该图片在控件无效时显示在控件中。
14) MaskColor属性：设置/返回一个在按钮的图片中作为“掩码“的的颜色
15) Picture属性：设置返回commandButton控件中要显示的图片。
u 命令按钮类的事件：
1）单击事件――Click事件
（1） 触发与适用
此事件是在一个命令按钮对象上按下然后释放一个鼠标按钮时发生。命令按钮的Click事件仅对当单击鼠标时发生。
（2） 事件处理过程
按钮单击事件的处理过程为：
Private Sub object-Click（Index As Integer）
其中Object为引发该事件的对象名称。如果是命令按钮的控件是数组，则需要使用Index参数标识该控件。
inlibdetail,goods where 进库单号码='" & Trim(Text1) & "' And GoodsID = 材料编码")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs1.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs1.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs1.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs1.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("经办人")
End If
MSFlexGrid1.Col = 4
If IsNull(Myrs1.Fields("保管人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("保管人")
End If
MSFlexGrid1.Col = 5
MSFlexGrid1.Text = Myrs2.Fields("goodsid")
MSFlexGrid1.Col = 6
MSFlexGrid1.Text = Myrs2.Fields("goodsname")
MSFlexGrid1.Col = 7
MSFlexGrid1.Text = Myrs2.Fields("type")
MSFlexGrid1.Col = 8
MSFlexGrid1.Text = Myrs2.Fields("unit")
MSFlexGrid1.Col = 9
MSFlexGrid1.Text = Myrs2.Fields("数量")
MSFlexGrid1.Col = 10
MSFlexGrid1.Text = Format(Myrs2.Fields("单价"), "#0.00")
MSFlexGrid1.Col = 11
MSFlexGrid1.Text = Format(Myrs2.Fields("金额"), "#0.00")
MSFlexGrid1.Col = 12
If IsNull(Myrs2.Fields("备注")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs2.Fields("备注")
End If
Myrs2.MoveNext
Wend
Myrs2.Close
Else
MsgBox "不存在这个进库单号码", vbOKOnly + vbExclamation, "信息提示"
Text1 = ""
Text1.SetFocus
Exit Sub
End If
Myrs1.Close
End If
End If
If Option2.Value = True Then
If Text2.Text = "" Then
MsgBox "请正确填写发票号码！", vbOKOnly + vbExclamation, "信息提示"
Text2.SetFocus
Exit Sub
Else
Set Myrs1 = Mydb.OpenRecordset("select * from inlib where 发票号码='" & Trim(Text2) & "'")
MSFlexGrid1.Clear
TableInit
If Myrs1.RecordCount >= 1 Then
Set Myrs2 = Mydb.OpenRecordset("select * from inlibdetail where 进库单号码='" & Myrs1.Fields("进库单号码") & "'")
Set mrc = Mydb.OpenRecordset("select * from goods where goodsid='" & Myrs2.Fields("材料编码") & "'")
While Myrs2.EOF = False
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Myrs1.Fields("进库单号码")
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Myrs1.Fields("发票号码")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = Myrs1.Fields("进库日期")
MSFlexGrid1.Col = 3
If IsNull(Myrs1.Fields("经办人")) Then
MSFlexGrid1.Text = ""
Else
MSFlexGrid1.Text = Myrs1.Fields("经办人")
End If
MSFlexGrid1.Col = 4
