📄 frmqdhtgy.frm

📁 行政管理系统商业源码,可以down下来看看
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
               Y1              =   120
               Y2              =   600
            End
         End
      End
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   240
         Top             =   6000
      End
      Begin VB.Label Lable 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "签定合同概要"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   8655
      End
      Begin VB.Label Label6 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   840
         TabIndex        =   1
         Top             =   6120
         Width           =   3615
      End
   End
End
Attribute VB_Name = "FrmQDHTGY"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim PBH As String
Dim flag As Boolean
Private Sub Check1_Click()
    List1.Visible = False
    Text12.Visible = False
    List1.Clear
    Text12.Text = ""
    If Check1.Value = 1 Then
        Check2.Value = 0
        List1.Visible = True
        Text12.Visible = True
        Sql = "select * from 签定合同概要表 order by 合同编号"
        Set rs = ConnWZ.Execute(Sql)
        Do While Not rs.EOF
            List1.AddItem rs("合同编号")
            rs.MoveNext
        Loop
    End If
End Sub



Private Sub BH_Change()
    CMDSave.Enabled = True
End Sub



Private Sub Check2_Click()
    List1.Visible = False
    Text12.Visible = False
    List1.Clear
    Text12.Text = ""
    If Check2.Value = 1 Then
        Check1.Value = 0
        List1.Visible = True
        Text12.Visible = True
        Sql = "select * from 签定合同概要表 order by 合同名称"
        Set rs = ConnWZ.Execute(Sql)
        Do While Not rs.EOF
            List1.AddItem rs("合同名称")
            rs.MoveNext
        Loop
    End If
End Sub

Private Sub cmdCancel_Click()
    HTGL.Enabled = True
    Unload Me
End Sub



Private Sub CMDDel_Click()
 Result = MsgBox("您确实要删除吗？", vbYesNo)
  If Result = 6 Then
    Sql = "delete 签定合同概要表 where 合同编号='" & PBH & "'"
    Set rs = ConnWZ.Execute(Sql)
    PBH = 0
   Else
    Exit Sub
  End If
End Sub

Private Sub cmdEdit_Click()
     CMDSave.Enabled = True
     flag = True
     HTBH.Locked = False
     HTMC.Locked = False
     YHTBH.Locked = False
     HTZJE.Locked = False
     QYBM.Locked = False
     QYF.Locked = False
     FKTJ.Locked = False
     YFBM1.Locked = False
     YFBM2.Locked = False
     YFBM3.Locked = False
     YFBM4.Locked = False
     HTZY.Locked = False
     'HTQX.Locked = False
End Sub

Private Sub CMDFresh_Click()
        PBH = 0
        HTBH = ""
        HTMC = ""
        YHTBH = ""
        HTZJE = ""
        QYBM = ""
        QYF = ""
        FKTJ = ""
        YFBM1 = ""
        YFBM2 = ""
        YFBM3 = ""
        YFBM4 = ""
        HTZY = ""
        'HTQX = ""
        HTBH.Locked = False
        HTMC.Locked = False
        YHTBH.Locked = False
        HTZJE.Locked = False
        QYBM.Locked = False
        QYF.Locked = False
        FKTJ.Locked = False
        YFBM1.Locked = False
        YFBM2.Locked = False
        YFBM3.Locked = False
        YFBM4.Locked = False
        'HTQX.Locked = False
        HTZY.Locked = False
        CMDSave.Enabled = False
        CMDDel.Enabled = False
        CMDEdit.Enabled = False
        flag = False
End Sub

Private Sub CMDSave_Click()
   If flag = False Then
    Result = MsgBox("您确实要保存吗？", vbYesNo)
        If Result = 6 Then
            Sql = "insert 签定合同概要表(合同编号,合同名称,原合同编号,合同总金额,签约部门,签约方,付款条件及期限,合同摘要,印发部门1,印发部门2,印发部门3,印发部门4,执行完毕,合同期限) values ('" & HTBH & "','" & HTMC & "','" & YHTBH & "'," & HTZJE & ",'" & QYBM & "','" & QYF & "','" & FKTJ & "','" & HTZY & "','" & YFBM1 & "','" & YFBM2 & "','" & YFBM3 & "','" & YFBM4 & "','未完毕','" & HTQX.Value & "')"
            Set rs = ConnWZ.Execute(Sql)
        End If
    End If
    If flag = True Then
        Result = MsgBox("您确实要保存吗？", vbYesNo)
        If Result = 6 Then
            If SL = "" Then SL = 0
            Sql = "update 签定合同概要表 set 合同编号='" & HTBH & "',合同名称='" & HTMC & "',原合同编号='" & YHTBH & "',合同总金额=" & HTZJE & ",签约部门='" & QYBM & "',签约方='" & QYF & "',付款条件及期限='" & FKTJ & "',合同摘要='" & HTZY & "',印发部门1='" & YFBM1 & "',印发部门2='" & YFBM2 & "',印发部门3='" & YFBM3 & "',印发部门4='" & YFBM4 & "',合同期限='" & HTQX.Value & "' where 合同编号='" & PBH & "'"
            Set Rsrkpd = ConnWZ.Execute(Sql)
            CMDSave.Enabled = False
        End If
    End If
