jsrselect.frm

一套VB完整的灯具销售管理系统设计

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form jsrselect 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00004080&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3750
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   2460
   ControlBox      =   0   'False
   Icon            =   "jsrselect.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3750
   ScaleWidth      =   2460
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton closeform 
      Caption         =   "放弃"
      Height          =   375
      Left            =   1320
      TabIndex        =   2
      Top             =   3165
      Width           =   975
   End
   Begin VB.CommandButton sure 
      Caption         =   "确认"
      Default         =   -1  'True
      Height          =   375
      Left            =   210
      TabIndex        =   1
      Top             =   3165
      Width           =   975
   End
   Begin VB.Data jsrdata 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   -1485
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   135
      Visible         =   0   'False
      Width           =   1425
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "jsrselect.frx":0442
      Height          =   2715
      Left            =   135
      OleObjectBlob   =   "jsrselect.frx":0454
      TabIndex        =   0
      ToolTipText     =   "选择已经注册过的经手人（如果没有注册，请按“放弃”钮）"
      Top             =   270
      Width           =   2175
   End
End
Attribute VB_Name = "jsrselect"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CloseForm_Click()
Unload Me
End Sub

Private Sub DBGrid1_DblClick()
Call Sure_Click
End Sub

Private Sub Form_Load()
jsrdata.DatabaseName = appData
jsrdata.RecordSource = "jsrk"
End Sub

Private Sub Sure_Click()
If JhJsr = False Then
   jsrName = DBGrid1.Text
    main.Jsrtxt.Text = jsrName
   Else
     JHForm.Text55.Text = DBGrid1.Text
   End If
Unload Me
End Sub