modulestructure.bas

用VB实现连接oracle817数据月报数输入并统计

Attribute VB_Name = "ModuleStructure"
Option Explicit

Type CZY              '操作员信息
  CZYDH   As String   '操作员代码
  CZYMC   As String   '操作员名称
  BMDH   As String    '部门代号限
  PASSWD  As String   '登陆密码
  ZXBZ    As Long     '注销标志
End Type

Type BMDM
  BMDH  As String     '部门代号
  BMMC  As String     '部门名称
  BMLX  As Long       '部门类型
End Type

Type XMDM
  XMBH  As Long      '项目编号
  XMMC  As String    '项目名称
  XMLX  As Long      '项目类型
End Type

Type YBHZ
 HZXH     As String  '汇总序号
 YBND     As Long    '月报年度
 YBYF     As Long    '月报月份
 DJRQ     As Date    '登记日期
 ZBRDH    As String  '制表人代号
End Type

Type YBMX
 HZXH As String      '汇总序号
 BMDH As String      '部门代号
 BGSBGZF As Double
 ZYSBGZF As Double
 JTGJGZF As Double
 CLGLCBF As Double
 ZXKJJSF As Double
 BZGZF As Double
 QCGZF As Double
 QT As Double
 GGFYFT As Double
 ZDFYXJ As Double
 ZJBC As Double
 BCFT As Double
 SGJFXB As Double
 ZFK As Double
 
 End Type