篇一:摩托车基本信息摸排表
摩托车基本信息摸排表
报表单位: 报表人:报表时间:
2、本次摸排主要是摸清辖区内到底有多少摩托车,有多少无证、有证,以及有多少三轮摩托、残疾人三轮摩托等数据,因此要在上表车辆性质1栏中标注清楚,如:摩托车、三轮摩托车、残疾人摩托车等。
3、此次报表作为各村居交通安全考核内容之一,未及时完成任务影响全镇数据上报的单位一律通报。
篇二:如何查询企业工商信息?
如何查询企业工商信息?
如何运用工商行政管理局网站查询企业基本信息:
1. 登陆网站/retype/zoom/28914329be1e650e52ea99f9?pn=1&x=0&y=0&raww=893&rawh=417&o=png_6_0_0_0_0_0_0_892.979_1262.879&type=pic&aimh=224.14333706606945&md5sum=35cd045e8d6688a0addbfd46a1cbc8e8&sign=e7ab459977&zoom=&png=0-21128&jpg=0-0" target="_blank">点此查看
1. 所属航空公司不同,国内与国外民航公司肯定价格差异大(本土与外围的区别)。
2. 所坐的舱的等级与服务不同,优质服务与普通服务的差别。
3. 所坐飞机机型的差异。
参考文献:卜庆锋 客户关系管理系统
篇三:职工信息查询系统
职工信息查询系统设计报告
学院 土木工程学院 班级测绘C111 学号 117557姓名 王宇晨 成绩
一、设计思路
1.要达到的目的
?
?
?
?
? 利用“打开”对话框,打开选中的数据文件zgxx.txt,并从该文件中读取职工姓名、职称和工资,保存在数组中,并显示在文本框中。 清除文本框中的职工的信息。 在文本框中显示职工的信息。 按照姓名查询职工信息,并显示。 查询具有某一职称的职工信息和人数,并显示。
? 查询工资高于某个数值的职工的信息和人数,并显示。
2.关键问题的解决
①设置属性
设计时要注意一些功能需要在其它功能之后才能使用,如 “清除数据”、“显示数据”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才将按钮的Enable属性设置为True。
②编写代码
需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点:
(1) 定义模块级动态数组分别用于存放姓名、职称、工资数据,这些数组应定义为模块级的。
(2) 单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。
(3) 利用InputBox 函数来输入要查询的职工的姓名、职称或工资。
(4) 利用MsgBox 函数或另一个窗体来显示高于高于或等于某个数值的职工信息。
(5) 在“职称查询”或“工资查询”,定义数组分别用于存放符合要求的职工的姓名、职称、工资数据,由于不能确定符合要求的职工人数,所以数组要定义为动态的。
(6) 注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。
二、模块之间的调用关系,或程序流程图
三、部分程序关键源代码及注释
Private Sub Command1_Click()
Close
ComDlg.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*" 选择文件夹
ComDlg.FilterIndex = 0
ComDlg.ShowOpen
filepath = ComDlg.FileName
Open filepath For Input As #1
Command2.Enabled = True
Command3.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Text1.Text = "姓名职称工资" & vbCrLf & "---------------------------------------------" & vbCrLf
Dim StrLine As String, a() As String 在循环中存放每行的内容
i = 0
Do While Not EOF(1) EOF为文尾测试函数
Line Input #1, StrLine’将读入的一行存到变量StrLine中
If StrLine <> "" Then
a() = Split(StrLine, ",")
For n = 0 To 2
data(i, n) = a(n)
Next
End If
i = i + 1
Loop
num = i
For m = 0 To num
For n = 0 To 3
Text1.Text = Text1.Text & data(m, n) & Space(4)
Next
Text1.Text = Text1.Text & vbCrLf
Next
End Sub
四、设计方案的完善及目前存在的问题
1.设计方案要完善的地方
可以加入背景图片
2. 目前存在的问题
文件读取不稳定
五、本次设计的收获及心得体会
提高了我综合利用VB语言进行程序设计的能力,增强了使用基本控件的、文件读写、数组操作和菜单设计等能力,提高了我对学习VB的兴趣。在这一周里经过了对VB的查找和询问,确确实实的学到了很多东西。
真重用到时才发发现自己的不足,其间参考了老师做的范例,也借助网络查找了一些资料。通过本次的课程设计,不仅使我在知识上有了很大增长,也使我对待学问的态度又很跟大转变。
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
希望能简单的操作和设计。
2.对本次设计的意见和建议
功能单一,实际作用小,无法得到广泛应用。
可视性不强!
《怎么查询摩托车工信》
由:免费论文网互联网用户整理提供,链接地址:
http://m.csmayi.cn/show/123764.html
转载请保留,谢谢!
- 上一篇:升职主管最简单的感言
- 下一篇:机场发生不安全事件感想