程序代码Word格式文档下载.docx
- 文档编号:21526803
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:13
- 大小:15.83KB
程序代码Word格式文档下载.docx
《程序代码Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《程序代码Word格式文档下载.docx(13页珍藏版)》请在冰豆网上搜索。
frm_main.Show
PrivateSubCmd_down_Click()
IfText1.Text=1Then
Text1.Text=2
Label1.Top=-14000
Label1.Height=30000
EndIf
IfText1.Text=0Then
Text1.Text=1
Label1.Top=-7200
PrivateSubCmd_up_Click()
Text1.Text=0
Label1.Top=-200
IfText1.Text=2Then
PrivateSubForm_Load()
Flash1.Movie=App.Path&
"
\image\czj\szfz.swf"
师资队伍:
\Image\czj\gxwsqzlz.swf"
DimtempAsString
Adodc1.RecordSource="
select*fromjzorderby顺序"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
temp=App.Path&
Text1.Text
IfAdodc1.Recordset.BOF=FalseThenAdodc1.Recordset.MoveFirst
IfText1.Text<
>
"
ThenImage1.Picture=LoadPicture(temp)
IfText2.Text<
ThenLabel1.Caption=Text2.Text
IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNext
ThenImage2.Picture=LoadPicture(temp)
ThenLabel2.Caption=Text2.Text
ThenImage3.Picture=LoadPicture(temp)
ThenLabel3.Caption=Text2.Text
ThenImage4.Picture=LoadPicture(temp)
ThenLabel4.Caption=Text2.Text
ThenImage5.Picture=LoadPicture(temp)
ThenLabel5.Caption=Text2.Text
ThenImage6.Picture=LoadPicture(temp)
ThenLabel6.Caption=Text2.Text
ThenImage7.Picture=LoadPicture(temp)
ThenLabel7.Caption=Text2.Text
PrivateSubImage1_Click()
frm_jzfg_fg.Show
frm_jzfg_fg.Adodc1.RecordSource="
select*fromjzwhere姓名='
+Label1.Caption+"
'
frm_jzfg_fg.Adodc1.Refresh
frm_jzfg_fg.Label5.Caption=Label1.Caption
UnloadMe
PrivateSubImage2_Click()
+Label2.Caption+"
frm_jzfg_fg.Label5.Caption=Label2.Caption
PrivateSubImage3_Click()
+Label3.Caption+"
frm_jzfg_fg.Label5.Caption=Label3.Caption
PrivateSubImage4_Click()
+Label4.Caption+"
frm_jzfg_fg.Label5.Caption=Label4.Caption
PrivateSubImage5_Click()
select*fromjzwhere姓名='
+Label5.Caption+"
frm_jzfg_fg.Label5.Caption=Label5.Caption
PrivateSubImage6_Click()
+Label6.Caption+"
frm_jzfg_fg.Label5.Caption=Label6.Caption
PrivateSubImage7_Click()
+Label7.Caption+"
frm_jzfg_fg.Label5.Caption=Label7.Caption
PrivateSubLabel_back_Click()
Ifjzs=0Then
ElseIfjzs=1Then
Else
EndIf
部门职能:
frm_main.Show
PrivateSubLabel10_Click()
qjbl="
教育技术中心"
zx=1
frm_cszn_xx.Show
PrivateSubLabel11_Click()
资料室"
PrivateSubLabel12_Click()
企业处"
PrivateSubLabel13_Click()
影视制作中心"
PrivateSubLabel14_Click()
沐风话剧团"
PrivateSubLabel15_Click()
行政处"
PrivateSubLabel16_Click()
人事处"
PrivateSubLabel17_Click()
工资处"
PrivateSubLabel18_Click()
纪检处"
PrivateSubLabel2_Click()
办公室"
PrivateSubLabel3_Click()
党支部"
PrivateSubLabel4_Click()
院团委"
PrivateSubLabel5_Click()
院工会"
PrivateSubLabel6_Click()
教育技术系"
PrivateSubLabel7_Click()
广播电视系"
PrivateSubLabel8_Click()
党委"
PrivateSubLabel9_Click()
实验中心"
PrivateSubDataGrid1_SelChange(CancelAsInteger)
Cmd_select.Top=DataGrid1.SelStartCol
PrivateSubCmd_select_Click()
select*fromzccxwhere((zccx.目录LIKE'
%"
+Text3.Text+"
%'
)and(zccx.名称LIKE'
+Cmd_select.Caption+"
))"
IfAdodc1.Recordset.RecordCount>
0Then
IfTxt_zp.Text="
Then
Picture1.Cls
Picture1.Picture=LoadPicture()
Else
Txt_zp.Text
Picture1.Picture=LoadPicture(temp)
IfComTitle.Caption=Label2.CaptionThen
Text4.Top=1080
Text4.Height=7095
Text4.Top=2805
Text4.Height=5370
Flash1.Movie=App.Path&
\Image\czj\szfz.swf"
DimRow,iAsInteger
Row=0
Adodc1.RecordSource="
select*fromzccxwhere目录Like'
+qjbl+"
orderby人员顺序"
Adodc1.Refresh
MSFlexGrid1.ColWidth(0)=20
MSFlexGrid1.ColWidth
(1)=4200
MSFlexGrid1.Enabled=True
DoWhileAdodc1.Recordset.EOF=False
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,0)="
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,1)=Adodc1.Recordset.Fields("
名称"
)
MSFlexGrid1.AddItem(Adodc1.Recordset.Fields("
))
MSFlexGrid1.Row=MSFlexGrid1.Row+1
Adodc1.Recordset.MoveNext
Loop
ElseIfAdodc1.Recordset.RecordCount=0Then
MSFlexGrid1.Enabled=False
MSFlexGrid1.Rows=MSFlexGrid1.Rows-1
Label2.Caption=qjbl
Cmd_select.Visible=False
Ifzx=0Then
frm_zzjgt.Cmd_OK.Visible=False
ElseIfzx=1Then
PrivateSubMSFlexGrid1_Click()
IfMSFlexGrid1.Row=1Then
Text2.Height=7095
Text2.Top=1080
Text2.Height=5480
Text2.Top=2680
Cmd_select.Visible=True
CallCmd_select_Click
PrivateSubMSFlexGrid1_EnterCell()
DimXAsString,YAsString
Cmd_select.Width=MSFlexGrid1.CellWidth
Cmd_select.Height=MSFlexGrid1.CellHeight
Cmd_select.Left=MSFlexGrid1.CellLeft+MSFlexGrid1.Left
Cmd_select.Top=MSFlexGrid1.CellTop+MSFlexGrid1.Top
Cmd_select.Caption=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,MSFlexGrid1.Col)
学院动态:
PrivateSubDataGrid1_Click()
CallText1_Change
frm_zwgk_xx.Show
frm_zwgk.Hide
DimnAsInteger
Dims,Y
Dimi,jAsInteger
DataGrid1.Columns.Item(0).Width=13800
PrivateSubText1_Change()
frm_zwgk_xx.Adodc1.RecordSource="
select*frombscxwhere项目名称='
+Text1.Text+"
frm_zwgk_xx.Adodc1.Refresh
PrivateSubCommand1_Click()
frm_zwgk.Show
第9组:
张杰贾少蕾夏莉
赵雁楠张晶晶张蓉山
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 程序代码
![提示](https://static.bdocx.com/images/bang_tan.gif)