?? frmstoreinman.frm
字號(hào):
DataField = "Location"
Caption = "位號(hào)"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column15
DataField = "FillinPerson"
Caption = "經(jīng)辦人"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column16
DataField = "FillinTime"
Caption = "入庫(kù)日期"
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
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
BeginProperty Column08
EndProperty
BeginProperty Column09
EndProperty
BeginProperty Column10
EndProperty
BeginProperty Column11
EndProperty
BeginProperty Column12
EndProperty
BeginProperty Column13
EndProperty
BeginProperty Column14
EndProperty
BeginProperty Column15
EndProperty
BeginProperty Column16
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 2400
Top = 8040
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 2
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
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 = "宋體"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Image Image4
Height = 300
Left = 8640
Picture = "FrmStoreinMan.frx":0D1B
Top = 8160
Width = 300
End
Begin VB.Label LblCancel
BackStyle = 0 'Transparent
Caption = "取 消"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 9240
MouseIcon = "FrmStoreinMan.frx":1137
MousePointer = 99 'Custom
TabIndex = 6
Top = 8160
Width = 855
End
Begin VB.Image Image3
Height = 300
Left = 6240
Picture = "FrmStoreinMan.frx":1441
Top = 8160
Width = 300
End
Begin VB.Label LblOK
BackStyle = 0 'Transparent
Caption = "填寫(xiě)入庫(kù)單"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6840
MouseIcon = "FrmStoreinMan.frx":185D
MousePointer = 99 'Custom
TabIndex = 5
Top = 8160
Width = 1455
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "選擇入庫(kù)類(lèi)型"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 8280
TabIndex = 3
Top = 660
Width = 1530
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "選擇日期"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 2160
TabIndex = 2
Top = 660
Width = 1020
End
End
Attribute VB_Name = "FrmStoreinMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Refresh_Storein()
Adodc1.ConnectionString = "driver={SQL Server};server=" + Trim(Server) + ";uid=" + Trim(User) + ";pwd=" + Trim(Password) + ";database=ERP"
Adodc1.RecordSource = "select * from StoreIn,Item where Item.Item=StoreIn.Item and StoreIn.FillinTime='" + Trim(DTDate.Value) + "' and StoreIn.StoreInType='" + Trim(ComboType.Text) + "' "
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
Private Sub ComboType_Click()
Refresh_Storein
End Sub
Private Sub DTDate_Change()
Refresh_Storein
End Sub
Private Sub Form_Load()
DTDate.Value = Format(Now, "yyyy-mm-dd")
ComboType.ListIndex = 0
Refresh_Storein
End Sub
Private Sub LblCancel_Click()
Unload Me
End Sub
Private Sub LblOK_Click()
FrmStoreinEdit.OriStoreInType = ComboType.Text
FrmStoreinEdit.LblStoreInType.Caption = ComboType.Text
FrmStoreinEdit.LblFillinTime.Caption = DTDate.Value
FrmStoreinEdit.Frame1.Caption = ComboType.Text + "產(chǎn)品選擇———從下表中選出入庫(kù)產(chǎn)品"
FrmStoreinEdit.Show 1
Refresh_Storein
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -