⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmadmincontract.frm

📁 本章示例使用的是Windows2000 Professional版的操作系统
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmAdminContract 
   Caption         =   "合同管理"
   ClientHeight    =   5790
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8460
   LinkTopic       =   "Form1"
   ScaleHeight     =   5790
   ScaleWidth      =   8460
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   1575
      Index           =   1
      Left            =   6360
      TabIndex        =   37
      Top             =   240
      Width           =   1935
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   360
         TabIndex        =   38
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "共有:"
         Height          =   255
         Index           =   1
         Left            =   360
         TabIndex        =   40
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label4 
         Caption         =   "条记录"
         Height          =   255
         Index           =   1
         Left            =   1200
         TabIndex        =   39
         Top             =   840
         Width           =   615
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "功能键"
      Height          =   1575
      Left            =   240
      TabIndex        =   29
      Top             =   240
      Width           =   5775
      Begin VB.CommandButton cmdFirst 
         Caption         =   "第一条"
         Height          =   495
         Left            =   600
         TabIndex        =   36
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdPrev 
         Caption         =   "前一条"
         Height          =   495
         Left            =   1680
         TabIndex        =   35
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdNext 
         Caption         =   "后一条"
         Height          =   495
         Left            =   2880
         TabIndex        =   34
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdLast 
         Caption         =   "最后一条"
         Height          =   495
         Left            =   4080
         TabIndex        =   33
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdDelay 
         Caption         =   "合同延期"
         Height          =   495
         Left            =   960
         TabIndex        =   32
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdClose 
         Caption         =   "关  闭"
         Height          =   495
         Left            =   3840
         TabIndex        =   31
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdEnd 
         Caption         =   "合同终止"
         Height          =   495
         Left            =   2400
         TabIndex        =   30
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Height          =   3495
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   2040
      Width           =   8055
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   10
         Left            =   3600
         TabIndex        =   12
         Top             =   2040
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   9
         Left            =   1200
         TabIndex        =   11
         Top             =   2040
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   8
         Left            =   6120
         TabIndex        =   10
         Top             =   1440
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   7
         Left            =   3600
         TabIndex        =   9
         Top             =   1440
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   6
         Left            =   1200
         TabIndex        =   8
         Top             =   1440
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   5
         Left            =   6120
         TabIndex        =   7
         Top             =   840
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   4
         Left            =   3600
         TabIndex        =   6
         Top             =   840
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   3
         Left            =   1200
         TabIndex        =   5
         Top             =   840
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   2
         Left            =   6120
         TabIndex        =   4
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   1
         Left            =   3600
         TabIndex        =   3
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   0
         Left            =   1200
         TabIndex        =   2
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   615
         Index           =   11
         Left            =   1200
         MultiLine       =   -1  'True
         TabIndex        =   1
         Top             =   2640
         Width           =   6135
      End
      Begin VB.Label Label1 
         Caption         =   "签订日期"
         Height          =   255
         Index           =   10
         Left            =   2760
         TabIndex        =   28
         Top             =   2160
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "业务员"
         Height          =   255
         Index           =   9
         Left            =   360
         TabIndex        =   27
         Top             =   2160
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "元"
         Height          =   255
         Index           =   2
         Left            =   7440
         TabIndex        =   26
         Top             =   1560
         Width           =   255
      End
      Begin VB.Label Label2 
         Caption         =   "元"
         Height          =   255
         Index           =   1
         Left            =   4920
         TabIndex        =   25
         Top             =   1560
         Width           =   255
      End
      Begin VB.Label Label2 
         Caption         =   "元"
         Height          =   255
         Index           =   0
         Left            =   2520
         TabIndex        =   24
         Top             =   1560
         Width           =   255
      End
      Begin VB.Label Label1 
         Caption         =   "押金"
         Height          =   255
         Index           =   8
         Left            =   5400
         TabIndex        =   23
         Top             =   1560
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "总租金"
         Height          =   255
         Index           =   7
         Left            =   2880
         TabIndex        =   22
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "月租金"
         Height          =   255
         Index           =   6
         Left            =   360
         TabIndex        =   21
         Top             =   1560
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "租   期"
         Height          =   255
         Index           =   5
         Left            =   5280
         TabIndex        =   20
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "止租日期"
         Height          =   255
         Index           =   4
         Left            =   2760
         TabIndex        =   19
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "起租日期"
         Height          =   255
         Index           =   3
         Left            =   360
         TabIndex        =   18
         Top             =   960
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "房屋编号"
         Height          =   255
         Index           =   2
         Left            =   5280
         TabIndex        =   17
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "客户姓名"
         Height          =   255
         Index           =   1
         Left            =   2760
         TabIndex        =   16
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "合同编号"
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   15
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "备   注"
         Height          =   255
         Index           =   11
         Left            =   360
         TabIndex        =   14
         Top             =   2880
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "月"
         Height          =   255
         Index           =   6
         Left            =   7440
         TabIndex        =   13
         Top             =   960
         Width           =   255
      End
   End
End
Attribute VB_Name = "frmAdminContract"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs_con As New ADODB.Recordset
Dim rs_count As New ADODB.Recordset
Dim sqlcon As String
Dim sqlcount As String
Dim sqlold As String
Dim rs_old As New ADODB.Recordset
Dim rs_house As New ADODB.Recordset
Dim sqlhouse As String

⌨️ 快捷键说明

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