Access vba 常用代码函数整理

Access与Excel结合使用常用代码

Excel使用灵活但是处理数据量小(数据一多就会卡)Access能数据量大(相对于Excel)但是使用不灵活。Excel与Access结合使用能相互弥补不足。如用Access用为后台数据库对表进行筛选、汇总等一系列处理后再以Excel为前台导出数据，会比直接用Excel表刷选、汇总一个上万行的数据表快的多。以下是几种access与Excel结合使用常用方法与代码。 1.Access导入表格代码 Sub 导入材料出库表() DoCmd.SetWarnings False '取消警告 DoCmd.RunSQL "DELETE FROM 材料出库表" '删除材料出库表 DoCmd.TransferSpreadsheet acImport, 8, "材料出库表", _ “F:\材料出库明细.xls", _ True, "sheet1!a2:ag20000" '导入材料出库明细表中的sheet1表a2:ag20000区域的数据 DoCmd.SetWarnings True End Sub '恢复警告 注：DoCmd.TransferSpreadsheet acImport, 8, "材料出库表", “F:\材料出库明细.xls", True, "sheet1!a2:ag20000" 此句代码中的"材料出库表"是表明导入到Access中的材料出库表中，参数true表明以导入数据的第一行作为列字段如将true改false 数据导入access中后表的列字段为“F1、F2、F3.....”。 2.创建Access窗体与按钮 1.创建窗体 点创建－窗体设计即调出窗体设计窗体界面。 2.创建按钮 点设计－按扭即可用鼠标在窗体中插入按钮。 按钮做好后会自动弹出“命令按钮向导”直接点取消。 右击按钮－事件生成器－代码生成器即进入此按钮的代码编辑区。 将光标放到Private Sub Command3_Click() 下面粘贴以下代码 DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM 材料出库表" DoCmd.TransferSpreadsheet acImport, 8, "材料出库表", _ “F:\材料出库明细.xls", _ True, "sheet1!a2:ag20000" DoCmd.SetWarnings True 关闭代码界面回到窗体设计界面，点右下角窗体视图,

Access数据库VBA常用标准函数

