123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227 |
- Option Explicit On
- Imports System.Net
- Imports System.IO
- Public Class 車輛保養紀錄表
- ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
- Dim EDR As Integer = 0 : Dim ESTR As String
- Private m_Leftx As Integer = 152
- Private m_Lefty As Integer = 0
- Dim m_MousePosX As Integer
- Dim m_MousePosY As Integer
- Dim m_DeltaX As Integer
- Dim m_DeltaY As Integer
- ReadOnly m_StrecthX As Double
- ReadOnly m_StrecthY As Double
- Private Sub Set_清單()
- 紀錄清單_dgv.DataSource = Nothing : ds.Clear()
- 紀錄清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 紀錄清單_dgv.ColumnHeadersHeight = 25
- 紀錄清單_dgv.AllowUserToAddRows = False
- SQL_車輛保養紀錄表()
- da.Fill(ds) : 紀錄清單_dgv.DataSource = ds.Tables(0) : conn.Close()
- 紀錄清單_dgv.Columns(0).Visible = False : 紀錄清單_dgv.Columns(1).Visible = False : 紀錄清單_dgv.Columns(2).FillWeight = 100 : 紀錄清單_dgv.Columns(3).FillWeight = 100
- 紀錄清單_dgv.Columns(4).FillWeight = 100
- 紀錄清單_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"
- 紀錄清單_dgv.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 紀錄清單_dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
- End Sub
- Private Sub ComboBox1下拉表單資料載入()
- SQL_車牌號碼清單() : 車牌號碼_cb.Items.Clear() : While (dr.Read()) : 車牌號碼_cb.Items.Add(dr("車牌號碼")) : End While : conn.Close()
- End Sub
- Private Sub 車輛保養紀錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
- 流水號_tb.Visible = False : 檔名讀取_tb.Visible = False : ComboBox1下拉表單資料載入()
- If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
- 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath)
- End If
- Target1 = Target & AA(1) & "/"
- FTP資料夾_wb.Url = New Uri(Target1)
- End Sub
- Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 紀錄清單_dgv.CellClick
- If e.RowIndex = -1 Then : Else
- 保養日期_dtp.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("保養日期").Value.ToString : 預保日期_dtp.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("預保日期").Value.ToString
- 里程數_nud.Value = 紀錄清單_dgv.Rows(e.RowIndex).Cells("里程數").Value.ToString : 流水號_tb.Text = 紀錄清單_dgv.Rows(e.RowIndex).Cells("流水號").Value.ToString
- Set_圖片顯示()
- End If
- End Sub
- Private Sub TextBox4_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- Dim files As String()
- Try
- files = CType(e.Data.GetData(DataFormats.FileDrop), String())
- 檔案名稱_tb.Text = files(files.Length - 1)
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- Return
- End Try
- End If
-
- Dim STR2 As Integer = 0
- 檔名讀取_tb.Text = 檔案名稱_tb.Text
- If 檔案名稱_tb.Text = "" Then
- Else
- For i As Integer = 0 To 9999
- Dim STR1 As Integer = Strings.Len(檔名讀取_tb.Text)
- If Strings.Right((檔名讀取_tb.Text), 1) <> "\" Then
- STR1 -= 1 : STR2 += 1
- If STR1 = 0 Then
- 檔名讀取_tb.Text = ""
- 檔案名稱_tb.Text = ""
- i = 9999
- Else
- 檔名讀取_tb.Text = Strings.Left((檔名讀取_tb.Text), STR1)
- End If
- Else
- 檔名讀取_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2)
- 檔案名稱_tb.Text = 檔名讀取_tb.Text
- i = 9999
- End If
- Next
- End If
- End Sub
- Private Sub TextBox4_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
- Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
- For Each file As String In files
- 檔案名稱_tb.AppendText(file + Environment.NewLine)
- Next
- End Sub
- Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
- If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
- 本機資料夾_wb.Navigate(FolderBrowserDialog1.SelectedPath)
- End If
- End Sub
- Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 車牌號碼_cb.SelectedIndexChanged
- Set_清單()
- End Sub
- Private Sub Set_日期格式轉換()
- DTP1 = Format(保養日期_dtp.Value, "yyyy/MM/dd") : DTP2 = Format(預保日期_dtp.Value, "yyyy/MM/dd")
- End Sub
- Private Sub Set_流水號()
- SQL_車輛保養紀錄表流水號最後一筆()
- If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("流水號").ToString, 8)) : Else : EDR = 0 : End If
- conn.Close()
- EDR += 1
- If EDR < 10 Then : ESTR = "VM" & "0000000" & EDR
- ElseIf EDR > 9 And EDR < 100 Then : ESTR = "VM" & "000000" & EDR
- ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "VM" & "00000" & EDR
- ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "VM" & "0000" & EDR
- ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "VM" & "000" & EDR
- ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "VM" & "00" & EDR
- ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "VM" & "0" & EDR
- ElseIf EDR > 9999999 Then : ESTR = "VM" & EDR
- End If
- 流水號_tb.Text = ESTR
- Set_日期格式轉換()
- End Sub
- Private Sub Set_圖片顯示()
- 報告圖_pb.Image = Nothing
- SQL_車輛保養紀錄表圖片讀取()
- While dr.Read() = True
- Dim unused As Byte() = New Byte(-1) {}
- Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
- Dim oStream As New MemoryStream(bytes)
- 報告圖_pb.Image = Bitmap.FromStream(oStream)
- End While
- conn.Close()
- 報告圖_pb.SizeMode = 4
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
- If 車牌號碼_cb.Text = "" Then
- MsgBox("請先輸入車牌,或選擇車牌")
- Else
- If 檔案名稱_tb.Text = "" Then
- Set_流水號() : SQL_車輛保養紀錄表新增_無圖片() : conn.Close() : 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
- Else
- Set_流水號() : SQL_車輛保養紀錄表新增_有圖片() : conn.Close()
- '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
- frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
- fcr = New NetworkCredential(FTP帳號, FTP密碼)
- frq.Credentials = fcr
- frq.Method = WebRequestMethods.Ftp.DeleteFile
- frq.UseBinary = True
- frp = CType(frq.GetResponse, FtpWebResponse)
- frp.Close()
- FTP資料夾_wb.Refresh()
- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- 檔案名稱_tb.Text = ""
- Set_圖片顯示()
- 流水號_tb.Text = ""
- End If
- Set_清單()
- End If
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 修改資料_bt.Click
- If 車牌號碼_cb.Text = "" Then
- MsgBox("請先輸入車牌,或選擇車牌")
- Else
- If 檔案名稱_tb.Text = "" Then
- Set_日期格式轉換()
- SQL_車輛保養紀錄表修改_無圖片() : conn.Close()
- 檔案名稱_tb.Text = "" : Set_圖片顯示() : 流水號_tb.Text = ""
- Else
- conn.Close() : Set_日期格式轉換()
- SQL_車輛保養紀錄表修改_有圖片() : conn.Close()
- '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
- frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text)), FtpWebRequest)
- fcr = New NetworkCredential(FTP帳號, FTP密碼)
- frq.Credentials = fcr
- frq.Method = WebRequestMethods.Ftp.DeleteFile
- frq.UseBinary = True
- frp = CType(frq.GetResponse, FtpWebResponse)
- frp.Close()
- FTP資料夾_wb.Refresh()
- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- 檔案名稱_tb.Text = ""
- Set_圖片顯示()
- 流水號_tb.Text = ""
- End If
- MsgBox("修改完成") : Set_清單()
- End If
- End Sub
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 順時鐘90度_bt.Click
- 報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
- End Sub
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度_bt.Click
- 報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
- End Sub
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
- 報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
- End Sub
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
- 報告圖_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 報告圖_pb.Refresh() : 報告圖_pb.SizeMode = 4
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 放大_bt.Click
- Dim image = 報告圖_pb.Image
- Dim g As Graphics = 報告圖_pb.CreateGraphics
- g.DrawImage(image, New Rectangle(0, 0, image.Width * 2, image.Height * 2))
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 復原_bt.Click
- 報告圖_pb.Refresh()
- End Sub
- ''@#处理鼠标按键抬起的事件,根据鼠标按下时保存的鼠标位置,和当前鼠标的位置,
- ''计算鼠标移动偏移量,借此调用移动图片的函数,移动图片
- 'Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 報告圖_pb.MouseUp
- ' m_DeltaX = m_MousePosX - e.X
- ' m_DeltaY = m_MousePosY - e.Y
- ' m_Leftx -= m_DeltaX
- ' m_Lefty -= m_DeltaY
- ' Picturemove(sender, e)
- ' Me.Cursor = Cursors.Arrow
- 'End Sub
- ''@#当鼠标按下时,将鼠标变成手形,并且记录下当前鼠标的位置
- 'Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles 報告圖_pb.MouseDown
- ' Me.Cursor = Cursors.Hand
- ' m_MousePosX = e.X
- ' m_MousePosY = e.Y
- 'End Sub
- ''@#根据偏移量计算出的图片位置,重画图片
- 'Private Sub Picturemove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
- ' Dim myBit As New Bitmap(報告圖_pb.Image)
- ' Dim myPicGrh As Graphics = Me.報告圖_pb.CreateGraphics
- ' myPicGrh.Clear(Me.報告圖_pb.BackColor)
- ' myPicGrh.DrawImageUnscaled(myBit, m_Leftx, m_Lefty)
- ' myBit.Dispose()
- ' myPicGrh.Dispose()
- 'End Sub
- End Class
|