pub_sykf

一个简单的酒店管理系统 用VB.net+SQL2000实现

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form FM_SYKF 
   ClientHeight    =   4470
   ClientLeft      =   60
   ClientTop       =   60
   ClientWidth     =   7440
   ControlBox      =   0   'False
   ForeColor       =   &H8000000B&
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   4470
   ScaleWidth      =   7440
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmd_exit 
      Caption         =   "退出(Esc)"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   5220
      TabIndex        =   3
      Top             =   3825
      Width           =   1410
   End
   Begin MSFlexGridLib.MSFlexGrid SHOW_GRID 
      Height          =   2670
      Left            =   225
      TabIndex        =   0
      Top             =   810
      Width           =   6360
      _ExtentX        =   11218
      _ExtentY        =   4710
      _Version        =   327680
      Rows            =   10
      FixedCols       =   0
      BackColor       =   16448747
      BackColorFixed  =   15466222
      ForeColorFixed  =   4210752
      GridColor       =   8421504
   End
   Begin MSFlexGridLib.MSFlexGrid TIT_GRID 
      Height          =   330
      Index           =   0
      Left            =   225
      TabIndex        =   1
      Top             =   540
      Width           =   6315
      _ExtentX        =   11139
      _ExtentY        =   582
      _Version        =   327680
      Rows            =   1
      BackColor       =   15465721
      BackColorFixed  =   15790845
      ForeColorFixed  =   8421504
      Enabled         =   0   'False
   End
   Begin MSFlexGridLib.MSFlexGrid TIT_GRID 
      Height          =   330
      Index           =   1
      Left            =   225
      TabIndex        =   4
      Top             =   3420
      Width           =   6360
      _ExtentX        =   11218
      _ExtentY        =   582
      _Version        =   327680
      Rows            =   1
      BackColor       =   15465721
      BackColorFixed  =   15790845
      ForeColorFixed  =   8421504
      Enabled         =   0   'False
   End
   Begin MSForms.Label Label1 
      Height          =   330
      Left            =   270
      TabIndex        =   2
      Top             =   180
      Width           =   1230
      ForeColor       =   7360734
      Caption         =   "剩余客房"
      Size            =   "2170;582"
      FontName        =   "宋体"
      FontEffects     =   1073741825
      FontHeight      =   240
      FontCharSet     =   134
      FontPitchAndFamily=   34
      FontWeight      =   700
   End
End
Attribute VB_Name = "FM_SYKF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim pub_data As Database
Dim START_DAY As Date
Dim END_DAY As Date
Dim FL_ARRA As Variant
Dim PUB_CODE As String
Dim SYS_LXC As Variant
Dim SYS_LXN As Integer
Dim SYS_YL As Variant
Sub MAIN(T_DATA As Database, T_start As Date, T_End As Date, T_fl As Variant, T_LXN As Integer, T_LXC As Variant, T_YL As Variant, T_code As String)
    Set pub_data = T_DATA
    START_DAY = T_start
    END_DAY = T_End
    FL_ARRA = T_fl
    PUB_CODE = T_code
    SYS_LXN = T_LXN
    SYS_LXC = T_LXC
    SYS_YL = T_YL
End Sub

Private Sub cmd_exit_Click()
Unload Me
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
   Call cmd_exit_Click
End If
End Sub

Private Sub Form_Load()
Dim i As Integer, J As Integer
Dim t_rec As Recordset
Dim TIT_STR0 As String, TIT_STR As String
TIT_STR0 = Space(19)
TIT_STR = "^ 预留客房  "
For i = 1 To SYS_LXN
    TIT_STR0 = TIT_STR0 & "|^" & SYS_LXC(i) & Space(19 - Len(SYS_LXC(i)) * 4)
    TIT_STR = TIT_STR & "|^" & SYS_YL(i) & Space(19 - Len(SYS_YL(i)) * 2)
Next
TIT_GRID(0).Cols = SYS_LXN + 1
TIT_GRID(1).Cols = SYS_LXN + 1
TIT_STR0 = Left(TIT_STR0, Len(TIT_STR0) - 1) & " "
TIT_STR = Left(TIT_STR, Len(TIT_STR) - 1) & " "
TIT_GRID(0).FormatString = TIT_STR0
TIT_GRID(1).FormatString = TIT_STR
TIT_STR = "^日期" + Space(11)
For i = 1 To SYS_LXN
    TIT_STR = TIT_STR & "|^剩余 |^订房 "
Next
TIT_GRID(0).Width = 13 * 98.3 * (SYS_LXN + 1)
TIT_GRID(1).Width = 13 * 98.3 * (SYS_LXN + 1)
SHOW_GRID.Width = TIT_GRID(0).Width
FM_SYKF.Width = TIT_GRID(0).Left * 2 + TIT_GRID(0).Width
SHOW_GRID.Cols = SYS_LXN * 2 + 1

SHOW_GRID.Col = 0
SHOW_GRID.Row = 0
SHOW_GRID.FormatString = TIT_STR

MLXN = "RQ,"
For i = 1 To SYS_LXN
    MLXN = MLXN + "SY_LX" + CStr(i) + ","
Next
SHOW_GRID.Rows = 10
MLXN = Left(MLXN, Len(MLXN) - 1)
Set t_rec = pub_data.OpenRecordset("SELECT " & MLXN & " FROM KF_KFLY WHERE CSTR(RQ)>'" & CStr(START_DAY - 1) & "' AND CSTR(RQ)<'" & CStr(END_DAY) & "' ORDER BY RQ", 4)
If Not t_rec.BOF Then
   t_rec.MoveLast
   If t_rec.RecordCount > 9 Then
      SHOW_GRID.Rows = t_rec.RecordCount + 1
   End If
   t_rec.MoveFirst
End If
J = 0
Do While Not t_rec.EOF
    J = J + 1
    SHOW_GRID.Row = J
    For i = 0 To SHOW_GRID.Cols - 1
      SHOW_GRID.Col = i
      If i Mod 2 <> 0 Then
         SHOW_GRID.CellBackColor = &HEBFCF9
         SHOW_GRID.TextArray(J * (2 * SYS_LXN + 1) + i) = t_rec.Fields(i / 2 + 0.5)
      Else
         SHOW_GRID.CellBackColor = &HFAFCEB
         If i <> 0 Then
             SHOW_GRID.TextArray(J * (2 * SYS_LXN + 1) + i) = FL_ARRA(i / 2)
             SHOW_GRID.CellForeColor = &H808080
             
         Else
             SHOW_GRID.TextArray(J * (2 * SYS_LXN + 1) + i) = t_rec.Fields(i / 2)
         End If
      End If
    Next
    t_rec.MoveNext
Loop
t_rec.Close
End Sub