form1.frm

小型企业进销存源代码 一款小型企业进销存源代码

Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/02
'描    述：小型企业进销存源代码
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Command1_Click(Index As Integer)
Form2.Show
End Sub

Private Sub Command10_Click(Index As Integer)
Form9.Show
End Sub
Private Sub Command11_Click(Index As Integer)
Form10.Show
End Sub



Private Sub Command13_Click()
Data1.Recordset.AddNew
Data1.UpdateRecord
Data1.Recordset.MoveLast
DBGrid1.AllowUpdate = True
     Frame7.Enabled = True
     Frame9.Enabled = True
     Text3.SetFocus
End Sub

Private Sub Command14_Click()
 If Me.Data1.Recordset.RecordCount > 0 And Not Me.Data1.Recordset.EOF And Not Me.Data1.Recordset.BOF Then
       HXFYN = MsgBox("是否删除?", 36, "信息提示")
         If HXFYN = vbYes Then
            Me.Data1.Recordset.Delete
            Me.Data1.Recordset.MoveNext
            If Me.Data1.Recordset.EOF And Me.Data1.Recordset.RecordCount > 0 Then
               Me.Data1.Recordset.MovePrevious
            End If
          End If
    End If
End Sub

Private Sub Command15_Click()

'Frame3.Visible = False
'Frame4.Visible = False
'Frame5.Visible = False
'Frame6.Visible = False
Frame7.Visible = False
Frame9.Visible = True
End Sub

Private Sub Command16_Click()

Frame9.Visible = False
Frame7.Visible = True
End Sub

Private Sub Command17_Click()
    Set gobjFormToPrint = Me
     frmPrintPreview.Show vbModal
End Sub

Private Sub Command18_Click()
Form11.Show
End Sub

Private Sub Command5_Click()
CommonDialog1.DialogTitle = "选择图片(图片大小为132*159)"
CommonDialog1.InitDir = App.Path + "\PIC"
CommonDialog1.Filter = "JPG文件(*.JPG)|*.JPG|图像文件(*.BMP)|*.BMP|所有文件(*.*)|*.*|"
CommonDialog1.Action = 1
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Command6_Click()    '清除图片
hxfynl = MsgBox("要清除图片吗?", 36, "信息提示")
If hxfynl = vbYes Then
Picture1.Picture = LoadPicture
Else
End If
End Sub



Private Sub DTPicker1_LostFocus()
 ExactAge (DTPicker1.Value)
 Text5.Text = Old
End Sub

Private Sub DTPicker1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
' DTPicker1.Visible = True
'Combo2.Visible = True
End Sub

Private Sub DTPicker2_LostFocus()
 ExactAge (DTPicker2.Value)
 Text8.Text = Old
'DTPicker2.Visible = False
End Sub
Private Sub DTPicker3_LostFocus()
 ExactAge (DTPicker3.Value)
 Text9.Text = Old
'DTPicker3.Visible = False
End Sub

Private Sub DTPicker4_LostFocus()
'DTPicker4.Visible = False
End Sub

Private Sub Find_Click(Index As Integer)
Command23_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
主窗体.Picture2.Visible = True
End Sub
Private Sub Command19_Click()
Unload Me
End Sub

Private Sub Command2_Click(Index As Integer)
Form3.Show
End Sub
Private Sub Command20_Click()
   Me.Data1.Recordset.AddNew
   Me.Data1.Recordset.Update
     Data1.Recordset.MoveLast
     DBGrid1.AllowUpdate = True
     Frame7.Enabled = True
     Frame9.Enabled = True
     Command16_Click
      Text3.SetFocus
        Combo2.Visible = False
    Combo14.Visible = False
     Combo15.Visible = False
     Combo16.Visible = False
     DTPicker1.Visible = True
     DTPicker2.Visible = True
     DTPicker3.Visible = True
      DTPicker4.Visible = True
    
End Sub
Private Sub Command21_Click()
    If Me.Data1.Recordset.RecordCount > 0 And Not Me.Data1.Recordset.EOF And Not Me.Data1.Recordset.BOF Then
       HXFYN = MsgBox("是否删除?", 36, "信息提示")
         If HXFYN = vbYes Then
            Me.Data1.Recordset.Delete
            Me.Data1.Recordset.MoveNext
            If Me.Data1.Recordset.EOF And Me.Data1.Recordset.RecordCount > 0 Then
               Me.Data1.Recordset.MovePrevious
            End If
          End If
    End If
End Sub


Private Sub Command22_Click()
Combo2.Text = DTPicker1.Value
Combo14.Text = DTPicker2.Value
Combo15.Text = DTPicker3.Value
Combo16.Text = DTPicker4.Value
Combo14.Visible = True
Combo15.Visible = True
Combo2.Visible = True
Combo16.Visible = True
DTPicker1.Visible = False
DTPicker2.Visible = False
DTPicker3.Visible = False
DTPicker4.Visible = False
Dim Text As String
Text = Mid(Text3.Text, 1, 4)
If Text <> "NJZG" And Text <> "njzg" Then
Text3.Text = "NJZG-" & Text3.Text
Else
End If
 DBGrid1.AllowUpdate = False
     Frame7.Enabled = False
     Frame9.Enabled = False
    DTPicker1_LostFocus
    DTPicker2_LostFocus
    DTPicker3_LostFocus
    Data1.UpdateRecord
End Sub

