我有一个程序不在的怎么搞得！出现问题！哪位哥哥给修改一下！

Question

我的email是[email protected]
由于是涉及商业软件，源代码不便公开，希望能够得到哥哥们的支持！偶先谢谢了！

Answer 1

就是打不开了啊！大哥哥！你真的想叫发出来啊？？？好的，你们下载！调试好了，告诉偶原因好吗？？？我的EMAIL：[email protected]
我事先声明：不可乱传撒！求大家了！这个程序是公司的！我不会小心把它给弄乱了，晕阿！
下载地址：http://www.cngzcc.com/mytemp/1.rar
切记进入此系统一定要把日期添成2003.10.5号，不然第二次就打不开了！解决办法，多打开几个窗口，前1、2个窗口日期添成2003.10.5，后面你在改！只要最后退出去的日期是正确的就不会有问题了！谢谢大家给与帮助！公司要开除偶!\大家看在都是IT人士的份上，就帮帮我吧！还有就是打印呀！备份呀!等等功能不能使用，唉！GOODLUCK TO ALL
修改好了！希望能够发一封邮件给我确认，我希望能够下载好的！谢谢大哥哥们！

Answer 2

frmme中你屏蔽掉
If SysDate > "2003-10-5" Then   Unload Me
   informat.Show
End If
就可以无时间限制了缺少控件呀

Answer 3

偶猜可能是判断了日期大于"2003-10-5"就不允许使用了。
在退出FORM的UNLOAD事件里用程序把最后使用的日期保存到了机器的某个地方，估计可能是注册表。然后当程序再次使用的时候的去注册表里把上次保存的日期读出来校验。如果超过了某个限定日期就不允许程序使用了！把UNLOAD和LOAD里的写注册表和校验的程序注释掉。
就可以无限使用了！
上面全是我的猜测没看过你的程序！

Answer 4

你按zw_yu(鱼猫)朋友说的去做，应该没问题了吧。

Answer 5

frmme改为这个你自己看看（也只能看看）
其它的我没看
感觉让我们改不太合适，你也不该公开代码
－－－－－－－－－－－－－－－－－－
谢谢大家给与帮助！公司要开除偶!\
－－－－－－－－－－－－－－－－－－－－
建议你想想其它办法吧，祝你好运了Dim MTdate As Date
Private Sub Form_Load()
On Error GoTo MetoSU
'Dim ISthefirst As Integer
Dim YdWhat As String
'TxtYear = Year(Now)
'TxtMonth = Month(Now)
'TxtDay = Day(Now)
 YdWhat = GetSetting("Materc", "MDIform", "Sysdate")
 'ISthefirst = GetSetting("Materc", "Mdiform", "HowFirst")
 'If isthefirs = 0 Then
 'SysDate = Now
 'Else
 SysDate = CDate(YdWhat)
 'End If
 MTdate = SysDate
 TXTyear = Year(SysDate)
 TxtMonth = Month(SysDate)
 TxtDay = Day(SysDate)
'If SysDate > "2003-10-5" Then  '如果因为这个直接删掉，不过不科学
'   
'   Unload Me
'   informat.Show
'End IfMetoSU:
   If Err = 13 Then SysDate = Now
    
End Sub
Private Sub Form_Unload(Cancel As Integer)
If SysDate < MTdate Then
SysDate = CDate(TXTyear.Text & "-" & TxtMonth.Text & "-" & TxtDay.Text)
   MsgBox "你上一次的作帐时间是:" & MTdate & "  现在时间比上次更小，系统不允许！", vbCritical, "错误"
   SysDate = MTdate
   Unload MDIcenter
   
End IfEnd SubPrivate Sub Label2_Click()
MDIcenter.Show
Unload Me
End SubPrivate Sub Label3_Click()
Unload Me
End SubPrivate Sub PIC_Click()
Screen.MousePointer = 11
MDIcenter.Show
Unload Me
Screen.MousePointer = 0
End SubPrivate Sub Picture1_Click()
Unload Me
End Sub