📄 frm生产厂家维护.frm
字号:
VERSION 5.00
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "SSDW3B32.OCX"
Begin VB.Form frm生产厂家维护
BorderStyle = 3 'Fixed Dialog
Caption = "生产厂家维护"
ClientHeight = 4725
ClientLeft = 45
ClientTop = 330
ClientWidth = 7740
Icon = "frm生产厂家维护.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 4725
ScaleWidth = 7740
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 585
Left = 0
ScaleHeight = 525
ScaleWidth = 7680
TabIndex = 1
Top = 0
Width = 7740
Begin VB.CommandButton cmdSave
Caption = "保存[&S]"
Height = 540
Left = 0
TabIndex = 3
Top = -15
Width = 1170
End
Begin VB.CommandButton cmdExit
Caption = "退出[&X]"
Height = 540
Left = 1170
TabIndex = 2
Top = -15
Width = 1170
End
End
Begin SSDataWidgets_B.SSDBGrid grdPrd
Height = 4050
Left = 90
TabIndex = 0
Top = 630
Width = 7560
_Version = 196614
DataMode = 2
AllowAddNew = -1 'True
AllowDelete = -1 'True
MultiLine = 0 'False
RowHeight = 450
Columns.Count = 11
Columns(0).Width= 2117
Columns(0).Caption= "厂商编码"
Columns(0).Name = "厂商编码"
Columns(0).CaptionAlignment= 2
Columns(0).DataField= "Column 0"
Columns(0).DataType= 8
Columns(0).FieldLen= 256
Columns(1).Width= 3200
Columns(1).Caption= " 厂商名称"
Columns(1).Name = " 厂商名称"
Columns(1).CaptionAlignment= 2
Columns(1).DataField= "Column 1"
Columns(1).DataType= 8
Columns(1).FieldLen= 256
Columns(2).Width= 3016
Columns(2).Caption= "开户行"
Columns(2).Name = "开户行"
Columns(2).CaptionAlignment= 2
Columns(2).DataField= "Column 2"
Columns(2).DataType= 8
Columns(2).FieldLen= 256
Columns(3).Width= 2619
Columns(3).Caption= "帐号"
Columns(3).Name = "帐号"
Columns(3).CaptionAlignment= 2
Columns(3).DataField= "Column 3"
Columns(3).DataType= 8
Columns(3).FieldLen= 256
Columns(4).Width= 2910
Columns(4).Caption= "税号"
Columns(4).Name = "税号"
Columns(4).CaptionAlignment= 2
Columns(4).DataField= "Column 4"
Columns(4).DataType= 8
Columns(4).FieldLen= 256
Columns(5).Width= 3043
Columns(5).Caption= "电话"
Columns(5).Name = "电话"
Columns(5).CaptionAlignment= 2
Columns(5).DataField= "Column 5"
Columns(5).DataType= 8
Columns(5).FieldLen= 256
Columns(6).Width= 3200
Columns(6).Caption= "传真"
Columns(6).Name = "传真"
Columns(6).CaptionAlignment= 2
Columns(6).DataField= "Column 6"
Columns(6).DataType= 8
Columns(6).FieldLen= 256
Columns(7).Width= 3200
Columns(7).Caption= "电报挂号"
Columns(7).Name = "电报挂号"
Columns(7).CaptionAlignment= 2
Columns(7).DataField= "Column 7"
Columns(7).DataType= 8
Columns(7).FieldLen= 256
Columns(8).Width= 3200
Columns(8).Caption= "联系人"
Columns(8).Name = "联系人"
Columns(8).CaptionAlignment= 2
Columns(8).DataField= "Column 8"
Columns(8).DataType= 8
Columns(8).FieldLen= 256
Columns(9).Width= 3200
Columns(9).Caption= "联系人寻呼"
Columns(9).Name = "联系人寻呼"
Columns(9).CaptionAlignment= 2
Columns(9).DataField= "Column 9"
Columns(9).DataType= 8
Columns(9).FieldLen= 256
Columns(10).Width= 3200
Columns(10).Caption= "联系人手机"
Columns(10).Name= "联系人手机"
Columns(10).CaptionAlignment= 2
Columns(10).DataField= "Column 10"
Columns(10).DataType= 8
Columns(10).FieldLen= 256
_ExtentX = 13335
_ExtentY = 7144
_StockProps = 79
Caption = "生产厂家编码维护"
End
End
Attribute VB_Name = "frm生产厂家维护"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
On Error GoTo SaveErr
Dim I
Conn.BeginTrans
sSQL = "DELETE 厂商主档"
Cmd.ActiveConnection = Conn
Cmd.CommandText = sSQL
Cmd.Execute
grdPrd.MoveFirst
For I = 0 To grdPrd.Rows - 1
sSQL = "INSERT INTO 厂商主档(厂商编码,厂商名称,开户行,帐号,税号,电话,传真," & _
" 电报挂号,联系人,联系人寻呼,联系人手机) VALUES('" & _
Trim(grdPrd.Columns(0).Text) & "','" & Trim(grdPrd.Columns(1).Text) & _
"','" & Trim(grdPrd.Columns(2).Text) & "','" & Trim(grdPrd.Columns(3).Text) & _
"','" & Trim(grdPrd.Columns(4).Text) & "','" & Trim(grdPrd.Columns(5).Text) & _
"','" & Trim(grdPrd.Columns(6).Text) & "','" & Trim(grdPrd.Columns(7).Text) & _
"','" & Trim(grdPrd.Columns(8).Text) & "','" & Trim(grdPrd.Columns(9).Text) & _
"','" & Trim(grdPrd.Columns(10).Text) & "')"
Cmd.CommandText = sSQL
Cmd.Execute
grdPrd.MoveNext
Next I
Conn.CommitTrans
Exit Sub
SaveErr:
MsgBox "保存数据错误!!", vbExclamation, "错误窗口"
Conn.RollbackTrans
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
End Sub
Private Sub Form_Load()
On Error GoTo LoadErr
sSQL = "SELECT 厂商编码,厂商名称,开户行,帐号,税号,电话,传真,电报挂号,联系人," & _
"联系人寻呼,联系人手机 FROM 厂商主档"
Set RsTemp = Nothing
RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
While Not RsTemp.EOF
grdPrd.AddItem RsTemp("厂商编码") & vbTab & _
RsTemp("厂商名称") & vbTab & RsTemp("开户行") & _
RsTemp("帐号") & vbTab & RsTemp("税号") & _
RsTemp("电话") & vbTab & RsTemp("传真") & _
RsTemp("电报挂号") & vbTab & RsTemp("联系人") & _
RsTemp("联系人寻呼") & vbTab & RsTemp("联系人手机")
RsTemp.MoveNext
Wend
Exit Sub
LoadErr:
MsgBox "载入颜色信息错误!", vbExclamation, "错误窗口"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -