www.pudn.com > SalesManager.rar > frmSetting.vb

Imports System.IO 
Public Class frmSetting 
    Inherits System.Windows.Forms.Form 
 
#Region " Windows 窗体设计器生成的代码 " 
 
    Public Sub New() 
        MyBase.New() 
 
        '该调用是 Windows 窗体设计器所必需的。 
        InitializeComponent() 
 
        '在 InitializeComponent() 调用之后添加任何初始化 
 
    End Sub 
 
    '窗体重写 dispose 以清理组件列表。 
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 
        If disposing Then 
            If Not (components Is Nothing) Then 
                components.Dispose() 
            End If 
        End If 
        MyBase.Dispose(disposing) 
    End Sub 
 
    'Windows 窗体设计器所必需的 
    Private components As System.ComponentModel.IContainer 
 
    '注意: 以下过程是 Windows 窗体设计器所必需的 
    '可以使用 Windows 窗体设计器修改此过程。 
    '不要使用代码编辑器修改它。 
    Friend WithEvents btnOK As System.Windows.Forms.Button 
    Friend WithEvents btnCancel As System.Windows.Forms.Button 
    Friend WithEvents Label1 As System.Windows.Forms.Label 
    Friend WithEvents Label2 As System.Windows.Forms.Label 
    Friend WithEvents Label3 As System.Windows.Forms.Label 
    Friend WithEvents Label4 As System.Windows.Forms.Label 
    Friend WithEvents Label5 As System.Windows.Forms.Label 
    Friend WithEvents txtYearBegin As System.Windows.Forms.TextBox 
    Friend WithEvents txtYearEnd As System.Windows.Forms.TextBox 
    Friend WithEvents Label6 As System.Windows.Forms.Label 
    Friend WithEvents Label7 As System.Windows.Forms.Label 
    Friend WithEvents txtString As System.Windows.Forms.TextBox 
    Friend WithEvents Label8 As System.Windows.Forms.Label 
    Friend WithEvents Label9 As System.Windows.Forms.Label 
     Private Sub InitializeComponent() 
        Me.btnOK = New System.Windows.Forms.Button 
        Me.btnCancel = New System.Windows.Forms.Button 
        Me.Label1 = New System.Windows.Forms.Label 
        Me.Label2 = New System.Windows.Forms.Label 
        Me.Label3 = New System.Windows.Forms.Label 
        Me.Label4 = New System.Windows.Forms.Label 
        Me.Label5 = New System.Windows.Forms.Label 
        Me.txtYearBegin = New System.Windows.Forms.TextBox 
        Me.txtYearEnd = New System.Windows.Forms.TextBox 
        Me.Label6 = New System.Windows.Forms.Label 
        Me.Label7 = New System.Windows.Forms.Label 
        Me.txtString = New System.Windows.Forms.TextBox 
        Me.Label8 = New System.Windows.Forms.Label 
        Me.Label9 = New System.Windows.Forms.Label 
        Me.SuspendLayout() 
        ' 
        'btnOK 
        ' 
        Me.btnOK.Location = New System.Drawing.Point(332, 244) 
        Me.btnOK.Name = "btnOK" 
        Me.btnOK.Size = New System.Drawing.Size(64, 24) 
        Me.btnOK.TabIndex = 6 
        Me.btnOK.Text = "确定(&O)" 
        ' 
        'btnCancel 
        ' 
        Me.btnCancel.Location = New System.Drawing.Point(408, 244) 
        Me.btnCancel.Name = "btnCancel" 
        Me.btnCancel.Size = New System.Drawing.Size(64, 24) 
        Me.btnCancel.TabIndex = 7 
        Me.btnCancel.Text = "取消(&C)" 
        ' 
        'Label1 
        ' 
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D 
        Me.Label1.Location = New System.Drawing.Point(100, 16) 
        Me.Label1.Name = "Label1" 
        Me.Label1.Size = New System.Drawing.Size(380, 2) 
        Me.Label1.TabIndex = 5 
        Me.Label1.Text = "Label1" 
        ' 
        'Label2 
        ' 
        Me.Label2.Location = New System.Drawing.Point(20, 12) 
        Me.Label2.Name = "Label2" 
        Me.Label2.Size = New System.Drawing.Size(80, 16) 
        Me.Label2.TabIndex = 8 
        Me.Label2.Text = "修改统计年份" 
        ' 
        'Label3 
        ' 
        Me.Label3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D 
        Me.Label3.Location = New System.Drawing.Point(100, 105) 
        Me.Label3.Name = "Label3" 
        Me.Label3.Size = New System.Drawing.Size(380, 2) 
        Me.Label3.TabIndex = 9 
        Me.Label3.Text = "Label3" 
        ' 
        'Label4 
        ' 
        Me.Label4.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D 
        Me.Label4.Location = New System.Drawing.Point(24, 232) 
        Me.Label4.Name = "Label4" 
        Me.Label4.Size = New System.Drawing.Size(450, 2) 
        Me.Label4.TabIndex = 10 
        Me.Label4.Text = "Label4" 
        ' 
        'Label5 
        ' 
        Me.Label5.Location = New System.Drawing.Point(20, 100) 
        Me.Label5.Name = "Label5" 
        Me.Label5.Size = New System.Drawing.Size(80, 16) 
        Me.Label5.TabIndex = 11 
        Me.Label5.Text = "修改系统连接" 
        ' 
        'txtYearBegin 
        ' 
        Me.txtYearBegin.Location = New System.Drawing.Point(192, 36) 
        Me.txtYearBegin.MaxLength = 4 
        Me.txtYearBegin.Name = "txtYearBegin" 
        Me.txtYearBegin.Size = New System.Drawing.Size(72, 21) 
        Me.txtYearBegin.TabIndex = 12 
        Me.txtYearBegin.Text = "" 
        ' 
        'txtYearEnd 
        ' 
        Me.txtYearEnd.Location = New System.Drawing.Point(304, 36) 
        Me.txtYearEnd.MaxLength = 4 
        Me.txtYearEnd.Name = "txtYearEnd" 
        Me.txtYearEnd.Size = New System.Drawing.Size(72, 21) 
        Me.txtYearEnd.TabIndex = 13 
        Me.txtYearEnd.Text = "" 
        ' 
        'Label6 
        ' 
        Me.Label6.Location = New System.Drawing.Point(272, 40) 
        Me.Label6.Name = "Label6" 
        Me.Label6.Size = New System.Drawing.Size(24, 16) 
        Me.Label6.TabIndex = 14 
        Me.Label6.Text = "To" 
        ' 
        'Label7 
        ' 
        Me.Label7.Location = New System.Drawing.Point(44, 40) 
        Me.Label7.Name = "Label7" 
        Me.Label7.Size = New System.Drawing.Size(108, 16) 
        Me.Label7.TabIndex = 15 
        Me.Label7.Text = "请输入起止年份:" 
        ' 
        'txtString 
        ' 
        Me.txtString.Location = New System.Drawing.Point(44, 128) 
        Me.txtString.MaxLength = 1024 
        Me.txtString.Multiline = True 
        Me.txtString.Name = "txtString" 
        Me.txtString.ScrollBars = System.Windows.Forms.ScrollBars.Vertical 
        Me.txtString.Size = New System.Drawing.Size(404, 68) 
        Me.txtString.TabIndex = 16 
        Me.txtString.Text = "" 
        ' 
        'Label8 
        ' 
        Me.Label8.Location = New System.Drawing.Point(44, 208) 
        Me.Label8.Name = "Label8" 
        Me.Label8.Size = New System.Drawing.Size(224, 16) 
        Me.Label8.TabIndex = 17 
        Me.Label8.Text = "提示: 连接字符串不得超过1024个字符" 
        ' 
        'Label9 
        ' 
        Me.Label9.Location = New System.Drawing.Point(44, 72) 
        Me.Label9.Name = "Label9" 
        Me.Label9.Size = New System.Drawing.Size(348, 16) 
        Me.Label9.TabIndex = 18 
        Me.Label9.Text = "提示: 年份只能输入4位数字.且起始年份要大于中止年份" 
        ' 
        'frmSetting 
        ' 
        Me.AcceptButton = Me.btnCancel 
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) 
        Me.ClientSize = New System.Drawing.Size(494, 275) 
        Me.Controls.Add(Me.Label9) 
        Me.Controls.Add(Me.Label8) 
        Me.Controls.Add(Me.txtString) 
        Me.Controls.Add(Me.Label7) 
        Me.Controls.Add(Me.Label6) 
        Me.Controls.Add(Me.txtYearEnd) 
        Me.Controls.Add(Me.txtYearBegin) 
        Me.Controls.Add(Me.Label3) 
        Me.Controls.Add(Me.Label1) 
        Me.Controls.Add(Me.Label5) 
        Me.Controls.Add(Me.Label4) 
        Me.Controls.Add(Me.Label2) 
        Me.Controls.Add(Me.btnCancel) 
        Me.Controls.Add(Me.btnOK) 
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog 
        Me.MaximizeBox = False 
        Me.MinimizeBox = False 
        Me.Name = "frmSetting" 
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent 
        Me.Text = "系统设置" 
        Me.ResumeLayout(False) 
 
    End Sub 
 
