main_kfgl_xmset.frm

来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 1,348 行 · 第 1/4 页

FRM
1,348 行
字号
1234
            Caption         =   "英文名称："
            Height          =   210
            Index           =   3
            Left            =   120
            TabIndex        =   58
            Top             =   2715
            Width           =   1080
         End
      End
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   90
      Top             =   4635
      Visible         =   0   'False
      Width           =   1770
      _ExtentX        =   3122
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Height          =   5640
      Left            =   0
      TabIndex        =   0
      Top             =   720
      Width           =   4605
      _ExtentX        =   8123
      _ExtentY        =   9948
      _Version        =   393216
      AllowUpdate     =   0   'False
      AllowArrows     =   0   'False
      HeadLines       =   2
      RowHeight       =   15
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   2
      BeginProperty Column00 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   ""
         Caption         =   ""
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   8880
      Top             =   6255
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   27
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":18B45
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":18E5F
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":19179
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":19493
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":197AD
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":19AC7
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":19DE1
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1A0FB
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1A575
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1ABAF
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1B0B1
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1B3D3
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1B6F5
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1BA17
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1BD69
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1C12F
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1C481
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1CA53
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1CD6D
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":1E8BF
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":20411
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":21F63
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":2227D
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":23DCF
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":23FA9
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":24183
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_xmset.frx":25CD5
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_kfgl_kjkm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim jd As String
Dim Save_Type As String

Private Sub Command1_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("编码") = Me.Text1(0).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(1).Text
        Adodc1.Recordset.Fields("类别") = Me.Combo1.Text
        If Me.Option1.Value Then
            Adodc1.Recordset.Fields("借贷方") = "借方"
        Else
            Adodc1.Recordset.Fields("借贷方") = "贷方"
        End If
        Adodc1.Recordset.Fields("部门") = Me.Combo2.Text
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("编码") = Me.Text1(0).Text
        Adodc1.Recordset.Fields("名称") = Me.Text1(1).Text
        Adodc1.Recordset.Fields("类别") = Me.Combo1.Text
        If Me.Option1.Value Then
            Adodc1.Recordset.Fields("借贷方") = "借方"
        Else
            Adodc1.Recordset.Fields("借贷方") = "贷方"
        End If
        Adodc1.Recordset.Fields("部门") = Me.Combo2.Text
        Adodc1.Recordset.Update
    End Select
    Me.Picture1.Visible = False
End Sub

Private Sub Command2_Click()
    Me.Picture1.Visible = False
End Sub


Private Sub Command3_Click()
    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields("编码") = Me.Text1(7).Text
        Adodc1.Recordset.Fields("部门") = Me.Text1(2).Text
        Adodc1.Recordset.Fields("电话") = Me.Text1(6).Text
        Adodc1.Recordset.Fields("负责人") = Me.Text1(3).Text
        Adodc1.Recordset.Update
    Case "更改"
        Adodc1.Recordset.Fields("编码") = Me.Text1(7).Text
        Adodc1.Recordset.Fields("部门") = Me.Text1(2).Text
        Adodc1.Recordset.Fields("电话") = Me.Text1(6).Text
        Adodc1.Recordset.Fields("负责人") = Me.Text1(3).Text
        Adodc1.Recordset.Update
    End Select
    Me.Picture2.Visible = False
    
End Sub

Private Sub Command4_Click()
    Me.Picture2.Visible = False
End Sub

Private Sub Command5_Click()
    Me.Picture3.Visible = False
End Sub

Private Sub Command6_Click()

    Select Case Save_Type
    Case "增加"
        Adodc1.Recordset.AddNew
        If Left(Text1(4).Text, 2) <> Table_SetType Then
        Adodc1.Recordset.Fields("编码") = Table_SetType + Me.Text1(4).Text
        Else
        Adodc1.Recordset.Fields("编码") = Me.Text1(4).Text
        End If
        Adodc1.Recordset.Fields("名称") = Me.Text1(9).Text
        If Me.Option4.Value Then
            Adodc1.Recordset.Fields("首选项") = "是"
        Else
            Adodc1.Recordset.Fields("首选项") = ""
        End If
        Adodc1.Recordset.Update
    Case "更改"
        If Left(Text1(4).Text, 2) <> Table_SetType Then
        Adodc1.Recordset.Fields("编码") = Table_SetType + Me.Text1(4).Text
        Else
1234

main_kfgl_xmset.frm - 源码说明

本页面展示了「星级酒店客房管理系统一套很不错的系统」中的 main_kfgl_xmset.frm 源码文件，采用 FRM 编程语言编写，共 1,348 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与酒店客房管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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