- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
- Begin VB.Form main_gzgl_xyfgz
- BorderStyle = 1 'Fixed Single
- Caption = "Form1"
- ClientHeight = 2760
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 4080
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 2760
- ScaleWidth = 4080
- StartUpPosition = 2 '屏幕中心
- Begin MSComctlLib.ProgressBar ProgressBar1
- Height = 240
- Left = 90
- TabIndex = 9
- Top = 1800
- Visible = 0 'False
- Width = 3915
- _ExtentX = 6906
- _ExtentY = 423
- _Version = 393216
- Appearance = 1
- End
- Begin VB.CommandButton Command2
- Caption = "取消"
- Height = 390
- Left = 2070
- TabIndex = 8
- Top = 2235
- Width = 1335
- End
- Begin VB.Frame Frame1
- Height = 1740
- Left = 30
- TabIndex = 1
- Top = -30
- Width = 4020
- Begin VB.TextBox Text2
- Appearance = 0 'Flat
- Height = 330
- Left = 1605
- TabIndex = 6
- Text = "Text1"
- Top = 690
- Width = 2070
- End
- Begin VB.TextBox Text1
- Appearance = 0 'Flat
- Height = 330
- Left = 1605
- TabIndex = 5
- Text = "Text1"
- Top = 285
- Width = 2070
- End
- Begin MSMask.MaskEdBox newmonth
- Height = 315
- Left = 1605
- TabIndex = 7
- Top = 1200
- Width = 2070
- _ExtentX = 3651
- _ExtentY = 556
- _Version = 393216
- MaxLength = 7
- Mask = "####-##"
- PromptChar = "_"
- End
- Begin VB.Label Label3
- Caption = "新工资月份:"
- ForeColor = &H000000FF&
- Height = 195
- Left = 405
- TabIndex = 4
- Top = 1275
- Width = 1095
- End
- Begin VB.Label Label2
- Caption = "结束工资月份:"
- Height = 195
- Left = 240
- TabIndex = 3
- Top = 750
- Width = 1275
- End
- Begin VB.Label Label1
- Caption = "开始工资月份:"
- Height = 195
- Left = 240
- TabIndex = 2
- Top = 360
- Width = 1275
- End
- End
- Begin VB.CommandButton Command1
- Caption = "确定"
- Height = 390
- Left = 660
- TabIndex = 0
- Top = 2235
- Width = 1335
- End
- End
- Attribute VB_Name = "main_gzgl_xyfgz"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Dim rs1 As New ADODB.Recordset
- Private Sub Command1_Click()
- Cnn.Execute ("update 月份表 set 月份='" + newmonth.text + "'")
- Unload Me
- End Sub
- Private Sub Command2_Click()
- Unload Me
- End Sub
- Private Sub Form_Load()
- Me.Caption = text
- Dim mydate As String
- rs1.Open "工资表 order by 所属工资月份", Cnn, adOpenKeyset, adLockOptimistic
- If rs1.RecordCount > 0 Then
- rs1.MoveFirst
- Text1 = rs1.Fields("所属工资月份")
- rs1.MoveLast
- Text2 = rs1.Fields("所属工资月份")
- Else
- mydate = Year(Date) & "-" & Month(Date)
- Text1 = mydate
- Text2 = mydate
- newmonth = mydate
- End If
- rs1.Close
- End Sub