#End Region 
    Dim changeAble As Boolean = False 
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click 
        Me.Close() 
    End Sub 
 
    Private Sub frmSetting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Try 
            Dim strFileName As String = "mag.ini" 
            Dim objReader As StreamReader = New StreamReader(strFileName) 
            txtString.Text = objReader.ReadToEnd() 
            objReader.Close() 
            objReader = Nothing 
        Catch ex As Exception 
            MsgBox("读取连接字符串失败!", MsgBoxStyle.Information, "提示信息") 
        End Try 
 
        Try 
            Dim strTemp() As String 
            Dim strFileSetting As String = "setting.ini" 
            Dim YearReader As StreamReader = New StreamReader(strFileSetting) 
            YearReader.ReadLine() 
            YearReader.ReadLine() 
            strTemp = YearReader.ReadLine().Split(" ") 
            txtYearBegin.Text = strTemp(1).Trim 
            strTemp = YearReader.ReadLine().Split(" ") 
            txtYearEnd.Text = strTemp(1).Trim 
            YearReader.Close() 
            YearReader = Nothing 
        Catch ex As Exception 
            MsgBox(Err.Description) 
            MsgBox("读取起止统计年份失败!", MsgBoxStyle.Information, "提示信息") 
        End Try 
    End Sub 
 
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 
        If changeAble = False Then 
            Me.Close() 
        End If 
 
        If CInt(Me.txtYearBegin.Text) < CInt(Me.txtYearEnd.Text) Then 
            Try 
                Dim strTemp As String 
                Dim strFileSetting As String = "setting.ini" 
                Dim YearWriter As StreamWriter = New StreamWriter(strFileSetting, False) 
                strTemp = "[setting]" & vbCrLf & "[SumYear]" & vbCrLf & "[Begin] " 
                strTemp = strTemp & txtYearBegin.Text & vbCrLf & "[End] " 
                strTemp = strTemp & txtYearEnd.Text & vbCrLf 
                YearWriter.Write(strTemp) 
                YearWriter.Close() 
                YearWriter = Nothing 
            Catch ex As Exception 
                MsgBox(Err.Description) 
                MsgBox("写入起止统计年份失败!", MsgBoxStyle.Information, "提示信息") 
            End Try 
        Else 
            MsgBox("起始和中止年份不匹配!", MsgBoxStyle.Information, "提示信息") 
            Exit Sub 
        End If 
        Try 
            Dim strFileName As String = "manager.ini" 
            Dim objWriter As StreamWriter = New StreamWriter(strFileName, False) 
            objWriter.Write(txtString.Text) 
            objWriter.Close() 
            objWriter = Nothing 
        Catch ex As Exception 
            MsgBox("连接字符串写入失败!", MsgBoxStyle.Information, "提示信息") 
            Exit Sub 
        End Try 
 
        MsgBox("修改系统设置成功!", MsgBoxStyle.Information, "提示信息") 
        Me.Close() 
    End Sub 
 
    Private Sub txtString_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtString.TextChanged 
        changeAble = True 
    End Sub 
 
    Private Sub txtYearBegin_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYearBegin.TextChanged 
        changeAble = True 
        modMain.checkNum(txtYearBegin) 
 
    End Sub 
 
    Private Sub txtYearEnd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYearEnd.TextChanged 
        changeAble = True 
        modMain.checkNum(txtYearBegin) 
    End Sub 
End Class