【正文】 Fixed Single Height = 255 Index = 0 Left = 5760 Picture = :038A Stretch = 1 39。Flat DataField = 編號 DataSource = fwData Height = 270 Index = 7 Left = 120 TabIndex = 19 Top = 550 Width = 400 End Begin Image3 Appearance = 0 39。Flat DataField = 服務員姓名 DataSource = fwData Height = 270 Index = 8 Left = 600 TabIndex = 20 Top = 550 Width = 1000 End Begin Text1 Alignment = 2 39。Flat DataField = 性別 DataSource = fwData Height = 270 Index = 9 Left = 1700 TabIndex = 21 Top = 550 Width = 400 End Begin Text1 Alignment = 2 39。Flat DataField = 年齡 DataSource = fwData Height = 270 Index = 10 Left = 2200 TabIndex = 22 Top = 550 Width = 400 End Begin Text1 Alignment = 2 39。Flat DataField = 身份證號 DataSource = fwData Height = 270 Index = 11 Left = 2700 TabIndex = 23 Top = 550 Width = 1800 End Begin Text1 Alignment = 2 39。Flat DataField = 聯(lián)系電話 DataSource = fwData Height = 270 Index = 12 Left = 4600 TabIndex = 24 Top = 550 Width = 1300 End Begin Text1 Alignment = 2 39。Flat DataField = 管理房間號 DataSource = fwData Height = 270 Index = 13 Left = 6000 TabIndex = 25 Top = 550 Width = 1000 End Begin Text1 Alignment = 2 39。False Width = 8175 Begin Text1 Alignment = 2 39。True ScaleHeight = 3195 ScaleWidth = 7005 Begin cutform BorderStyle = 0 39。 Object = {5E9E78A0531B11CF91F6C2863C385E30}0。 您的密碼是 amp。 Chr(10) amp。DISABLE Left = 1200 PasswordChar = * TabIndex = 6 Top = 240 Width = 1800 End Begin Text2 Height = 270 Left = 1200 TabIndex = 3 Top = 840 Width = 1800 End Begin Text3 Height = 270 Left = 1200 TabIndex = 2 Top = 1320 Width = 1800 End Begin ok Caption = 確 定 Default = 1 39。False ScaleHeight = 2265 ScaleWidth = 3210 StartUpPosition = 3 39。網格控件列寬設定Sub gridys()(0) = * (1) = * (2) = * (3) = * (4) = * End SubSub cutformdz() = 370 = 0 = = = ( ) / 2 = 100 = * 2 120End Sub Begin editpwform Caption = 更改密碼 ClientHeight = 2265 ClientLeft = 60 ClientTop = 345 ClientWidth = 3210 Icon = :0000 LinkTopic = Form1 MaxButton = 0 39。窗體大小被改變時，網格一起改變大小Private Sub Form_Resize()gridysIf = True ThencutformdzEnd IfIf 1 Then = = 360If 650 Then = 650End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)kfformon = False = False(2).ToolTipText = 打開客戶信息表End SubPrivate Sub Image2_Click() = FalseEnd SubPrivate Sub Image3_Click() = Falsegridbc2End Sub39。False TextStyleFixed = 1 FocusRect = 0 HighLight = 0 AllowUserResizing= 3 Appearance = 0 FormatString = EndEndAttribute VB_Name = kfformAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim a As RecordsetDim yesno As IntegerDim t1 As IntegerPrivate Sub Form_Load() = + \If 1 Then = 1For i = 0 To 4 = i = amp。Dynaset RecordSource = kf Top = 0 Visible = 0 39。False Height = 345 Left = 4440 Options = 0 ReadOnly = 0 39。缺省游標 DefaultType = 2 39。Align Top Height = 360 Left = 0 TabIndex = 0 Top = 0 Width = 7785 _ExtentX = 13732 _ExtentY = 635 ButtonWidth = 609 ButtonHeight = 582 AllowCustomize = 0 39。 BorderStyle = 0 39。Opaque BorderColor = amp。H00C8FF38amp。Center Caption = 身 份 證 號 Height = 195 Index = 3 Left = 4600 TabIndex = 9 Top = 350 Width = 1800 End Begin Label2 Alignment = 2