📄 frmchlist.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmChList
Caption = "Challan List"
ClientHeight = 6240
ClientLeft = 60
ClientTop = 450
ClientWidth = 9030
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 8490
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.ComboBox cmbRptFrmt
Height = 315
Left = 6120
TabIndex = 8
Top = 840
Width = 3495
End
Begin VB.CommandButton cmdPrint
Caption = "Print"
Height = 375
Left = 10080
TabIndex = 6
Top = 840
Width = 855
End
Begin VB.CommandButton cmdDisplay
Caption = "Display"
Height = 375
Left = 4320
TabIndex = 5
Top = 840
Width = 855
End
Begin VB.TextBox txtJpNo2
Height = 375
Left = 2760
TabIndex = 2
Top = 840
Width = 1335
End
Begin VB.TextBox txtJpNo1
Height = 375
Left = 960
TabIndex = 1
Top = 840
Width = 1335
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 240
Top = 6360
Visible = 0 'False
Width = 2775
_ExtentX = 4895
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 4695
Left = 120
TabIndex = 0
Top = 1440
Width = 11535
_ExtentX = 20346
_ExtentY = 8281
_Version = 393216
AllowUpdate = 0 'False
ForeColor = 128
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00000000&
Caption = "Challan List"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 120
TabIndex = 7
Top = 120
Width = 11535
End
Begin VB.Label Label2
Caption = "-----"
Height = 255
Left = 2400
TabIndex = 4
Top = 960
Width = 255
End
Begin VB.Label Label1
Caption = "JP Np. :"
Height = 255
Left = 240
TabIndex = 3
Top = 960
Width = 615
End
End
Attribute VB_Name = "frmChList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Private Sub cmdDisplay_Click()
Adodc1.RecordSource = "select * from tchallan where jpno between '" & txtJpNo1.Text & "' and '" & txtJpNo2.Text & "'"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
Private Sub cmdPrint_Click()
'On Error GoTo errh
OpenDb
env.con2.Execute ("drop table temp")
env.con2.Execute ("CREATE TABLE temp(jpno varchar (10),jdate datetime," & _
"chno varchar (15),chdate datetime,lorryno varchar (15),rukano varchar (10),seller varchar (35),seller2 varchar (35)," & _
"broker varchar (40),station varchar (20),mark varchar (25),qlty1 varchar (20),qnty1 numeric,unit1 varchar (10)," & _
"qlty2 varchar (20),qnty2 numeric,unit2 varchar (10),qlty3 varchar (20),qnty3 numeric,unit3 varchar (10)," & _
"qlty4 varchar (20),qnty4 numeric,unit4 varchar (10),qlty5 varchar (20),qnty5 numeric,unit5 varchar (10)," & _
"qlty6 varchar (20),qnty6 numeric,unit6 varchar (10),cropyear varchar (10),weight numeric,contractno varchar (20)," & _
"contractdate datetime,lot varchar (5),entrydate datetime,reason varchar(70))")
env.con2.Execute ("drop table prmf")
env.con2.Execute ("create table prmf(rptname varchar(10),rpthead varchar(50))")
env.con2.Execute ("insert into prmf values('CHALLAN','" & cmbRptFrmt.Text & "')")
Set rs = env.con.Execute(Adodc1.RecordSource)
If rs.EOF = True Then
MsgBox "No Records Found", vbCritical
Exit Sub
End If
Do Until rs.EOF
env.con2.Execute ("insert into temp values('" & rs!jpno & "','" & rs!jdate & "','" & rs!chno & "','" & CDate(rs!chdate) & "','" & rs!lorryno & "','" & rs!rukano & "','" & rs!seller & "','" & rs!SELLER2 & "','" & rs!broker & "','" & rs!station & "','" & rs!mark & "'," & _
"'" & rs!qlty1 & "'," & rs!qnty1 & ",'" & rs!unit1 & "','" & rs!qlty2 & "'," & rs!qnty2 & ",'" & rs!unit2 & "','" & rs!Qlty3 & "'," & rs!Qnty3 & ",'" & rs!unit3 & "','" & rs!qlty4 & "'," & rs!qnty4 & ",'" & rs!unit4 & "'," & _
"'" & rs!qlty5 & "'," & rs!qnty5 & ",'" & rs!unit5 & "','" & rs!qlty6 & "'," & rs!qnty6 & ",'" & rs!unit6 & "','" & rs!cropyear & "'," & rs!Weight & ",'" & rs!contractno & "','" & CDate(rs!contractdate) & "','" & rs!lot & "','" & rs!EntryDate & "','" & rs!Reason & "')")
rs.MoveNext
Loop
Set rs = Nothing
Exit Sub
errh:
If MsgBox(Err.Description & Chr(13) & "Continue ?", vbCritical + vbYesNo) = vbYes Then Resume Next
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
Unload Me
End If
If KeyAscii = 13 Then
SendKeys "{tab}"
SendKeys "{home}+{end}"
End If
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = env.con.ConnectionString
cmbRptFrmt.AddItem "Lorry Arrival Sheet"
cmbRptFrmt.AddItem "Inspection Sheet"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -