frm_fzgj_gzbw.frm

PMS是一个生产管理系统,功能强大,供大家享用,希望大家支持!!

      Align           =   1  'Align Top
      Height          =   705
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5985
      _ExtentX        =   10557
      _ExtentY        =   1244
      ButtonWidth     =   1138
      ButtonHeight    =   1191
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   " 增加 "
            Key             =   "add"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "modify"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "delete"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "save"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "取消"
            Key             =   "cancel"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "find"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭"
            Key             =   "close"
            ImageIndex      =   7
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "Frm_Fzgj_Gzbw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Public blnAdd As Boolean
Dim mybookmark
Dim Mystr As String  '定义字符串变量
Dim Txrq As String  '定义字符变量存储提醒日期
Dim Jsrq As String  '定义字符变量存储记事日期

Sub view_data()  '显示数据信息
  Dim i As Integer
  If Adodc1.Recordset.RecordCount > 0 Then
    Txt1(0).Text = Adodc1.Recordset.Fields(0)
    Txt1(1).Text = Adodc1.Recordset.Fields(1)
    Txt1(2).Text = Adodc1.Recordset.Fields(2)
    Dtp_Bwrq.Value = Adodc1.Recordset.Fields(3)
    Dtp_txrq.Value = Adodc1.Recordset.Fields(4)
    Txt1(3).Text = Adodc1.Recordset.Fields(5)
  End If
End Sub

Private Sub Dgr_Bw_Click()
 view_data
End Sub

Private Sub Dtp_txrq_GotFocus()
Dtp_txrq.CalendarBackColor = &HFFFF80
End Sub

Private Sub Dtp_txrq_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Txt1(3).SetFocus
End Sub

Private Sub Dtp_txrq_LostFocus()
Dtp_txrq.CalendarBackColor = &HFFFFFF
Txrq = Left(Format(Dtp_txrq.Value, "short date"), 4) + Right(Left(Format(Dtp_txrq.Value, "short date"), 7), 2) + Right(Format(Dtp_txrq.Value, "short date"), 2)
Jsrq = Left(Format(Dtp_Bwrq.Value, "short date"), 4) + Right(Left(Format(Dtp_Bwrq.Value, "short date"), 7), 2) + Right(Format(Dtp_Bwrq.Value, "short date"), 2)
If Val(Txrq) < Val(Jsrq) Then
  MsgBox "提醒日期不能在备忘日期之前！", , "信息提示"
  Dtp_txrq.Value = Data
  Dtp_txrq.SetFocus
  Exit Sub
End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = PublicStr
  If sql <> "" Then
    Adodc1.RecordSource = sql
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
      Call view_data
    End If
  End If
  Dtp_Bwrq.Value = Date
  Dtp_txrq.Value = Date
  Call Dgr_Title  '调用过程
  tlbState Toolbar1, False
  Call view_data  '调用过程
  '设置控件状态
  For i = 0 To Txt1.UBound
    Txt1(i).Enabled = False
  Next i
  Dtp_txrq.Enabled = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  sql = ""
End Sub

Sub Dgr_Title()   '设置DataGrid控件的标题信息
Dgr_Bw.Columns(0).Caption = "工作备忘编号"
Dgr_Bw.Columns(1).Caption = "记事标题"
Dgr_Bw.Columns(2).Caption = "记事内容"
Dgr_Bw.Columns(3).Caption = "记事日期"
Dgr_Bw.Columns(4).Caption = "提醒日期"
Dgr_Bw.Columns(5).Caption = "备注信息"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub

Private Sub Txt1_GotFocus(Index As Integer)
  'Txt1控件数组获得焦点
  Txt1(Index).BackColor = &HFFFF80
  Txt1(Index).SelStart = 0
  Txt1(Index).SelLength = Len(Txt1(Index))
End Sub

Private Sub Txt1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 'Txt1控件数据按回车键
  If KeyCode = vbKeyReturn And Index < 3 Then
     If Index = 2 Then
        Exit Sub
     End If
     If Index = 3 Then Exit Sub
     Txt1(Index + 1).SetFocus
  End If
End Sub

Private Sub Txt1_LostFocus(Index As Integer)
  'Txt1控件数据失去焦点
  Txt1(Index).BackColor = &HFFFFFF
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.key
     Case "add"   '添加
       blnAdd = True
       tlbState Toolbar1, True
       rs1.Open "select * from tb_SCGL_gzbw order by gzbw_id", cnn, adOpenStatic
       If rs1.RecordCount > 0 Then
          rs1.MoveLast
          Txt1(0) = "BW" + Format(Val(Right(Trim(rs1.Fields("gzbw_id")), 3)) + 1, "###000")   '编号自动加1
       Else
          Txt1(0) = "BW001"
       End If
       rs1.Close
       For i = 1 To Txt1.UBound
           Txt1(i) = ""
           Txt1(i).Locked = False
       Next i

       For i = 1 To Txt1.UBound
         Txt1(i).Enabled = True
       Next i
         Dtp_txrq.Enabled = True
         Dtp_Bwrq.Value = Date
         Txt1(1).SetFocus
     Case "modify"   '修改
       If Adodc1.Recordset.RecordCount > 0 Then
         blnAdd = False
         tlbState Toolbar1, True
         For i = 1 To Txt1.UBound
             Txt1(i).Locked = False
         Next i
         view_data
'         mybookmark = Dgr_Bw.Bookmark
         For i = 1 To Txt1.UBound
           Txt1(i).Enabled = True
         Next i
         Dtp_txrq.Enabled = True
         Else
         MsgBox "系统没有要修改的数据！", , "提示窗口"
       End If
     Case "delete"    '删除
       If Adodc1.Recordset.RecordCount > 0 Then
         Adodc1.Recordset.Delete
         Adodc1.Refresh
         For i = 0 To Txt1.UBound
           Txt1(i).Text = ""
         Next i
         Call view_data
         Call Dgr_Title
       Else
         MsgBox "系统没有要删除的数据！", , "提示窗口"
       End If
     Case "save"   '保存
       On Error GoTo SaveErr
       If Txt1(0).Text = "" Then
          MsgBox "系统不允许" & Label1 & "为空！", , "提示窗口"
          Exit Sub
       End If
       Txrq = Left(Format(Dtp_txrq.Value, "short date"), 4) + Right(Left(Format(Dtp_txrq.Value, "short date"), 7), 2) + Right(Format(Dtp_txrq.Value, "short date"), 2)
       Jsrq = Left(Format(Dtp_Bwrq.Value, "short date"), 4) + Right(Left(Format(Dtp_Bwrq.Value, "short date"), 7), 2) + Right(Format(Dtp_Bwrq.Value, "short date"), 2)
       If Val(Txrq) < Val(Jsrq) Then
           MsgBox "提醒日期不能在备忘日期之前！", , "信息提示"
           Dtp_txrq.Value = Date
           Dtp_txrq.SetFocus
           Exit Sub
       End If

        If blnAdd = True Then    '添加新记录
          cnn.Execute ("insert into tb_SCGL_gzbw(gzbw_id,gzbw_bt,gzbw_nr,gzbw_jsrq,gzbw_txrq,gzbw_bz) values('" + Txt1(0) + _
          "','" + Txt1(1) + "','" + Txt1(2) + "','" + str(Dtp_Bwrq.Value) + "','" + str(Dtp_txrq.Value) + "','" + Txt1(3) + "')")
''          Adodc1.Refresh
'           Unload Me
'          Frm_Fzgj_Gzbw.Show
          Adodc1.Refresh
          Set Dgr_Bw.DataSource = Adodc1
          Call Dgr_Title
          tlbState Toolbar1, False
          For i = 1 To Txt1.UBound
            Txt1(i).Locked = True
          Next i
        Else    '修改原有记录
          cnn.Execute ("update tb_SCGL_gzbw set gzbw_bt ='" + Txt1(1) + "',gzbw_nr ='" + Txt1(2) + "',gzbw_jsrq='" + str(Dtp_Bwrq.Value) + "',gzbw_txrq='" + str(Dtp_txrq.Value) + "', gzbw_bz='" + Txt1(3) + "' where gzbw_id='" + Txt1(0).Text + "'")
''          Adodc1.Refresh
'          Unload Me
'          Frm_Fzgj_Gzbw.Show
'          Dgr_Bw.Bookmark = mybookmark
          Adodc1.Refresh
          Set Dgr_Bw.DataSource = Adodc1
          Call Dgr_Title
          tlbState Toolbar1, False
          For i = 1 To Txt1.UBound
            Txt1(i).Locked = True
          Next i
          Dtp_txrq.Enabled = False
        End If
        Exit Sub
SaveErr:   '出错处理
        MsgBox Err.Description, , "信息提示"
     Case "cancel"  ' 取消
       tlbState Toolbar1, False
       For i = 1 To Txt1.UBound
           Txt1(i).Locked = True
       Next i
       Call view_data
     Case "find"    '　查询
       Mystr = InputBox("请输入要查询的备忘编号", "工作备忘查询", "BW001")
       rs1.Open "select * from tb_SCGL_gzbw where gzbw_id ='" + Mystr + "'", cnn, adOpenKeyset
       If rs1.RecordCount > 0 Then
         Txt1(0).Text = rs1.Fields(0)
         Txt1(1).Text = rs1.Fields(1)
         Txt1(2).Text = rs1.Fields(2)
         Dtp_Bwrq.Value = rs1.Fields(3)
         Dtp_txrq.Value = rs1.Fields(4)
         Txt1(3).Text = rs1.Fields(5)
       End If
       rs1.Close
     Case "close"   '关闭
       Unload Me
  End Select
 End Sub