?? frminh1.frm
字號:
Private Sub Combo1_Click(Index As Integer)
Dim mrcc As ADODB.Recordset
Dim mrcd As ADODB.Recordset
Dim MsgText As String
If Index = 1 Then
txtItem(2) = Combo1(1).ItemData(Combo1(1).ListIndex)
ElseIf Index = 2 Then
txtSQL = "select dm,rkj from dm_wz where mc = '" & Trim(Combo1(2)) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
txtItem(3) = mrcc.Fields(0)
txtItem(5) = mrcc.Fields(1)
End If
mrcc.Close
ElseIf Index = 4 Then
txtSQL = "select dm from dm_ck where mc = '" & Trim(Combo1(4)) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
txtItem(10) = mrcc.Fields(0)
End If
mrcc.Close
ElseIf Index = 5 Then
If Combo1(5).ListIndex = 0 Or Combo1(5).ListIndex = 1 Then
txtItem(8).Visible = False
Label2(13).Visible = False
Else
txtItem(8).Visible = True
Label2(13).Visible = True
End If
End If
End Sub
Private Sub Form_Load()
Dim intCount As Integer
Dim MsgText As String
Dim i As Integer
Dim mrcc As ADODB.Recordset
Combo1(5).AddItem "即使付清"
Combo1(5).ItemData(Combo1(5).NewIndex) = 0
Combo1(5).AddItem "記 賬"
Combo1(5).ItemData(Combo1(5).NewIndex) = 1
Combo1(5).AddItem "預 付"
Combo1(5).ItemData(Combo1(5).NewIndex) = 2
txtItem(8).Visible = False
Label2(13).Visible = False
If gintINHmode = 1 Then
Me.Caption = Me.Caption & "添加"
For i = 0 To 11
txtItem(i).Text = ""
Next i
For i = 0 To 2
Combo1(i).Clear
Next i
For i = 4 To 4
Combo1(i).Clear
Next i
ElseIf gintINHmode = 2 Then
Set mrc = ExecuteSQL(txtSQL, MsgText)
If mrc.EOF = False Then
With mrc
txtItem(0) = .Fields(0)
Combo1(0).Clear
txtSQL = "select dm,mc from dm_ywy where dm = '" & .Fields(1) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
Combo1(0).AddItem mrcc.Fields(1)
Combo1(0).ItemData(Combo1(0).NewIndex) = mrcc.Fields(0)
Combo1(0).ListIndex = 0
mrcc.Close
End If
Combo1(4).Clear
txtSQL = "select dm,mc from dm_ck where dm = '" & .Fields(4) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
Combo1(4).AddItem mrcc.Fields(1)
Combo1(4).ItemData(Combo1(4).NewIndex) = mrcc.Fields(0)
Combo1(4).ListIndex = 0
mrcc.Close
End If
For intCount = 1 To 2
txtItem(intCount) = .Fields(intCount + 1)
Next intCount
Combo1(1).Clear
txtSQL = "select dm,mc from dm_gf where dm = '" & .Fields(3) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
Combo1(1).AddItem mrcc.Fields(1)
Combo1(1).ItemData(Combo1(1).NewIndex) = mrcc.Fields(0)
Combo1(1).ListIndex = 0
mrcc.Close
End If
txtItem(3) = .Fields(intCount + 2)
Combo1(2).Clear
txtSQL = "select dm,mc from dm_wz where dm = '" & .Fields(5) & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
Combo1(2).AddItem mrcc.Fields(1)
Combo1(2).ItemData(Combo1(2).NewIndex) = mrcc.Fields(0)
Combo1(2).ListIndex = 0
mrcc.Close
End If
txtItem(11) = .Fields(6)
For intCount = 4 To 7
txtItem(intCount) = .Fields(intCount + 3)
Next intCount
If Trim(.Fields(11)) = "Y" Then
Combo1(5).ListIndex = 0
Else
If Trim(.Fields(12)) = "Y" Then
Combo1(5).ListIndex = 1
Else
Combo1(5).ListIndex = 2
txtItem(8) = .Fields(13)
End If
End If
txtItem(9) = .Fields(14)
txtCKDM = .Fields(4)
txtWZDM = .Fields(5)
txtQIHAO = .Fields(6)
txtSL = .Fields(7)
txtZKE = .Fields(10)
End With
txtItem(0).Enabled = False
End If
Me.Caption = Me.Caption & "修改"
End If
txtSQL = "select dm,mc from dm_ywy"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
If Trim(Combo1(0)) <> "" Then
Do While Not mrcc.EOF
If Combo1(0).ItemData(Combo1(0).ListIndex) <> mrcc.Fields(0) Then
Combo1(0).AddItem mrcc.Fields(1)
Combo1(0).ItemData(Combo1(0).NewIndex) = mrcc.Fields(0)
End If
mrcc.MoveNext
Loop
Else
Do While Not mrcc.EOF
Combo1(0).AddItem mrcc.Fields(1)
Combo1(0).ItemData(Combo1(0).NewIndex) = mrcc.Fields(0)
mrcc.MoveNext
Loop
End If
End If
mrcc.Close
txtItem(0) = Format(Now, "yyyy-mm-dd")
txtItem(0).Enabled = False
txtSQL = "select dm,mc from dm_gf"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
If Trim(Combo1(1)) <> "" Then
Do While Not mrcc.EOF
If Combo1(1).ItemData(Combo1(1).ListIndex) <> mrcc.Fields(0) Then
Combo1(1).AddItem mrcc.Fields(1)
Combo1(1).ItemData(Combo1(1).NewIndex) = mrcc.Fields(0)
End If
mrcc.MoveNext
Loop
Else
Do While Not mrcc.EOF
Combo1(1).AddItem mrcc.Fields(1)
Combo1(1).ItemData(Combo1(1).NewIndex) = mrcc.Fields(0)
mrcc.MoveNext
Loop
End If
End If
mrcc.Close
txtSQL = "select dm,mc from dm_wz"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
If Trim(Combo1(2)) <> "" Then
Do While Not mrcc.EOF
If Combo1(2).ItemData(Combo1(2).ListIndex) <> mrcc.Fields(0) Then
Combo1(2).AddItem mrcc.Fields(1)
Combo1(2).ItemData(Combo1(2).NewIndex) = mrcc.Fields(0)
End If
mrcc.MoveNext
Loop
Else
Do While Not mrcc.EOF
Combo1(2).AddItem mrcc.Fields(1)
Combo1(2).ItemData(Combo1(2).NewIndex) = mrcc.Fields(0)
mrcc.MoveNext
Loop
End If
End If
mrcc.Close
txtSQL = "select dm,mc from dm_ck"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
If Not mrcc.EOF Then
If Trim(Combo1(4)) <> "" Then
Do While Not mrcc.EOF
If Combo1(4).ItemData(Combo1(4).ListIndex) <> mrcc.Fields(0) Then
Combo1(4).AddItem mrcc.Fields(1)
Combo1(4).ItemData(Combo1(4).NewIndex) = mrcc.Fields(0)
End If
mrcc.MoveNext
Loop
Else
Do While Not mrcc.EOF
Combo1(4).AddItem mrcc.Fields(1)
Combo1(4).ItemData(Combo1(4).NewIndex) = mrcc.Fields(0)
mrcc.MoveNext
Loop
End If
End If
mrcc.Close
mblChange = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
gintINHmode = 0
End Sub
Private Sub txtItem_Change(Index As Integer)
Dim intCount As Integer
'用于計算工資
Dim dblTotal As Double
'有變化設置gblchange
mblChange = True
If (Index >= 4 And Index <= 6) Then
dblTotal = 0
If Trim(txtItem(4)) <> "" And Trim(txtItem(5)) <> "" And Trim(txtItem(6)) <> "" Then
dblTotal = CDbl(txtItem(4)) * CDbl(txtItem(5)) * CDbl(txtItem(6)) / 100
End If
txtItem(7) = Format(dblTotal, "#0.00")
End If
Exit Sub
End Sub
Private Sub txtItem_GotFocus(Index As Integer)
txtItem(Index).SelStart = 0
txtItem(Index).SelLength = Len(txtItem(Index))
End Sub
Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
Private Sub txtItem_KeyPress(Index As Integer, KeyAscii As Integer)
If Index >= 4 And Index <= 6 Then
'MsgBox KeyCode
'對鍵入字符進行控制
'txtQuantity(Index).Locked = False
'小數點只允許輸入一次
If KeyAscii = 190 Then
If InStr(Trim(txtItem(Index)), ".") = 0 Then
If Len(Trim(txtItem(Index))) > 0 Then
txtItem(Index).Locked = False
Else
txtItem(Index).Locked = True
End If
Else
txtItem(Index).Locked = True
End If
Exit Sub
End If
'非數字不能輸入
If KeyAscii > 57 Or KeyAscii < 48 Then
txtItem(Index).Locked = True
Else
txtItem(Index).Locked = False
End If
'允許Backspace
If KeyAscii = 8 Then
txtItem(Index).Locked = False
End If
'Delete鍵
If KeyAscii = 46 Then
txtItem(Index).Locked = False
End If
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -