formdwzl.frm

来往帐、增票登记

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Formdwzl 
   Caption         =   "单位资料"
   ClientHeight    =   4365
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6585
   LinkTopic       =   "Form1"
   ScaleHeight     =   4365
   ScaleWidth      =   6585
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command3 
      BackColor       =   &H8000000A&
      Height          =   375
      Left            =   360
      MaskColor       =   &H80000005&
      TabIndex        =   7
      Top             =   3840
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1800
      TabIndex        =   5
      Top             =   3240
      Width           =   1815
   End
   Begin VB.CommandButton Command4 
      Caption         =   "关闭"
      Height          =   375
      Left            =   4560
      TabIndex        =   3
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "修改"
      Height          =   375
      Left            =   3600
      TabIndex        =   2
      Top             =   3840
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "新增"
      Height          =   375
      Left            =   2640
      TabIndex        =   1
      Top             =   3840
      Width           =   975
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6495
      _ExtentX        =   11456
      _ExtentY        =   5530
      _Version        =   393216
      FixedCols       =   0
   End
   Begin VB.Label Label2 
      Height          =   255
      Left            =   5280
      TabIndex        =   6
      Top             =   3360
      Visible         =   0   'False
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   "请输入查找内容："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   3240
      Width           =   1935
   End
End
Attribute VB_Name = "Formdwzl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
Formdwmx.Show 1
End Sub

Private Sub Command2_Click()
'Formdwmx.Text5.Text = "保存修改资料"
'sql = "保存修改资料"
Formdwzl.Label2.Caption = "保存修改资料"
Formdwmx.Show 1
End Sub

Private Sub Command3_Click()
If Formdwzl.Command3.Caption = "选择" Then
  Formdwzl.MSFlexGrid1.Col = 0
  Formspdj.Text2.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Formspdj.Text3.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.Command3.Caption = ""
  Unload Me
End If
If Formdwzl.Command3.Caption = "选 择" Then
  Formdwzl.MSFlexGrid1.Col = 0
  Formzpcx.Text3.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Formzpcx.Text4.Text = Formdwzl.MSFlexGrid1.Text
  Unload Me
End If
If Formdwzl.Command3.Caption = "选  择" Then
  Formdwzl.MSFlexGrid1.Col = 0
  Formspdq.Text3.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Formspdq.Text4.Text = Formdwzl.MSFlexGrid1.Text
  Unload Me
End If
If Formdwzl.Command3.Caption = "选   择" Then
  Formdwzl.MSFlexGrid1.Col = 0
  Formdwdj.Text2.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Formdwdj.Text3.Text = Formdwzl.MSFlexGrid1.Text
  Unload Me
End If
If Formdwzl.Command3.Caption = "选    择" Then
  Formdwzl.MSFlexGrid1.Col = 0
  Formdwcx.Text1.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Formdwcx.Text2.Text = Formdwzl.MSFlexGrid1.Text
  Unload Me
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\data\cw.mdb", False, False, "ms access;pwd=")
Set rst = db.OpenRecordset("dw", 2)
'If rst.EOF() Then
'  rst.MoveLast
'  rst.MoveFirst
'End If
rst.MoveLast
rst.MoveFirst
Formdwzl.MSFlexGrid1.Rows = rst.RecordCount + 1
rst.MoveLast
rst.MoveFirst
Formdwzl.MSFlexGrid1.Cols = 9
Formdwzl.MSFlexGrid1.FormatString = "    单   位   名   称       |   联 系 人  |   电  话  |      地   址      ||||||"
Formdwzl.MSFlexGrid1.Row = 1
jl = Val(Formdwzl.MSFlexGrid1.Row)
Do While rst.EOF = False
  MSFlexGrid1.Row = Val(jl) 'MSFlexGrid1.Row + 2
  Formdwzl.MSFlexGrid1.Col = 0
  Formdwzl.MSFlexGrid1.Text = rst.Fields("dw")
  Formdwzl.MSFlexGrid1.Col = 1
  Formdwzl.MSFlexGrid1.Text = rst.Fields("lxr")
  Formdwzl.MSFlexGrid1.Col = 2
  Formdwzl.MSFlexGrid1.Text = rst.Fields("dh")
  Formdwzl.MSFlexGrid1.Col = 3
  Formdwzl.MSFlexGrid1.Text = rst.Fields("dz")
  Formdwzl.MSFlexGrid1.Col = 4
  Formdwzl.MSFlexGrid1.Text = rst.Fields("zjm")
  Formdwzl.MSFlexGrid1.Col = 5
  Formdwzl.MSFlexGrid1.Text = rst.Fields("id")
  Formdwzl.MSFlexGrid1.Col = 6
  Formdwzl.MSFlexGrid1.Text = rst.Fields("sh")
  Formdwzl.MSFlexGrid1.Col = 7
  Formdwzl.MSFlexGrid1.Text = rst.Fields("dwbh")
  Formdwzl.MSFlexGrid1.Col = 8
  Formdwzl.MSFlexGrid1.Text = rst.Fields("khh")
  rst.MoveNext
  jl = jl + 1
  'jl = Formdwzl.MSFlexGrid1.Row
'  Formdwzl.MSFlexGrid1.Row = jl + 1
Loop
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And Text1.Text <> "" Then
  Formdwzl.MSFlexGrid1.SetFocus
  jl = 1
  Do While jl < Formdwzl.MSFlexGrid1.Rows
    Formdwzl.MSFlexGrid1.Row = jl
    Formdwzl.MSFlexGrid1.Col = 0
    dw = Formdwzl.MSFlexGrid1.Text
    Formdwzl.MSFlexGrid1.Col = 4
    zjm = Formdwzl.MSFlexGrid1.Text
    Formdwzl.MSFlexGrid1.Col = 1
    lxr = Formdwzl.MSFlexGrid1.Text
    cd = Len(Text1.Text)
    If Left(dw, cd) = Text1.Text Or Left(zjm, cd) = Text1.Text Then 'Or Left(lxr, cd)
      If MsgBox("请问您要查找的是：" + dw + "  " + lxr + "吗？", vbOKCancel, "系统提示") = vbOK Then
        jl = Formdwzl.MSFlexGrid1.Rows + 10
        Formdwzl.MSFlexGrid1.Col = 0
      End If
    End If
    jl = jl + 1
  Loop
  If jl <= Formdwzl.MSFlexGrid1.Rows Then
    MsgBox "没有找到资料!请重新查找。"
  End If
End If

End Sub