📄 frmrecord.frm
字号:
Caption = "会员姓名："
Height = 180
Left = 240
TabIndex = 39
Top = 600
Width = 900
End
Begin VB.Label LblCode
AutoSize = -1 'True
Caption = "会员编号："
Height = 180
Left = 240
TabIndex = 38
Top = 240
Width = 900
End
End
Begin VB.PictureBox PicFrame
Height = 4095
Index = 1
Left = -74760
ScaleHeight = 4035
ScaleWidth = 6435
TabIndex = 30
Top = 900
Width = 6495
Begin VB.TextBox TxtForID
Enabled = 0 'False
Height = 300
Left = 1560
MaxLength = 20
TabIndex = 17
Top = 180
Width = 1455
End
Begin VB.TextBox TxtForTitle
Enabled = 0 'False
Height = 300
Left = 4680
MaxLength = 20
TabIndex = 18
Top = 180
Width = 1455
End
Begin VB.TextBox TxtForUnit
Enabled = 0 'False
Height = 300
Left = 1560
MaxLength = 40
TabIndex = 19
Top = 540
Width = 1455
End
Begin VB.TextBox TxtWork
Enabled = 0 'False
Height = 1095
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 23
Top = 1320
Width = 4575
End
Begin VB.TextBox TxtBeiZhu
Enabled = 0 'False
Height = 1095
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Top = 2640
Width = 4575
End
Begin MSComCtl2.DTPicker DTPForInToWork
Height = 300
Left = 4680
TabIndex = 20
Top = 540
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21168129
CurrentDate = 38326
End
Begin MSComCtl2.DTPicker DTPInBranchDate
Height = 300
Left = 1560
TabIndex = 21
Top = 960
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21168129
CurrentDate = 38326
End
Begin MSComCtl2.DTPicker DTPRiceDate
Height = 300
Left = 4680
TabIndex = 22
Top = 960
Width = 1455
_ExtentX = 2566
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21168129
CurrentDate = 38326
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "退出协会时间："
Height = 180
Left = 3240
TabIndex = 68
Top = 960
Width = 1260
End
Begin VB.Label LblInBranchDate
AutoSize = -1 'True
Caption = "团队组建时间："
Height = 180
Left = 240
TabIndex = 67
Top = 960
Width = 1260
End
Begin VB.Label LblForID
AutoSize = -1 'True
Caption = "原身份："
Height = 180
Left = 240
TabIndex = 36
Top = 240
Width = 720
End
Begin VB.Label LblForTitle
AutoSize = -1 'True
Caption = "原所获得奖项："
Height = 180
Left = 3240
TabIndex = 35
Top = 240
Width = 1260
End
Begin VB.Label LblForUnit
AutoSize = -1 'True
Caption = "原来比赛单位："
Height = 180
Left = 240
TabIndex = 34
Top = 600
Width = 1260
End
Begin VB.Label LblForInToWork
AutoSize = -1 'True
Caption = "比赛获奖时间："
Height = 180
Left = 3240
TabIndex = 33
Top = 600
Width = 1260
End
Begin VB.Label LblWork
AutoSize = -1 'True
Caption = "团队经验："
Height = 180
Left = 240
TabIndex = 32
Top = 1320
Width = 900
End
Begin VB.Label LblBeiZhu
AutoSize = -1 'True
Caption = "其它备注："
Height = 180
Left = 240
TabIndex = 31
Top = 2640
Width = 900
End
End
Begin VB.Label Label6
Caption = "次比赛"
Height = 375
Left = -73560
TabIndex = 82
Top = 5160
Width = 1095
End
Begin VB.Label Label5
Caption = "0"
Height = 255
Left = -73920
TabIndex = 81
Top = 5160
Width = 1095
End
Begin VB.Label LblCount2
Caption = "共参加"
Height = 375
Left = -74640
TabIndex = 79
Top = 5160
Width = 1455
End
End
Begin WinXPC_Engine.WindowsXPC WinXPRecord
Left = 1560
Top = 1560
_ExtentX = 6588
_ExtentY = 1085
ColorScheme = 2
EngineStarted = -1 'True
Common_Dialog = 0 'False
End
Begin VB.CommandButton CmdRefresh
Caption = "Refresh"
Height = 495
Left = 5760
TabIndex = 59
Top = 2520
Visible = 0 'False
Width = 1215
End
Begin VB.Timer Tmr
Interval = 6000
Left = 360
Top = 720
End
Begin VB.CommandButton Command2
Caption = "关 闭"
Height = 375
Left = 3240
TabIndex = 66
Top = 6120
Width = 1215
End
Begin VB.ComboBox CmbMarrageState
Enabled = 0 'False
Height = 300
ItemData = "FrmRecord.frx":0CEC
Left = 6240
List = "FrmRecord.frx":0CF6
TabIndex = 60
Text = "ACM05001.jpg"
Top = 3360
Width = 975
End
Begin MSComCtl2.DTPicker DTPTitleDate
Height = 300
Left = 5400
TabIndex = 61
Top = 3840
Width = 1215
_ExtentX = 2143
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 21168129
CurrentDate = 38326
End
Begin VB.TextBox Text2
Height = 375
Left = 5760
TabIndex = 63
Text = "0"
Top = 4320
Width = 855
End
Begin VB.TextBox Text1
Height = 375
Left = 6000
TabIndex = 64
Text = "0"
Top = 4440
Width = 735
End
Begin VB.TextBox Text3
Height = 375
Left = 5880
TabIndex = 65
Text = "Text3"
Top = 1320
Width = 855
End
End
Attribute VB_Name = "FrmRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a, b, c, d, e
a = TxtCode.Text
Text1.Text = loadname
b = Text1.Text
e = Text1.Text
On Error Resume Next
'LoadPicture (App.Path + "\a1.jpg")
Image1.Picture = LoadPicture(b)
Do Until InStr(b, "\") = 0
c = InStr(b, "\")
b = Mid(b, c + 1)
Loop
d = a & Mid(b, InStr(b, "."))
Label1.Caption = d
b = App.Path & "\DateBase\photos\" & d
Label1.Caption = d
If e = b Then
Image1.Picture = LoadPicture(b)
Else
FileCopy e, b
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub flash_Click()
Dim StrSQL As String
StrSQL = "select * from 成绩表 where " '//给定义好的字符变量赋予SQL语句
StrSQL = StrSQL & "会员编号= '" & Trim(TxtCode.Text) & "'"
If RstQueryPay.State = adStateClosed Then
If RstQueryPay.State = adStateClosed Then
RstQueryPay.Open StrSQL, DBCON, adOpenKeyset, adLockOptimistic, adCmdText
End If
End If
Set VSFlexGrid1.DataSource = RstQueryPay.DataSource
VSFlexGrid1.Refresh '//刷新网格
RstQueryPay.Close '//关闭记录集
Label5.Caption = VSFlexGrid1.Rows - 1 '//将记录条数显示在标签上
End Sub
Private Sub Form_Load()
WinXPRecord.InitSubClassing
Me.Left = Frmmdimain.Width / 5
Me.Top = 0
If RsRecord.State = adStateOpen Then
RsRecord.Close
End If
RsRecord.Open "会员档案", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
Text1.Text = App.Path & "\DateBase\photos\" & Label1.Caption
If RsRecord.RecordCount > 0 Then
Call FormTxtValue1
Call flash_Click
Else
Call FormTxtValue2
End If
On Error Resume Next
If Label1.Caption <> "请添加照片" Or Label1.Caption <> "" Then
Image1.Picture = LoadPicture(App.Path & "\DateBase\photos\" & Label1.Caption)
End If
End Sub
Private Sub CmdAdd_Click()
RsRecord.AddNew '//在记录集中添加一条新记录
Call FormTxtValue2 '//调用给文本框赋空值的过程
Call TxtState '//调用启用文本框的Enabled属性过程
Call CmdState1 '//调用命令按钮Visible属性为隐藏的过程
loadfile
CmdEdit.Tag = "0"
'Dim a, c, b
'b = getlist("TxtCode", "会员档案", "会员编号")
'a = getlist("Combo1", "会员档案", "获奖情况")
'c = getlist("TxtName", "会员档案", "会员姓名")
End Sub
Private Sub loadfile()
If RsBranch.State = adstateclsed Then
RsBranch.Open "团队管理", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set TxtBranch.RowSource = RsBranch
TxtBranch.BoundColumn = "团队名称"
TxtBranch.ListField = "团队名称"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -