📄 form3.frm
字号:
_ExtentY = 11668
End
End
Begin VB.Frame Frame3
Height = 1275
Left = 0
TabIndex = 1
Top = 0
Width = 15195
Begin VB.PictureBox Picture3
BorderStyle = 0 'None
ForeColor = &H8000000E&
Height = 1095
Left = 60
ScaleHeight = 1095
ScaleWidth = 15075
TabIndex = 2
Top = 120
Width = 15075
Begin VB.CheckBox Check2
Caption = "自动填写加会款"
Height = 315
Left = 7380
TabIndex = 50
Top = 600
Width = 1575
End
Begin VB.CheckBox Check3
Caption = "组成员映射"
Height = 375
Left = 7380
TabIndex = 49
Top = 120
Width = 1455
End
Begin VB.CheckBox Check1
Caption = "银行汇款"
Height = 435
Left = 2820
TabIndex = 34
Top = 360
Width = 1155
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 180
Left = 1320
TabIndex = 53
Top = 660
Width = 540
End
Begin VB.Label Label8
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 975
Left = 6720
TabIndex = 48
Top = 60
Width = 8295
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "未签名："
Height = 180
Left = 4320
TabIndex = 46
Top = 660
Width = 720
End
Begin VB.Label lblWQM
Alignment = 1 'Right Justify
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 315
Left = 5040
TabIndex = 45
Top = 600
Width = 1155
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 6240
TabIndex = 44
Top = 600
Width = 90
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "已签名："
Height = 180
Left = 4320
TabIndex = 43
Top = 240
Width = 720
End
Begin VB.Label lblQM
Alignment = 1 'Right Justify
BackColor = &H80000009&
BorderStyle = 1 'Fixed Single
Height = 315
Left = 5040
TabIndex = 42
Top = 180
Width = 1155
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "2542"
Height = 180
Left = 6240
TabIndex = 41
Top = 240
Width = 360
End
Begin VB.Label Label16
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 975
Left = 4200
TabIndex = 40
Top = 60
Width = 2955
End
Begin VB.Image Image3
Height = 720
Left = 180
Picture = "Form3.frx":BDC0B
Top = 0
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编号："
Height = 180
Left = 1320
TabIndex = 0
Top = 300
Width = 540
End
Begin VB.Label lblBh
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "bbbb"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1860
TabIndex = 4
Top = 300
Width = 795
End
Begin VB.Label txtCust
BackStyle = 0 'Transparent
Caption = "aaaaa"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1920
TabIndex = 3
Top = 600
Width = 855
End
Begin VB.Label lblZB
Alignment = 2 'Center
BackColor = &H80000009&
BackStyle = 0 'Transparent
Height = 255
Left = 120
TabIndex = 38
Top = 660
Width = 975
End
Begin VB.Label Label13
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 975
Left = 0
TabIndex = 39
Top = 60
Width = 4215
End
End
End
Begin VB.ListBox List1
Height = 840
Left = 12540
TabIndex = 47
Top = 6600
Visible = 0 'False
Width = 1395
End
End
Attribute VB_Name = "frmDj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_Cust As Long
Public beginYear As Integer
Private SZZB As Integer
Private Auto As Boolean
Private Sub cmdClsPanel_Click()
End Sub
Private Sub Check1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim SQL As String
If Check1.Value = 0 Then
SQL = "DELETE From 汇款表 WHERE 客户编号=" & Me.Cust
Else
SQL = "SELECT COUNT(*) FROM 汇款表 WHERE 客户编号=" & Me.Cust
If CInt(GetValue(SQL)) = 0 Then
SQL = "insert into 汇款表(客户编号) VALUES(" & Me.Cust & ")"
End If
End If
ExecSQL SQL
End Sub
Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim SQL As String
If Check1.Value = 0 Then
SQL = "DELETE From 汇款表 WHERE 客户编号=" & Me.Cust
Else
SQL = "SELECT COUNT(*) FROM 汇款表 WHERE 客户编号=" & Me.Cust
If CInt(GetValue(SQL)) = 0 Then
SQL = "insert into 汇款表(客户编号) VALUES(" & Me.Cust & ")"
End If
End If
ExecSQL SQL
End Sub
Private Sub Check2_Click()
Auto = Check2.Value
Dim i As Integer
For i = 0 To 5
Table1(i).Auto = Auto
Next
Call SaveSetting(App.EXEName, "Settings", "AUTO", Check2.Value)
End Sub
Private Sub Check3_Click()
Dim i As Integer
For i = 0 To 5
Table1(i).Mapped = CBool(Check3.Value)
Next
Call SaveSetting(App.EXEName, "Settings", "Mapped", Check3.Value)
End Sub
Private Sub cmdMhDel_Click()
Dim SQL As String
Dim SubSQL As String
If LV2.ListItems.Count > 0 Then
If LV2.SelectedItem.Index > 0 Then
SQL = "DELETE FROM 买会表"
If LV2.SelectedItem.SubItems(6) <> "" Then
SubSQL = " WHERE 客户编号=" & Me.Cust & " AND 日期=#" & LV2.SelectedItem.SubItems(6) & "#"
Else
SubSQL = " WHERE 客户编号=" & Me.Cust & " AND 日期 Is Null"
End If
SQL = SQL & SubSQL
ExecSQL SQL
ShowPanel2
End If
End If
If LV2.ListItems.Count > 0 Then
If LV2.SelectedItem.Index > 0 Then
Else
cmdMhDel.Enabled = False
End If
Else
cmdMhDel.Enabled = False
End If
End Sub
Private Sub cmdPGDW_Click()
cmdPgUP.Enabled = True
If List1.ListIndex < List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
If List1.ListIndex = List1.ListCount - 1 Then cmdPGDW.Enabled = False
Me.Cust = List1.ItemData(List1.ListIndex)
End If
End Sub
Private Sub cmdPgUP_Click()
cmdPGDW.Enabled = True
If List1.ListIndex > 0 Then
List1.ListIndex = List1.ListIndex - 1
If List1.ListIndex = 0 Then cmdPgUP.Enabled = False
Me.Cust = List1.ItemData(List1.ListIndex)
End If
End Sub
'Private Sub cmdQh_Click()
'txtCust.Text = cboKH.Text
'Cust = cboKH.ItemData(cboKH.ListIndex)
'reload
'End Sub
Private Sub cmdSave_Click()
Me.MousePointer = 11
Dim SQL As String
cmdSave.Enabled = False
Table1(0).Save
Table1(1).Save
Table1(2).Save
Table1(3).Save
Table1(4).Save
Table1(5).Save
CountInfo
Me.MousePointer = 0
End Sub
Private Sub cmdTool_Click(Index As Integer)
Select Case Index
Case 0
LV1.ListItems.Clear
GetTMList
Timer1.Enabled = True
Case 1
ShowPanel2
Timer2.Enabled = True
End Select
End Sub
Private Sub Command1_Click()
FrmDj2.Client = Cust
FrmDj2.Show
FrmDj2.ZOrder 0
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 5
If Table1(i).Changed = True Then
Table1(i).ReFlash
End If
Next
cmdSave.Enabled = False
End Sub
Private Sub Command3_Click()
HidePanel
frmTMSZ.ClientID = Me.Cust
frmTMSZ.Show 1
End Sub
Private Sub Command5_Click()
If Val(txtMoney) = 0 Then
MsgBox "应缴金额不能为0!"
Exit Sub
End If
Dim SQL As String
SQL = "SELECT COUNT(*) FROM 买会表 WHERE 客户编号=" & Me.Cust & " AND 日期=#" & DTP1.Value & "#"
If GetValue(SQL) = 0 Then
UPDateInfo
'MsgBox "OK!"
txtHm.Text = "0"
txtSm.Text = "0"
txtMh.Text = "0"
txtHk.Text = "0"
txtMHje.Text = "0"
txtMoney.Text = "0"
DTP1.Value = Date
Else
SQL = "UPDATE 买会表 Set"
SQL = SQL & " 活名=" & Val(txtHm)
SQL = SQL & ",实名=" & Val(txtSm)
SQL = SQL & ",买会=" & Val(txtMh)
SQL = SQL & ",会款=" & Val(txtHk)
SQL = SQL & ",买会金额=" & Val(txtMHje)
SQL = SQL & ",应缴金额=" & Val(txtMoney)
'SQL = SQL & ",日期=#" & DTP1.Value & "#"
SQL = SQL & " WHERE 客户编号=" & Me.Cust
SQL = SQL & " AND 日期=#" & DTP1.Value & "#"
ExecSQL SQL
End If
ShowPanel2
End Sub
Private Sub Form_Initialize()
InitCommonControls
End Sub
Private Sub Form_Load()
HidePanel
HidePanel2
Dim SQL As String
Dim i As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -