哪个大哥有汽车,或电动车维修管理软件啊,能给我源代码吗??????????????????????????????????
万分感谢啊·········!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

解决方案 »

  1.   

    晕,你认为大家是软件提供商???你到google里以“汽车  管理  软件”查一下,有这个行业的软件。
      

  2.   

    哦,好的,可是我刚做delphi才第五天啊,不过我已经快做好了啊,大家,有没有好的delphi原代码下载网站,介绍啊,delphibox进不去了啊5~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      

  3.   

    我的软件还有一些问题啊 ,就是怎么去掉dbgrid旁边的显示游标的列啊,
      

  4.   

    dbgrid->options->dgindicator:=false
      

  5.   

    哦,还有个问题啊
    我界面不是用mdi 的啊procedure TForm2.ShowFrame(FrameNo:Integer);
    var
      i: integer;
    begin
      if (UserType<>'管理员') and (FrameNo<>3) then
      begin
        messagebox(handle,'没有足够的权限!','权限不足',MB_ICONWARNING+mb_ok);
        exit;
      end;
      {清除所有的Frame}
      for i:=0 to self.ComponentCount-1 do
        if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free;
      {建立相应的Frame}
      case FrameNo of
        1:
        begin
          with TFrameUserList.Create(self) do
          begin
            Parent := Form2;
            Left := 212;
            Top := 174;
            ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
            ADOQuery1.Active := True;
            Show;
          end;
        end;
        2:
        begin
          with TFramecustomer.Create(self) do
          begin
            Parent := Form2;
            Left :=212;
            Top := 174;
            ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
            ADOQuery1.Active := True;
            Show;
          end;
        end;   6:
        begin
          with TForm3.Create(self) do
          begin
            Parent := Form2;
            Left := 212;
            Top := 174;
            //ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False';
           // ADOQuery1.Active := True;
            Show;
          end;
        end;
      end;
    end;可是为什么我调用
    ShowFrame(3);其他的时候,背景上怎么还有TForm3啊 我不是写了{清除所有的Frame}
      for i:=0 to self.ComponentCount-1 do
        if (self.Components[i] is Tframe) then (self.Components[i] as Tframe).Free;  为什么啊???不明白啊
      

  6.   

    每次显示窗体的时候先显示form3为何???????????