delphi＋服务信息管理系统+sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十三)

delphi＋服务信息管理系统+sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十三) ;       Expanded = False
            FieldName = 'DL_ADDRESS'
            Title.Alignment = taCenter
            Title.Caption = '联系地址'
            Width = 150
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'DL_YOUBIAN'
            Title.Alignment = taCenter
            Title.Caption = '邮政编码'
            Width = 80
            Visible = True
   
    else
    FirstTime:=False;
    Pen.Color:=clBlack ;
    Moveto(17,17);
    Lineto(17+round(12*sin(vh)),17-round(12*cos(vh)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vm)),17-round(15*cos(vm)));
    Moveto(17,17);
    Lineto(17+round(15*sin(vs)),17-round(15*cos(vs)));
   end;
   vho:=vh;
   vmo:=vm;
   vso:=vs;

end;

procedure TMainForm.FlatButton10Click(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 MDIChildRen[i] is TMonthForm then
    begin
    FindOne:=True;
    MonthForm.Show;
    Break;
    end;
    If not FindOne then
     MonthForm:=TMonthForm.Create(self);
end;

procedure TMainForm.FlatButton11Click(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 MDIChildRen[i] is TYEARForm then
    begin
    FindOne:=True;
    YEARForm.Show;
    Break;
    end;
    If not FindOne then
     YEARForm:=TYEARForm.Create(self);

end;

procedure TMainForm.FlatButton12Click(Sender: TObject);
begin
ShellExecute(handle,nil,'RR.hlp',nil,nil,sw_ShowNormal);
end;

procedure TMainForm.N8Click(Sender: TObject);
var
 i,j:integer;
 FindOne:Boolean;
begin
   FindOne:=false;
  For

首页 上一页 10 11 12 13 14 下一页 尾页 13/14/14

delphi＋服务信息管理系统+sql[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十三)由免费论文网（www.jaoyuw.com）会员上传。