End Sub
Private Sub CMDSearch_Click()
     If Check1.Value = 1 Then
         Adodc1.RecordSource = "select * from 签定合同概要表 where 合同编号='" & Text12.Text & "'"
         Adodc1.Refresh
     End If
     If Check2.Value = 1 Then
         Adodc1.RecordSource = "select * from 签定合同概要表 where 合同名称='" & Text12.Text & "'"
         Adodc1.Refresh
     End If
End Sub

Private Sub DataGrid1_Click()
    On Error Resume Next
    Sql = "select * from 签定合同概要表"
    Set rs = ConnWZ.Execute(Sql)
    If rs.EOF Then Exit Sub
    PBH = Adodc1.Recordset.Fields("合同编号")
    If Err = 13 Then
        MsgBox "您进行了误操作，请重新进入该系统！"
    End If
End Sub

Private Sub Form_Load()
    On Error Resume Next
    For Each TextBox In Me.Controls
        
        
    Next
    PBH = 0
    flag = False
    'SJ.Value = Time$
    'RQ.Value = Date
    CMDSave.Enabled = False
    CMDEdit.Enabled = False
    CMDDel.Enabled = False
    Label6.Caption = Now
    HTQX.Value = Date
    'Combo1.Visible = False
    'Frame8.Visible = False
End Sub

Private Sub HTBH_Change()
       CMDSave.Enabled = True
End Sub

Private Sub HTZJE_Change()
    If IsNumeric(HTZJE) = False Then
      MsgBox "请输入数字！"
      HTZJE = ""
    End If
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
 flag = False
 If PreviousTab = 0 Then
    Check1.Value = 0
    Check2.Value = 0
    CMDSave.Enabled = False
    CMDEdit.Enabled = False
    CMDDel.Enabled = False
    Adodc1.RecordSource = "select * from 签定合同概要表 order by 合同编号"
    Adodc1.Refresh
 End If
 If PreviousTab = 1 Then
'    Frame8.Visible = False
 '   Combo1.Visible = False
    If PBH <> "0" Then
        Sql = "select * from 签定合同概要表 where 合同编号='" & PBH & "'"
        Set rs = ConnWZ.Execute(Sql)
        HTBH = rs("合同编号")
        HTMC = rs("合同名称")
        YHTBH = rs("原合同编号")
        HTZJE = rs("合同总金额")
        QYBM = rs("签约部门")
        QYF = rs("签约方")
        FKTJ = rs("付款条件及期限")
        HTZY = rs("合同摘要")
        YFBM1 = rs("印发部门1")
        YFBM2 = rs("印发部门2")
        YFBM3 = rs("印发部门3")
        YFBM4 = rs("印发部门4")
        HTQX = rs("合同期限")
        HTBH.Locked = True
        HTMC.Locked = True
        YHTBH.Locked = True
        HTZJE.Locked = True
        QYBM.Locked = True
        QYF.Locked = True
        FKTJ.Locked = True
        YFBM1.Locked = True
        YFBM2.Locked = True
        YFBM3.Locked = True
        YFBM4.Locked = True
        'HTQX.Locked = True
        HTZY.Locked = True
        CMDSave.Enabled = True
        CMDEdit.Enabled = True
        CMDDel.Enabled = True
    End If
        
 End If
End Sub

Private Sub List1_MouseDown(Button As Integer, shift As Integer, X As Single, Y As Single)
    i = List1.ListIndex
    Text12 = List1.List(i)
End Sub

Private Sub Text12_Change()
    Str1 = Text12.Text
    Cont = Len(Str1)
    For i = 0 To List1.ListCount - 1
       If Left$(List1.List(i), Cont) = Str1 Then
         List1.ListIndex = i
         GoTo 100
       End If
    Next
100:
End Sub

Private Sub Text4_Change()
        
End Sub
Private Sub Timer1_Timer()
    Label6.Caption = Now
End Sub
上一页 1 2 34
💿 文件大小 1531 K
👤 上传用户 zhoubin2048
📂 所属分类数据库系统
🏷️ 相关标签

#down #行政管理 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -