作者文章归档：袁锦白

92-95 保城初中
95-97 南部凌云
97-99 成都职大
99- 成都顶立

vb+短信猫

6 views

Option Explicit
Private Const TimeDelay = 2000 '命令延时
Private Const TimeInc = 50
Private Const str_GetSCA = "AT+CSCA?" + vbCr
Dim bportopen As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '

Private Sub Command1_Click()
'MSC...

出纳管理系统

9 views

软件主要功能

1 现金支票打印，自动登记出纳日记账

2 转账支票和进账单的打印并自动登记出纳日记账

3 出纳日记账登记

4 含项目管理，登记进指定了项目，将可按项目进行分类统计

5 出纳数据支持文本文件的导入导出功能，（比如单位会计可以将出纳导出的数据导入到他的这个系统里，

可通过软件提供的与财软的接口自动生成会计凭证。本功能非常实用于代理记账公司使用。）

6 生成用友软件会计凭证

7 打印用友会计凭证(快速方便随意的打印,并可以在凭证上打印本公司的LOG)

使用简单，只要进行了账簿设置（即设置现金账簿和银行存...

取连结到数据库的用户

8 views

SELECT * FROM
[Master].[dbo].[SYSPROCESSES] WHERE [DBID]
IN
(
SELECT
   [DBID]
FROM
   [Master].[dbo].[SYSDATABASES]
WHERE
   NAME='dlzj2008')

如机器名(HostName)、程序名称(Program_Name)、主机进程(HostProcess)、执行的操作(Cmd)、Windows登录域名(NT_Domain)、Windo...

ASA VB ADO连接

10 views

Dim TemPR As New ADODB.Recordset
Dim TempSql As String

Dim TCOL As Long
Dim TROW As Long
Dim tempconnect As New ADODB.Connection
tempconnect.Open "Provider=MSDASQL.1;DRIVER={Adaptive Server Anywhere 8.0};SRVR=local;DB=db_package;UID=DBA;PWD=JDSYSYSTEM;PERSIST SECURITY INFO=False"
...

ADO调用代参数的ACCESS查询

11 views

Dim Tcn As New ADODB.Connection
Dim TR As ADODB.Recordset

Tcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=F:\sf.mdb "
Tcn.Open

'Tcn.Execute "exec newtest qqq,wwww"
Set TR = Tcn.Execute("exec qtest 'qqq'")
TR.MoveFirs...

vb6 CDO发邮件 jmail收邮件

10 views

Public Function ToMail(TempTxt As String) As Boolean
Dim NameS As String
Dim Email As Object
ToMail = False
    On Error GoTo Err1
    NameS = "http://schemas.microsoft.com/cdo/configuration/"
    Set Email = CreateObject("CDO.Mess...

得到汉字的拼音首字母

11 views

Public Function GetPYHeadZm(p As String) As String
'得到汉字的拼音首字母

dim i
    i = Asc(p)
    Select Case i
    Case -20319 To -20284: GetPYHeadZm = "A"
    Case -20283 To -19776: GetPYHeadZm = "B"
   ...

价值中国

新知识 - 新思想 - 新经济实名制-专业主义-权益激励