Frmyuyue.Show End Sub

Private Sub Command6_Click()

Text5.Text = \End Sub

Private Sub Form_Load()

Call Up(\ÏîÄ¿Ãû³Æ\Label13.Caption = \²Ù×÷Ô±£º\Label6.Caption = \ÈÕÆÚ\End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub

Private Sub Label5_Click(Index As Integer) If Val(Text7) < Val(Text9) Then MsgBox \ËùÊÕ·ÑÓò»×㣡\Ìáʾ\ Exit Sub End If

If Text7 = \

MsgBox \ÊäÈëʵ¼ÊÊÕÈ¡½ð¶î£¡\Ìáʾ\ Text7.SetFocus Exit Sub End If

Text8 = Val(Text7) - Val(Text9) End Sub

6.4»áÔ±¹ÜÀíÄ£¿é

»áÔ±¹ÜÀíÊÇʵÏÖ¶ÔÃÀÈÝÔº»áÔ±¹ÜÀíµÄ¹ÜÀíµÄÄ£¿é£¬¿ÉÒÔʵÏÖ¶Ô¿Í»§ÐÅÏ¢µÄÐÂÔöÐÞ¸Äɾ³ýˢеȲÙ×÷£¬ÆäʵÏÖ½çÃæ¼°´úÂëÈçÏ£º 1.ʵÏÖ½çÃæ

ͼ6-4 ¿Í»§¹ÜÀí½çÃæ

2.ʵÏÖ´úÂë Dim yf%

Private Sub Command3_Click() On Error Resume Next If yf <> 0 Then

MsgBox \ÏÖÔÚÕýÔÚÖ´ÐÐÆäËû²Ù×÷£¬²»ÄܽøÐвéѯ£¡\Ìáʾ\Exit Sub End If

If Combo1.Text = \

MsgBox \ÇëÑ¡ÔñÒª²éѯµÄ×ֶΣ¡\Ìáʾ\ Combo1.SetFocus Exit Sub End If

If Text2.Text = \

MsgBox \ÇëÊäÈëÒª²éѯµÄÌõ¼þ£¡\Ìáʾ\ Text2.SetFocus Exit Sub End If

If Combo1.Text = \»áÔ±±àºÅ\

rst.Open \* From huiyuan where »áÔ±±àºÅ='\+ Trim(Text2.Text) + \

If rst.RecordCount = 0 Then

MsgBox \ûÓÐÒª²éѯµÄ¼Ç¼£¡\Ìáʾ\ End If

rst.Close

Adodc1.RecordSource = \»áÔ±±àºÅ='\Trim(Text2.Text) + \ Adodc1.Refresh

ElseIf Combo1.Text = \»áÔ±Ãû³Æ\

rst.Open \* From huiyuan where »áÔ±Ãû³Æ='\+ Trim(Text2.Text) + \

If rst.RecordCount = 0 Then

MsgBox \ûÓÐÒª²éѯµÄ¼Ç¼£¡\Ìáʾ\ End If rst.Close

Adodc1.RecordSource = \»áÔ±Ãû³Æ='\Trim(Text2.Text) + \ Adodc1.Refresh Else

MsgBox \ÇëÑ¡ÔñÒª²éѯµÄÕýÈ·×ֶΣ¡\Ìáʾ\End If End Sub

Private Sub Form_Load() Adodc1.ConnectionString = \Server};server=(local);database=mry\

Adodc1.RecordSource = \ Adodc1.Refresh End Sub

Private Sub Command1_Click() On Error Resume Next If yf = 1 Then 'ÐÂÔö

rst.Open \ Call Check(\»áÔ±±àºÅ\ If Fh = 1 Then rst.Close Fh = 0 Exit Sub End If

'----------------------------------------- rst.AddNew

For i = 0 To 4

rst.Fields(i) = Text1(i) Next i

rst.Fields(\ÐÔ±ð\ rst.Update

For i = 0 To 4 Text1(i) = \

Next i yf = 0 rst.Close Adodc1.Refresh

ElseIf yf = 2 Then 'ÐÞ¸Ä

rst.Open \* From huiyuan where »áÔ±±àºÅ='\+ Trim(DataGrid1.Columns(0)) + \ For i = 0 To 4

rst.Fields(i) = Text1(i) Next i

rst.Fields(\ÐÔ±ð\ rst.Update yf = 0 rst.Close

Adodc1.Refresh End If

Command1.Enabled = False Command2.Enabled = False End Sub

Private Sub Command2_Click() For i = 0 To 4 Text1(i) = \ Next i yf = 0

Command1.Enabled = False Command2.Enabled = False End Sub

Private Sub DataGrid1_Click()

If yf = 1 Or yf = 2 Then Exit Sub For i = 0 To 4

Text1(i) = DataGrid1.Columns(i) Next i

Combo3.Text = DataGrid1.Columns(6) Text4.Text = DataGrid1.Columns(5)

'------------------------------------»áÔ±µÈ¼¶¹ÜÀí If Val(DataGrid1.Columns(5)) <= 100 Then Text3.Text = \³õ¼¶»áÔ±\

ElseIf Val(DataGrid1.Columns(5)) <= 1000 And Val(DataGrid1.Columns(5)) > 100 Then

Text3.Text = \ÆÕͨ»áÔ±\

ElseIf Val(DataGrid1.Columns(5)) <= 10000 And Val(DataGrid1.Columns(5)) > 1000 Then

Text3.Text = \¸ß¼¶»áÔ±\

ElseIf Val(DataGrid1.Columns(5)) > 10000 Then