chengjiguanlisystem.asm

设计成绩管理数据库系统的一些必要的程序代码,是对一些参考书上代码的整理和修改!

Command1

Sele 1
Append Blank
ThisForm.Refresh
This.Enabled=.F.
ThisForm.Command2.Enabled=.T.
ThisForm.Command3.Enabled=.T.

Command2

IF Len(Alltrim(ThisForm.学号.Value))=0 or len(Alltrim(ThisForm.姓名.Value))=0;
  or len(Alltrim(ThisForm.班号.Value))=0 Then
     =Messagebox("学号、姓名和班号不能为空！")
Else
    sele 2
    Loca All For 学号=Alltrim(ThisForm.学号.Value)    
    If Not Eof()
          =Messagebox("学号不能为重复！")
          Sele 1
    Else
          Sele 1
          Use
          Sele 2
          Appe From xsxinxi
          Sele 1
          Use xsxinxi
          Set Safe Off
          Zap
          This.Enabled=.F.
          ThisForm.Command1.Enabled=.T.    
          ThisForm.Command2.Enabled=.F.   
          ThisForm.Refresh
    Endif
 Endif         

Command3
Sele 1
Set Safe Off
Zap
This.Enabled=.F.
ThisForm.Command2.Enabled=.F.
ThisForm.Command1.Enabled=.T.
ThisForm.Refresh

Command4
Sele 1
Set Safe Off
Zap 
ThisForm.Release


cxform1
public xh


cxtext1
if Len(AllTrim(ThisForm.Text1.Value))=0
      ThisForm.Command1.Enabled=.F.
Else
      Xh=ThisForm.Text1.Value
      ThisForm.Command1.Enabled=.T.
Endif            

cxcommand1
Sele 1
Set Order to 学号
Locate All For 学号=AllTrim(xh)
If Not Eof()
      ThisForm.Grid1.RecordSource="xschengji"
     Set Filter to 学号=xh
      ThisForm.Grid.Refresh
Else
   =Messagebox("没有此学生的成绩！") 
Endif        

cxcommand2
ThisForm.Release


maintime
If ThisForm.Label1.Left>=-80
   ThisForm.Label1.Left=ThisForm.Label1.Left-10
Else
   ThisForm.Label1.Left=ThisForm.Width+40
Endif      


command1
ThisForm.Release
Do mainmenu.mpx