TENDEN-MES-SYS
/
TENDEN-MES-SYS-LEEHSIEHJUI
Suivre 4
Favoriser 0
Bifurcation 0
Code Tickets 0 Demandes d'ajout 0 Versions 0 Wiki Activité
Aucune description
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
31 Révisions
1 Branche
Aborescence: 37231c9890
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '37231c9890'
${ noResults }
TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/成本系統管理/成本資料庫管理.vb

成本資料庫管理.vb 9.4KB
Historique Brut

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140 
  1. Option Strict Off

  2. Public Class 成本資料庫管理

  3.     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet

  4.     Private Sub Set_訂單清單()

  5.         訂單清單_dgv.DataSource = Nothing : ds.Clear()

  6.         訂單清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  7.         訂單清單_dgv.ColumnHeadersHeight = 25

  8.         訂單清單_dgv.AllowUserToAddRows = False

  9.         SQL_成本資料庫管理表單()

  10.         da.Fill(ds) : 訂單清單_dgv.DataSource = ds.Tables(0) : conn.Close()

  11.     End Sub

  12.     Private Sub Set_DGV2載入前設定()

  13.         利潤表流水_dgv.DataSource = Nothing : ds1.Clear()

  14.         利潤表流水_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  15.         利潤表流水_dgv.ColumnHeadersHeight = 25

  16.         利潤表流水_dgv.AllowUserToAddRows = False

  17.         ConnOpen()

  18.     End Sub

  19.     Private Sub Set_DGV2載入後設定()

  20.         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 利潤表流水_dgv.DataSource = ds1.Tables(0) : conn.Close()

  21.     End Sub

  22.     Private Sub Set_DGV3載入前設定()

  23.         天盾訂單號_dgv.DataSource = Nothing : ds2.Clear()

  24.         天盾訂單號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  25.         天盾訂單號_dgv.ColumnHeadersHeight = 25

  26.         天盾訂單號_dgv.AllowUserToAddRows = False

  27.         ConnOpen()

  28.     End Sub

  29.     Private Sub Set_DGV3載入後設定()

  30.         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 天盾訂單號_dgv.DataSource = ds2.Tables(0) : conn.Close()

  31.     End Sub

  32.     Private Sub Set_DGV4載入前設定()

  33.         訂單流水號_dgv.DataSource = Nothing : ds3.Clear()

  34.         訂單流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  35.         訂單流水號_dgv.ColumnHeadersHeight = 25

  36.         訂單流水號_dgv.AllowUserToAddRows = False

  37.         ConnOpen()

  38.     End Sub

  39.     Private Sub Set_DGV4載入後設定()

  40.         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 訂單流水號_dgv.DataSource = ds3.Tables(0) : conn.Close()

  41.     End Sub

  42.     Private Sub Set_DGV5載入前設定()

  43.         天盾流水號_dgv.DataSource = Nothing : ds4.Clear()

  44.         天盾流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  45.         天盾流水號_dgv.ColumnHeadersHeight = 25

  46.         天盾流水號_dgv.AllowUserToAddRows = False

  47.         ConnOpen()

  48.     End Sub

  49.     Private Sub Set_DGV5載入後設定()

  50.         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 天盾流水號_dgv.DataSource = ds4.Tables(0) : conn.Close()

  51.     End Sub

  52.     Private Sub Set_DGV6載入前設定()

  53.         資料流水號_dgv.DataSource = Nothing : ds5.Clear()

  54.         資料流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  55.         資料流水號_dgv.ColumnHeadersHeight = 25

  56.         資料流水號_dgv.AllowUserToAddRows = False

  57.         ConnOpen()

  58.     End Sub

  59.     Private Sub Set_DGV6載入後設定()

  60.         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 資料流水號_dgv.DataSource = ds5.Tables(0) : conn.Close()

  61.     End Sub

  62.     Private Sub Set_grid()

  63.         訂單清單_dgv.Columns(0).Visible = False : 訂單清單_dgv.Columns(1).Visible = False : 訂單清單_dgv.Columns(2).Visible = False : 訂單清單_dgv.Columns(3).Visible = False

  64.         訂單清單_dgv.Columns(4).Visible = False : 訂單清單_dgv.Columns(5).Visible = False : 訂單清單_dgv.Columns(6).Visible = False : 訂單清單_dgv.Columns(7).Visible = False

  65.         訂單清單_dgv.Columns(8).Visible = False : 訂單清單_dgv.Columns(9).Visible = False : 訂單清單_dgv.Columns(10).Visible = False : 訂單清單_dgv.Columns(11).Visible = False

  66.         訂單清單_dgv.Columns(12).Visible = False : 訂單清單_dgv.Columns(13).Visible = False : 訂單清單_dgv.Columns(18).Visible = False : 訂單清單_dgv.Columns(19).Visible = False

  67.         訂單清單_dgv.Columns(20).Visible = False : 訂單清單_dgv.Columns(21).Visible = False : 訂單清單_dgv.Columns(24).Visible = False : 訂單清單_dgv.Columns(25).Visible = False

  68.         訂單清單_dgv.Columns(26).Visible = False : 訂單清單_dgv.Columns(27).Visible = False : 訂單清單_dgv.Columns(28).Visible = False : 訂單清單_dgv.Columns(29).Visible = False

  69.         訂單清單_dgv.Columns(30).Visible = False : 訂單清單_dgv.Columns(31).Visible = False : 訂單清單_dgv.Columns(34).Visible = False

  70.         訂單清單_dgv.Columns(14).FillWeight = 85 : 訂單清單_dgv.Columns(15).FillWeight = 85 : 訂單清單_dgv.Columns(16).FillWeight = 85 : 訂單清單_dgv.Columns(17).FillWeight = 85

  71.         訂單清單_dgv.Columns(22).FillWeight = 85 : 訂單清單_dgv.Columns(23).FillWeight = 85 : 訂單清單_dgv.Columns(32).FillWeight = 85 : 訂單清單_dgv.Columns(33).FillWeight = 110

  72.     End Sub

  73.     Private Sub Set_grid1()

  74.         利潤表流水_dgv.Columns(0).FillWeight = 90 : 利潤表流水_dgv.Columns(1).FillWeight = 80 : 利潤表流水_dgv.Columns(2).FillWeight = 120 : 利潤表流水_dgv.Columns(3).FillWeight = 70

  75.         利潤表流水_dgv.Columns(4).FillWeight = 80

  76. 

  77.         天盾訂單號_dgv.Columns(0).FillWeight = 90 : 天盾訂單號_dgv.Columns(1).FillWeight = 90 : 天盾訂單號_dgv.Columns(2).FillWeight = 120

  78.         天盾訂單號_dgv.Columns(3).FillWeight = 70 : 天盾訂單號_dgv.Columns(4).FillWeight = 90 : 天盾訂單號_dgv.Columns(5).FillWeight = 90 : 天盾訂單號_dgv.Columns(6).FillWeight = 80

  79.         天盾訂單號_dgv.Columns(7).FillWeight = 70

  80. 

  81.         訂單流水號_dgv.Columns(0).FillWeight = 90 : 訂單流水號_dgv.Columns(1).FillWeight = 70 : 訂單流水號_dgv.Columns(2).FillWeight = 120 : 訂單流水號_dgv.Columns(3).FillWeight = 90

  82.         訂單流水號_dgv.Columns(4).FillWeight = 80 : 訂單流水號_dgv.Columns(5).FillWeight = 70

  83. 

  84.         天盾流水號_dgv.Columns(0).FillWeight = 80 : 天盾流水號_dgv.Columns(1).FillWeight = 105 : 天盾流水號_dgv.Columns(2).FillWeight = 80 : 天盾流水號_dgv.Columns(3).FillWeight = 90

  85.         天盾流水號_dgv.Columns(4).FillWeight = 90 : 天盾流水號_dgv.Columns(5).FillWeight = 90 : 天盾流水號_dgv.Columns(6).FillWeight = 70

  86. 

  87.         資料流水號_dgv.Columns(0).FillWeight = 90 : 資料流水號_dgv.Columns(1).FillWeight = 70 : 資料流水號_dgv.Columns(2).FillWeight = 120 : 資料流水號_dgv.Columns(3).FillWeight = 90

  88.         資料流水號_dgv.Columns(4).FillWeight = 80 : 資料流水號_dgv.Columns(5).FillWeight = 70

  89.     End Sub

  90.     Private Sub 成本資料庫管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  91.         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  92.         訂單資料庫選擇.ShowDialog() : 年份_cb.Text = Year(Today) : Set_訂單清單() : Set_grid()

  93.     End Sub

  94.     Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged

  95.         Set_訂單清單() : Set_grid()

  96.     End Sub

  97.     Private Sub 訂單清單_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單清單_dgv.CellClick

  98.         If e.RowIndex = -1 Then : Else

  99.             利潤表流水號_tb.Text = 訂單清單_dgv(33, e.RowIndex).Value.ToString

  100.             Set_DGV2載入前設定()

  101.             SQL_訂單價格利潤明細表()

  102.             Set_DGV2載入後設定()

  103.             天盾訂單號_tb.Text = 利潤表流水_dgv(1, 0).Value.ToString : 資料流水號_tb.Text = 利潤表流水_dgv(0, 0).Value.ToString

  104. 

  105.             Set_DGV3載入前設定()

  106.             SQL_訂單價格利潤明細表_天盾訂單號()

  107.             Set_DGV3載入後設定()

  108. 

  109.             Set_DGV4載入前設定()

  110.             SQL_訂單控制表_訂單流水號()

  111.             Set_DGV4載入後設定()

  112. 

  113.             Set_DGV5載入前設定()

  114.             SQL_訂單明細表_天盾流水號()

  115.             Set_DGV5載入後設定()

  116. 

  117.             Set_DGV6載入前設定()

  118.             SQL_訂單控制表_資料流水號()

  119.             Set_DGV6載入後設定()

  120.             Set_grid1()

  121.         End If

  122.     End Sub

  123.     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click

  124.         Dim aa As MsgBoxResult

  125.         aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)

  126.         If aa = MsgBoxResult.Ok Then

  127.             SQL_刪除訂單控制表_利潤表流水號() : conn.Close()

  128.             Set_訂單清單() : Set_grid()

  129.             利潤表流水號_tb.Text = "" : 天盾訂單號_tb.Text = "" : 資料流水號_tb.Text = ""

  130.             利潤表流水_dgv.DataSource = Nothing : 天盾訂單號_dgv.DataSource = Nothing : 訂單流水號_dgv.DataSource = Nothing : 天盾流水號_dgv.DataSource = Nothing : 資料流水號_dgv.DataSource = Nothing

  131.         End If

  132.         MsgBox("刪除完成")

  133.     End Sub

  134.     Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click

  135.         SQL_訂單資料表選擇_VIONIC() : Set_訂單清單() : Set_grid()

  136.     End Sub

  137.     Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click

  138.         SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid()

  139.     End Sub

  140. End Class