frmioorder.frm
来自「这个是VB环境开发的,我也是转载的把原来的Access数据库改成了SQl Ser」· FRM 代码 · 共 1,837 行 · 第 1/5 页
FRM
1,837 行
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
ColumnWidth = 2294.929
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
ColumnWidth = 929.764
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3015
Left = 0
TabIndex = 30
Top = 0
Width = 8775
_ExtentX = 15478
_ExtentY = 5318
_Version = 393216
AllowUpdate = 0 'False
Appearance = 0
ForeColor = 0
HeadLines = 1
RowHeight = 14
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 7
BeginProperty Column00
DataField = "id"
Caption = "入库编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "compname"
Caption = "公司名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "ename"
Caption = "产品名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "price"
Caption = "价格"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "amount"
Caption = "数量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "flg"
Caption = "产品类型"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "ioid"
Caption = "编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 1289.764
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 1890.142
EndProperty
BeginProperty Column03
ColumnWidth = 1140.095
EndProperty
BeginProperty Column04
ColumnWidth = 1230.236
EndProperty
BeginProperty Column05
ColumnWidth = 959.811
EndProperty
BeginProperty Column06
ColumnWidth = 1049.953
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid dtgrd1
Height = 3015
Left = 0
TabIndex = 31
Top = 3120
Width = 8775
_ExtentX = 15478
_ExtentY = 5318
_Version = 393216
AllowUpdate = 0 'False
Appearance = 0
ForeColor = 0
HeadLines = 1
RowHeight = 14
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 8
BeginProperty Column00
DataField = "id"
Caption = "入库编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
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 = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "pname"
Caption = "产品名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "ptype"
Caption = "型号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "amount"
Caption = "数量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "price"
Caption = "单价"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "ioid"
Caption = "编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "flg"
Caption = "产品类型"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 1289.764
EndProperty
BeginProperty Column01
ColumnAllowSizing= 0 'False
Locked = -1 'True
Object.Visible = 0 'False
ColumnWidth = 1709.858
EndProperty
BeginProperty Column02
ColumnWidth = 1739.906
EndProperty
BeginProperty Column03
ColumnWidth = 1890.142
EndProperty
BeginProperty Column04
ColumnWidth = 1230.236
EndProperty
BeginProperty Column05
ColumnWidth = 959.811
EndProperty
BeginProperty Column06
ColumnWidth = 1049.953
EndProperty
BeginProperty Column07
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmioorder"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RsIO As New Recordset
Dim RSman As New Recordset
Dim FIO As New Recordset
Dim RsE As New Recordset
Dim IoDtl As New Recordset
Dim IoPrnt As New Recordset
Dim IoPrnt1 As New Recordset
'Dim Company As New Recordset
Dim FioP As New Recordset
Dim RsP As New Recordset
Dim i As Integer
Dim strcol(8) As String
Private Sub ccmdinput_Click()
On Error GoTo l
Dim txtfilename As String
Dim OldCaption As String
Dim IAdd As Integer
dlg.InitDir = App.Path & "\data"
dlg.ShowOpen
txtfilename = dlg.Filename
OldCaption = frmioorder.Caption
Toolbar1.Enabled = False
frmioorder.Caption = "正在导入数据，请稍后...."
Screen.MousePointer = vbHourglass
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?