📄 companyinfo.frm
字号:
Left = 5400
MaxLength = 180
TabIndex = 11
Text = "Text2"
Top = 1275
Width = 2295
End
Begin VB.TextBox Text5
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 10
Text = "Text2"
Top = 1680
Width = 6615
End
Begin VB.TextBox Text6
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 9
Text = "Text2"
Top = 2085
Width = 6615
End
Begin VB.TextBox Text7
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 8
Text = "Text2"
Top = 2475
Width = 6615
End
Begin VB.TextBox Text8
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 7
Text = "Text2"
Top = 2880
Width = 6615
End
Begin VB.TextBox Text9
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 6
Text = "Text2"
Top = 3360
Width = 1695
End
Begin VB.TextBox Text10
Height = 300
Left = 1080
MaxLength = 180
TabIndex = 5
Text = "Text2"
Top = 3795
Width = 2175
End
Begin VB.TextBox Text11
Height = 300
Left = 3840
MaxLength = 180
TabIndex = 4
Text = "Text2"
Top = 3795
Width = 1695
End
Begin VB.TextBox Text12
Height = 300
Left = 3480
MaxLength = 180
TabIndex = 3
Text = "Text2"
Top = 3360
Width = 4215
End
Begin VB.TextBox Text13
Height = 300
Left = 6360
MaxLength = 180
TabIndex = 2
Text = "Text2"
Top = 3795
Width = 1815
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "公司详细信息"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 3120
TabIndex = 74
Top = 240
Width = 1890
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "公司名称："
Height = 180
Left = 120
TabIndex = 27
Top = 840
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "法人代表："
Height = 180
Index = 8
Left = 4560
TabIndex = 26
Top = 1320
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "英文名："
Height = 180
Index = 28
Left = 240
TabIndex = 25
Top = 1320
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "联系地址："
Height = 180
Left = 120
TabIndex = 24
Top = 1740
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "开 户："
Height = 180
Index = 6
Left = 120
TabIndex = 23
Top = 2535
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "帐 号："
Height = 180
Index = 7
Left = 120
TabIndex = 22
Top = 2925
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "英文地址："
Height = 180
Index = 29
Left = 120
TabIndex = 21
Top = 2145
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "简 称："
Height = 180
Left = 4560
TabIndex = 20
Top = 840
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "邮 编："
Height = 180
Index = 1
Left = 120
TabIndex = 19
Top = 3405
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "电子邮件："
Height = 180
Index = 5
Left = 5520
TabIndex = 18
Top = 3855
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "电 话："
Height = 180
Index = 2
Left = 120
TabIndex = 17
Top = 3840
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "传真："
Height = 180
Index = 3
Left = 3360
TabIndex = 16
Top = 3840
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "网址："
Height = 180
Index = 4
Left = 2880
TabIndex = 15
Top = 3405
Width = 540
End
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "公司图标："
ForeColor = &H00FF0000&
Height = 180
Left = 360
TabIndex = 69
Top = 720
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "产品商标："
ForeColor = &H00FF0000&
Height = 180
Index = 26
Left = 480
TabIndex = 68
Top = 2760
Width = 900
End
End
End
Attribute VB_Name = "CompanyInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************
'* 模 块 名 称 :公司的信息
'* 功 能 描 述 :公司的信息
'* 程序员姓名 :黄朝和
'* 最后修改人 :黄朝和
'* 最后修改时间:2005/12/14
'**************************************
Option Explicit
Private m_EmployeeDAO As employeeDAO ' 员工数据库操作类
Private m_recordset As ADODB.Recordset ' 数据操作数据集对象
Private m_ImageDAO As ImageDAO
Dim ret As Boolean
Private pictureid As String '公司商标
Private pictureid1 As String '产品图片
Private pictureid2 As String '产品图片
Private pictureid3 As String '产品图片
Private pictureid4 As String '产品图片
Private imageDataArr() As Byte ' 图像文件读入后保存的字节数组-公司商标
Private imageDataArr1() As Byte ' 图像文件读入后保存的字节数组-产品图片
Private imageDataArr2() As Byte ' 图像文件读入后保存的字节数组-产品图片
Private imageDataArr3() As Byte ' 图像文件读入后保存的字节数组-产品图片
Private imageDataArr4() As Byte ' 图像文件读入后保存的字节数组-产品图片
Private imageName As String ' 图像文件名
Private Sub Command1_Click()
Dim imageId As String
If pictureid = "" Then ' 新增一条记录公司商标
imageId = m_ImageDAO.NewImage("a.bmp", imageDataArr)
pictureid = imageId
Else ' 修改一条记录公司商标
ret = m_ImageDAO.ModifyImage("a.bmp", imageDataArr, pictureid)
End If
If pictureid1 = "" Then ' 新增一条记录产品图片
imageId = m_ImageDAO.NewImage("a.bmp", imageDataArr1)
pictureid1 = imageId
Else ' 修改一条记录产品图片
ret = m_ImageDAO.ModifyImage("a.bmp", imageDataArr1, pictureid1)
End If
If pictureid2 = "" Then ' 新增一条记录产品图片
imageId = m_ImageDAO.NewImage("a.bmp", imageDataArr2)
pictureid2 = imageId
Else ' 修改一条记录产品图片
ret = m_ImageDAO.ModifyImage("a.bmp", imageDataArr2, pictureid2)
End If
If pictureid3 = "" Then ' 新增一条记录产品图片
imageId = m_ImageDAO.NewImage("a.bmp", imageDataArr3)
pictureid3 = imageId
Else ' 修改一条记录产品图片
ret = m_ImageDAO.ModifyImage("a.bmp", imageDataArr3, pictureid3)
End If
If pictureid4 = "" Then ' 新增一条记录产品图片
imageId = m_ImageDAO.NewImage("a.bmp", imageDataArr4)
pictureid4 = imageId
Else ' 修改一条记录产品图片
ret = m_ImageDAO.ModifyImage("a.bmp", imageDataArr4, pictureid4)
End If
'保存公司修改的信息记录
m_EmployeeDAO.Companyinfo_modify m_recordset, Trim(Text1.text), Trim(Text2.text), Trim(Text3.text), Trim(Text4.text), Trim(Text5.text), _
Trim(Text6.text), Trim(Text7.text), Trim(Text8.text), Trim(Text9.text), Trim(Text10.text), Trim(Text11.text), _
Trim(Text12.text), Trim(Text13.text), Trim(Text14.text), Trim(Text15.text), Trim(Text16.text), Trim(Text17.text), _
Trim(Text18.text), Trim(Text19.text), Trim(Text20.text), Trim(Text21.text), Trim(Text22.text), Trim(Text23.text), _
Trim(Text24.text), Trim(Text25.text), Trim(Text26.text), Trim(Text27.text), Trim(Text28.text), Trim(Text30.text), _
Trim(Text31.text), Trim(Text32.text), Trim(Text33.text), Trim(Text34.text), Trim(Text36.text), Trim(Text1.Tag), pictureid, pictureid1, pictureid2, pictureid3, pictureid4
MainForm.g_msgText = "公司的信息修改成功!"
HMsgBox MainForm.g_msgText, 0, 4
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command3_Click()
Dim filename1 As String ' 用户选择的文件的路径及文件名字符串
Dim fileLen As Long ' 文件长度
Dim file_num As Long ' 文件数据
Dim bufferfile As Long
Dim current As String
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen '显示打开文件对话框
filename1 = CommonDialog1.FileName '获取所选择的文件名
If Trim(filename1) = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -