form_djgl.frm

计件工资统计系统 我的毕业设计 包含论文

      Bindings        =   "Form_djgl.frx":00A8
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7815
      _ExtentX        =   13785
      _ExtentY        =   8070
      _Version        =   393216
      AllowUpdate     =   0   'False
      HeadLines       =   1
      RowHeight       =   15
      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     =   4
      BeginProperty Column00 
         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 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       =   "合格品单价"
         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       =   "扣款单价"
         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 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   2085.166
         EndProperty
      EndProperty
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   375
      Left            =   6600
      Top             =   4920
      Visible         =   0   'False
      Width           =   1200
      _ExtentX        =   2117
      _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         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
      OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\database.mdb;Persist Security Info=False"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select * from 单价表"
      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
End
Attribute VB_Name = "Form_djgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim gx() As String
Dim gxh As String
Private Function notnull() As Boolean
   Dim flag As Boolean
   flag = True
   If Combo_ggxh.text = "" Then
     flag = False
     MsgBox "请选择规格型号", vbOKOnly + vbInformation, "提示"
   End If
   If Combo_gxm.text = "" And flag = True Then
     flag = False
     MsgBox "请选择工序名", vbOKOnly + vbInformation, "提示"
   End If
   If Text_hgpdj.text = "" And flag = True Then
     flag = False
     MsgBox "请输入合格品单价", vbOKOnly + vbInformation, "提示"
   End If
   If Text_bhgpdj.text = "" And flag = True Then
     flag = False
     MsgBox "请输入不合格品单价", vbOKOnly + vbInformation, "提示"
   End If
   notnull = flag
End Function


Private Sub Combo_gxm_click()
gxh = gx(1, Combo_gxm.ListIndex + 1)
End Sub

Private Sub Command1_Click()
  If notnull() = True Then
  Dim strfind As String
  strfind = "select count(*) as num from 单价表 where 规格型号='" & Combo_ggxh.text & "' and 工序号=" & gxh
  Num = execsql(strfind)
  If Num = 0 Then
    Adodc1.Refresh
     Adodc1.Recordset.AddNew
     Adodc1.Recordset.Fields("规格型号") = Combo_ggxh.text
     Adodc1.Recordset.Fields("工序号") = gxh
     Adodc1.Recordset.Fields("合格品单价") = Text_hgpdj.text
     Adodc1.Recordset.Fields("扣款单价") = Text_bhgpdj.text
     Adodc1.Recordset.Update
    Adodc4.Refresh
    Else
    MsgBox "该条目已存在", vbInformation + vbOKOnly, "提示"
    
  End If
  End If
  
End Sub

Private Sub Command2_Click()
If Adodc4.Recordset.EOF = False And Adodc4.Recordset.BOF = False Then
sql = "delete  from 单价表 where idkey=" & Adodc4.Recordset.Fields("idkey")
delsql (sql)
Adodc4.Refresh
End If
End Sub

Private Sub Form_Load()
Adodc2.Refresh
While Not Adodc2.Recordset.EOF
   Combo_ggxh.AddItem (Adodc2.Recordset.Fields("规格型号"))
   Adodc2.Recordset.MoveNext
Wend
Adodc3.Refresh

Dim cnt As Integer
cnt = Adodc3.Recordset.RecordCount
ReDim gx(2, cnt) As String
For I = 1 To cnt
  gx(1, I) = Adodc3.Recordset.Fields("工序号")
  gx(2, I) = Adodc3.Recordset.Fields("工序名")
  Combo_gxm.AddItem (gx(2, I))
  Adodc3.Recordset.MoveNext
Next

End Sub

Private Sub Tex_bhgpdj_KeyPress(KeyAscii As Integer)
KeyAscii = DanJiaKey(KeyAscii, Tex_bhgpdj.text)
End Sub

Private Sub Text_hgpdj_KeyPress(KeyAscii As Integer)
KeyAscii = DanJiaKey(KeyAscii, Text_hgpdj.text)
End Sub