行政理系统
学 院
专 业
班 级
学 号
姓 名
指导教师
教师职称
年
月
日
摘
摘
社会飞速开展行政理社会关系中显非常重然行政系统中忽略利计算机软件进行日常办公理关键环节造成理混乱工作效率低等事件发生着IT产业开展利计算机软件代手工办公方式已社会开展必然趋势行政理系统软件应运生
关键词 企事业机关 行政理 行政理系统
目录
摘 1
目录 1
引言 1
1 系统分析 2
11 需求分析 2
12 行性分析 2
2 总体设计 2
21 工程规划 2
22 系统功结构图 3
3 详细设计 3
31 数模块设计 3
32 窗体设计 4
33 会议记录 9
34 周工作安排 12
35 报销费理 15
36 编码查询 19
附录A 参考文献 23
附录B 数表结构 24
附录C 文件架构图 32
引言
行政理系统涵盖会议办公机关事务处理车辆费等行政理容机结合监督考评建立事前预防〔提示〕事中监控事考评机制行政理权实施程进行监控全面推进行政理工作标准化标准化法制化信息化行政理包括企业部会议理办公理车辆信息车信息理企业消费费信息发布通知辅助功等方面全方位理中会议理包括会议室理会议通知会议查询局部办公理工作方案工作日志周工作安排进行系统理车辆理企业部员包括企业领导车信息进行详细记录费理企业日常消费费进行理包括 费报销费车辆费支出理通信息发布辅助功企业员工日常工作中提供便利发布会议通知航班查询编码查询等等
1 系统分析
11 需求分析
通市场调查求系统具功:
q 统友操作界面保证系统易性
q 标准完善根底信息设置
q 灵活报表印功
q 够完成企业会议企业办公企业车辆费信息效理
q 全国编码航班查询
q 提供常网址 属信息查询
q 通系统日志详细记录修改记录操作提供追查力
q 完善权限理增强系统安性
q 强数备份恢复功保证系统数安性
q 退出系统时更换操作员
12 行性分析
传统行政理工作说千头万绪纷繁复杂工作员面着量琐碎繁重工作行政理系统企业实际需求出发简单易系统界面友美观定义功强权限理根户角色设置实施简单快速操作简单明根适中型企业行政办公理
2 总体设计
21 工程规划
行政理系统规划系统功模块:
q 会议理模块
会议理模块包括维护会议室信息发送会议通知信息记录会议容查询会议室信息会议记录信息5方面容
q 办公理模块
该模块工作日志记事工作方案周工作安排4局部组成
q 车辆理模块
车辆理模块包括车辆登记车理驾驶员登记车辆信息查询车信息查询车辆投保理6局部
q 费理
包括 费理报销费理车辆费支出理3局部
q 辅助信息
包括常网址航班查询编码全国际 代码 属查询5局部
q 系统理
包括查日志删日志户理数备份数恢复系统数清理6局部
22 系统功结构图
行政理系统功结构图图1示
图1 行政理系统功结构图
3 详细设计
31 数模块设计
模块作减少程序代码量提高应程序代码重性程序编码读性系统中连接数库程序代码集中放置数模块Mdl_Data中应程序需连接数库时调该模块完成相应数操作实现操数功
数模块Mdl_Data中定义连接字符串变量PublicStr记录集象数连接函数Cnn1全局函数main函数main中提供连接数库字符串赋值全局变量PublicStr提供数连接数模块Mdl_Data中事件代码:
'数连接模块
Public PublicStr As String
Public AdoRs As New ADODBRecordset '添加记录集象
Public AdoRs1 As New ADODBRecordset '添加记录集象
Public AdoRs2 As New ADODBRecordset '添加记录集象
Public Function Cnn() As ADODBConnection '定义连接字符串函数
CnnOpen ProviderSQLOLEDB1Persist Security InfoFalseUser
IDsaInitial Catalogdb_Service
End Function
Public Sub main()
PublicStr ProviderSQLOLEDB1Persist Security InfoFalseUser
IDsaInitial Catalogdb_Service
frm_xtdlShow '显示系统登录窗体
End Sub
32 窗体设计
窗体界面显示系统操作功面板窗体设计根求:窗体控件布局合理界面美观方易操作系统功模块窗体菜单栏者窗体中树状列表中控制功模块运行根登录操作员赋予相应操作权限状态栏中显示前登录操作员前系统日期时间公司网址等信息
系统窗体运行结果图2示
图2 系统窗体运行结果
1.窗体设计
〔1〕工程中新建1窗体窗体名称设置frm_Main〞BorderStyle属性设置0None〞MaxButton属性设置False〞通窗体Picture属性窗体添加图片
〔2〕菜单编辑器中窗体设置菜单设置完成菜单图2示
〔3〕窗体添加TreeView控件该控件属ActiveX控件前必须部件〞话框中添加工具箱添加方法:
工程〞部件〞话框中勾选〞列表项单击确定钮TreeView控件添加工具箱中
〔4〕窗体TreeView控件单击鼠标右键弹出快捷菜单中选择属性〞项然弹出属性页〞话框中设置TreeView控件显示样式图3示
图3 设置控件显示样式
〔5〕窗体中添加1StatusBar控件StatusBar控件属ActiveX控件前必须部件〞话框中添加工具箱添加方法:
工程〞部件〞话框中勾选〞列表项单击确定钮StatusBar控件添加工具箱中
〔6〕利StatusBar控件窗体设置状态栏StatusBar控件单击鼠标右键选择属性〞项弹出话框中选择窗格〞选项卡图4示图中单击插入窗格钮StatusBar控件中添加窗格时设置添加窗格文容工具栏提示文容宽度等信息果想删窗格通索引〞旁边箭头选择删窗格然单击删窗格钮删
图4 设置状态栏中窗格
系统窗体界面设计结果图5示
图5 系统窗体设计界面
2.代码设计
通单击系统窗体中菜单项控制系统中子窗体运行单击某功菜单项调系统子窗体代码:
Private Sub BMDQ_Click()
frm_bmcxShow 1 '编码全
End Sub
Private Sub BXFYGL_Click()
frm_bxfyShow 1 '报销费理
End Sub
Private Sub CKRZ_Click()
frm_rzShow 1 '查日志
End Sub
Private Sub CLDJ_Click()
frm_cldjShow 1 '车辆登记
End Sub
Private Sub CLFYZC_Click()
frm_clfyzcShow 1 '车辆费支出理
End Sub
Private Sub CLTBXXGL_Click()
frm_cltbShow 1 '车辆投保理
End Sub
Private Sub CLXXCX_Click()
StrCx 3 '果执行车辆信息查询标识变量数值取值3
Frm_CxShow 1
End Sub
Private Sub CXDL_Click()
Unload Me
frm_xtdlShow '重新登录
End Sub
Private Sub CYWZ_Click()
frm_wzcxShow 1 '常网址
End Sub
Private Sub DHFYGL_Click()
frm_dhfyShow 1 ' 费理
End Sub
Private Sub DJCX_Click()
StrCx 1 '果执行会议记录信息查询标识变量数值取值1
Frm_CxShow 1 '会议记录信息查询
End Sub
Private Sub GJDHDM_Click()
frm_dhhmcxShow 1 '国际 代码
End Sub
Private Sub GYSGL_Click()
frm_hysglShow 1 '会议室理
End Sub
Private Sub GZJH_Click()
frm_GzjhShow 1 '工作方案
End Sub
Private Sub GZRZ_Click()
frm_GzrzShow 1 '工作日志
End Sub
Private Sub HBCX_Click()
frm_hbcxShow 1 '航班查询
End Sub
Private Sub HYDJ_Click()
frm_hyjlShow 1 '会议记录
End Sub
Private Sub HYSCX_Click()
StrCx 2 '果执行会议室信息查询标识变量数值取值2
Frm_CxShow 1 '会议室信息查询
End Sub
Private Sub HYTZ_Click()
frm_hytzShow 1 '会议通知
End Sub
Private Sub JSB_Click()
frm_JsbShow 1 '记事
End Sub
Private Sub JSHF_Click() '数恢复
Dim iTask As Long
MsgBox 请您注意确保数安进行数恢复时需关闭应程序请您恢复数完成重新运行应程序 64 提示信息
'调数恢复执行文件
iTask Shell(AppPath & \Restoreexe vbNormalFocus)
End
End Sub
Private Sub JSRYDJ_Click()
frm_jsrydjShow 1 '驾驶员登记
End Sub
Private Sub MMXG_Click()
frm_EditPasShow 1
End Sub
Private Sub SCRQ_Click() '删日志
Dim del
Dim Temp1 As String
On Error Resume Next '错误处理语句
del MsgBox(确认系统日志信息 17 提示信息)
If del vbOK Then
Kill (AppPath & \系统日志ini)
Open (AppPath & \系统日志ini) For Output As #1
Temp1 操作员姓名 日期时间 操作类型
Print #1 Temp1
Print #1
Close #1
MsgBox 日志清理成功完成 提示信息
Else
End If
End Sub
Private Sub SJBF_Click()
frm_backupShow 1 '数备份
End Sub
Private Sub SJGSDCX_Click()
frm_SjgsdShow 1 ' 属查询
End Sub
Private Sub TCXT_Click()
End '退出系统
End Sub
Private Sub UCXXCX_Click()
StrCx 4 '车信息查询
Frm_CxShow 1
End Sub
Private Sub XTSJQL_Click()
frm_sfyzShow 1 '数清理
End Sub
Private Sub YCGL_Click()
frm_ycglShow 1 '车理
End Sub
Private Sub YGGL_Click()
frm_systemerShow 1 '户理
End Sub
Private Sub YZGZAP_Click()
frm_gzapShow 1 '周工作安排
End Sub
窗体启动时通户定义函数Tree_change窗体TreeView控件中显示数Tree_change函数中通Ado象读取数表中数然利TreeView控件Nodes集合中Add方法数添加TreeView控件中添加数时时Do While语句Tree_change函数代码:
Public Sub Tree_change()
Dim Key Text BH StrTemp As String
Dim Nod As Node '定义节点变量
AdoRsOpen select * from tb_zcd Cnn adOpenKeyset
If AdoRsRecordCount > 0 Then
Do While AdoRsEOF False '循环读取第1层节点中数信息
Key Trim(AdoRsFields(菜单名称))
Text AdoRsFields(菜单名称)
StrTemp AdoRsFields(菜单名称)
'第1层节点赋数值
Set Node1 TreeView1NodesAdd( tvwChild Key Text 0)
AdoRs1Open select * from tb_zcd_zcd where 菜单名称' + StrTemp
+ ' CnnadOpenKeyset
If AdoRs1RecordCount > 0 Then
Do While AdoRs1EOF False '循环读取第2层节点中数信息
Key Trim(AdoRs1Fields(子菜单名称))
Text AdoRs1Fields(子菜单名称)
Set Node2 TreeView1NodesAdd(Node1Index tvwChild Key
Text 0) '第2层节点赋数值
Loop
End If
AdoRsMoveNext '数记录移条
Loop
End If
AdoRsClose '关闭记录集象
End Sub
33 会议记录
会议记录记录公司举行重会议容时间等信息会议记录窗体中通工具栏中添加删修改保存钮维护会议记录信息通单击数网格中数记录窗体浏览已记录会议记录信息果会议记录修改正浏览数记录信息时窗体面显示记录修改日期修改姓名
会议记录模块运行结果图6示
图6 会议记录模块运行结果
1.窗体设计
〔1〕工程中新建1窗体窗体名称设置frm_hyjl〞BorderStyle属性设置0None〞MaxButton属性设置False〞
〔2〕窗体添加1Toolbar控件1ImageList控件
〔3〕窗体制作图7示工具栏
〔4〕窗体添加1文框控件数组数组中包含8文框控件
〔5〕窗体添加1DTPicker控件名称命名DT1输入显示会议进行时间DTPicker控件属ActiveX控件前必须部件〞话框中添加工具箱添加方法:
工程〞部件〞话框中勾选〞列表项单击确定钮DTPicker控件添加工具箱中
〔6〕窗体添加1CommandButton控件名称修改Cmd_Select〞Caption属性修改<<〞图7示
〔7〕窗体添加1Ado控件1DataGrid控件DataGrid控件BackColor属性值设置&H80000018&〞DataSource属性设置Adodc1〞AllowUpdate属性设置False〞
〔8〕窗体添加2Line控件BorderColor属性值设置&H00008000&〞时2控件图11示样式放置
〔9〕窗体添加2文框控件分命名Txt_Date〞Txt_xgr〞显示修改记录时间记录修改姓名
会议记录窗体设计结果图7示
图7 会议记录窗体设计结果
2.代码设计
窗体启动时果数库中存记录信息窗体文框中显示数库中第条记录时锁定文框禁止输入数信息通Ado控件ConnectionString属性连接数库然调DBGCon函数重新DataGrid控件列标题赋值窗体启动时事件代码:
Private Sub Form_Load()
DT1Value Date '日期控件中显示前系统日期时间
Call LoadFile '调程窗体文框中显示数
For i 1 To 7
Text1(i)Locked True
Next i
Adodc2ConnectionString PublicStr '连接数库
Adodc2RecordSource select * from 会议记录 order by 编号
Call DBGCon
Call Tbr_cortrol(Tbr_xxcz True)
End Sub
窗体文框中键盘〈Enter〉键〈↑〉〈↓〉方箭头键时光标文框次序次移动文框控件键盘事件〔KeyDown〕中通限制索引Index值键盘代码值够控制光标移动序实现代码:
Private Sub Text1_KeyDown(Index As Integer KeyCode As Integer Shift As Integer)
On Error Resume Next '执行错误处理
If KeyCode 13 Then
If Index 1 Then '果索引值1文框中回车键光标落日期控件中
Exit Sub '退出前程
ElseIf Index 2 Then
Call Cmd_Select_Click
Exit Sub
End If
End If
If Index < 8 And KeyCode 38 Then Text1(Index 1)SetFocus
If Index > 0 And KeyCode 40 Then Text1(Index + 1)SetFocus
If Index > 0 And KeyCode 13 Then Text1(Index + 1)SetFocus
If Index 7 And KeyCode 13 Then
Call Saves '调保存钮事件
End If
End Sub
单击选中数网格中记录选中记录显示窗体文框中设计思路:Ado数集结果反绑定文框名称Dgr_SjllDataGrid控件代码:
Private Sub Dgr_Sjll_Click()
On Error Resume Next '执行错误处理
If Adodc2RecordsetRecordCount > 0 Then '判断该记录否存
Text1(0)Text Adodc2RecordsetFields(0)
Text1(1)Text Adodc2RecordsetFields(1)
Text1(2)Text Adodc2RecordsetFields(3)
Text1(3)Text Adodc2RecordsetFields(4)
DT1Value Adodc2RecordsetFields(2)
Text1(4)Text Adodc2RecordsetFields(5)
Text1(5)Text Adodc2RecordsetFields(6)
Text1(6)Text Adodc2RecordsetFields(7)
Text1(7)Text Adodc2RecordsetFields(8)
Txt_DateText Adodc2RecordsetFields(9)
Txt_lxrText Adodc2RecordsetFields(10)
End If
For i 0 To 7 '重新锁定文框禁止输入数信息
Text1(i)Locked False
Next i
End Sub
34 周工作安排
年52周周工作安排中通选择年年第周〔0~52周〕维护查选择年中选择周工作安排信息利MSHFlexGrid控件文框控件相结合方法实现该项功
周工作安排模块运行结果图8示
图8 周工作安排模块运行结果
1.窗体设计
〔1〕工程中添加1窗体该窗体命名frm_gzap〞BorderStyle属性设置0None〞MaxButton属性设置False〞
〔2〕窗体添加2ComboBox控件图9示
〔3〕窗体添加1MSHFlexGrid控件名称命名MSH1〞
〔4〕窗体添加3CommandButton控件分名称命名Cmd_Save〞Cmd_Add〞Cmd_exit〞Caption属性设置保存〞添加〞退出〞
〔5〕窗体添加1标签控件显示前选择年周日期段信息
周工作安排窗体设计结果图9示
图9 周工作安排窗体设计结果
2.代码设计
窗体启动时设置MSHFlexGrid控件窗体显示行数列数时设置控件中显示行标题列标题窗体启动时事件代码:
Private Sub Form_Load()
Dim StrWeek As String
For i 1 To 52
StrWeek 第 & i & 周
Combo1AddItem (StrWeek)
Next i
MSH1Rows 3
MSH1Cols 6
MSH1ColHeaderCaption(0 0) 星期
MSH1ColWidth(0) 500
For i 1 To 5
MSH1ColWidth(i) 1850
MSH1ColAlignment(i) 4 '居中齐
Next i
MSH1RowHeight(0) 500 '限定控件第1行高度
MSH1RowHeight(1) 1800 '限定控件第2行高度
MSH1RowHeight(2) 1800 '限定控件第3行高度
MSH1TextMatrix(0 1) 星期
MSH1TextMatrix(0 2) 星期二
extMatrix(0 3) 星期三
MSH1TextMatrix(0 4) 星期四
MSH1TextMatrix(0 5) 星期五
MSH1TextMatrix(1 0) 午
MSH1TextMatrix(2 0) 午
Text1Width MSH1CellWidth 50
Text1Height MSH1CellHeight 50
End Sub
单击MSHFlexGrid控件中单元格限定辅助文框显示位置文框高度宽度位置选中MSHFlexGrid控件单元格位置相实现代码:
Private Sub MSH1_Click()
Text1Width MSH1CellWidth – 50 '限定文框宽度
Text1Height MSH1CellHeight – 50 '限定文框高度
Text1Left MSH1Left + MSH1CellLeft '限定文框距窗体左端距离
Text1Top MSH1Top + MSH1CellTop '限定文框距窗体顶端距离
Text1Visible True
End Sub
选择第周〔年52周〕时果已维护工作安排MSHFlexGrid控件中单元格中显示已维护工作安排容时文框Visible属性设置False文框见代码:
Private Sub Combo1_Change()
AdoRsOpen select * from 周工作安排 where 第周' + Combo1Text + ' and
年份' + Combo2Text + ' Cnn adOpenKeyset
If AdoRsRecordCount > 0 Then
MSH1TextMatrix(1 1) AdoRsFields(周午)
MSH1TextMatrix(2 1) AdoRsFields(周午)
MSH1TextMatrix(1 2) AdoRsFields(周二午)
MSH1TextMatrix(2 2) AdoRsFields(周二午)
rix(1 3) AdoRsFields(周三午)
MSH1TextMatrix(2 3) AdoRsFields(周三午)
MSH1TextMatrix(1 4) AdoRsFields(周四午)
MSH1TextMatrix(2 4) AdoRsFields(周四午)
MSH1TextMatrix(1 5) AdoRsFields(周五午)
MSH1TextMatrix(2 5) AdoRsFields(周五午)
Label1Caption AdoRsFields(时间段)
Text1Visible False '文框设置见状态
End If
AdoRsClose '关闭记录集象
End Sub
单击保存钮通SQL语句保存维护工作安排信息实现代码:
Private Sub Cmd_Save_Click()
If Combo1Text Then
MsgBox 请选择录入工作安排周数 48 提示信息
Else
c MsgBox(确认保存信息 33 提示信息)
If c vbOK Then '果选择确定〞钮保存信息
Set AdoRs CnnExecute(UPDATE 周工作安排 SET 周午 ' &
MSH1TextMatrix(1 1) & '周午'& MSH1TextMatrix(2 1) & '周二午'
& MSH1TextMatrix(1 2) &'周二午' & MSH1TextMatrix(2 2)& '周三午
' & MSH1TextMatrix(1 3) & '周三午' & MSH1TextMatrix(2 3) & '
周四午'& MSH1TextMatrix(1 4) & '周四午' & MSH1TextMatrix(2 4) &
'周五午' & MSH1TextMatrix(1 5)& '周五午' & MSH1TextMatrix(2 5)
& ' where 第周' + Combo1Text + ')
MsgBox 数保存成功 64 提示信息
End If
End If
End Sub
35 报销费理
费报销企业运营程中必少环节填写完报销单时候审核该报销单效审核操作程:窗体左侧部门列表中选择某部门然右侧数控件中选择该部门中具体报销单时窗体文框中显示该报销单信息审核旁边文框中输入审核姓名单击审核钮审核信息
审核信息外窗体中部门印出部门报销费信息部门列表中选择某部门时工具栏中印钮变状态单击印钮印出该部门报销单信息
报销费理模块运行结果图10示
图10 报销费理模块运行结果
印部门报销费信息报表界面运行结果图11示
图11 印部门报销费信息报表界面运行结果
1.窗体设计
〔1〕工程中新建1窗体窗体名称设置frm_bxfy〞BorderStyle属性设置0None〞MaxButton属性设置False〞
〔2〕窗体添加1Toolbar控件1ImageList控件
〔3〕窗体制作图12示工具栏
〔4〕窗体添加2ComboBox控件分命名Cbx_lx〞Cbx_bm〞记录费类型部门信息时2控件Style属性设置0〞
〔5〕窗体添加1DTPicker控件命名DT显示输入报销费时间
〔6〕窗体添加1文框控件数组数组中包含5文框控件
〔7〕窗体添加1Ado控件1DataGrid控件DataSource属性设置Adodc1〞AllowUpdate属性设置False〞
〔8〕窗体添加1Line控件BorderColor属性值设置&H00008000&〞
〔9〕窗体添加1ListView控件ListView控件属ActiveX控件前必须部件〞话框中添加工具箱添加方法:
工程〞部件〞话框中勾选〞列表项单击确定钮ListView控件添加工具箱中
〔10〕窗体添加1标签控件默认Label9显示统计出报销费金额
报销费理窗体设计结果图12示
图12 报销费理窗体设计结果
2.代码设计
ADO象控件连接数库时调Tj程统计报销费金额调RefreshData事件实现刷新ListView控件中数容窗体启动时代码:
Private Sub Form_Load()
Call LoadFile
DT1Value Date '报销费时间设置前系统日期时间
tionString PublicStr
Adodc1RecordSource select * from 报销费理 order by ID
Call Tj '统计费金额
Call RefreshData
Call Tbr_cortrol(Tbr_xxcz True)
Tbr_xxczButtons(12)Enabled False
Tbr_xxczButtons(9)Enabled False
End Sub
Tj程中通sum函数统计报销费总金额户定义Tj事件程代码:
Private Sub Tj()
AdoRsOpen select sum(金额) from 报销费理 Cnn adOpenKeyset
If AdoRsRecordCount > 0 Then
Label9Left 5300
Label9Caption 报销费总计金额 & AdoRsFields(0) & 元
End If
AdoRsClose
End Sub
RefreshData程中首先ListView控件中容清空然通Do While循环部门名称信息添加ListView控件中户定义RefreshData程代码:
Private Sub RefreshData()
AdoRsOpen select distinct 部门 from 报销费理 Cnn adOpenKeyset
If AdoRsRecordCount > 0 Then
ListView1Enabled True
Do While AdoRsEOF False
Key AdoRsFields(部门)
Set itmX ListView1ListItemsAdd( Key 1)
Loop
Else
ListView1Enabled False '果前数表中没部门信息ListView设'置状态
End If
End Sub
单击ListView控件列表中部门信息数网格窗体中文框控件中显示该部门中数信息实现代码:
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLibListItem)
Adodc1RecordSource select * from 报销费理 where 部门' +
ListView1SelectedItem + ' order by ID
On Error Resume Next '执行错误处理
If Adodc1RecordsetRecordCount > 0 Then
Text1(0)Text Adodc1RecordsetFields(1)
Cbx_lxText Adodc1RecordsetFields(2)
DT1Value Adodc1RecordsetFields(3)
Text1(1)Text Adodc1RecordsetFields(4)
Cbx_bmText Adodc1RecordsetFields(5)
Text1(2)Text Adodc1RecordsetFields(6)
Text1(3)Text Adodc1RecordsetFields(7)
Text1(4)Text Adodc1RecordsetFields(8)
Tbr_xxczButtons(9)Enabled True
End If
'部门查询时统计报销费金额
AdoRsOpen select sum(金额) from 报销费理 where 部门' +
ListView1SelectedItem + ' Cnn adOpenKeyset
If AdoRsRecordCount > 0 Then
Label9Left 4700
Label9Caption ListView1SelectedItem & 报销费总计金额 &
AdoRsFields(0) & 元
End If
End Sub
单击数网格中记录信息窗体中文框中显示选中数信息实现代码:
Private Sub Dgr_Sjll_Click()
If Adodc1RecordsetRecordCount > 0 Then
Text1(0)Text Adodc1RecordsetFields(1)
Cbx_lxText Adodc1RecordsetFields(2)
DT1Value Adodc1RecordsetFields(3)
Text1(1)Text Adodc1RecordsetFields(4)
Cbx_bmText Adodc1RecordsetFields(5)
Text1(2)Text Adodc1RecordsetFields(6)
Text1(3)Text Adodc1RecordsetFields(7)
Text1(4)Text Adodc1RecordsetFields(8)
If Text1(3)Text Then
Tbr_xxczButtons(12)Enabled True
Else
Tbr_xxczButtons(12)Enabled False
End If
End If
End Sub
36 编码查询
编码查询中通输入省份城市名称查询编码信息通单击选择窗体左侧编码中省份查询
编码查询模块运行结果图13示
图13 编码查询模块运行结果
1.窗体设计
〔1〕工程中新建1窗体窗体名称设置frm_bmcx〞BorderStyle属性设置0None〞MaxButton属性设置False〞
〔2〕窗体添加1Ado控件
〔3〕窗体添加1DataGrid控件DataSource属性设置Adodc1〞AllowUpdate属性设置False〞BackColor属性值设置&H80000018&〞
〔4〕窗体添加1TreeView控件1ImageList控件两控件属ActiveX控件前必须部件〞话框中添加工具箱添加方法:
工程〞部件〞话框中勾选〞列表项单击确定钮TreeView控件添加工具箱中
〔5〕ImageList控件单击鼠标右键弹出快捷菜单中选择属性〞时弹出属性页〞话框选择通〞选项卡该选项卡中选择16×16〞单项选择钮图14示
图14 属性页话框中设定图
〔6〕属性页〞话框中选择图〞选项卡该选项卡中单击插入图片钮控件中添加图图15示
图15 控件中添加图
〔7〕窗体TreeView控件中单击鼠标右键弹出快捷菜单中选择属性〞时弹出属性页〞话框该话框中选择通〞选项卡该选项卡中线条样式〞设置0tvwTreeLines图列表〞旁列表框中选择ImageList1〞TreeView控件添加图勾选该选项卡中滚动〞热踪〞复选框控件设置显示样式图16示
图16 设置TreeView控件显示样式
〔8〕窗体添加1Ado控件1DataGrid控件DataGrid控件BackColor属性值设置&H80000018&〞DataSource属性设置Adodc1〞AllowUpdate属性设置False〞
〔9〕窗体中添加2文框控件分输入查询编码信息省份城市信息
〔10〕窗体添加1标签控件显示查询编码数量信息
编码查询窗体设计结果图17示
图17 编码查询窗体设计结果
2.代码设计
窗体启动时调户定义Tree_change程TreeView控件中添加省份信息利Ado控件RecordCount属性统计出前数表中数记录显示标签控件中窗体启动时Load事件代码:
Private Sub Form_Load()
Call Tree_change '调添加省份信息程
Adodc1ConnectionString PublicStr
Adodc1RecordSource select * from 全
Label2Caption 总计查询记录条数
End Sub
户定义Tree_change程代码:
Private Sub Tree_change()
Dim Key Text BH As String
Dim Nod As Node '定义节点变量
Key 编码
Text 编码
Set Node1 TreeView1NodesAdd( Key Text 1)
AdoRsOpen select distinct 省份 from 全 Cnn adOpenKeyset
ecordCount > 0 Then
AdoRsMoveFirst '前记录移第条
Do While AdoRsEOF False
Key Trim(AdoRsFields(省份))
Text AdoRsFields(省份)
Set Node2 TreeView1NodesAdd(Node1Index tvwChild Key Text 2)
AdoRsMoveNext '数记录移条
Loop
End If
AdoRsClose '关闭记录集象
End Sub
单击TreeView控件中节点信息利SQL语句查询相应省份编码信息实现事件代码:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLibNode)
Adodc1ConnectionString PublicStr
Adodc1RecordSource select * from 全 where 省份' +
TreeView1SelectedItem + '
Label2Caption 总计查询记录条数
End Sub
Text1文框控件中输入省份名称然〈Enter〉键利SQL语句查询相应省份编码信息实现事件代码:
Private Sub Text1_KeyDown(KeyCode As Integer Shift As Integer)
If KeyCode 13 Then
Adodc1ConnectionString PublicStr
Adodc1RecordSource select * from 全 where 省份' + Text1Text + '
Label2Caption 总计查询记录条数
End If
End Sub
Text2文框控件中输入城市名称〈Enter〉键利SQL语句查询相应城市编码信息实现事件代码:
Private Sub Text2_KeyDown(KeyCode As Integer Shift As Integer)
If KeyCode 13 Then
Adodc1ConnectionString PublicStr
Adodc1RecordSource select * from 全 where 城市
+ '
Label2Caption 总计查询记录条数
End If
End Sub
附录A 参考文献
1.Visual Basic精彩编程200例 机械工业出版社 赛奎春高春艳等 2003年1月
2.Visual Basic数库开发实例解析 机械工业出版社 刘志铭高春艳等 2003年8月
3.Visual FoxPro数库开发实例解析 机械工业出版社 王晶莹王国辉等 2003年9月
4.Power Builder数库开发实例解析 机械工业出版社 华传铭张振坤等 2003年9月
5.Delphi数库开发实例解析 机械工业出版社 赛奎春郑骁鹏等 2004年2月
6.PowerBuilder 精彩编程200例 机械工业出版社 张振坤李文立等 2004年9月
7.Visual FoxPro 精彩编程200例 机械工业出版社 王国辉董韶华等 2004年9月
8.ASP数库开发实例解析 机械工业出版社 李严亚芳王国辉 2004年12月
9.Delphi工程应工程实践 机械工业出版社 宋坤赵智勇等 2005年1月
10.Visual Basic工程应工程实践 机械工业出版社 高春艳李俊民等 2005年1月
11.Visual C++工程应工程实践 机械工业出版社 张雨阮伟良等 5005年1月
12.JSP工程应工程实践 机械工业出版社 陈威白伟明李楠 2005年2月
13.ASP工程应工程实践 机械工业出版社 王国辉牛强李南南 2005年4月
14.Visual Basic 信息系统开发实例精选 机械工业出版社 高春艳李俊民张耀庭等
2005年7月
15.ASP 信息系统开发实例精选 机械工业出版社 王国辉牛强李南南等 2005年7月
16.Delphi 信息系统开发实例精选 机械工业出版社 宋坤赵智勇刘强等 2005年7月
17.Visual foxpro数库开发关键技术实例应 民邮电出版社 周桓张雨王国辉
2004年5月
18.PoweBuilder数库开发关键技术实例应 民邮电出版社 刘志铭 张振坤 冯文萃
2004年5月
19.Delphi数库开发关键技术实例应 民邮电出版社 赛奎春 陈紫鸿 宋昆
2004年5月
20.Visual basic数库开发关键技术实例应 民邮电出版社 高春艳李艳
2004年5月
21.Visual C++ 理信息系统完整工程实例剖析 民邮电出版社 明日科技 2005年7月
22.Visual Basic 理信息系统完整工程实例剖析 民邮电出版社 明日科技
2005年7月
23.PowerBuilder 理信息系统完整工程实例剖析 民邮电出版社 明日科技
2005年7月
24.Visual FoxPro理信息系统完整工程实例剖析 民邮电出版社 明日科技
2005年7月
25.SQL Server数库开发实例解析 机械工业出版社 宋昆李严等 2006年1月
26.Access数库开发实例解析 机械工业出版社 李俊民高春燕等 2006年1月
附录B 数表结构
表B1 工作方案数表
字段名
数类型
长度
序号
nvarchar
10
开始时间
smalldatetime
4
结束时间
smalldatetime
4
方案容
nvarchar
100
备注
nvarchar
100
USERID
nvarchar
12
制作日期
smalldatetime
4
方案状态
nvarchar
10
记录修改日期
varchar
30
记录修改
varchar
30
表B2 车辆理数表
字段名
数类型
长度
编号
varchar
20
值班员
nvarchar
11
调度员
nvarchar
11
车
nvarchar
31
数
nvarchar
5
事
nvarchar
31
nvarchar
21
签字领导
nvarchar
11
车牌号码
nvarchar
11
车类型
nvarchar
11
司机姓名
nvarchar
17
出车时间
nvarchar
17
返回时间
nvarchar
17
备注
nvarchar
255
日期
smalldatetime
4
车性质
nvarchar
7
费
float
8
记录修改日期
varchar
20
记录修改
varchar
20
表B3 会议记录数表
字段名
数类型
长度
编号
nvarchar
10
会议题
nvarchar
20
时间
smalldatetime
4
点
nvarchar
50
持
nvarchar
50
记录
nvarchar
50
会议记录
ntext
16
题词
nvarchar
50
备注
ntext
16
记录修改日期
varchar
20
记录修改
varchar
20
表B4 驾驶员登记数表
字段名
数类型
长度
编号
int
4
姓名
nvarchar
30
性
nvarchar
2
出生日期
smalldatetime
4
身份证号
nvarchar
20
档案编号
nvarchar
50
领证日期
smalldatetime
4
证件效期
nvarchar
10
驾龄
nvarchar
20
车类型
nvarchar
2
单位住址
nvarchar
50
nvarchar
15
年检记录
ntext
16
事记录
ntext
16
记录修改日期
varchar
20
记录修改
varchar
20
表B5 会议通知数表
字段名
数类型
长度
ID
int
4
通知题
varchar
50
会议时间
varchar
30
点
varchar
50
持
varchar
20
概容
text
16
通知时间
datetime
8
接收
varchar
20
信息通知
varchar
20
否接收
real
4
表B6 报销费理
字段名
数类型
长度
ID
int
名称
nvarchar
50
类型
nvarchar
50
时间
datetime
金额
money
部门
nvarchar
50
手
nvarchar
50
审核
nvarchar
50
备注
text
16
记录修改日期
varchar
20
记录修改
varchar
20
表B7 常网址
字段名
数类型
长度
ID
int
网站分类
nvarchar
50
址
nvarchar
50
网站名称
nvarchar
50
表B8 车辆登记
字段名
数类型
长度
编号
varchar
20
车属单位
nvarchar
50
车牌号码
nvarchar
20
车辆类型
nvarchar
20
厂牌型号
nvarchar
50
出厂日期
datetime
购置日期
datetime
购置价格
varchar
30
发动机号
varchar
50
车辆颜色
varchar
50
载重
varchar
50
座位
varchar
10
驾驶员
varchar
50
里程数
varchar
30
备注信息
text
16
记录修改日期
varchar
20
记录修改
varchar
20
表B9 车辆费支出理
字段名
数类型
长度
ID
nvarchar
10
日期
datetime
车牌号码
nvarchar
20
费名称
nvarchar
30
金额
money
手
nvarchar
10
备注
text
16
表B10 车辆投保信息
字段名
数类型
长度
车牌号码
nvarchar
50
保险公司
nvarchar
50
保单号
nvarchar
50
车险名称
nvarchar
50
车险名称二
nvarchar
50
投保日期
datetime
终止日期
datetime
保险金额
int
备注
nvarchar
100
记录修改日期
varchar
20
记录修改
varchar
20
表B11 费
字段名
数类型
长度
ID
int
号码
nvarchar
20
类型
nvarchar
10
部门
nvarchar
20
nvarchar
12
年份
nvarchar
4
月份
nvarchar
2
金额
money
备注
text
16
记录修改日期
varchar
20
记录修改
varchar
20
表B12 通讯录
字段名
数类型
长度
ID
int
类型
nvarchar
10
姓名
nvarchar
12
性
nvarchar
2
单位
nvarchar
50
nvarchar
20
nvarchar
20
nvarchar
20
电子邮件
nvarchar
50
nvarchar
50
MSN
nvarchar
50
nvarchar
6
职务
nvarchar
20
址
nvarchar
50
备注
text
16
表B13 工作日志信息表
字段名
数类型
长度
序号
varchar
30
日期
datetime
日志类型
nvarchar
20
容
text
16
户名
nvarchar
20
记录修改日期
varchar
20
记录修改
varchar
20
表B14 国际 代码时差
字段名
数类型
长度
国家区
nvarchar
25
城市
nvarchar
18
区号
nvarchar
9
时差
numeric
COUNTRY
nvarchar
27
CITY
nvarchar
21
ID
int
表B15 航班查询
字段名
数类型
长度
ID
int
省份
nvarchar
10
起止点
nvarchar
20
班期
nvarchar
7
起止时间
nvarchar
11
航班号
nvarchar
6
机型
nvarchar
4
中停
nvarchar
4
备注
nvarchar
10
表B16 会议室信息表
字段名
数类型
长度
描述
hys_id
varchar
20
编号
hys_mc
varchar
50
名称
hys_zws
int
座位数
hys_bz
text
16
备注
hys_xgrq
varchar
20
修改日期
hys_xgr
varchar
20
修改
表B17 记事
字段名
数类型
长度
ID
varchar
30
标题
50
时间
datetime
负责
255
容
1073741823
记录修改日期
varchar
20
记录修改
varchar
20
表B18 属
字段名
数类型
长度
描述
start
float
开始位置
end
float
结束位置
city
7
城市1
city1
11
城市2
url
20
网络
表B19 周工作安排
字段名
数类型
长度
ID
numeric
年份
varchar
20
第周
varchar
30
周午
Text
16
周午
Text
16
周二午
Text
16
周二午
Text
16
周三午
Text
16
周三午
Text
16
周四午
Text
16
周四午
Text
16
周五午
Text
16
周五午
Text
16
时间段
varchar
16
表B20 编码全
字段名
数类型
长度
省份
nvarchar
9
城市
nvarchar
9
区号
nvarchar
9
nvarchar
9
ID
int
表B21 tb_user〔操作员信息表〕
字段名
数类型
长度
描述
user_id
varchar
20
编号
user_name
varchar
50
姓名
user_mm
varchar
30
密码
user_yhjs
varchar
50
角色
1
real
设置权限
2
real
设置权限
3
real
设置权限
4
real
设置权限
5
real
设置权限
6
real
设置权限
7
real
设置权限
8
real
设置权限
9
real
设置权限
10
real
设置权限
11
real
设置权限
12
real
设置权限
13
real
设置权限
14
real
设置权限
15
real
设置权限
16
real
设置权限
17
real
设置权限
18
real
设置权限
19
real
设置权限
20
real
设置权限
21
real
设置权限
22
real
设置权限
23
real
设置权限
表B22 tb_zcd〔设置菜单〕
字段名
数类型
长度
描述
菜单编号
numeric
菜单名称
nvarchar
50
表B23 tb_zcd_zcd〔设置子菜单〕
字段名
数类型
长度
描述
子菜单编号
numeric
子菜单名称
nvarchar
50
菜单名称
nvarchar
50
附录C 文件架构图
文件架构图图
图C1 文件架构图
会议理文件架构图办公理文件架构图图
图C2 会议理办公理文件架构图
车辆理文件架构图费理文件架构图图
图C3 车辆理费理文件架构图
辅助信息文件架构图系统理文件架构图图
图C4 辅助信息系统理文件架构图
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档