frm_rzmodify.frm

网络化管理解决了实际工作中不能及时对连锁店销售情况进行统一管理的问题

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Frm_rzmodify 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "日志修改"
   ClientHeight    =   3870
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4980
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3870
   ScaleWidth      =   4980
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      Height          =   855
      Left            =   120
      TabIndex        =   9
      Top             =   2880
      Width           =   4695
      Begin VB.CommandButton Cmdexit 
         Caption         =   "取消"
         Height          =   375
         Left            =   2760
         TabIndex        =   4
         Top             =   360
         Width           =   855
      End
      Begin VB.CommandButton Cmdmodify 
         Caption         =   "修改"
         Height          =   375
         Left            =   960
         TabIndex        =   3
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Frame Frame1 
      Height          =   2895
      Left            =   120
      TabIndex        =   5
      Top             =   0
      Width           =   4695
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   0
         Left            =   1680
         TabIndex        =   0
         Top             =   360
         Width           =   2775
      End
      Begin VB.TextBox Text1 
         Height          =   495
         Index           =   1
         Left            =   1680
         TabIndex        =   1
         Top             =   1080
         Width           =   2775
      End
      Begin RichTextLib.RichTextBox RichTextBox1 
         Height          =   855
         Left            =   1680
         TabIndex        =   2
         Top             =   1800
         Width           =   2775
         _ExtentX        =   4895
         _ExtentY        =   1508
         _Version        =   393217
         Enabled         =   -1  'True
         TextRTF         =   $"Frm_rzmodify.frx":0000
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "日志编号"
         Height          =   255
         Left            =   480
         TabIndex        =   8
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "连锁店名称"
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1080
         Width           =   975
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "日志内容"
         Height          =   255
         Left            =   480
         TabIndex        =   6
         Top             =   1800
         Width           =   735
      End
   End
End
Attribute VB_Name = "Frm_rzmodify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Cmdok_Click()
Dim AdoRs As ADODB.Recordset
Dim Cnn As ADODB.Connection
If Text1(0).Text = "" Or Text1(1).Text = "" Then
  MsgBox "重要信息不能为空！"
Else
 AdoRs.Open "select * from Log where LogId = '" + Text1(0).Text + "'", Cnn, adOpenKeyset
 If Adodc1.RecordCount > 0 Then
 AdoRs.Close
 Else
  AdoRs.Close
  c = MsgBox("确认信息吗？")
  If c = vbOK Then
  Set AdoRs = Cnn.Execute("update Log values('" & Text1(0) & "','" & Text1(1) & "','" & RichTextBox1.Text & "')")
  MsgBox "数据保存成功！"
  Else
  End If
  Adodc1.RecordSource = "select * from Log order by LogId"
  Adodc1.Refresh
  End If
End Sub