formdwmx.frm

来往帐、增票登记

      TabIndex        =   3
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label Label3 
      Caption         =   "电  话"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2400
      TabIndex        =   2
      Top             =   600
      Width           =   735
   End
   Begin VB.Label Label2 
      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        =   1
      Top             =   600
      Width           =   975
   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        =   0
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "Formdwmx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Command1.Caption = "保存修改资料" Then
  Set rst = db.OpenRecordset("dw", 2)
  sql = "update dw set dw='" + Text1.Text + "',lxr='" + Text2.Text + "',dh='" + Str(Text3.Text) + "',dz='" + Text4.Text + "',zjm='" + Formdwmx.Label5.Caption + "',sh='" + Text6.Text + "',dwbh='" + Text7.Text + "',khh='" + Text8.Text + "' where id='" + Label6.Caption + "'"
  db.Execute sql
  sql = ""
  Set db = OpenDatabase(App.Path & "\data\cw.mdb", False, False, "ms access;pwd=")
  Set rst = db.OpenRecordset("dw", 2)
  rst.MoveFirst
  Formdwzl.MSFlexGrid1.Rows = rst.RecordCount + 2
  Formdwzl.MSFlexGrid1.Cols = 9
  Formdwzl.MSFlexGrid1.FormatString = "    单   位   名   称       |   联 系 人  |   电  话  |      地   址      ||||||"
  Formdwzl.MSFlexGrid1.Row = 1
  jl = Val(Formdwzl.MSFlexGrid1.Row)
  Do While rst.EOF = False
    Formdwzl.MSFlexGrid1.Row = Val(jl) 'MSFlexGrid1.Row + 1
    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
  Loop
  Unload Me
Else
  Set rst = db.OpenRecordset("dw", 2)
  rst.MoveFirst
  idh = 0
  Do While rst.EOF = False
    If Val(rst.Fields("id")) > idh Then idh = Val(rst.Fields("id"))
    rst.MoveNext
  Loop
  Label6.Caption = Str(idh + 1)
  Set rst = db.OpenRecordset("dw", 2)
  sql = "insert into dw(id,dw,lxr,dh,dz,zjm,sh,dwbh,khh) values ('" + Label6.Caption + "','" + Text1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Text4.Text + "','" + Label5.Caption + "','" + Text6.Text + "','" + Text7.Text + "','" + Text8.Text + "')"
  db.Execute sql
  Formdwzl.MSFlexGrid1.Rows = Formdwzl.MSFlexGrid1.Rows + 1
  Formdwzl.MSFlexGrid1.Row = Formdwzl.MSFlexGrid1.Rows - 1
    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")
  Formdwzl.MSFlexGrid1.Col = 0
  Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'If Formdwmx.Text5.Text = "保存修改资料" Then
'MsgBox Formdwmx.Text5.Text
If Formdwzl.Label2.Caption = "保存修改资料" Then
  Formdwmx.Command1.Caption = Formdwzl.Label2.Caption
  Formdwzl.MSFlexGrid1.Col = 0
  Text1.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 1
  Text2.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 2
  Text3.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 3
  Text4.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 4
  Label5.Caption = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 5
  Label6.Caption = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 6
  Text6.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 7
  Text7.Text = Formdwzl.MSFlexGrid1.Text
  Formdwzl.MSFlexGrid1.Col = 8
  Text8.Text = Formdwzl.MSFlexGrid1.Text
Else:
  Formdwmx.Command1.Caption = "保存新增资料"
End If
End Sub

Private Sub Text1_LostFocus()
cd = Len(Text1.Text)
i = 1
Formdwmx.Label5.Caption = ""
'rst.Close
Dim db1 As Database
Dim rst1 As Recordset
Dim sql1 As String
Set db1 = OpenDatabase(App.Path & "\data\cw.mdb", False, False, "ms access;pwd=")
Set rst1 = db.OpenRecordset("zjm", dbOpenDynaset)
Do While i <= cd
  ii = Mid(Text1.Text, i, 1)
  rst1.MoveFirst
  Do While rst1.EOF = False
    If rst1.Fields("hanzi") = ii Then zjm = Mid(rst1.Fields("zjm"), 1, 1)
    rst1.MoveNext
  Loop
  'sql1 = "select * from zjm where hanzi='" + ii + "'"
  'db.Execute "select zjm from zjm where hanzi='" + ii + "'"
  'db1.Execute sql1
  'Select Case ii <> ""
  '  Case ii >= "吖" And ii <= "鏊"
  '    zjm = "A"
  '   MsgBox ii + Str(Asc(ii)) + "吖" + Str(Asc("吖")) + "鏊" + Str(Asc("鏊"))
  '  Case ii >= "八" And ii <= "簿"
  '    zjm = "B"
  '  Case ii >= "嚓" And ii <= "错"
  '    zjm = "C"
  '  Case ii >= "哒" And ii <= "跺"
  '    zjm = "D"
  '  Case ii >= "屙" And ii <= "贰"
  ''     zjm = "E"
 '   Case ii >= "发" And ii <= "馥"
 '      zjm = "F"
 '   Case ii >= "旮" And ii <= "过"
 '      zjm = "G"
 '   Case ii >= "铪" And ii <= "蠖"
 '     zjm = "H"
  'If ii >= "讥" And ii <= "鏊" Then zjm = "I"
 '   Case ii >= "讥" And ii <= "竣"
 '       zjm = "J"
 '   Case ii >= "咔" And ii <= "廓"
 '       zjm = "K"
 '   Case ii >= "垃" And ii <= "雒"
 '       zjm = "L"
 '   Case ii >= "妈" And ii <= "穆"
 '       zjm = "M"
 '   Case ii >= "拿" And ii <= "糯"
 '        zjm = "N"
 '   Case ii >= "噢" And ii <= "沤"
 '       zjm = "O"
 '   Case ii >= "趴" And ii <= "曝"
 '       zjm = "P"
 '   Case ii >= "七" And ii <= "群"
 '       zjm = "Q"
 '   Case ii >= "蚺" And ii <= "箬"
 '       zjm = "R"
 '   Case ii >= "仨" And ii <= "锁"
  '      zjm = "S"
  '  Case ii >= "他" And ii <= "箨"
'        zjm = "T"
    'If ii >= "吖" And ii <= "鏊" Then zjm = "U"
    'If ii >= "吖" And ii <= "鏊" Then zjm = "V"
'    Case ii >= "哇" And ii <= "鋈"
'        zjm = "W"
'    Case ii >= "夕" And ii <= "蕈"
'        zjm = "X"
'    Case ii >= "丫" And ii <= "蕴"
'         zjm = "Y"
'    Case ii >= "匝" And ii <= "做"
'        zjm = "Z"
'  Case Else
'  End Select
  
  Formdwmx.Label5.Caption = Formdwmx.Label5.Caption + zjm
  i = i + 1
Loop
End Sub