📄 gplxfc.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.Form gplxfc
Caption = "零星工票"
ClientHeight = 7110
ClientLeft = 60
ClientTop = 450
ClientWidth = 11820
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7110
ScaleWidth = 11820
Begin FlexCell.Grid Grid2
Height = 2985
Left = 90
TabIndex = 18
Top = 4050
Width = 11685
_ExtentX = 20611
_ExtentY = 5265
Cols = 5
Rows = 30
End
Begin MSComCtl2.MonthView MonthView2
Height = 2370
Left = 3930
TabIndex = 17
Top = 1530
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 65077249
CurrentDate = 39000
End
Begin MSComCtl2.MonthView MonthView1
Height = 2370
Left = 2160
TabIndex = 16
Top = 1500
Width = 4065
_ExtentX = 7170
_ExtentY = 4180
_Version = 393216
ForeColor = -2147483630
BackColor = -2147483633
Appearance = 1
StartOfWeek = 65077249
CurrentDate = 39000
End
Begin FlexCell.Grid Grid1
Height = 1995
Left = 60
TabIndex = 15
Top = 1860
Width = 11715
_ExtentX = 20664
_ExtentY = 3519
Cols = 5
Rows = 30
End
Begin VB.Frame Frame1
Caption = "零星工票："
Height = 1035
Left = 60
TabIndex = 0
Top = 780
Width = 11655
Begin VB.CommandButton cmdfind
Caption = "检索"
Height = 315
Left = 7800
TabIndex = 7
Top = 480
Width = 1035
End
Begin VB.TextBox txtgpbh2
Height = 315
Left = 6360
TabIndex = 6
Top = 480
Width = 1395
End
Begin VB.TextBox txtgpbh1
Height = 315
Left = 4740
TabIndex = 5
Top = 480
Width = 1335
End
Begin VB.CommandButton cmddate2
Caption = "Command1"
Height = 195
Left = 3780
TabIndex = 4
Top = 480
Width = 195
End
Begin VB.CommandButton cmddate1
Caption = "Command2"
Height = 195
Left = 2100
TabIndex = 3
Top = 480
Width = 195
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 315
Left = 10500
TabIndex = 2
Top = 480
Width = 975
End
Begin VB.CommandButton cmdfc
Caption = "反冲"
Height = 315
Left = 9120
TabIndex = 1
Top = 480
Width = 1095
End
Begin MSMask.MaskEdBox Mskdate1
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 315
Left = 900
TabIndex = 8
Top = 480
Width = 1155
_ExtentX = 2037
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox mskdate2
Height = 315
Left = 2640
TabIndex = 9
Top = 480
Width = 1095
_ExtentX = 1931
_ExtentY = 556
_Version = 393216
PromptChar = "_"
End
Begin VB.Label Label1
Caption = "----"
Height = 195
Index = 6
Left = 6120
TabIndex = 13
Top = 480
Width = 255
End
Begin VB.Label Label1
Caption = "----"
Height = 195
Index = 5
Left = 2340
TabIndex = 12
Top = 480
Width = 255
End
Begin VB.Label Label1
Caption = "工票号码"
Height = 195
Index = 2
Left = 4020
TabIndex = 11
Top = 480
Width = 795
End
Begin VB.Label Label1
Caption = "工票日期"
Height = 195
Index = 8
Left = 180
TabIndex = 10
Top = 480
Width = 795
End
End
Begin VB.Label Label1
Caption = "金氏机械 工票反冲"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Index = 0
Left = 3660
TabIndex = 14
Top = 120
Width = 3255
End
End
Attribute VB_Name = "gplxfc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim grid1gpbh As String
Private Sub Form_Load()
Me.Width = 12000
Me.Height = 8500
Grid1.Cols = 9
Grid1.AutoRedraw = False
Grid1.DisplayFocusRect = False
Grid1.FixedRows = 1
Grid1.FixedCols = 2
Grid1.Column(0).Width = 1
Grid1.Column(1).Width = 30
Grid1.Column(2).Width = 30
Grid1.Column(3).Width = 90
Grid1.Column(4).Width = 70
Grid1.Column(5).Width = 70
Grid1.Column(6).Width = 70
Grid1.Column(7).Width = 60
Grid1.Column(8).Width = 60
dofillgrid
Grid1.AutoRedraw = True
Grid1.Refresh
Grid2.Cols = 10
Grid2.Column(0).Width = 1
Grid2.Column(1).Width = 1
Grid2.Column(2).Width = 80
Grid2.Column(3).Width = 80
Grid2.Column(4).Width = 30
Grid2.Column(5).Width = 40
Grid2.Column(6).Width = 60
dofillgrid2
Mskdate1.Text = NOWDate
MonthView1.Visible = False
MonthView1.Value = NOWDate
mskdate2.Text = NOWDate
MonthView2.Visible = False
MonthView2.Value = NOWDate
End Sub
Private Sub cmdfind_Click()
dofillgrid
griditem = "select * from gplxh where "
If Mskdate1.Text = "" Then
griditem = griditem & "gprq >='" & (NOWDate - 10) & "'"
Else
griditem = griditem & "gprq >='" & (Mskdate1.Text) & "'"
End If
If mskdate2.Text = "" Then
griditem = griditem & "and gprq <='" & (NOWDate) & "'"
Else
griditem = griditem & "and gprq <='" & (mskdate2.Text) & "'"
End If
If txtgpbh1.Text <> "" Then griditem = griditem & " and gphm >='" & txtgpbh1.Text & "'"
If txtgpbh2.Text <> "" Then griditem = griditem & " and gphm <='" & txtgpbh2.Text & "'"
i = 1
Set rsTempA = oDb.Execute(griditem)
Do Until rsTempA.EOF
griditem = i & Chr(9) & "" & Chr(9) & rsTempA!gpbh & Chr(9) & rsTempA!gphm & Chr(9) & rsTempA!gprq
Set rsTempB = oDb.Execute("select * from abjlx where bjbh='" & rsTempA!gpbjbh & "'")
griditem = griditem & Chr(9) & rsTempB!bjmc & Chr(9) & rsTempB!bjth & Chr(9) & rsTempA!gpbzmc
Grid1.AddItem griditem
rsTempA.MoveNext
i = i + 1
Loop
End Sub
Private Sub dofillgrid()
Grid1.Rows = 1
Grid1.Cell(0, 1).Text = "序号"
Grid1.Cell(0, 2).Text = "反冲"
Grid1.Cell(0, 3).Text = "工票编号"
Grid1.Cell(0, 4).Text = "工票号码"
Grid1.Cell(0, 5).Text = "工票日期"
Grid1.Cell(0, 6).Text = "部件名称"
Grid1.Cell(0, 7).Text = "部件型号"
Grid1.Cell(0, 8).Text = "班组/个人"
Grid1.Column(2).CellType = cellCheckBox
End Sub
Private Sub dofillgrid2()
Grid2.Rows = 1
Grid2.Cell(0, 1).Text = "序号"
Grid2.Cell(0, 2).Text = "零件名称"
Grid2.Cell(0, 3).Text = "零件图号"
Grid2.Cell(0, 4).Text = "数量"
Grid2.Cell(0, 5).Text = "工序名称"
Grid2.Cell(0, 6).Text = "工时"
Grid2.Cell(0, 7).Text = " 备 注"
Grid2.Cell(0, 8).Text = " 备 注"
Grid2.Cell(0, 9).Text = " 备 注"
End Sub
Private Sub cmddate1_Click()
MonthView1.Visible = True
End Sub
Private Sub Grid1_Click()
dofillgrid2
j = Grid1.ActiveCell.Row
If j >= 1 And j <= Grid1.Rows - 1 Then
grid1gpbh = Grid1.Cell(j, 3).Text
szSql = "select * from gplxb where gpbh='" & grid1gpbh & "'"
Set rsTempC = oDb.Execute(szSql)
Do Until rsTempC.EOF
Grid2.AddItem "" & Chr(9) & rsTempC!gpljmc & Chr(9) & rsTempC!gpljth & Chr(9) & rsTempC!gpsl & Chr(9) & rsTempC!gpgxmc & Chr(9) & rsTempC!gpgs & Chr(9) & rsTempC!gpbz & Chr(9) & rsTempC!gpbz1 & Chr(9) & rsTempC!gpbz2
rsTempC.MoveNext
Loop
End If
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
MonthView1.Visible = False
Mskdate1.Text = MonthView1.Value
End Sub
Private Sub cmddate2_Click()
MonthView2.Visible = True
End Sub
Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
MonthView2.Visible = False
mskdate2.Text = MonthView2.Value
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdfc_Click()
Dim codegp As Integer
Dim codegpbh As String
For i = 1 To Grid1.Rows - 1
If Grid1.Cell(i, 2).IntegerValue = 1 Then '打勾，变量＝1
grid1gpbh = Grid1.Cell(i, 3).Text
'原内容
Set rsTempA = oDb.Execute("select * from gplxh where gpbh='" & grid1gpbh & "'")
'新工票编号
Set rsTempC = oDb.Execute("select max(code) as maxcode from gplxh where gprq='" & rsTempA!gprq & "'")
codegp = rsTempC!maxcode + 1
codegpbh = Left(grid1gpbh, 8) & Format(codegp, "0000")
szSql = "insert gplxh (gpbh,code,gphm,gprq,gpcpbh,gpbjbh,gpcjbh,gpcjmc,gpbzbh,gpbzmc,gpsh,gpkp) values ( '" & codegpbh & "'," & codegp & ",'" & rsTempA!gphm & "','" _
& rsTempA!gprq & "','" & rsTempA!gpcpbh & "','" & rsTempA!gpbjbh & " ','" & rsTempA!gpcjbh & "','" & rsTempA!gpcjmc & "','" & rsTempA!gpbzbh & "','" & rsTempA!gpbzmc & "','" & rsTempA!gpsh & "','" & rsTempA!gpkp & "'" & ")"
oDb.Execute szSql
'表体内容
Set rsTempB = oDb.Execute("select * from gplxb where gpbh='" & grid1gpbh & "'")
Do Until rsTempB.EOF
szSql = "insert gplxb(gpbh,gpcpbh,gpbjbh,gpljmc,gpljth,gpsl,gpgxbh,gpgxmc,gpgs,gpbz,gpbz1,gpbz2) values ( '" & codegpbh & "','" & rsTempB!gpcpbh & "','" _
& rsTempB!gpbjbh & "','" & rsTempB!gpljmc & "','" & rsTempB!gpljth & "'," & rsTempB!gpsl & ",'" & rsTempB!gpgxbh & "','" & rsTempB!gpgxmc & "'," & (-rsTempB!gpgs) & ",'" & rsTempB!gpbz & "','" & rsTempB!gpbz1 & "','" & rsTempB!gpbz2 & "'" & ")"
oDb.Execute szSql
rsTempB.MoveNext
Loop
End If
Next i
MsgBox "工票反冲已保存！", vbOKOnly, "数据保存"
End Sub
Private Sub optdn_Click()
dofillgrid
End Sub
Private Sub optzp_Click()
dofillgrid
End Sub
Private Sub optwx_Click()
dofillgrid
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -