木轩尘工作室VB原创实例.docx
- 文档编号:8849424
- 上传时间:2023-02-02
- 格式:DOCX
- 页数:22
- 大小:375.60KB
木轩尘工作室VB原创实例.docx
《木轩尘工作室VB原创实例.docx》由会员分享,可在线阅读,更多相关《木轩尘工作室VB原创实例.docx(22页珍藏版)》请在冰豆网上搜索。
木轩尘工作室VB原创实例
PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
Dimpath$
DimsAsDouble'标准薪资
DimpAsDouble'加班费计算基数
DimrAsDouble'时薪
DimcAsDouble'其他津贴/奖金/补项
DimjAsDouble'减项
Dimg1AsDouble
Dimg2AsDouble
Dimg3AsDouble
Functiong(hAsDouble,aAsDouble)AsDouble'平日加班工资,'休息日加班工资,'法定假日加班工资,h=时薪,a=倍数,g=加班费计算结果
g=h*a'后面进行调用
EndFunction
PrivateSubCommand1_Click()
'~~~~~~~~~~~~~~~以下是赋值计算应发总额~~~~~~~~~~~~~~~~~~~~~
s=Val(tt2.Text)+Val(tt3.Text)
p=Val(s)+Val(tt4.Text)+Val(tt5.Text)
r=Val(p)/21.75/8
g1=Val(g(r,1.5))
g2=Val(g(r,2))
g3=Val(g(r,3))
tt8(0).Text=g1*Val(tt7.Text)
tt12.Text=g2*Val(tt11.Text)
tt10.Text=g3*Val(tt9.Text)
c=Val(tt13.Text)+Val(tt14.Text)+Val(tt15(0).Text)+Val(tt15
(1).Text)+Val(tt16(0).Text)+Val(tt16
(1).Text)+Val(tt17(0).Text)+Val(tt17
(1).Text)+Val(tt18(0).Text)+Val(tt18
(1).Text)+Val(tt19(0).Text)+Val(tt19
(1).Text)
tt20
(1).Text=r*8*Val(tt20(0).Text)
tt21
(2).Text=r*8*Val(tt21(0).Text)
tt22
(1).Text=r*8*Val(tt22(0).Text)
tt23
(1).Text=r*8*Val(tt23(0).Text)
tt24
(1).Text=r*0.5*Val(tt24(0).Text)
tt1.Text=21.75-(Val(tt20(0).Text)+Val(tt21(0).Text)+Val(tt22(0).Text)+Val(tt23(0).Text))
j=(Val(tt20
(1).Text)+Val(tt21
(2).Text)+Val(tt22
(1).Text)+Val(tt23
(1).Text)+Val(tt24
(1).Text))
Sum=Val(p)+Val(c)+Val(tt8(0).Text)+Val(tt10.Text)+Val(tt12.Text)-Val(j)
ttcnt(0).Text=Sum'应发总额
'~~~~~~~~~~~~~~以下赋值计算实发薪资的VB语句~~~~~~~~~~~~~~~~~~~~~
Dimb1,b2AsDouble
b1=Val(tt25.Text)+Val(tt29.Text)+Val(tt30.Text)+Val(tt31(0).Text)+Val(tt31
(1).Text)+Val(tt32(0).Text)+Val(tt32
(1).Text)
tt26.Text=s*0.08'社保个人缴纳部分
tt27.Text=s*0.04554'住房公积金个人缴纳部分
b2=Val(ttcnt(0).Text)-b1-(Val(tt26.Text)+Val(tt27.Text))'剩余款项,税基3500;
Ifb2<=3500Then
tt28.Text=0'所得税
Else
tt28.Text=(b2-3500)*0.05'所得税
EndIf
ttcnt
(1).Text=b2-Val(tt28.Text)
'~~~~~~~~~~~~~~以下赋值计算实发奖金的VB语句~~~~~~~~~~~~~~~~~~~~~
Dimb3AsDouble
tt36.Text=(Val(tt33.Text)+Val(tt34(0).Text)+Val(tt34
(1).Text)-Val(tt35(0).Text)-Val(tt35
(1).Text))*0.005
ttcnt
(2).Text=Val(tt33.Text)+Val(tt34(0).Text)+Val(tt34
(1).Text)-Val(tt35(0).Text)-Val(tt35
(1).Text)-Val(tt36.Text)
'~~~~~~~~~~~~~~~以下是限定小数位数的语句~~~~~~~~~~~~~~~~~~~~~~~
tt2.Text=Format(Val(tt2.Text),"0.00")
tt3.Text=Format(Val(tt3.Text),"0.00")
tt4.Text=Format(Val(tt4.Text),"0.00")
tt5.Text=Format(Val(tt5.Text),"0.00")
tt6.Text=Format(Val(tt6.Text),"0.00")
tt7.Text=Format(Val(tt7.Text),"0.00")
tt8(0).Text=Format(Val(tt8(0).Text),"0.00")
tt12.Text=Format(Val(tt12.Text),"0.00")
tt10.Text=Format(Val(tt10.Text),"0.00")
tt9.Text=Format(Val(tt9.Text),"0.00")
tt11.Text=Format(Val(tt11.Text),"0.00")
tt13.Text=Format(Val(tt13.Text),"0.00")
tt14.Text=Format(Val(tt14.Text),"0.00")
tt15(0).Text=Format(Val(tt15(0).Text),"0.00")
tt15
(1).Text=Format(Val(tt15
(1).Text),"0.00")
tt16(0).Text=Format(Val(tt16(0).Text),"0.00")
tt16
(1).Text=Format(Val(tt16
(1).Text),"0.00")
tt17(0).Text=Format(Val(tt17(0).Text),"0.00")
tt17
(1).Text=Format(Val(tt17
(1).Text),"0.00")
tt18(0).Text=Format(Val(tt18(0).Text),"0.00")
tt18
(1).Text=Format(Val(tt18
(1).Text),"0.00")
tt19(0).Text=Format(Val(tt19(0).Text),"0.00")
tt19
(1).Text=Format(Val(tt19
(1).Text),"0.00")
tt20
(1).Text=Format(Val(tt20
(1).Text),"0.00")
tt21
(2).Text=Format(Val(tt21
(2).Text),"0.00")
tt22
(1).Text=Format(Val(tt22
(1).Text),"0.00")
tt23
(1).Text=Format(Val(tt23
(1).Text),"0.00")
tt24
(1).Text=Format(Val(tt24
(1).Text),"0.00")
tt20(0).Text=Format(Val(tt20(0).Text),"0.00")
tt21(0).Text=Format(Val(tt21(0).Text),"0.00")
tt22(0).Text=Format(Val(tt22(0).Text),"0.00")
tt23(0).Text=Format(Val(tt23(0).Text),"0.00")
tt24(0).Text=Format(Val(tt24(0).Text),"0.00")
tt25.Text=Format(Val(tt25.Text),"0.00")
tt26.Text=Format(Val(tt26.Text),"0.00")
tt27.Text=Format(Val(tt27.Text),"0.00")
tt28.Text=Format(Val(tt28.Text),"0.00")
tt29.Text=Format(Val(tt29.Text),"0.00")
tt30.Text=Format(Val(tt30.Text),"0.00")
tt31(0).Text=Format(Val(tt31(0).Text),"0.00")
tt31
(1).Text=Format(Val(tt31
(1).Text),"0.00")
tt32(0).Text=Format(Val(tt32(0).Text),"0.00")
tt32
(1).Text=Format(Val(tt32
(1).Text),"0.00")
tt33.Text=Format(Val(tt33.Text),"0.00")
tt34(0).Text=Format(Val(tt34(0).Text),"0.00")
tt34
(1).Text=Format(Val(tt34
(1).Text),"0.00")
tt35(0).Text=Format(Val(tt35(0).Text),"0.00")
tt35
(1).Text=Format(Val(tt35
(1).Text),"0.00")
tt36.Text=Format(Val(tt36.Text),"0.00")
ttcnt(0).Text=Format(Val(ttcnt(0).Text),"0.00")
ttcnt
(1).Text=Format(Val(ttcnt
(1).Text),"0.00")
ttcnt
(2).Text=Format(Val(ttcnt
(2).Text),"0.00")
EndSub
PrivateSubCommand3_Click()'清除所有当前值
tt1.Text=""
tt2.Text=""
tt3.Text=""
tt4.Text=""
tt5.Text=""
tt6.Text=""
tt7.Text=""
tt8(0).Text=""'***********
tt9.Text=""
tt10.Text=""
tt11.Text=""
tt12.Text=""
tt13.Text=""
tt14.Text=""
tt15(0).Text=""
tt15
(1).Text=""
tt16(0).Text=""
tt16
(1).Text=""
tt17(0).Text=""
tt17
(1).Text=""
tt18(0).Text=""
tt18
(1).Text=""
tt19(0).Text=""
tt19
(1).Text=""
tt20(0).Text=""
tt20
(1).Text=""
tt21(0).Text=""
tt21
(2).Text=""'************
tt22(0).Text=""
tt22
(1).Text=""
tt23(0).Text=""
tt23
(1).Text=""
tt24(0).Text=""
tt24
(1).Text=""
tt25.Text=""
tt26.Text=""
tt27.Text=""
tt28.Text=""
tt29.Text=""
tt30.Text=""
tt31(0).Text=""
tt31
(1).Text=""
tt32(0).Text=""
tt32
(1).Text=""
tt33.Text=""
tt34(0).Text=""
tt34
(1).Text=""
tt35(0).Text=""
tt35
(1).Text=""
tt36.Text=""
ttcnt(0).Text=""
ttcnt
(1).Text=""
ttcnt
(2).Text=""
tt2.SetFocus
EndSub
PrivateSubCommand2_Click()'关闭应用程序,卸载窗体
UnloadMe
EndSub
PrivateSubTimer1_Timer()'显示当前时间
Label24.Caption=Time
EndSub
PrivateSubabout_Click(IndexAsInteger)'关于程序的简介
MsgBox"欢迎使用本系统!
"+Chr(13)+Chr(10)+"制作人:
甘陈义"+Chr(13)+Chr(10)+"FOXCONN短号:
42+845092"+Chr(13)+Chr(10)+"初版完成时间:
2012.07.28",0+vbInformation,"关于"
EndSub
PrivateSubForm_Load()
path=""&App.path&"\music.mp3"'设置路径
Timer2.Interval=200
Timer2.Enabled=True
EndSub
PrivateSubForm_Unload(CancelAsInteger)'关闭播放
mciSendString"closeall",0,0,0
EndSub
PrivateSubTimer2_Timer()'显示当前时间
DimbufferAsString*128'循环播放
DimposAsInteger
mciSendString"status"&path&"mode",buffer,128,0&
IfLeft(buffer,7)="stopped"Then
mciSendString"closeall",0,0,0
mciSendString"open"&path,0,0,0
mciSendString"play"&path,0,0,0
EndIf
EndSub
PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
Dimpath$
DimCnAsADODB.Connection
DimrstAsADODB.Recordset
DimflagAsInteger
Subbc()
rst.Fields(0)=Text4.Text
rst.Fields
(1)=DTPicker1.Value
rst.Fields
(2)=Text1.Text
rst.Fields(3)=Text3.Text
rst.Fields(4)=Text2.Text
EndSub
Subfz()
Text4.Text=rst.Fields(0)
DTPicker1.Value=rst.Fields
(1)
Text1.Text=rst.Fields
(2)
Text2.Text=rst.Fields(4)
Text3.Text=rst.Fields(3)
EndSub
'****************************************Excel***************************************
PrivateSubcmdtotet_Click()
DimiAsInteger
'Excel的各项定义及相关显示记录
DimobjExlAsExcel.Application'声明对象变量
Me.MousePointer=11'改变鼠标样式
SetobjExl=NewExcel.Application'初始化对象变量
objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1
objExl.Workbooks.Add'增加一个工作薄
objExl.Sheets(objExl.Sheets.Count).Name="book1"'修改工作薄名称
objExl.Sheets("book1").Select
objExl.Selection.NumberFormatLocal="@"'设置格式为文本
objExl.Cells(1,1).Value="时间(Min)"
objExl.Cells(1,2).Value="电压1(V)"
objExl.Cells(1,3).Value="电流1(A)"
objExl.Cells(1,4).Value="温度1('C)"
objExl.Cells(1,5).Value="SOC1"
objExl.Cells(1,6).Value="电压2(V)"
objExl.Cells(1,7).Value="电流2(A)"
objExl.Cells(1,8).Value="温度2('C)"
objExl.Cells(1,9).Value="SOC2"
objExl.Rows("1:
1").Select'选中第一行
objExl.Selection.Font.Bold=True'设为粗体
objExl.Selection.Font.Size=14'设置字体大小
objExl.Cells.EntireColumn.AutoFit'自动调整列宽
Fori=0ToUBound(Diyilu)
objExl.Cells(i+2,1).Value=3*i+3
objExl.Cells(i+2,2).Value=Diyilu(i)
objExl.Cells(i+2,5).Value=Diyilu(i)
objExl.Cells(i+2,6).Value=Diyilu(i)
Next
objExl.Visible=True'使EXCEL可见
objExl.DisplayAlerts=True'关闭时提示保存
Me.MousePointer=0'修改鼠标
SetobjExl=Nothing'清除对象
'objExl.Quit'关闭EXCE
EndSub
PrivateSubForm_Load()
path=""&App.path&"\music.mp3"'设置路径
Timer11.Interval=200
Timer11.Enabled=True
SetCn=NewADODB.Connection
Setrst=NewADODB.Recordset
'连接数据库的字符串
'连接带密码的数据库,直接在连接符后面加上JetOLEDB:
DataBasePassword='您的密码'
'连接Access97数据库需要使用Jet.OLEDB.3.5,Access2000和以上数据库使用Jet.OLEDB.4.0
Cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.path&"\testdata.mdb"
rst.Open"select*fromtestnote",Cn,2,2
rst.MoveFirst
Callfz
flag=0
EndSub
PrivateSubForm_Unload(CancelAsInteger)'关闭播放
mciSendString"closeall",0,0,0
EndSub
PrivateSubTimer11_Timer()'循环播放
DimbufferAsString*128
DimposAsInteger
mciSendString"status"&path&"mode",buffer,128,0&
IfLeft(buffer,7)="stopped"Then
mciSendString"closeall",0,0,0
mciSendString"open"&path,0,0,0
mciSendString"play"&path,0,0,0
EndIf
EndSub
'第一条
PrivateSubcmdfirst_Click()
rst.MoveFirst
Callfz
EndSub
PrivateSubcmdup_Click()
rst.M
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 木轩尘 工作室 VB原创实例 VB 原创 实例