开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
frm大病医疗记录.frm
资源名称：dbbase.rar　[点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：24k
源码类别：

企业管理

开发平台：

Visual Basic

frm大病医疗记录.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  5. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  6. Begin VB.Form frm_DBYLJL 
  7.    BorderStyle     =   3  'Fixed Dialog
  8.    Caption         =   "大病医疗记录"
  9.    ClientHeight    =   5610
  10.    ClientLeft      =   1095
  11.    ClientTop       =   330
  12.    ClientWidth     =   7890
  13.    ControlBox      =   0   'False
  14.    KeyPreview      =   -1  'True
  15.    LinkTopic       =   "Form1"
  16.    LockControls    =   -1  'True
  17.    MaxButton       =   0   'False
  18.    MinButton       =   0   'False
  19.    ScaleHeight     =   5610
  20.    ScaleWidth      =   7890
  21.    ShowInTaskbar   =   0   'False
  22.    StartUpPosition =   2  '屏幕中心
  23.    Begin VB.Frame Frame1 
  24.       Height          =   5655
  25.       Left            =   0
  26.       TabIndex        =   10
  27.       Top             =   -60
  28.       Width           =   7845
  29.       Begin TabDlg.SSTab SSTab1 
  30.          Height          =   5235
  31.          Left            =   90
  32.          TabIndex        =   11
  33.          Top             =   360
  34.          Width           =   7665
  35.          _ExtentX        =   13520
  36.          _ExtentY        =   9234
  37.          _Version        =   393216
  38.          Style           =   1
  39.          Tabs            =   2
  40.          TabHeight       =   520
  41.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.             Name            =   "宋体"
  43.             Size            =   9
  44.             Charset         =   134
  45.             Weight          =   400
  46.             Underline       =   0   'False
  47.             Italic          =   0   'False
  48.             Strikethrough   =   0   'False
  49.          EndProperty
  50.          TabCaption(0)   =   "录    入"
  51.          TabPicture(0)   =   "frm大病医疗记录.frx":0000
  52.          Tab(0).ControlEnabled=   -1  'True
  53.          Tab(0).Control(0)=   "lblLabels(1)"
  54.          Tab(0).Control(0).Enabled=   0   'False
  55.          Tab(0).Control(1)=   "lblLabels(2)"
  56.          Tab(0).Control(1).Enabled=   0   'False
  57.          Tab(0).Control(2)=   "lblLabels(3)"
  58.          Tab(0).Control(2).Enabled=   0   'False
  59.          Tab(0).Control(3)=   "lblLabels(4)"
  60.          Tab(0).Control(3).Enabled=   0   'False
  61.          Tab(0).Control(4)=   "lblLabels(5)"
  62.          Tab(0).Control(4).Enabled=   0   'False
  63.          Tab(0).Control(5)=   "lblLabels(6)"
  64.          Tab(0).Control(5).Enabled=   0   'False
  65.          Tab(0).Control(6)=   "lblLabels(7)"
  66.          Tab(0).Control(6).Enabled=   0   'False
  67.          Tab(0).Control(7)=   "lblLabels(8)"
  68.          Tab(0).Control(7).Enabled=   0   'False
  69.          Tab(0).Control(8)=   "cmdClose"
  70.          Tab(0).Control(8).Enabled=   0   'False
  71.          Tab(0).Control(9)=   "cmdClear"
  72.          Tab(0).Control(9).Enabled=   0   'False
  73.          Tab(0).Control(10)=   "RQ"
  74.          Tab(0).Control(10).Enabled=   0   'False
  75.          Tab(0).Control(11)=   "TXT_QYBH"
  76.          Tab(0).Control(11).Enabled=   0   'False
  77.          Tab(0).Control(12)=   "TXT_ND"
  78.          Tab(0).Control(12).Enabled=   0   'False
  79.          Tab(0).Control(13)=   "TXT_ZGRS"
  80.          Tab(0).Control(13).Enabled=   0   'False
  81.          Tab(0).Control(14)=   "TXT_JS"
  82.          Tab(0).Control(14).Enabled=   0   'False
  83.          Tab(0).Control(15)=   "TXT_DWYJE"
  84.          Tab(0).Control(15).Enabled=   0   'False
  85.          Tab(0).Control(16)=   "TXT_GRYJE"
  86.          Tab(0).Control(16).Enabled=   0   'False
  87.          Tab(0).Control(17)=   "TXT_YJHJ"
  88.          Tab(0).Control(17).Enabled=   0   'False
  89.          Tab(0).Control(18)=   "Picture1"
  90.          Tab(0).Control(18).Enabled=   0   'False
  91.          Tab(0).Control(19)=   "TXT_grbl"
  92.          Tab(0).Control(19).Enabled=   0   'False
  93.          Tab(0).Control(20)=   "TXT_DWBL"
  94.          Tab(0).Control(20).Enabled=   0   'False
  95.          Tab(0).Control(21)=   "cmdUpdate"
  96.          Tab(0).Control(21).Enabled=   0   'False
  97.          Tab(0).ControlCount=   22
  98.          TabCaption(1)   =   "列    表"
  99.          TabPicture(1)   =   "frm大病医疗记录.frx":001C
  100.          Tab(1).ControlEnabled=   0   'False
  101.          Tab(1).Control(0)=   "Frame2"
  102.          Tab(1).Control(1)=   "DataGrid1"
  103.          Tab(1).Control(2)=   "CMD_DEL"
  104.          Tab(1).ControlCount=   3
  105.          Begin Threed.SSCommand cmdUpdate 
  106.             Height          =   375
  107.             Left            =   3960
  108.             TabIndex        =   7
  109.             Top             =   4680
  110.             Width           =   975
  111.             _Version        =   65536
  112.             _ExtentX        =   1720
  113.             _ExtentY        =   661
  114.             _StockProps     =   78
  115.             Caption         =   "&Y.保 存"
  116.          End
  117.          Begin VB.CommandButton CMD_DEL 
  118.             Caption         =   "删除"
  119.             Height          =   375
  120.             Left            =   -68160
  121.             TabIndex        =   29
  122.             Top             =   4800
  123.             Width           =   765
  124.          End
  125.          Begin MSDataGridLib.DataGrid DataGrid1 
  126.             Height          =   2895
  127.             Left            =   -74850
  128.             TabIndex        =   25
  129.             Top             =   1830
  130.             Width           =   7455
  131.             _ExtentX        =   13150
  132.             _ExtentY        =   5106
  133.             _Version        =   393216
  134.             AllowUpdate     =   0   'False
  135.             AllowArrows     =   -1  'True
  136.             BackColor       =   -2147483624
  137.             ForeColor       =   -2147483646
  138.             HeadLines       =   1
  139.             RowHeight       =   14
  140.             FormatLocked    =   -1  'True
  141.             BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  142.                Name            =   "宋体"
  143.                Size            =   9
  144.                Charset         =   134
  145.                Weight          =   400
  146.                Underline       =   0   'False
  147.                Italic          =   0   'False
  148.                Strikethrough   =   0   'False
  149.             EndProperty
  150.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  151.                Name            =   "宋体"
  152.                Size            =   9
  153.                Charset         =   134
  154.                Weight          =   400
  155.                Underline       =   0   'False
  156.                Italic          =   0   'False
  157.                Strikethrough   =   0   'False
  158.             EndProperty
  159.             ColumnCount     =   9
  160.             BeginProperty Column00 
  161.                DataField       =   "ID"
  162.                Caption         =   "ID"
  163.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  164.                   Type            =   0
  165.                   Format          =   ""
  166.                   HaveTrueFalseNull=   0
  167.                   FirstDayOfWeek  =   0
  168.                   FirstWeekOfYear =   0
  169.                   LCID            =   2052
  170.                   SubFormatType   =   0
  171.                EndProperty
  172.             EndProperty
  173.             BeginProperty Column01 
  174.                DataField       =   "企业编号"
  175.                Caption         =   "企业编号"
  176.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  177.                   Type            =   0
  178.                   Format          =   ""
  179.                   HaveTrueFalseNull=   0
  180.                   FirstDayOfWeek  =   0
  181.                   FirstWeekOfYear =   0
  182.                   LCID            =   2052
  183.                   SubFormatType   =   0
  184.                EndProperty
  185.             EndProperty
  186.             BeginProperty Column02 
  187.                DataField       =   "年度"
  188.                Caption         =   "年度"
  189.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  190.                   Type            =   0
  191.                   Format          =   ""
  192.                   HaveTrueFalseNull=   0
  193.                   FirstDayOfWeek  =   0
  194.                   FirstWeekOfYear =   0
  195.                   LCID            =   2052
  196.                   SubFormatType   =   0
  197.                EndProperty
  198.             EndProperty
  199.             BeginProperty Column03 
  200.                DataField       =   "日期"
  201.                Caption         =   "日期"
  202.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  203.                   Type            =   0
  204.                   Format          =   ""
  205.                   HaveTrueFalseNull=   0
  206.                   FirstDayOfWeek  =   0
  207.                   FirstWeekOfYear =   0
  208.                   LCID            =   2052
  209.                   SubFormatType   =   0
  210.                EndProperty
  211.             EndProperty
  212.             BeginProperty Column04 
  213.                DataField       =   "在职职工数"
  214.                Caption         =   "人数"
  215.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  216.                   Type            =   0
  217.                   Format          =   ""
  218.                   HaveTrueFalseNull=   0
  219.                   FirstDayOfWeek  =   0
  220.                   FirstWeekOfYear =   0
  221.                   LCID            =   2052
  222.                   SubFormatType   =   0
  223.                EndProperty
  224.             EndProperty
  225.             BeginProperty Column05 
  226.                DataField       =   "上年月平均工资总额"
  227.                Caption         =   "月平均工资"
  228.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  229.                   Type            =   0
  230.                   Format          =   ""
  231.                   HaveTrueFalseNull=   0
  232.                   FirstDayOfWeek  =   0
  233.                   FirstWeekOfYear =   0
  234.                   LCID            =   2052
  235.                   SubFormatType   =   0
  236.                EndProperty
  237.             EndProperty
  238.             BeginProperty Column06 
  239.                DataField       =   "单位应缴额"
  240.                Caption         =   "单位应缴额"
  241.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  242.                   Type            =   0
  243.                   Format          =   ""
  244.                   HaveTrueFalseNull=   0
  245.                   FirstDayOfWeek  =   0
  246.                   FirstWeekOfYear =   0
  247.                   LCID            =   2052
  248.                   SubFormatType   =   0
  249.                EndProperty
  250.             EndProperty
  251.             BeginProperty Column07 
  252.                DataField       =   "个人应缴额"
  253.                Caption         =   "个人应缴额"
  254.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  255.                   Type            =   0
  256.                   Format          =   ""
  257.                   HaveTrueFalseNull=   0
  258.                   FirstDayOfWeek  =   0
  259.                   FirstWeekOfYear =   0
  260.                   LCID            =   2052
  261.                   SubFormatType   =   0
  262.                EndProperty
  263.             EndProperty
  264.             BeginProperty Column08 
  265.                DataField       =   "应缴金额合计"
  266.                Caption         =   "应缴金额合计"
  267.                BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  268.                   Type            =   0
  269.                   Format          =   ""
  270.                   HaveTrueFalseNull=   0
  271.                   FirstDayOfWeek  =   0
  272.                   FirstWeekOfYear =   0
  273.                   LCID            =   2052
  274.                   SubFormatType   =   0
  275.                EndProperty
  276.             EndProperty
  277.             SplitCount      =   1
  278.             BeginProperty Split0 
  279.                BeginProperty Column00 
  280.                   Object.Visible         =   0   'False
  281.                   ColumnWidth     =   915.024
  282.                EndProperty
  283.                BeginProperty Column01 
  284.                   Object.Visible         =   0   'False
  285.                   ColumnWidth     =   1140.095
  286.                EndProperty
  287.                BeginProperty Column02 
  288.                   ColumnWidth     =   915.024
  289.                EndProperty
  290.                BeginProperty Column03 
  291.                   ColumnWidth     =   1305.071
  292.                EndProperty
  293.                BeginProperty Column04 
  294.                   ColumnWidth     =   480.189
  295.                EndProperty
  296.                BeginProperty Column05 
  297.                   ColumnWidth     =   1019.906
  298.                EndProperty
  299.                BeginProperty Column06 
  300.                   ColumnWidth     =   1140.095
  301.                EndProperty
  302.                BeginProperty Column07 
  303.                   ColumnWidth     =   1065.26
  304.                EndProperty
  305.                BeginProperty Column08 
  306.                   ColumnWidth     =   1200.189
  307.                EndProperty
  308.             EndProperty
  309.          End
  310.          Begin VB.Frame Frame2 
  311.             Caption         =   "查询条件"
  312.             Height          =   1155
  313.             Left            =   -74910
  314.             TabIndex        =   24
  315.             Top             =   420
  316.             Width           =   7515
  317.             Begin VB.CommandButton Command1 
  318.                Caption         =   "查询"
  319.                Height          =   405
  320.                Left            =   6540
  321.                TabIndex        =   28
  322.                Top             =   690
  323.                Width           =   855
  324.             End
  325.             Begin VB.TextBox TXT_CXND 
  326.                Appearance      =   0  'Flat
  327.                Height          =   300
  328.                Left            =   2010
  329.                TabIndex        =   27
  330.                Top             =   450
  331.                Width           =   1335
  332.             End
  333.             Begin VB.Label Label1 
  334.                Caption         =   "年度"
  335.                Height          =   195
  336.                Left            =   1440
  337.                TabIndex        =   26
  338.                Top             =   503
  339.                Width           =   555
  340.             End
  341.          End
  342.          Begin VB.TextBox TXT_DWBL 
  343.             Appearance      =   0  'Flat
  344.             Height          =   285
  345.             Left            =   2040
  346.             TabIndex        =   23
  347.             Text            =   "Text2"
  348.             Top             =   4470
  349.             Visible         =   0   'False
  350.             Width           =   1035
  351.          End
  352.          Begin VB.TextBox TXT_grbl 
  353.             Appearance      =   0  'Flat
  354.             Height          =   285
  355.             Left            =   930
  356.             TabIndex        =   22
  357.             Top             =   4470
  358.             Visible         =   0   'False
  359.             Width           =   945
  360.          End
  361.          Begin VB.PictureBox Picture1 
  362.             BackColor       =   &H00808000&
  363.             Height          =   3345
  364.             Left            =   210
  365.             ScaleHeight     =   3285
  366.             ScaleWidth      =   2295
  367.             TabIndex        =   21
  368.             Top             =   870
  369.             Width           =   2355
  370.          End
  371.          Begin VB.TextBox TXT_YJHJ 
  372.             Appearance      =   0  'Flat
  373.             DataField       =   "应缴金额合计"
  374.             DataSource      =   "datPrimaryRS"
  375.             Height          =   285
  376.             Left            =   5190
  377.             TabIndex        =   6
  378.             Top             =   3750
  379.             Width           =   1905
  380.          End
  381.          Begin VB.TextBox TXT_GRYJE 
  382.             Appearance      =   0  'Flat
  383.             DataField       =   "个人应缴额"
  384.             DataSource      =   "datPrimaryRS"
  385.             Height          =   285
  386.             Left            =   5190
  387.             TabIndex        =   5
  388.             Top             =   3420
  389.             Width           =   1905
  390.          End
  391.          Begin VB.TextBox TXT_DWYJE 
  392.             Appearance      =   0  'Flat
  393.             DataField       =   "单位应缴额"
  394.             DataSource      =   "datPrimaryRS"
  395.             Height          =   285
  396.             Left            =   5190
  397.             TabIndex        =   4
  398.             Top             =   3060
  399.             Width           =   1905
  400.          End
  401.          Begin VB.TextBox TXT_JS 
  402.             Appearance      =   0  'Flat
  403.             DataSource      =   "datPrimaryRS"
  404.             Height          =   285
  405.             Left            =   5190
  406.             TabIndex        =   3
  407.             Top             =   2700
  408.             Width           =   1905
  409.          End
  410.          Begin VB.TextBox TXT_ZGRS 
  411.             Appearance      =   0  'Flat
  412.             DataField       =   "在职职工数"
  413.             DataSource      =   "datPrimaryRS"
  414.             Height          =   285
  415.             Left            =   5190
  416.             TabIndex        =   2
  417.             Top             =   2310
  418.             Width           =   1905
  419.          End
  420.          Begin VB.TextBox TXT_ND 
  421.             Appearance      =   0  'Flat
  422.             DataField       =   "年度"
  423.             DataSource      =   "datPrimaryRS"
  424.             Height          =   285
  425.             Left            =   5190
  426.             TabIndex        =   0
  427.             Top             =   1485
  428.             Width           =   1395
  429.          End
  430.          Begin VB.TextBox TXT_QYBH 
  431.             Appearance      =   0  'Flat
  432.             BackColor       =   &H8000000B&
  433.             DataField       =   "企业编号"
  434.             DataSource      =   "datPrimaryRS"
  435.             Height          =   285
  436.             Left            =   5190
  437.             Locked          =   -1  'True
  438.             TabIndex        =   13
  439.             Top             =   1050
  440.             Width           =   1905
  441.          End
  442.          Begin MSComCtl2.DTPicker RQ 
  443.             Height          =   285
  444.             Left            =   5190
  445.             TabIndex        =   1
  446.             Top             =   1890
  447.             Width           =   1365
  448.             _ExtentX        =   2408
  449.             _ExtentY        =   503
  450.             _Version        =   393216
  451.             Format          =   26869761
  452.             CurrentDate     =   36305
  453.          End
  454.          Begin Threed.SSCommand cmdClear 
  455.             Height          =   375
  456.             Left            =   5160
  457.             TabIndex        =   8
  458.             Top             =   4680
  459.             Width           =   975
  460.             _Version        =   65536
  461.             _ExtentX        =   1720
  462.             _ExtentY        =   661
  463.             _StockProps     =   78
  464.             Caption         =   "&C.清 除"
  465.          End
  466.          Begin Threed.SSCommand cmdClose 
  467.             Height          =   375
  468.             Left            =   6360
  469.             TabIndex        =   9
  470.             Top             =   4680
  471.             Width           =   975
  472.             _Version        =   65536
  473.             _ExtentX        =   1720
  474.             _ExtentY        =   661
  475.             _StockProps     =   78
  476.             Caption         =   "&Q.关 闭"
  477.          End
  478.          Begin VB.Label lblLabels 
  479.             Alignment       =   2  'Center
  480.             Caption         =   "应缴金额合计"
  481.             Height          =   255
  482.             Index           =   8
  483.             Left            =   2820
  484.             TabIndex        =   20
  485.             Top             =   3825
  486.             Width           =   1815
  487.          End
  488.          Begin VB.Label lblLabels 
  489.             Alignment       =   2  'Center
  490.             Caption         =   "个人应缴额"
  491.             Height          =   255
  492.             Index           =   7
  493.             Left            =   2820
  494.             TabIndex        =   19
  495.             Top             =   3495
  496.             Width           =   1815
  497.          End
  498.          Begin VB.Label lblLabels 
  499.             Alignment       =   2  'Center
  500.             Caption         =   "单位应缴额"
  501.             Height          =   255
  502.             Index           =   6
  503.             Left            =   2820
  504.             TabIndex        =   18
  505.             Top             =   3120
  506.             Width           =   1815
  507.          End
  508.          Begin VB.Label lblLabels 
  509.             Alignment       =   2  'Center
  510.             Caption         =   "上年月平均工资总额"
  511.             Height          =   255
  512.             Index           =   5
  513.             Left            =   2820
  514.             TabIndex        =   17
  515.             Top             =   2790
  516.             Width           =   1815
  517.          End
  518.          Begin VB.Label lblLabels 
  519.             Alignment       =   2  'Center
  520.             Caption         =   "在职职工数"
  521.             Height          =   255
  522.             Index           =   4
  523.             Left            =   2820
  524.             TabIndex        =   16
  525.             Top             =   2400
  526.             Width           =   1815
  527.          End
  528.          Begin VB.Label lblLabels 
  529.             Alignment       =   2  'Center
  530.             Appearance      =   0  'Flat
  531.             BackColor       =   &H8000000B&
  532.             Caption         =   "填报日期"
  533.             ForeColor       =   &H80000008&
  534.             Height          =   255
  535.             Index           =   3
  536.             Left            =   2820
  537.             TabIndex        =   15
  538.             Top             =   1980
  539.             Width           =   1815
  540.          End
  541.          Begin VB.Label lblLabels 
  542.             Alignment       =   2  'Center
  543.             Caption         =   "年  度"
  544.             Height          =   255
  545.             Index           =   2
  546.             Left            =   2820
  547.             TabIndex        =   14
  548.             Top             =   1590
  549.             Width           =   1815
  550.          End
  551.          Begin VB.Label lblLabels 
  552.             Alignment       =   2  'Center
  553.             Caption         =   "企业编号"
  554.             Height          =   255
  555.             Index           =   1
  556.             Left            =   2820
  557.             TabIndex        =   12
  558.             Top             =   1185
  559.             Width           =   1815
  560.          End
  561.       End
  562.    End
  563. End
  564. Attribute VB_Name = "frm_DBYLJL"
  565. Attribute VB_GlobalNameSpace = False
  566. Attribute VB_Creatable = False
  567. Attribute VB_PredeclaredId = True
  568. Attribute VB_Exposed = False
  569. Private Sub CMD_DEL_Click()
  570.     DataGrid1.AllowDelete = True
  571. End Sub
  573. Private Sub cmdclear_Click()
  574.     Me.TXT_CXND = ""
  575.     Me.TXT_DWBL = ""
  576.     Me.TXT_DWYJE = ""
  577.     Me.TXT_grbl = ""
  578.     Me.TXT_GRYJE = ""
  579.     Me.TXT_JS = ""
  580.     Me.txt_ND = ""
  581.     Me.TXT_QYBH = ""
  582.     Me.TXT_YJHJ = ""
  583.     Me.TXT_ZGRS = ""
  584.     
  585. End Sub
  587. Private Sub cmdClose_Click()
  588.     RSGL.Enabled = True
  589.     Unload Me
  590. End Sub
  592. Private Sub cmdUpdate_Click()
  593.     If MsgBox("确认要保存记录吗？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
  594.     sqlbc = "insert 大病医疗记录 (年度,日期,在职职工数,上年月平均工资总额,单位应缴额,个人应缴额,应缴金额合计) values('" & txt_ND & "','" & RQ & "'," & TXT_ZGRS & "," & TXT_JS & "," & TXT_DWYJE & "," & TXT_GRYJE & "," & TXT_YJHJ & ")"
  595.       Set rsbc = ConnWZ.Execute(sqlbc)
  596. End Sub
  598. Private Sub Command1_Click()
  599.     Dim sSQL As String
  600.     If TXT_CXND = "" Then
  601.         MsgBox "请选择查询条件！"
  602.     Else
  603.     sSQL = "select * from 大病医疗记录 where 年度=" & TXT_CXND & ""
  604.     Set adoPrimaryRS = New Recordset
  605.     adoPrimaryRS.Open sSQL, db, adOpenStatic, adLockOptimistic
  607.     Set DataGrid1.DataSource = adoPrimaryRS
  608.     DataGrid1.Refresh
  609.     End If
  610. End Sub
  612. Private Sub Form_Load()
  613.     Dim STRjs As Long
  614.     RQ.Value = Date
  615.     txt_ND = Year(RQ)
  616.     Sql = "select * from 比例基数维护表 where 年度=" & Trim(txt_ND) & ""
  617.     Set rs = ConnWZ.Execute(Sql)
  618.     If Not rs.EOF Then
  619.         STRjs = rs("大病医疗基数")
  620.         TXT_grbl = rs("个人应缴比例")
  621.         TXT_DWBL = rs("单位应缴比例")
  622.     End If
  623.     Sql = "select * from 大病统筹登记 where 是否停止='否'"
  624.     Set rs = ConnWZ.Execute(Sql)
  625.     TXT_ZGRS = rs.RecordCount
  626.     TXT_JS = Val(TXT_ZGRS) * STRjs
  627.     TXT_DWYJE = Val(TXT_ZGRS) * Val(TXT_JS) * Val(TXT_DWBL)
  628.     TXT_GRYJE = Val(TXT_ZGRS) * Val(TXT_JS) * Val(TXT_grbl)
  629.     TXT_YJHJ = Val(TXT_DWYJE) + Val(TXT_GRYJE)
  630. End Sub
  632. Private Sub RQ_KeyPress(KeyAscii As Integer)
  633.     If KeyAscii = vbKeyReturn Then
  634.         SendKeys "{TAB}"
  635.     End If
  636. End Sub
  638. Private Sub TXT_ND_KeyPress(KeyAscii As Integer)
  639. If KeyAscii = vbKeyReturn Then
  640.     SendKeys "{TAB}"
  641. End If
  642. End Sub