Access数据库VBA常用标准函数 一、算术函数 1.绝对值函数：Abs（<表达式>） 返回数值表达式的绝对值。如Abs（-3）=3 2.向下取整函数：Int（<数值表达式>） 返回数值表达式的向下取整数的结果，参数为负值时返回小于等于参数值的第一负数。 3.取整函数：Fix（<数值表达式>） 返回数位表达式的整数部分，参数为负值时返回大于等于参数值的第一负数。 例如：Int（3.25）=3，Fix（3.25）=3但Int（-3.25）= -4，Fix（-3.25）= -3 4.四舍五入函数：Round（<数值表达式>[，<表达式>]） 按照指定的小数位数进入四舍五入运算的结果。[<表达式>]是进入四舍五入运算小数点右边应保留的位数。 例如：Round（3.255，1）= 3.3；Round（3. 754，2）= 3.75；Round（3.754，0）= 4 5.开平方函数：Sqr（<数值表达式>） 计算数值表达式的平方根。例如：Sqr（9）= 3 6.产生随机数函数：Rnd（<数值表达式>） 产生一个0-1之间的随机数，为单精度类型。 例如：Int（100 * Rnd）’产生[0，99]的随机整数Int（101 * Rnd）’产生[0,100]的随机整数 7..求平均值函数Avg（） 例如：在tstud表中求小于所有学生年龄的平均值的学生<(select avg([年龄]) from tstud) 8.. 求和函数sum（） 二、字符串函数 1.字符串检索函数：InStr（[Start，] ， [，Compare]） 检索子字符申Str2在字符串Strl中最早出现的位置，返回一整型数。Start为可选参数，为数值式，设置检索的起始位置。如省略，从第一个字符开始检索；注意，如果Strl的申长度为零，或Str2表示的申检索不到，则InStr返回0；如果Str2的串长度为零，InStr返回Start的值。 例如：strl =“98765”str2 =“65”s = InStr（strl ,str2）’返回4 s = InStr（3，“aSsiAB”，“A”，1）’返回5。从字符s开始，检索出字符A 2.字符申长度检测函数：Len（<字符申表达式>或<变量名>） 返回字符串所含字符数。注意，定长字符，其长度是定义时的长度，和字符串实际值无关。 例如：lenl = Len（“12345”）’返回5len4 = Len（“考试中心”）’返回4 3.字符串截取函数 Left （<字符串表达式>，）：字符串左边起截取N个字符。 Right（<字符串表达式>，）：字符串右边起截取N个字符。 Mid（<字符串表达式>，，[N2]）：从字符申左边第N1个字符起截取N2个字符。 例如：strl =“opqrst” str2 =“计算机等级考试” str = Left（strl，3）’返回“opq”str = Left（str2，4）’返回“计算机等” str = Right（strl，2）’返回“st”str = Right（str2，2）’返回“考试” str = Mid（strl，4，2）’返回“rs”str = Mid（str2，1，3）’返回“计算机” str = Mid（str2，4，）’返回“等级考试” 4.生成空格字符函数：Space（<数值表达式>） 返回数值表达式的值指定的空格字符数。 例如：strl = Space(3）’返回3个空格字符 5.大小写转换函数 Ucase（<字符串表达式>）：将字符串中小写字母转换成大写字母。 Lcase（<字符串表达式>）:将字符串中大写字母转换成小写字毋。 例如：strl = Ucase（“fHkrYt”）’返回“FHKRYT”str2 = Lcase（“fHKrYt”）’返回“fhkryt” 6.删除空格函数 Ltrim（<字符串表达式>）：删除字符串的开始空格。

Access 常用函数

Access常用函数 ▲日期/时间 CDate将字符串转化成为日期，如：CDate("2005/4/5")。 Date返回当前日期。 DateAdd返回包含一个日期的值，这一日期还加上了一段时间间隔。如：dateAdd("d"，30，Date())将当前日期加上30天。 其中d还可换为： yyyy年 q季 m月 y一年的日数 d日 w一周的日数 ww周 h时 n分钟 s秒 DateDiff判断两个日期之间的间隔，如：DateDiff("d"，"2006-5-1"，"2006-6-1")返回31，其中d可以换为上述的yyyy、q、m、y、d、w、ww、h、n、s等。DatePart返回日期的某个部分，如：DatePart("d"，"2006-5-1")返回1，即1号，d可以换为上述的yyyy、q、m、y、d、w、ww、h、n、s等。 Now返回当前时间(完整时间，包括年月日小时分秒) Date返回当前的系统日期 Year返回某个日期的年 Month返回某个日期的月 Day返回某个日期日 Time返回当前的系统时间 Hour返回某个日期的小时 Minute返回日期的分钟 Second返回日期的秒 Weekday返回某个日期的当前星期(星期天为1，星期一为2，星期二为3...) ▲检查 IsDate判断是否是日期，是日期返回-1，不是日期返回0 IsEmpty检测是否为空(不过经测试，不管什么情况，都返回0) IsNull检测是否为Null值，null值返回0，非null值返回-1 IsNumeric检测是否为数字，是数字返回-1，否则返回0 ▲算术 Abs绝对值 Atn返正切值。 Cos余弦值 Exp返回e的给定次幂。

Access的各种函数归纳总结

1、数组的使用 Dim 数组名( [下标下界to ] 下标上界) [As 数据类型] Dim 数组名( [ 下界to ] 上界[ , …] ) [ As 数据类型] 说明：As选项缺省时，数组中各元素为变体数据类型。 下标下界的默认值为0，如果设置下标下界为非0值，则要使用to选项。 例子：Dim aa ( 5 ) As Single Dim bb ( 1 to 10 , 2 to 20 ) As String Dim cc ( 2 to 5 , 3 to 7 , 10) As Boolean Dim dd ( 3 , 1 to 4 ) 可以在模块的通用声明部分用Option Base来指定数组的默认下标下界。 Option Base 1 设置数组的下标下界为1 Option Base 0 设置数组的下标下界为默认值 2、整除 对两个操作数做除法运算并返回一个整数。 当操作数是小数时，首先被四舍五入为整型或长整型，然后再进行整除运算。 如果运算结果是小数，系统自动将其截断为整型或长整数，不再进行四舍五入处理。 3、取模 对两个操作数做除法运算并返回余数 如果操作数有小数时，则系统将其四舍五入为整数后再进行运算。 结果的正负号与被除数相同 4、& 运算符&两边的操作数可以是字符型、数值型或日期型。进行连接操作前先将数值型、日期型转换为字符型，然后再做连接运算。 5、+ 如果两边的操作数都是数字字符串，则做字符串连接运算 如果两边的操作数都是数值型，则做普通的加法运算 如果一个是数字字符串，另一个为数值型，则系统自动将数字字符串转化为数值，然后进行算术加法运算。 如果一个是非数字字符串，另一个为数值型，则出错 6、关系运算符号< > = 如果参与比较的两个操作数都是数值型，则按它们的大小进行比较。 如果参与比较的两个操作数都是字符型，则从左到右一一对应比较。 汉字字符按汉语拼音比较大小，且大于西文字符 字母不区分大小写，且大于数字 汉字字符>西文字符（大小写相同）>数字>空格 7、绝对值函数 Abs（<数值表达式>） 例题：Abs(-25/5)=5 8、向下取整 Int（<数值表达式>） 参数为负值时返回小于等于参数值的最大负数。 例题：Int(3.56)=3 Int(-3.56)=-4

ACCESS 窗体属性表代码说明

ACCESS┃窗体属性表代码说明┃ 属性┃代码┃说明┃ 记录源┃RecordSource┃可以是一个表或查询,也可以是SQL语句.┃ 筛选┃Filter┃设置窗体显示数据的筛选条件.┃ 排序依据┃OrderBy┃决定窗体显示记录的顺序┃ 允许筛选┃AllowFilters┃此选项为"是",筛选才有效.┃ 标题┃Caption┃设置窗体的视图界面标题栏上的显示,如果为空,则显示此窗体的名字.┃ 默认视图┃DefaultView┃缺省为"单一窗体",当此窗体作为子窗体用的话,一般情况下要改为"连续窗体"或"数据表",还有"数据透视表"与"数据透视图"很少用到."单一窗体"是每页显示一个记录,"连续窗体"与"数据表"是可显示多条记录.┃ 允许"窗体"视图┃AllowFormView┃这几项是设置此窗体允许显示的形式.┃ 允许"数据表"视图┃AllowDatasheetView┃ 允许"数据透视表"视图┃AllowPivotTableView┃ 允许"数据透视图"视图┃AllowPivotChartView┃ 允许编辑┃AllowEdits┃设置此窗体是否可更改数据.前提是此窗体绑定记录源┃ 允许删除┃AllowDeletions┃设置此窗体是否可删除记录.前提是此窗体绑定记录源┃ 允许添加┃AllowAdditions┃设置此窗体是否可添加记录.前提是此窗体绑定记录源┃ 数据输入┃DataEntry┃如这里设置为是.那么此窗体只能用于添加新记录,换言之,就是每次打开都是转到新记录.当然,前提也是此窗体绑定记录源┃ 滚动条┃ScrollBars┃设置此窗体具有横/竖/无滚动条┃ 记录选择器┃RecordSelectors┃设置记录左边是否有一个选择记录的按钮,一般在"单一窗体"模式下是要选"否"的.需要特别注意的是:即便是设置了"否",在窗体显示是同样可以用"Ctrl+A"选择记录.┃ 导航按钮┃NavigationButtons┃设置窗体下方是否需要显示跳转到记录的几个小按钮.┃ 自动调整┃AutoResize┃设为"是",窗体打开时可自动调整窗体大小,依据是你的各节长宽.┃自动居中┃AutoCenter┃设置窗体是否打开时自动居于屏幕中央.如果设置为"否",则打开时居于窗体设计视图最后一次保存时的位置.┃ 弹出方式┃PopUp┃如设置为"是",则此窗体打开时浮于其他普通窗体上面,只有模式设为"是"或其他同类窗体可以覆盖它.┃ 模式┃Modal┃如设置为"是",则此窗体以对话框形式打开,在关闭它之前,别的窗体不能操作.┃ 边框样式┃BorderStyle┃设为窗体的边框,可设置为细边框或不可调,当设置为无边框时,此窗体无边框及标题栏.┃ 控制框┃ControlBox┃设置窗体标题栏左边是否显示一个窗体图标,实际上这就是窗体控制按钮.┃ 最大最小化按钮┃MinMaxButtons┃设置窗体标题栏右边要显示的改变窗体尺寸的几个小按钮.┃ 关闭按钮┃CloseButton┃设置是否保留窗体标题栏最右端是否保留关闭窗体的按钮.┃ 宽度┃Width┃设置整个窗体的宽度.注意,这里只能设置窗体宽度,不能设置高度,窗体的高度的设置分到了各节的属性中.┃ 图片┃Picture┃设置窗体背景图片.┃ 图片类型┃PictureType┃这几项是设置图片显示模式的,不再多讲.┃ 图片缩放模式┃PictureSizeMode┃ 图片对齐方式┃PictureAlignment┃

Access中的常用函数

Access中的常用函数 1.Count 函数 计算查询所返回的记录数 语法 Count(expr) expr 占位符代表字符串表达式，它标识的字段包含了要统计的数据，或者是使用该字段的数据执行计算的表达式。expr 中的操作数可包括表字段名或函数名（可以是固有的或者用户自定义的函数，但不能是其他 SQL 聚合函数）。可以统计包括文本在内的任何类型数据。 说明 可以使用Count来统计基本查询的记录数。例如，可以通过Count来统计已发往特定城市的定单数目。 尽管 expr 能够对字段执行计算，但是Count仅仅计算出记录的数目。记录中所存储的数值类型与计算无关。 Count函数不统计包含Null字段的记录，除非 expr 是星号 (*) 通配符。如果使用了星号通配符，Count会计算出包括包含Null字段在内的所有记录的数目。使用Count(*)方式比使用Count（[Column Name]）方式快很多。不要用单引号 (' ') 将星号括起来。下面的示例计算 Orders 表中的记录数目。 SELECT Count(*) AS TotalOrders FROM Orders; 如果 expr 标识多个字段，那么Count函数仅统计至少有一个字段为非Null值的记录。如果所有指定字段均为Null值，那么该记录不被统计在内。可以使用 & 号分隔字段名。下面的示例显示了如何将计算限于那些 ShippedDate 或 Freight 为非Null值的记录： SELECT Count('ShippedDate & Freight') AS [Not Null] FROM Orders; 可以在查询表达式中使用Count。也可以将该表达式用于QueryDef对象的SQL属性中，或者在基于 SQL 查询创建Recordset对象时使用该表达式。

仓库管理系统VBAccess源代码

仓库管理系统 V B A c c e s s源代码 Standardization of sany group #QS8QHH-HHGX8Q8-GNHHJ8-HHMHGN#

仓库管理系统 项目的建立 这是本人利用闲暇之余在上制作的一个简陋的类库管系统，现图文结合的方式一步一步展现制作过程。由于本人是个初学者，里面存在很多不足之处望得到高手们的指导。此文可作供初学者们学习交流。作者联系方式：E-mail 最终运行效果 打开软件出现如下登录界面 输入系统预设用户名及密码（ 1 1 ）单击“登录”或单击“新用户”添加新用户进入如下主界面：

建立工程 1、创建标准EXE 2、按“打开”

3、添加MDI窗体——打开 4、编辑菜单 在空白处右击——点击“菜单编辑器”

在“标题”里输入“系统”，在“名称”里输入“Sys”（注意此处不能为汉字） 点击“下一个”再点击“” “确定”退到MDI界面点击“系统”——“退出”如下，然后编写代码。 代码如下： Private Sub Exit_Click() End End Sub

数据库的建立 中可以创建Access数据库。如下建立一个“用户表”的数据库，用来存放用户信息及一些出入库管理信息。如下图单击“外接程序” 再单击“可视化数据管理器”出现如图 点击“文件”——“新建”——“Microsoft Access”——“Version MDB”输入数据库名，“保存”出现如下图 在数据窗口中右击——“新建表”，最终如下 往数据表里添加数据在这里就不罗嗦了，请查阅相关书籍。 登录界面窗口的建立 最终界面如下：

ACCESS数据库中常见的SQL语句汇总教程

ACCESS数据库的SQL语句教学 1、查询所有记录：Select *通常用于快速查看表中的记录。当对表的结构无法确切记忆时，或要快速查看表中的记录时，使用Select *是很方便的。 use 企业销售管理系统 Select * from 职工 2、投影查询：很多时候并不需要将所有列的数据都显示出来。投影查询就是允许用户显示所需要的列。假设显示职工表中职工号、姓名、工资信息，具体操作方法如下。 Select 职工号,姓名,工资 from 职工 在Select查询中，还可以按照实际的需要或自己的喜好安排显示列的顺序，如果要把姓名放到第一列，则代码如下： Select 姓名, 职工号,工资 from 职工 3、条件查询：显示wh1或wh2仓库、性别不为女、工资在1300～2100之间的职工信息。具体操作如下： Select * from 职工号 where(仓库号='wh1' or 仓库号='wh2') And not 性别='女' and 工资>=1300 and 工资<=2100 在这里一定要注意，(仓库号='wh1' or仓库号='wh2')一定要加括号，否则就不是原题的意思。 4、谓词In查询：在查找特定条件的数据时，如果条件较多，就需要用到多个Or运算符，以查找满足其中任一条的记录。但使用多个Or运算符，将使Where子句变得过于冗长，这时使用In就非常清楚。另外，在后面讲解的嵌套查询中，也必须使用In查询。下面以显示zg1、zg2、zg11、zg15的订购单信息为例具体讲解一下。

使用Or运算符 Select * from 订购单 where 职工号='zg1' or 职工号='zg2' Or 职工号='zg11' or 职工号='zg15' 使用谓词In Use 企业销售管理系统 Select * from 订购单 where 职工号 in('zg1', 'zg2', 'zg11', 'zg15') 在Select语句中，还支持In与Not结合使用。假设显示职工号不为zg1, zg2, zg11, zg15的订购单信息，具体代码如下： 使用Or运算符 Select * from 订购单 where 职工号!='zg1' or 职工号!='zg2' Or 职工号!='zg11' or 职工号!='zg15' 使用谓词In Use 企业销售管理系统 Select * from 订购单 where 职工号 not in('zg1', 'zg2', 'zg11', 'zg15') 5、模糊Like查询：有的时候，我们不清楚所要查询的信息，如显示职工信息，但不能确定该职工的姓名，只知道他姓名中含有“王”字，那该如何查找呢？SQL中提供了Like关键字，使用Like进行了查询时，还要指定通配符。 通配符及其含义

ACCESS常用代码

1、单击命令按钮运行宏m1：DoCmd.RunMacro "m1" 2、标签Tda标题设置为系统当前日期：Tda.Caption=Date 3、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 将输入焦点移到"CmdEdit"命令按钮：Me.CmdEdit.SetFocus 4、将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption=Me!tText 5、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date 6、打开窗体、单击"计算"按钮(名为bt)，事件过程使用ADO数据库技术计算出表对象"tEmp"中党员职工的平均年龄，然后将结果显示在窗体的文本框"tAge"内并写入外部文件中。Ifrs.RecordCount=0Then;tAge=sage 7、将tStudent表中的全部记录显示出来：Select * From tStudent 8、窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date 9、消息框：MsgBox"请重新输入口令！",vbOkquit 10、输入框：k=InputBox("请输入大于0的整数值") 预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview 11、CaseIs>=3预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview 12、Dim f(19)AsInteger f(i)=f(i-1)+f(i-2)tData=f(19) 13、单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp"单击"退出"按钮，关闭窗体：DoCmd.Close 14、窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.Caption=vbRed实现报表预览输出:mdPnt acViewPreview 15、消息框：MsgBox"报表预览",vbQuestion+vbYesNo,"确认" 16、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp" 17、将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景： Form.Picture=CurrentProject&"\test.bmp" 18、CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed 19、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp" 关闭窗体：DoCmd.Close 20、使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 21、将文本框中输入的内容与文本串"等级考试测试"连接，并消除连接串的前导和尾随空白字符，用标签"bTitle"显示连接结果：bTitle.Caption=Trim(tText)&"等级考试测试" 22、动态设置窗体记录源为查询对象"qEmp"：Form.RecordSource="qEmp" 23、预览输出报表对象"rEmp"：DoCmd.OpenReport "rEmp",acViewPreview 24、单击“退出”按钮，关闭当前窗体：DoCmd.Close 单击“保存”按钮，“修改”按钮不可用：CmdEdit.Enable=False 用户名_1控件不可用：Me!用户名_1.Enabled=False 25、将标签显示内容设置为所选项目名加上"内容:"Me.Ldetail.Caption=Me.CItem.Value&"内容:"显示tStud表的全部记录：fDetail.Form.RecordSource="tStud"设置提示框：MsgBox "查询项目和查询内容不能为空！！！",vbOKOnly,"注意"设置窗体标题为XXXX年XX月+tTitle 标签的标题：Me.Caption=Str(Year(Date))&"年"&Str(Month(Date))&"月"&Me.tTitle.Caption 26、设置用户名为cueb，密码为1234：If name="cueb" And pass="1234"Then 文本框tUser获得焦点：Me.tUser.SetFocus 设置相关属性，实现“tPass”文本框内容以密码形式显示：Me.tPass.InputMask="Password" 27、数据连接：Set rs=New ADODB.Recordset

Access中变量、函数及表达式的含义及应用

作业要求：求Access、变量、函数及表达式的值。 通过立即窗口完成以下各题 1.填写命令的结果 ?7\2 结果为 3 ?7 mod 2 结果为 1 ?5/2<=10 结果为 True ?#2012-03-05# 结果为 2012-03-05 ?"VBA"&"程序设计基础" 结果为 VBA程序设计基础 ?"Access"+"数据库" 结果为 Access数据库 ?"x+y="&3+4 结果为 x+y= 7 a1＝#2009-08-01# a2=a1+35 ?a2 结果为 2012-09-05 ?a1-4 结果为 2012-07-28 2.数值处理函数 在立即窗口中输入命令结果功能 ?int(-3.25 -4 返回不大于-3.25的最 大整数 ?sqr(9 3 求平方根 ?sgn(-5 -1 返回正负1或0 ?fix(15.23515 返回15.235的整数部 分

?round(15.345,215.34 使15.345保留2位小 数 ?abs(-5 5 取绝对值 3.常用字符函数 在立即窗口中输入命令结果功能 ?InStr("ABCD","CD" 3 在字符串”ABCD”中找” ＣＤ”的位置 c="Beijing 赋值 University" ?Mid(c,4,3 jin 从字符串c的第四位开 始取三位 ?Left(c,7Beijing从字符串c的左边开始 取7位数 ?Right(c,10 University从字符串c的右边开始 取10位数 ?Len(c１８字符串c的长度 d=" BA "赋值 ?"V"+Trim(d+"程序"VBA程序删除字符串d两端的空 格

计算机二级access数据库常用函数

一、算术函数 算术函数完成数学计算功能。主要包括以下算术函数： 1.绝对值函数：Abs（<表达式>） 返回数值表达式的绝对值。如Abs（-3）=3 2.向下取整函数：Int（<数值表达式>） 返回数值表达式的向下取整数的结果，参数为负值时返回小于等于参数值的第一负数。 3.取整函数：Fix（<数值表达式>） 返回数位表达式的整数部分，参数为负值时返回大于等于参数值的第一负数。 Int和Fix函数当参数为正值时，结果相同；当参数为负时结果可能不同。Int返回小于等于参数值的第一个负数，而Fix返回大于等于参数值的第一负数。 例如：Int（3.25）=3，Fix（3.25）=3但Int（-3.25）=-4，Fix（-3.25）=-3 4.四舍五入函数：Round（<数值表达式>[，<表达式>]） 按照指定的小数位数进入四舍五入运算的结果。[<表达式>]是进入四舍五入运算小数点右边应保留的位数。 例如：Round（3.255，1）=3.3；Round（3.255，2）；Round（3.754，1）=3.28；Round（3.754，2）=3.75；Round（3.754，0）=4 5.开平方函数：Sqr（<数值表达式>）

计算数值表达式的平方根。例如：Sqr（9）=3 6.产生随机数函数：Rnd（<数值表达式>） 产生一个0-1之间的随机数，为单精度类型。 数值表达式参数为随机数种子，决定产生随机数的方式。如果数值表达式值小于0，每次产生相同的随机数；如果数值表达式值大于0。每次产生新的随机数；如果数值表达式值等于0，产生最近生成的随机数，且生成的随机数序列相同；如果省略数值表达式参数，则歌认参数位大于0。 实际操作时，先要使用无参数的Randomize语句初始化随机数生成器。以产生不同的随机数序列。 例如：Int（100*Rnd）’产生[0，99]的随机整数 Int（101*Rnd）’产生[0,100]的随机整数 Int（100，Rnd+l）’产生[i,l00]的随机整数 Int（100+200*Rnd）’产生[100,299]的随机整数 Int（100+201*Rnd）’产生[100,300]的随机整数 二、字符串函数 1.字符串检索函数：InStr（[Start，]，[，Compare]） 检索子字符申Str2在字符串Strl中最早出现的位置，返回一整型数。Start为可选参数，为数值式，设置检索的起始位置。如省略，从

ACCESS常考编程代码

1.单击命令按钮运行宏m1: DoCmd.RunMacro "m1" 2.标签Tda 标题设置为系统当前日期: Tda.Caption=Date 3.使“保存”按钮CmdSave变为可用：CmdSave.Enabled=True 4.将文本框tText的内容作为窗体中标签bTitle的标题显示：bTitle.Caption= tText.value 5.窗体加载时窗体标题属性为系统当前日期：Form.Caption=Date 6：将tStudent 表中的全部记录显示出来： Select * From tStudent 7：消息框(返回的值是数字型，共有7个数字)：MsgBox "请重新输入口令！" 8：输入框（输入的值赋值给k，且k是字符串类型）：k=InputBox ("请输入大于0的整数值") 9.预览输出报表对象"rEmp"： DoCmd.OpenReport "rEmp",acViewPreview 10：单击"刷新"按钮，窗体记录源改为查询对象"qEm"：Form.RecordSource="qEmp" 11.单击"退出"按钮，关闭窗体：DoCmd.Close 12：窗体"fEmp"的"加载"事件中设置标签"bTitle"以红色文本显示：bTitle.ForeColor=vbRed 13：将考生文件夹下的图片文件"test.bmp"设置为窗体"fEmp"的背景：Form.Picture=CurrentProject.path & "\test.bmp"

14：CDID文本框内内容显示颜色改为红色：CDID.ForeColor=vbRed 15：关闭窗体：DoCmd.Close 16：将文本框中输入的内容与文本串"等级考试测试"连接，并消除连接串的前导和尾随空白字符，用标签"bTitle"显示连接结果：bTitle.Caption=Trim(tText) & "等级考试测试" 17：光标置于用户名文本框(文本框名为tUser)中(表示文本框获得焦点)：Me!tUser.SetFocus 点退出按钮关闭窗体：DoCmd.Close 单击“保存”按钮，“修改”按钮CmdEdit不可用 CmdEdit.Enable=False

access公式大全

选择查询 1、设有数据表“pay”（考VFP的同学请下载{}；考ACCESS的同学请下载{}），包含以下字段：工号(C)、姓名(C)、性别(C)、部门(C)、婚否(L)、工作日期(D)、工资(N)、补贴(N)、公积金(N)，应发工资(N)。（填写命令时，均不考虑表的打开和关闭。） 要求填写VFP或SQL命令， 列出部门为“研发部”的男性职工的工号，姓名，性别和部门。 SELECT pay.工号, pay.姓名, pay.性别, pay.部门 FROM pay WHERE (((pay.性别)="男") AND ((pay.部门)="研发部")); 2、列出工资大于1800元的男性职工的工号、姓名、性别、部门和工资。 SELECT pay.工号, pay.姓名, pay.性别, pay.部门, pay.工资 FROM pay WHERE (((pay.性别)="男") AND ((pay.工资)>1800)); 3、列出部门为“财务科”和“研发部”的所有女性职工的信息。 SELECT pay.* FROM pay WHERE (((pay.性别)="女") AND (((pay.部门)="财务科") OR ((pay.部门)="研发部"))); 4、列出工资小2000元的女性职工的工号、姓名、性别、部门和工资。 SELECT pay.工号, pay.姓名, pay.性别, pay.部门, pay.工资 FROM pay WHERE (((pay.性别)="女") AND ((pay.工资)<2000)); 5、列出所有已婚男性职工的部门、姓名、婚否和工资。 SELECT pay.部门, pay.姓名, pay.婚否, pay.工资 FROM pay WHERE (((pay.婚否)=True) AND ((pay.性别)="男")); 6、列出部门为“财务科”的女性职工的工号，姓名，性别和部门。 SELECT pay.工号, pay.姓名, pay.性别, pay.部门 FROM pay WHERE (((pay.性别)="女") AND ((pay.部门)="财务科")); 7、列出所有未婚女性职工的部门、姓名、婚否和工资。 SELECT pay.部门, pay.姓名, pay.婚否, pay.工资 FROM pay WHERE (((pay.婚否)=False) AND ((pay.性别)="女")); 8、列出部门为“办公室”和“研发部”的所有男性职工的信息。 SELECT pay.*, pay.部门, pay.性别 FROM pay WHERE (((pay.部门)="办公室" Or (pay.部门)="研发部") AND ((pay.性别)="男")); 9、要求利用工号的前2位产生一个新字段“部门代码”，并在查询中显示原来的所有字段和“部门代码”字段。 SELECT Left([工号],2) AS 部门代码, pay.* FROM pay; 文档冲亿季，好礼乐相随mini ipad移动硬盘拍立得百度书包 赋值查询 1、列出工号前2位等于“02”的女性职工的信息。 2、列出工号前2位等于“01”的男性职工的信息。 SELECT pay.* FROM pay WHERE (((Left([pay].[工号],2))="01") AND ((pay.性别)="男")); 3、统计女性职工中工资不超过1800元的人数，并将结果赋给变量A56（或者新字段A56）。 SELECT Count([姓名]) AS a56 FROM pay

DBAccess,java的代码

package com.deo.javabean; import java.sql.Connection; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.SQLException; import java.sql.Statement; public class DBAccess { private String drv ="com.mysql.jdbc.Driver";//数据库驱动名private String url ="jdbc:mysql://localhost:3306/deo"; private String usr ="root"; private String pwd =""; private Connection conn =null; private Statement stm =null; private ResultSet rs =null; public String getDrv() { return drv; } public void setDrv(String drv) { this.drv = drv; } public String getUrl() { return url; } public void setUrl(String url) { this.url = url; } public String getUsr() { return usr; } public void setUsr(String usr) { https://www.wendangku.net/doc/8f11192559.html,r = usr; } public String getPwd() { return pwd; } public void setPwd(String pwd) { this.pwd = pwd; } public Connection getConn() {

access常量变量常用函数与表达式

补充实验一常量、变量、常用函数与表达式[实验目标] ·正确书写不同类型的常量； ·掌握变量的赋值及使用方法； ·熟练掌握常用函数的用法； ·根据要求正确书写表达式。 [实验内容] ·常量的类型； ·变量的操作； ·常用函数； ·表达式的构建。 [实验环境] 本次实验的全部实验内容均要求在VBE的立即窗口中进行。 [方法分析与操作步骤] 1，常量 (1)数值型 ? 100 ? 1.45e3 ? 1.45e-2 (2)字符型 ? ”100” ? “a1b0c0” ? “abcd” (3)逻辑型 ? True ? False (4)日期型 ? # 06/20/12 # ? #2012/06/18# ? # 06-20-12 # ? # 2012-06-18 # ? #2012/06/18 10:32 # ? #2012/06/18 10:32 pm# 2．变量 nVar_x = 234. 5 cVar_y = “abc123” ? “nVar_ x=”, nVar_ x ? “cVar_y = “, cVar_y ? “nVar_ x=”& nVar_ x ? “cVar_y = “& cVar_y 3．函数

(l)数学函数 ①abs()； ? abs(36.9) ? abs( - 36.9) ②int()； ? int(36.9) ? int( - 36.9) ? int(36.3) ? int( - 36.3) ③fix()； ? fix(36.9) ? fix( - 36.9) ? fix(36.3) ? fix( - 36.3) ④sqr()； ? sqr(9) ? sqr(3) ? sqr(0) ? sqr( -9) ‘显示出错提示框 ⑤sin()、cos()、tan()； ? sin(60/180*3.14) ‘计算60°角的正弦值 ? cos(90/180*3.14) ‘计算90°角的余弦值 ? tan(45/180*3.14) ‘计算45°角的正切值 ⑥rnd(); ? rnd() ’产生O～l之间的随机数 ? rnd ? rnd(0) ‘产生最近生成的随机数 ? int(100*rnd) ‘产生[0，99]的随机整数 ? int(101*rnd) ‘产生[0，100]的随机整数 ? int(100*rnd+1) ‘产生[1，100]的随机整数 ? int(100 + 200*rnd) ‘产生[100，299]的随机整数 (2)字符串函数 ①Instr()； ? instr (“access”, ” e” ) ? instr ( “access” , “E” ) ? instr (1, “access” , “E” , 1) ? instr ( “access”, “s”) ? InStr (3，”aSsiAB”，”a”，1) ‘返回5（从字符S开始，检索出字符A，不区分大小写） ②len()； ? len(”南京财大”) ? len(”中文Access”) ? len(“2500”) ③left( ), right( ), mid( ) ;

基于ASPACCESS的学生信息管理系统源代码及全套资料

基于ASPACCESS的学生信息管理系统源代码及全套资料 1

摘要 随着科学技术的发展，计算机领域不断取得新的研究成果。并不断地代替和延伸脑力劳动方面发挥越来越重要的作用，无论是工业还是日常生活都越来越离不开计算机，尤其是在学校里，随着不同高校的的不断扩大和招生人数的不断增加，要处理大量的学生数据信息显得尤为的重要。学生的信息管理是学校工作中一项重要的内容。 本系统论文主要是管理学生的资料。重点介绍其功能：信息添加、信息修改、信息的删除及信息查询。使用进行静态页面设计 ,应用 A S P 程序进行后台管理操作，并用 A ccess 进行后台数据库的连接设计。主要是以四大功能进行系统的设计和实现。 关键词： Dreamw eaver M X 系统站点设计 A S P A ccess 数据库

1 .1 开发工具的介绍 1 . 1 . 1 AS P ASP （ Ac t i ve Se ve r Pa g e s 动态网页）是微软公司推出的一种用以取代 CGI ( Common Ga t e wa y I nt e r f a c e ) 技术。目前， I nt e r ne t 上的许多基于Wi ndows 平台的 We b 站点已开始应用 ASP 来替换 CGI 。 ASP 是在服务器端脚本编译环境，使用它可以创建 和运行动态、交互的 We b 服务器应用程序。 ASP 可以与 HTML 页、脚本命令和 Ac t i ve X 组件组合创建交互的We b 页和基于 We b 的功能强大的应用程序。 ASP 应用 程序很容易开发和修改。ASP 是一个位于服务器端的 脚本运行环境。通过这种环境，用户可以创建和运行 动态的交互式 We b 服务器应用程序，如交互式动态 网页，包括使用 HTML 表单收集和处理信息、 上传与下载等。通常情况下，用户通过 浏览器看到的网页大多是静态的，目前 I nt e r ne t 上的许多站点，仍然提供“静态”（ s t a t i c ）的主 页内容。所谓“静态”，是指站点的主页内容是“固定不变” 的。一个“静态”的站点，若要更新主页的内

access计算机代码归纳

第一套 加载窗体fQuery重置窗体标题为“显示查询信息” Add1 Me.Caption = “显示查询信息” 退出cQuit命令按钮改的文字颜色改为红色 Add2 Me. 命令7.ForeColor = vbRed 字体粗细改为加粗，加粗为700 Add3 Me. 命令7.FontWeight = 700 tStudent表中的全部记录显示 Add4 BBB.Form.RecoedSource = “ select * from tStudent”第二套 将Tda标签的标题设置为“YYYY年雇员信息” Add1 Me.Tda.Caption = Year(Date) & "年雇员信息" 设置代码执行宏Add2 DoCmd.RunMacro "m1" 第三套 将标签显示内容设置为所选项目名加上"内容:" Add1 Me.Ldetail.Caption = Me.CItem.Value& "内容：" 显示全部记录Add2fDetail.Form.RecordSource = "tStud" 设置提示框 Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意" 设置窗体标题为标签tTitle的标题 Add4 Me.Caption = Me.tTitle.Caption 第五套（同3套，少标题） Add1 Me.Ldetail.Caption = Me.cItem.Value& "内容：" Add2 Me.fDetail.Form.RecordSource = "tStud" Add3 MsgBox "查询项目和查询内容不能为空！！！", vbOKOnly, "注意" 第六套 单击修改按钮，保存按钮变为可用 Add1 Me.CmdSave.Enabled = True 焦点移到"CmdEdit"命令按钮 Add2 Me.CmdEdit.SetFocus 第八套 设置窗体标题为“xxxx年信息输出” Add1 Me.Caption = Year(Date) & "年信息输出" 预览方式输出报表rEmp Add2 DoCmd.OpenReport "rEmp", acViewPreview 第九套 消息框提示关闭窗体 Add If MsgBox("确认退出？", vbYesNo + vbQuestion, "提示") = vbYes Then tSub学号第56位判断专业控件来源=IIf(Mid([学号],5,2)="10","信息","管理") 第十套 实现“tPass”文本框内容以密码形式显示 Add1 Me.tPass.InputMask = "password" 用户名为cueb，用户密码为1234 Add2 If name = "cued" And pass = "1234" Then Add3 Me.tUser.SetFocus Add4 DoCmd.Close 第十一套表tDept的控件来源=DLookUp("科室名称","tOffice","科室ID='" & [科室ID] & "'") tDoct的控件来源=DLookUp("姓名","tDoctor","医生ID = '" & [医生ID] & "'") 将标签显示内容设置为所选项目名加上"内容:" Add1 Me.Ldetail.Caption = Me.CItem.Value& "内容：" 显示全部记录Add2 fDetail.Form.RecordSource = "tStud" 设置提示框 Add3 MsgBox "查询项目或查询内容不能为空！！！", vbOKOnly, "注意" 设置窗体标题 Add4 Me.Caption = Year(Date) & "年" & Month(Date) & "月" &Me.tTitle.Caption 第十二套 tPa的控件来源=IIf([tEmp]![党员否]=[ture],"党员","非党员") 窗体对象改为查询对象”qEmp”动态设置窗体记录源属性Add1 Me.Form.RecordSource = "qEmp" 关闭窗口Add2 DoCmd.Close 第十三套 txtIf的控件来源=IIf(Sum([单价]*[数量])>30000,"达标","不达标") 第十四套 计算满足表达式1+2+3+..+n<=30000 在Program行中输入Dim s As Integer Do While s <= 30000 n = n + 1 s = s + n Loop n = n – 1 代码调用宏对象"mEmp" Add2 DoCmd.RunMacro "mEmp" 设置窗体标题为标签"bTitle"的标题内容 Add1 Me.Caption = Me.bTitle.Caption 第十五套 题干为对不起！为输入雇员姓名，请输入！ Add1 Setrs = New ADODB.Recordset Add2 If Not rs.EOF Then Add3Me.TxtDetail = "" 第十六套 tDept的控件来源=DLookUp("名称","tGroup","部门编号='" & [所属部门] & "'") 第十七套 窗体标题显示为**月**日#### Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "月") & Trim(Me.bTitle.Caption) 第十八套 窗体标题显示为**月**日####样例 Me.Caption = Trim(Month(Date) & "月" & Day(Date) & "日") & Trim(Me.bTitle.Caption& "样例")