Private Sub Command23_Click()
If Text15.Text = "" Then
MsgBox "请输入查询！", 48, "提示"
Exit Sub
End If
If Combo1.Text = "姓名" Then
Data1.Recordset.FindFirst "姓名=" & "'" & Text15.Text & "'"
ElseIf Combo1.Text = "工号" Then
Data1.Recordset.FindFirst "职工编号=" & "'" & Text15.Text & "'"
End If
If Data1.Recordset.NoMatch Then
MsgBox "记录不存在！", 64, "提示"
End If
End Sub

Private Sub Command25_Click()
Data1.UpdateRecord
Combo2.Text = DTPicker1.Value
Combo14.Text = DTPicker2.Value
Combo15.Text = DTPicker3.Value
Combo14.Visible = True
Combo15.Visible = True
Combo2.Visible = True
DTPicker1.Visible = False
DTPicker2.Visible = False
DTPicker3.Visible = False
DBGrid1.AllowUpdate = False
     Frame7.Enabled = False
     Frame9.Enabled = False
End Sub

Private Sub Command3_Click(Index As Integer)
Form4.Show
End Sub

Private Sub Command30_Click()
 DBGrid1.AllowUpdate = True
     Frame7.Enabled = True
     Frame9.Enabled = True
     Combo2.Visible = False
   Combo14.Visible = False
    Combo15.Visible = False
     Combo16.Visible = False
     DTPicker1.Visible = True
     DTPicker2.Visible = True
     DTPicker3.Visible = True
     DTPicker4.Visible = True
     DTPicker1.Value = Combo2.Text
     DTPicker2.Value = Combo14.Text
     DTPicker3.Value = Combo15.Text
     DTPicker4.Value = Combo16.Text
End Sub

Private Sub Command4_Click(Index As Integer)
Form5.Show
End Sub

Private Sub Command7_Click(Index As Integer)
Form6.Show
End Sub

Private Sub Command8_Click(Index As Integer)
Form7.Show
End Sub

Private Sub Command9_Click(Index As Integer)
Form8.Show
End Sub
Private Sub Form_Load()
On Error GoTo Err2
Form1.Data1.DatabaseName = "\\" & Frm_服务器设置.Text2.Text & "\data$\db1.mdb"
Form1.Data1.RecordSource = "select * from 基本档案1"
Form1.Data1.Refresh
Combo1.AddItem "姓名"
Combo1.AddItem "工号"
Combo1.Text = "姓名"
Combo4.AddItem "未婚"
Combo4.AddItem "已婚"
Combo4.AddItem "再婚"
Combo4.AddItem "离异"
Combo5.AddItem "男"
Combo5.AddItem "女"
'DTPicker1.Value = Text18.Text
'DTPicker2.Value = Text19.Text
'DTPicker3.Value = Text20.Text
'加入基本档案
Dim count As Integer
Dim Name As Long
Dim i As Integer, n As Integer
count = GetPrivateProfileInt("民族", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo3.AddItem GetPrivateStringValue("民族", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo3.Text = GetPrivateStringValue("民族", "b1", App.Path + "\数据\部门.ini")
'加入民族选框
count = GetPrivateProfileInt("部门", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo10.AddItem GetPrivateStringValue("部门", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo10.Text = GetPrivateStringValue("部门", "b1", App.Path + "\数据\部门.ini")
'加入部门选框
count = GetPrivateProfileInt("文化程度", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo7.AddItem GetPrivateStringValue("文化程度", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo7.Text = GetPrivateStringValue("文化程度", "b1", App.Path + "\数据\部门.ini")
'加入文化程度选框
count = GetPrivateProfileInt("政治面貌", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo8.AddItem GetPrivateStringValue("政治面貌", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo8.Text = GetPrivateStringValue("政治面貌", "b1", App.Path + "\数据\部门.ini")
'加入政治面貌选框
count = GetPrivateProfileInt("职工类型", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo9.AddItem GetPrivateStringValue("职工类型", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo9.Text = GetPrivateStringValue("职工类型", "b1", App.Path + "\数据\部门.ini")
'加入职工类型选框
count = GetPrivateProfileInt("工资类别", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo6.AddItem GetPrivateStringValue("工资类别", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo6.Text = GetPrivateStringValue("工资类别", "b1", App.Path + "\数据\部门.ini")
'加入工资类别选框
count = GetPrivateProfileInt("隶属二级部门", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo11.AddItem GetPrivateStringValue("隶属二级部门", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo11.Text = GetPrivateStringValue("隶属二级部门", "b1", App.Path + "\数据\部门.ini")
'加入隶属二级部门选框
count = GetPrivateProfileInt("职务", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo13.AddItem GetPrivateStringValue("职务", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo13.Text = GetPrivateStringValue("职务", "b1", App.Path + "\数据\部门.ini")
'加入职务选框
count = GetPrivateProfileInt("职称", "类型数", 0, App.Path + "\数据\部门.ini")
For i = 1 To count
Combo12.AddItem GetPrivateStringValue("职称", "b" & i, App.Path + "\数据\部门.ini")
Next i
Combo12.Text = GetPrivateStringValue("职称", "b1", App.Path + "\数据\部门.ini")
'加入职称选框

 glngTopMargin = 567  ' 567twips = 1cm
     glngBottomMargin = 567
     glngRightMargin = 567
     glngLeftMargin = 567
     
     
Frame1.Visible = True
Frame2.Visible = True
Frame3.Visible = True
Frame4.Visible = True
Frame5.Visible = True
Frame6.Visible = True
Frame7.Visible = True
Frame8.Visible = True
Frame9.Visible = False