📄 frmexstexp.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{E684D8A3-716C-4E59-AA94-7144C04B0074}#1.1#0"; "GRIDEX20.OCX"
Begin VB.Form FrmExSTExp
Caption = "Form1"
ClientHeight = 8985
ClientLeft = 3405
ClientTop = 4245
ClientWidth = 12255
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8985
ScaleWidth = 12255
Begin GridEX20.GridEX Grid
Height = 6015
Left = 1425
TabIndex = 1
Top = 1200
Width = 8115
_ExtentX = 14314
_ExtentY = 10610
Version = "2.0"
BoundColumnIndex= ""
ReplaceColumnIndex= ""
GroupByBoxVisible= 0 'False
ColumnHeaderHeight= 270
IntProp1 = 0
IntProp2 = 0
IntProp7 = 0
ColumnsCount = 2
Column(1) = "FrmExSTExp.frx":0000
Column(2) = "FrmExSTExp.frx":00C8
FormatStylesCount= 5
FormatStyle(1) = "FrmExSTExp.frx":016C
FormatStyle(2) = "FrmExSTExp.frx":02B0
FormatStyle(3) = "FrmExSTExp.frx":0360
FormatStyle(4) = "FrmExSTExp.frx":0414
FormatStyle(5) = "FrmExSTExp.frx":04EC
ImageCount = 0
PrinterProperties= "FrmExSTExp.frx":05A4
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 0
Top = 0
Width = 12255
_ExtentX = 21616
_ExtentY = 979
ButtonWidth = 1138
ButtonHeight = 926
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "tlbUpdate"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增"
Key = "tlbNew"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "tlbModify"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "tlbDelete"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "审核"
Key = "tlbAuditing"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "反审核"
Key = "tlbUnAuditing"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "tlbClose"
EndProperty
EndProperty
BorderStyle = 1
End
End
Attribute VB_Name = "FrmExSTExp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rstGrid As New ADODB.Recordset
Dim rstExec As New ADODB.Recordset
Private Sub Form_Load()
Me.Icon = frmMain.Icon
Me.Caption = "物品出库"
With Me
'----- 设置 ToolBar 属性 -----
.Toolbar.ImageList = frmMain.Image
.Toolbar.Buttons.Item("tlbUpdate").Image = "Design"
.Toolbar.Buttons.Item("tlbNew").Image = "New"
.Toolbar.Buttons.Item("tlbModify").Image = "Modify"
.Toolbar.Buttons.Item("tlbDelete").Image = "Del"
.Toolbar.Buttons.Item("tlbAuditing").Image = "Audi"
.Toolbar.Buttons.Item("tlbUnAuditing").Image = "UnAudi"
.Toolbar.Buttons.Item("tlbClose").Image = "Store"
End With
LoadGrid
End Sub
Public Sub LoadGrid()
If rstGrid.State = 1 Then rstGrid.Close
Set rstGrid = Nothing
rstGrid.CursorLocation = adUseClient
rstGrid.Open "select * from ExST", con, adOpenStatic, adLockOptimistic
Set Grid.ADORecordset = rstGrid
Grid.Columns(1).Visible = False
Grid.Columns(2).Caption = "单据编号"
Grid.Columns(3).Caption = "制单人"
Grid.Columns(4).Caption = "制单日期"
Grid.Columns(5).Caption = "审核人"
Grid.Columns(6).Caption = "审核日期"
Grid.Columns(7).Caption = "备注"
Grid.Columns(8).Visible = False
ColumnCenter Grid
Grid.AllowAddNew = False
Grid.AllowEdit = False
Grid.AllowDelete = True
Grid.SelectionStyle = jgexEntireRow
End Sub
Public Sub EditBill()
If Grid.RowCount = 0 Then
Message "无可用信息!"
Exit Sub
End If
If IsNull(Grid.Value(1)) Or Trim(Grid.Value(1)) = "" Or Val(Grid.Value(1)) = 0 Then
Message "没选择单据!"
Exit Sub
End If
FrmExST.ZOrder
FrmExST.EditBill Grid.Value(1)
End Sub
Public Sub DelBill()
If Grid.RowCount = 0 Then
Message "无可用信息!"
Exit Sub
End If
If QueryDly("确定删除单据<" & Grid.Value(2) & ">?") = False Then Exit Sub
Grid.Delete
End Sub
Private Sub Form_Resize()
On Error Resume Next
Grid.Move 0, Me.Toolbar.Height, Me.ScaleWidth, Me.ScaleHeight - Me.Toolbar.Height
End Sub
Private Sub Form_Unload(Cancel As Integer)
If rstGrid.State = 1 Then Close
Set rstGrid = Nothing
End Sub
Private Sub Grid_DblClick()
EditBill
End Sub
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "tlbUpdate"
LoadGrid
Case "tlbNew"
FrmExST.ZOrder
FrmExST.AddBill
Case "tlbModify"
Me.EditBill
Case "tlbDelete"
DelBill
Case "tlbAuditing"
If rstExec.State = 1 Then rstExec.Close
Set rstExec = Nothing
rstExec.CursorLocation = adUseClient
rstExec.Open "select * from ExST where ExSTID=" & Grid.Value(1), con, adOpenStatic, adLockBatchOptimistic
If rstExec.RecordCount < 1 Then
Message "没有可用单据!"
Exit Sub
End If
If rstExec.Fields("state") Then
Message "该单据已审核!"
Exit Sub
End If
If QueryDly("审核单据<" & Grid.Value(2) & ">?") = False Then Exit Sub
ExAudi Grid.Value(1), 1
Me.LoadGrid
Case "tlbUnAuditing"
If rstExec.State = 1 Then rstExec.Close
Set rstExec = Nothing
rstExec.CursorLocation = adUseClient
rstExec.Open "select * from ExST where ExSTID=" & Grid.Value(1), con, adOpenStatic, adLockBatchOptimistic
If rstExec.RecordCount < 1 Then
Message "没有可用单据!"
Exit Sub
End If
If rstExec.Fields("state") = False Then
Message "该单据未审核!"
Exit Sub
End If
If QueryDly("反审核单据<" & Grid.Value(2) & ">?") = False Then Exit Sub
ExAudi Grid.Value(1), 2
Me.LoadGrid
Case "tlbClose"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -