1、毕业设计毕业设计 strtodate(trim(2003-9-30) then try ShowMessage(本系统使用已到期,请注册!); Application.Terminate; except end; with MainForm.Image2.Canvas do begin Pen.Color:=clwhite; Pen.Style:=psSolid; Brush.Color:=clwhite; Brush.Style:=bsSolid; Rectangle(0,0,width,Height); pen.Color:=clBlack; for i:=1 to 12 do Pixel
2、s17+Round(17*sin(i/12.0*2*pi),17-round(17*cos(i/12.0*2*pi):=clblack; end; FirstTime:=true; end; procedure TMainForm.FormShow(Sender: TObject); begin DENLUForm:=TDENLUForm.Create(Application); DENLUForm.ShowModal; end; procedure TMainForm.N6Click(Sender: TObject); begin BangZhuForm:=TBangZhuForm.Crea
3、te(Self); BangZhuForm.ShowModal; end; procedure TMainForm.N2Click(Sender: TObject); begin if MainForm.QuanXian=2 then begin ShowMessage(你的权限不够！); exit; end; YHGLForm:=TYHGLForm.Create(Self); YHGLForm.ShowModal; end; procedure TMainForm.N3Click(Sender: TObject); begin XGKLForm:=TXGKLForm.Create(Self)
4、; XGKLForm.ShowModal; end; procedure TMainForm.FlatButton13Click(Sender: TObject); begin close; end; procedure TMainForm.N4Click(Sender: TObject); begin if MainForm.QuanXian=2 then begin ShowMessage(你的权限不够！); exit; end; BFHFForm:=TBFHFForm.Create(Self); BFHFForm.ShowModal; end; procedure TMainForm.N15Click(Sender: TObject); var i,j:Integer; FindOne:Boolean; begin FindOne:=False; For i:=0 to MDIChildCount-1 do For j:=0 to ChildFormNum-1 do if MDIChildReni is TFHXXForm then begin
