20231220備份

BIFENG-ERP-SYS/0.MyModule/通用變數.vb

 Module 通用變數
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023022403"
+    Public 版本 As String = "2023122001"
     '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public g_conn_type As String = "" : Public ConString As String : Public AA(99) As String : Public 版本號 As String
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP資料夾 As String : Public 登入人IP As String

BIFENG-ERP-SYS/obj/Debug/BIFENG-ERP-SYS.vbproj.CoreCompileInputs.cache

-6942f6edc3ac3733260ee685ec91c9247abb9cae
+2b4bd07066bca017ffc530b3f0cb84b8fc8bb69a4d46988a5dcc1aee109044c6

BIFENG-ERP-SYS/obj/Debug/BIFENG-ERP-SYS.vbproj.FileListAbsolute.txt

 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.pdb
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\bin\Debug\BIFENG-ERP-SYS.xml
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbproj.AssemblyReference.cache
-D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG-ERP-SYS.vbproj.SuggestedBindingRedirects.cache
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.BIFENG_ERP_SYS.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.擇日_歷史資料庫_.resources
 D:\工巧明\BIFENG\BIFENG-ERP-SYS\BIFENG-ERP-SYS\obj\Debug\BIFENG_ERP_SYS.擇日_資料導入_.resources

BIFENG-ERP-SYS/資料庫系統管理/日誌.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.日期_dtp = New System.Windows.Forms.DateTimePicker()
         Me.Label3 = New System.Windows.Forms.Label()
         Me.歷史資料_dgv = New System.Windows.Forms.DataGridView()
-        Me.Label1 = New System.Windows.Forms.Label()
         Me.日期1_lb = New System.Windows.Forms.Label()
         Me.內容1_tb = New System.Windows.Forms.TextBox()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.字體大小_cb = New System.Windows.Forms.ComboBox()
         Me.自型_cb = New System.Windows.Forms.ComboBox()
         Me.Label4 = New System.Windows.Forms.Label()
+        Me.歷史_ch = New System.Windows.Forms.CheckBox()
+        Me.全部_ch = New System.Windows.Forms.CheckBox()
         CType(Me.歷史資料_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer1.Panel1.SuspendLayout()
         '
         '歷史資料_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.歷史資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.歷史資料_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.歷史資料_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.歷史資料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.歷史資料_dgv.Location = New System.Drawing.Point(5, 48)
         Me.歷史資料_dgv.Name = "歷史資料_dgv"
         Me.歷史資料_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.歷史資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.歷史資料_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.歷史資料_dgv.RowTemplate.Height = 24
         Me.歷史資料_dgv.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.歷史資料_dgv.Size = New System.Drawing.Size(155, 575)
         Me.歷史資料_dgv.TabIndex = 1070
         '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(11, 29)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(79, 16)
-        Me.Label1.TabIndex = 1071
-        Me.Label1.Text = "歷史上的今天"
-        '
         '日期1_lb
         '
         Me.日期1_lb.AutoSize = True
         Me.內容3_tb.Multiline = True
         Me.內容3_tb.Name = "內容3_tb"
         Me.內容3_tb.ScrollBars = System.Windows.Forms.ScrollBars.Both
-        Me.內容3_tb.Size = New System.Drawing.Size(754, 170)
+        Me.內容3_tb.Size = New System.Drawing.Size(754, 173)
         Me.內容3_tb.TabIndex = 1077
         '
         '日期3_lb
         Me.Label4.TabIndex = 1079
         Me.Label4.Text = "字型"
         '
+        '歷史_ch
+        '
+        Me.歷史_ch.AutoSize = True
+        Me.歷史_ch.Checked = True
+        Me.歷史_ch.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.歷史_ch.Location = New System.Drawing.Point(5, 27)
+        Me.歷史_ch.Name = "歷史_ch"
+        Me.歷史_ch.Size = New System.Drawing.Size(98, 20)
+        Me.歷史_ch.TabIndex = 1081
+        Me.歷史_ch.Text = "歷史上的今天"
+        Me.歷史_ch.UseVisualStyleBackColor = True
+        '
+        '全部_ch
+        '
+        Me.全部_ch.AutoSize = True
+        Me.全部_ch.Location = New System.Drawing.Point(111, 27)
+        Me.全部_ch.Name = "全部_ch"
+        Me.全部_ch.Size = New System.Drawing.Size(50, 20)
+        Me.全部_ch.TabIndex = 1082
+        Me.全部_ch.Text = "全部"
+        Me.全部_ch.UseVisualStyleBackColor = True
+        '
         '日誌
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.Controls.Add(Me.存檔_bt)
         Me.Controls.Add(Me.列表查詢_bt)
         Me.Controls.Add(Me.SplitContainer1)
-        Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.歷史資料_dgv)
         Me.Controls.Add(Me.日期_dtp)
         Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.歷史_ch)
+        Me.Controls.Add(Me.全部_ch)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Margin = New System.Windows.Forms.Padding(4)
         Me.Name = "日誌"
     Friend WithEvents 日期_dtp As DateTimePicker
     Friend WithEvents Label3 As Label
     Friend WithEvents 歷史資料_dgv As DataGridView
-    Friend WithEvents Label1 As Label
     Friend WithEvents 日期1_lb As Label
     Friend WithEvents 內容1_tb As TextBox
     Friend WithEvents SplitContainer1 As SplitContainer
     Friend WithEvents 字體大小_cb As ComboBox
     Friend WithEvents 自型_cb As ComboBox
     Friend WithEvents Label4 As Label
+    Friend WithEvents 歷史_ch As CheckBox
+    Friend WithEvents 全部_ch As CheckBox
 End Class

BIFENG-ERP-SYS/資料庫系統管理/日誌.vb

         歷史資料_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText
         歷史資料_dgv.MultiSelect = True
         If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
-        SQL1 = "SELECT  日期, 日誌  FROM  日誌資料表  WHERE  (日期 LIKE N'%" & Strings.Right(DTP, 5) & "') ORDER BY 日期 DESC"
+        If 歷史_ch.Checked = True Then
+            SQL1 = "SELECT  日期, 日誌  FROM  日誌資料表  WHERE  (日期 LIKE N'%" & Strings.Right(DTP, 5) & "') ORDER BY 日期 DESC"
+        Else
+            SQL1 = "SELECT  日期, 日誌  FROM  日誌資料表  ORDER BY 日期 DESC"
+        End If
         cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds1) : 歷史資料_dgv.DataSource = ds1.Tables(0) : conn.Close()
         歷史資料_dgv.Columns(1).Visible = False
         日期1_lb.Text = Format(日期_dtp.Value, "yyyy/MM/dd") : 內容1_tb.Text = ""
             End If
         End If
     End Sub
+    Private Sub 歷史_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 歷史_ch.Click
+        歷史_ch.Checked = True : 全部_ch.Checked = False : Set_客戶清單()
+    End Sub
+    Private Sub 全部_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 全部_ch.Click
+        歷史_ch.Checked = False : 全部_ch.Checked = True : Set_客戶清單()
+    End Sub
     Private Sub 日誌_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MdiParent = BIFENG_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         字體大小_cb.Text = "12" : 自型_cb.Text = "標楷體"
         End If : conn.Close() : MsgBox("存檔完成!!")
         Set_客戶清單()
     End Sub
+
 End Class