±£¶¨¿Æ¼¼Ö°ÒµÑ§ÔºÂÛÎÄÉè¼Æ
Caption Lable1 Caption Lable2 Caption Lable3 Caption Ö÷Òª´úÂëÈçÏÂ:
Private Sub Command1_Click() Dim c_gl As String
If Trim(Text1) = \Text1.SetFocus End If
If t_ = \c_gl = Now()
c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \
Call ExcuteSql(rec_gh, \If rec_gh.State = adStateOpen Then rec_gh.AddNew
rec_gh.Fields(\ÀàÐÍ\rec_gh.Fields(\ҽʦID\rec_gh.Fields(\¹ÒºÅ·Ñ\rec_gh.Fields(\±àºÅ\rec_gh.Update
MsgBox (\ÄãµÄ¹ÒºÅºÅÂë:\Text1 = \Text2 = \Text3 = \End If
End If
If t_ = \
If rec_gh.State = adStateOpen Then
rec_gh.Fields(\ÀàÐÍ\rec_gh.Fields(\ҽʦID\rec_gh.Fields(\¹ÒºÅ·Ñ\rec_gh.Update rec_gh.Update End If End If
If ck.Value <> 1 Then Unload Me End If
Í˳ö ÀàÐÍ Ò½Ê¦ ¹ÒºÅ·Ñ µÚ29 Ò³
±£¶¨¿Æ¼¼Ö°ÒµÑ§ÔºÂÛÎÄÉè¼Æ
End Sub
»®¼Û½çÃæ
ËùνµÄ»®¼Û£¬¾ÍÊǽ«Ò½ÉúËù¸øµÄÒ©Æ·Çåµ¥£¬ÒÔϵͳÖÐÄⶨµÄ¼Û¸ñ¼ÆËãÓ¦ÊÕ¿îµÄ¹ý³Ì¡£
Ö÷Òª°üÀ¨Ò½È˵ĹҺÅÐÅÏ¢¡¢Ò©Æ·ÐÅÏ¢µÈ¡£ÔÚʵÏÖÉÏ£¬ÒªÇóÓû§Ê×ÏÈÑ¡ÔñÒ»¹ÒºÅÐÅÏ¢£¬È»ºó£¬´ò¿ª´Ë±àºÅ¶ÔÓ¦µÄ»®¼ÛµÄÐÅÏ¢£¬Óû§¿ÉÒÔÔö¼Ó£¬Ò²¿ÉÒÔÔÚÒÑÓеĻù´¡ÉϽøÐÐÐ޸ĺÍɾ³ý¡£
Ò©Æ·»®¼Û´°ÌåÈçÏÂͼËùʾ
¸Ã´°ÌåÓÉÒ»¸ö±í¸ñ¿Ø¼þ£¬Ê®¸öÎı¾¿ò¿Ø¼þ£¬Èý¸ö°´Å¥¿Ø¼þ£¬Ê®Ò»¸ö±êÇ©¿Ø¼þºÍÒ»¸ö×éºÏ¿Ø¼þ×é³É¡£¸÷¿Ø¼þµÄÊôÐÔÈçÏÂ±í¡£
Ò©Æ·»®¼Û´°Ìå¿Ø¼þÊôÐÔ±í ¿Ø¼þ ÊôÐÔ ÊôÐÔÈ¡Öµ Name Frm²¿ÃÅÐÅÏ¢ Form Caption ²¿ÃÅÐÅÏ¢ startUpPositon CenterScreen Name Datagrid ¹ö¶¯Ìõ( S ) 3-Both MSFlexgrid Ñ¡¶¨Ä£Ê½( M ) 1-By Row ÔÊÐíÓû§µ÷Õû´óС( U ) 3-Both
µÚ30 Ò³
±£¶¨¿Æ¼¼Ö°ÒµÑ§ÔºÂÛÎÄÉè¼Æ
CommandButton CommandButton CommandButton TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox Lable1 Lable2 Lable3 Lable4 Lable5 Lable6 Lable7 Lable8 Lable9 Lable10
Ö÷Òª´úÂëÈçÏÂ:
Caption Caption Caption Name Name Name Name Name Name Name Name Name Name Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Ôö¼Ó ɾ³ý ´ò¿ª TxtÀàÐÍ Txtҽʦ Txt±àºÅ TxtÒ©Æ·±àÂë TxtÒ©Æ·Ãû³Æ TxtÐͺŹæ¸ñ TxtÊýÁ¿ Txt×Ü¼Æ TxtÔ¤¸¶ TxtÕÒ²¹ ÀàÐÍ Ò½Ê¦ ±àºÅ Ò©Æ·±àÂë Ò©Æ·Ãû³Æ ÐͺŹæ¸ñ ÊýÁ¿ ×Ü¼Æ Ô¤¸¶ ÀàÐÍ Private Sub Command5_Click() //´ò¿ª°´Å¥¶ÔÓ¦´úÂë If Text10.Text <> \
Call ExcuteSql(rec_hj, \ÀàÐÍ='\¹ÒºÅID=\Text10)
If rec_hj.RecordCount = 0 Then rec_hj.AddNew
rec_hj.Fields(\ÀàÐÍ\rec_hj.Fields(\¹ÒºÅID\rec_hj.Fields(\Ó¦ÊÕ¿î\rec_hj.Update
End If
Call ExcuteSql(rec_comm2, \If rec_comm2.RecordCount > 0 Then Text14.Text = rec_comm2(\
Call ExcuteSql(rec_hjt, \¹ÒºÅID=\Call ShowInfo(rec_hjt, flexb) End If
Command2.Enabled = True Command4.Enabled = True
µÚ31 Ò³
±£¶¨¿Æ¼¼Ö°ÒµÑ§ÔºÂÛÎÄÉè¼Æ
Else
MsgBox \ÇëÑ¡Ôñ¹ÒºÅ±àºÅ\End If
End Sub
µÚ32 Ò³