frmCheckout.frm
上传用户:fulizhu2
上传日期:2007-06-21
资源大小:34k
文件大小:5k
源码类别:

酒店行业

开发平台:

Visual Basic

  1. VERSION 5.00
  2. Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
  3. Begin VB.Form frmCheckout 
  4.    Caption         =   "结算信息列表"
  5.    ClientHeight    =   2724
  6.    ClientLeft      =   60
  7.    ClientTop       =   348
  8.    ClientWidth     =   7752
  9.    LinkTopic       =   "Form1"
  10.    MDIChild        =   -1  'True
  11.    ScaleHeight     =   2724
  12.    ScaleWidth      =   7752
  13.    WindowState     =   2  'Maximized
  14.    Begin MSFlexGridLib.MSFlexGrid msgList 
  15.       Height          =   1932
  16.       Left            =   120
  17.       TabIndex        =   1
  18.       Top             =   720
  19.       Width           =   7572
  20.       _ExtentX        =   13356
  21.       _ExtentY        =   3408
  22.       _Version        =   393216
  23.       Cols            =   4
  24.       FixedCols       =   3
  25.       AllowUserResizing=   1
  26.    End
  27.    Begin VB.Label lblTitle 
  28.       Caption         =   "结  算  信  息  列  表"
  29.       BeginProperty Font 
  30.          Name            =   "宋体"
  31.          Size            =   12
  32.          Charset         =   134
  33.          Weight          =   700
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       ForeColor       =   &H8000000D&
  39.       Height          =   255
  40.       Left            =   120
  41.       TabIndex        =   0
  42.       Top             =   240
  43.       Width           =   3015
  44.    End
  45. End
  46. Attribute VB_Name = "frmCheckout"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Option Explicit
  52. Public txtSQL As String
  53. Dim mrc As ADODB.Recordset
  54. Dim MsgText As String
  55. Private Sub Form_Load()
  56.     
  57.     ShowTitle
  58.     ShowData
  59.     flagCedit = True
  60. End Sub
  61. Private Sub Form_Resize()
  62.     If Me.WindowState <> vbMinimized And fMainForm.WindowState <> vbMinimized Then
  63.         '边界处理
  64.         If Me.ScaleHeight < 10 * lblTitle.Height Then
  65.             
  66.             Exit Sub
  67.         End If
  68.         If Me.ScaleWidth < lblTitle.Width + lblTitle.Width / 2 Then
  69.             
  70.             Exit Sub
  71.         End If
  72.         '控制控件的位置
  73.                 
  74.         lblTitle.Top = lblTitle.Height
  75.         lblTitle.Left = (Me.Width - lblTitle.Width) / 2
  76.         
  77.         msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2
  78.         msgList.Width = Me.ScaleWidth - 200
  79.         msgList.Left = Me.ScaleLeft + 100
  80.         msgList.Height = Me.ScaleHeight - msgList.Top - 200
  81.     End If
  82. End Sub
  83. Public Sub FormClose()
  84.     Unload Me
  85. End Sub
  86. Private Sub Form_Unload(Cancel As Integer)
  87.     flagCedit = False
  88.     gintCmode = 0
  89. End Sub
  90. '显示Grid的内容
  91. Private Sub ShowData()
  92.     
  93.     Dim j As Integer
  94.     Dim i As Integer
  95.   
  96.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  97.         With msgList
  98.         .Rows = 1
  99.         
  100.         Do While Not mrc.EOF
  101.             .Rows = .Rows + 1
  102.             For i = 1 To mrc.Fields.Count
  103.                 Select Case mrc.Fields(i - 1).Type
  104.                     Case adDBDate
  105.                         .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
  106.                     Case Else
  107.                         .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
  108.                 End Select
  109.             Next i
  110.             mrc.MoveNext
  111.         Loop
  112.         
  113.           
  114.     End With
  115.     mrc.Close
  116.     
  117.     
  118. End Sub
  119. '显示Grid表头
  120. Private Sub ShowTitle()
  121.     Dim i As Integer
  122.     
  123.     With msgList
  124.         .Cols = 10
  125.         .TextMatrix(0, 1) = ""
  126.         .TextMatrix(0, 2) = "顾客姓名"
  127.         .TextMatrix(0, 3) = "身份证号码"
  128.         .TextMatrix(0, 4) = "房间编号"
  129.         .TextMatrix(0, 5) = "入住日期"
  130.         .TextMatrix(0, 6) = "折扣"
  131.         .TextMatrix(0, 7) = "备注信息"
  132.         .TextMatrix(0, 8) = "结算日期"
  133.         .TextMatrix(0, 9) = "金额"
  134.         
  135.         
  136.         '固定表头
  137.         .FixedRows = 1
  138.                 
  139.         '设置各列的对齐方式
  140.         For i = 0 To 9
  141.             .ColAlignment(i) = 0
  142.         Next i
  143.         
  144.         
  145.         '表头项居中
  146.         .FillStyle = flexFillRepeat
  147.         .Col = 0
  148.         .Row = 0
  149.         .RowSel = 1
  150.         .ColSel = .Cols - 1
  151.         .CellAlignment = 4
  152.         
  153.         '设置单元大小
  154.         .ColWidth(0) = 300
  155.         .ColWidth(1) = 0
  156.         .ColWidth(2) = 1000
  157.         .ColWidth(3) = 2000
  158.         .ColWidth(4) = 2000
  159.         .ColWidth(5) = 2000
  160.         .ColWidth(6) = 2000
  161.         .ColWidth(7) = 2000
  162.         .ColWidth(8) = 2000
  163.         .ColWidth(9) = 1000
  164.         
  165.         
  166.         .Row = 1
  167.         
  168.     End With
  169. End Sub
  170. Private Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  171.     '右键弹出
  172.     If Button = 2 And Shift = 0 Then
  173.         PopupMenu fMainForm.menuCheckout
  174.     End If
  175.     
  176. End Sub