Public Class 信眾資料表 ReadOnly ds8 As New DataSet ReadOnly 對話框(7) As String Private Sub 讀取客戶料表() Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear() 廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 廠商清單_dgv.ColumnHeadersHeight = 25 廠商清單_dgv.AllowUserToAddRows = False 廠商清單_dgv.RowTemplate.Height = 35 SQL_客戶資料表_清單() 列印用SQL = SQL1 : da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0) 廠商清單_dgv.Columns(0).FillWeight = 40 : 廠商清單_dgv.Columns(1).FillWeight = 60 : 廠商清單_dgv.Columns(2).FillWeight = 100 廠商清單_dgv.Columns(3).FillWeight = 100 : 廠商清單_dgv.Columns(4).FillWeight = 200 : 廠商清單_dgv.Columns(5).FillWeight = 60 廠商清單_dgv.Columns(6).FillWeight = 60 : 廠商清單_dgv.Columns(7).Visible = False : 廠商清單_dgv.Columns(8).Visible = False 廠商清單_dgv.Columns(9).Visible = False : 廠商清單_dgv.Columns(10).Visible = False : 廠商清單_dgv.Columns(11).Visible = False 廠商清單_dgv.Columns(12).Visible = False : 廠商清單_dgv.Columns(13).Visible = False : 廠商清單_dgv.Columns(14).Visible = False For I As Integer = 0 To 12 廠商清單_dgv.Columns(I).ReadOnly = True Next For I As Integer = 0 To 廠商清單_dgv.Rows.Count - 1 廠商清單_dgv("NO.", I).Value = I + 1 Next End Sub Private Sub 格式設定1() 供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True 客戶_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black End Sub Private Sub 格式設定2() 客戶_lb.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red End Sub Private Sub 類別管理_cb_下拉表單資料載入() SQL_客戶資料表簡稱_下拉清單() : 客戶簡稱_cb.Items.Clear() 客戶簡稱_cb.Items.Add("") While (dr.Read()) : 客戶簡稱_cb.Items.Add(dr("簡稱")) : End While : conn.Close() End Sub Private Sub 客戶資料表1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 表頭(49) = "" 表頭(50) = "群組編號" 表頭(51) = "信眾名稱" 表頭(52) = "信眾地址" 表頭(53) = "信眾電話" 表頭(145) = "性別" 表頭(146) = "生肖" 表頭(59) = "聯繫人1" 表頭(147) = "聯繫人電話1" 表頭(148) = "聯繫人信箱1" 表頭(60) = "聯繫人2" 表頭(149) = "聯繫人電話2" 表頭(150) = "聯繫人信箱2" 對話框(0) = "請檢查客戶名稱/電話/地址/性別/生肖" 對話框(1) = "存檔完成" 對話框(2) = "修改完成" 對話框(3) = "是否要刪除這筆資料?" 對話框(4) = "刪除完成" 對話框(5) = "請輸入關鍵字" 對話框(6) = "自定義群組編號不能以GR開頭" 對話框(7) = "群組編號重複" 格式設定1() : 讀取客戶料表() : 類別管理_cb_下拉表單資料載入() MyModule1.清單字體大小調整() 廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", ICS_ASMS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 廠商清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 廠商清單_dgv.CellClick If e.RowIndex = -1 Then : Else 供應商編號_tb.Text = 廠商清單_dgv("流水號", e.RowIndex).Value.ToString : 客戶名稱_tb.Text = 廠商清單_dgv(表頭(51), e.RowIndex).Value.ToString 地址_tb.Text = 廠商清單_dgv(表頭(52), e.RowIndex).Value.ToString : 電話1_tb.Text = 廠商清單_dgv(表頭(53), e.RowIndex).Value.ToString 負責人_tb.Text = 廠商清單_dgv(表頭(145), e.RowIndex).Value.ToString : 聯繫人1_tb.Text = 廠商清單_dgv(表頭(59), e.RowIndex).Value.ToString 聯繫人2_tb.Text = 廠商清單_dgv(表頭(60), e.RowIndex).Value.ToString : 聯繫電話1_tb.Text = 廠商清單_dgv(表頭(147), e.RowIndex).Value.ToString 聯繫電話2_tb.Text = 廠商清單_dgv(表頭(149), e.RowIndex).Value.ToString : 信箱1_tb.Text = 廠商清單_dgv(表頭(148), e.RowIndex).Value.ToString 信箱2_tb.Text = 廠商清單_dgv(表頭(150), e.RowIndex).Value.ToString : 客戶簡稱_cb.Text = 廠商清單_dgv(表頭(50), e.RowIndex).Value.ToString 負責人電話_tb.Text = 廠商清單_dgv(表頭(146), e.RowIndex).Value.ToString 性別_cb.Text = 廠商清單_dgv(表頭(145), e.RowIndex).Value.ToString : 生肖_cb.Text = 廠商清單_dgv(表頭(146), e.RowIndex).Value.ToString End If End Sub Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click 客戶名稱_tb.Text = "" : 地址_tb.Text = "" : 電話1_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫電話1_tb.Text = "" : 聯繫電話2_tb.Text = "" 信箱1_tb.Text = "" : 信箱2_tb.Text = "" : 客戶簡稱_cb.Text = "" : 性別_cb.Text = "" : 生肖_cb.Text = "" : 廠商清單_dgv.Enabled = False SQL_客戶資料表_最後一筆資料() If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "P0000000" : End If conn.Close() Dim NUM1 As Integer NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 7)) + 1 If NUM1 < 10 Then : 供應商編號_tb.Text = "P" & "000000" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "P" & "00000" & NUM1 ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "P" & "0000" & NUM1 ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "P" & "000" & NUM1 ElseIf NUM1 > 9999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "P" & "00" & NUM1 ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 供應商編號_tb.Text = "P" & "0" & NUM1 ElseIf NUM1 > 999999 Then : 供應商編號_tb.Text = "P" & NUM1 : End If 格式設定2() 確認新增_bt.Enabled = True : 新增_bt.Enabled = False End Sub Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click If 客戶名稱_tb.Text = "" Or 地址_tb.Text = "" Or 電話1_tb.Text = "" Or 性別_cb.Text = "" Or 生肖_cb.Text = "" Then MsgBox(對話框(0)) Else If 客戶簡稱_cb.Text = "" Then SQL_客戶資料表_最後一筆資料1() If dr.Read() Then : 客戶簡稱_cb.Text = dr("簡稱").ToString : Else : 客戶簡稱_cb.Text = "GR000000" : End If conn.Close() Dim NUM1 As Integer NUM1 = Double.Parse(Strings.Right(客戶簡稱_cb.Text, 6)) + 1 If NUM1 < 10 Then : 客戶簡稱_cb.Text = "GR" & "00000" & NUM1 ElseIf NUM1 > 9 And NUM1 < 100 Then : 客戶簡稱_cb.Text = "GR" & "0000" & NUM1 ElseIf NUM1 > 99 And NUM1 < 1000 Then : 客戶簡稱_cb.Text = "GR" & "000" & NUM1 ElseIf NUM1 > 999 And NUM1 < 10000 Then : 客戶簡稱_cb.Text = "GR" & "00" & NUM1 ElseIf NUM1 > 9999 And NUM1 < 10000 Then : 客戶簡稱_cb.Text = "GR" & "0" & NUM1 ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 客戶簡稱_cb.Text = "GR" & NUM1 : End If Else If 客戶簡稱_cb.Text.Substring(0, 2) = "GR" Then SQL_群組編號_搜尋() If dr.Read() Then Else MsgBox(對話框(6)) : conn.Close() Return End If Else SQL_群組編號_搜尋() If dr.Read() Then Dim result As DialogResult = MessageBox.Show("群組編號重複，是否加入該群組?", "重複群組編號", MessageBoxButtons.YesNo) conn.Close() If result = DialogResult.Yes Then Else Return End If End If conn.Close() End If End If SQL_客戶資料表1_新增() : conn.Close() : MsgBox(對話框(1)) '對話框(1) 格式設定1() : 讀取客戶料表() : 類別管理_cb_下拉表單資料載入() : 廠商清單_dgv.Enabled = True End If End Sub Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click SQL_客戶資料表1_修改() : conn.Close() : MsgBox(對話框(2)) '對話框(2) 讀取客戶料表() : 廠商清單_dgv.Enabled = True End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click Dim aa As MsgBoxResult = MsgBox(對話框(3), MsgBoxStyle.OkCancel) '對話框(3) If aa = MsgBoxResult.Ok Then SQL_客戶資料表1_刪除() 客戶名稱_tb.Text = "" : 地址_tb.Text = "" : 電話1_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫電話1_tb.Text = "" : 聯繫電話2_tb.Text = "" 信箱1_tb.Text = "" : 信箱2_tb.Text = "" : 客戶簡稱_cb.Text = "" : 性別_cb.Text = "" : 生肖_cb.Text = "" : 供應商編號_tb.Text = "" conn.Close() : MsgBox(對話框(4)) '對話框(4) 讀取客戶料表() : 廠商清單_dgv.Enabled = True End If End Sub Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click PA = InputBox(對話框(5)) '對話框(5) 讀取客戶料表() : PA = "" End Sub Private Sub 客戶資料表設定_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged MyModule1.清單字體大小調整() 廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", ICS_ASMS_ERP_SYS.字體_NUD.Value) End Sub Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter ToolTip1.SetToolTip(Me.查詢_bt, "查詢") End Sub Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter ToolTip1.SetToolTip(Me.新增_bt, "新增準備") End Sub Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter ToolTip1.SetToolTip(Me.確認新增_bt, "確認新增") End Sub Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter ToolTip1.SetToolTip(Me.修改_bt, "修改存檔") End Sub Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter ToolTip1.SetToolTip(Me.刪除_bt, "刪除") End Sub End Class