Description:
Private Sub Form_Load()
Left = 0
Top = 0
If PIC_load Then
Me.Picture1.Picture = LoadPicture(App.Path & "\pic\pic0001.jpg")
End If
Adodc1.ConnectionString = My_PROVIDER
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select* from 客房"
Adodc1.Refresh
Set Me.MSHFlexGrid1.DataSource = Adodc1
Me.MSHFlexGrid1.Refresh
End Sub
To Search:
File list (Check if you may need any files):
cn700_vb71064568835562\HOTEL2.PDM
......................\_$$_TEMP.TMP
......................\BKPIC.DAT
......................\Form1.frm
......................\Form1.frx
......................\HOTEL2.csi
......................\ICO\内部.bmp
......................\...\取消.bmp
......................\...\外部.bmp
......................\...\转帐.bmp
......................\...\上.bmp
......................\...\下.bmp
......................\...\尾.bmp
......................\...\首.bmp
......................\...\杂项.bmp
......................\ICO
......................\HOTEL2.VBP
......................\hotel2.vbw
......................\LOCAT.DAT
......................\login.frm
......................\LOGIN.FRX
......................\MDIForm1.frm
......................\MDIForm1.frx
......................\Module1.bas
......................\MSSCCPRJ.SCC
......................\N_PRNPRV.FRM
......................\OOKAI.FRM
......................\OOKAI.FRX
......................\PRN_DAN1.frm
......................\PRN_DAN2.frm
......................\Project1.vbp
......................\ROOM.MDB
......................\SERVER.DAT
......................\SETMENU.FRM
......................\SETMENU.FRX
......................\SETMENUN.FRM
......................\SETMENUN.FRX
......................\setpasswd.frm
......................\setpasswd.OBJ
......................\setroom.frm
......................\setroom1.frm
......................\setroomm.frm
......................\setroomm.frx
......................\TestMAIN.frm
......................\TESTMAIN.FRX
......................\TestMAIN1.frm
......................\TestMAIN1.frx
......................\TestMAIN2.frm
......................\TestMAIN2.frx
......................\餐厅报表.frm
......................\餐厅报表.frx
......................\餐厅收银FORM.frm
......................\餐厅收银FORM.frx
......................\打印.frm
......................\当日营业员收入表.frm
......................\当日营业员收入表.frx
......................\房态图.frm
......................\房态图.frx
......................\会计科目设置.frm
......................\会计科目设置.frx
......................\会议记录.frm
......................\会议记录.frx
......................\会议团体SET.frm
......................\客房帐务提本醒表.frm
......................\客人列表查询.frm
......................\客人列表查询.frx
......................\客史查询.frm
......................\客史查询.frx
......................\设置操作人员.frm
......................\设置操作人员.frx
......................\收银操作.doc
......................\输帐.frm
......................\输帐.frx
......................\说明.txt
......................\统计报表.frm
......................\统计报表.frx
......................\往来帐户管理.frm
......................\往来帐户管理.frx
......................\项目.frm
......................\夜审操作.frm
......................\住宿登录.frm
......................\readme.htm
......................\readme.txt
cn700_vb71064568835562
Download