几个问题比较杂，-By 烂泥(20分)

1、使用了Clientdateset控件，通过 CreateDataSet生成表/,
但是在Insert后，每次一post以后, Insert的数据就到了表
的最后，我没有建立索引。这样我就无法在某一序号前插如
数据，有办法搞定吗？
2、RIchedit控件可以lines.add不同颜色的语句吗？
3、一个两万行的MIS程序可以值多少钱？

1）没遇到过。不过我想你是要对在客户端的数据排序，
clientdataset1.close;

clientdataset1.commandtext:='select....
from...
order by ..'
clientdataset1.open;
3)这个难说，我有个同学实习的时候公司给了个项目，他还不知道什么是
c/s（概念），照样该项目20万。至少应该5元/行吧

2.我用RxLib的RichEdit,好象可以
Re.SelAttributes.Name := FontName;
Re.SelAttributes.Color := FontColor;
Re.SelAttributes.Size := FontSize;
Re.Lines.Add('abckdfjdk');

>>

>>

还有吗？

2, 在加之前，设一下 defattributes 就可以了。

To;SuperMMX
我想出现一行红，一行蓝，如下则全是蓝色。
richedit1.DefAttributes.Color :=clred;
richedit1.Lines .add('bbbbbbbbbbbb');
richedit1.DefAttributes.Color :=clblue;
richedit1.Lines .add('aaaaaaaaaaaa');

1、加索引啊。Clientdateset的IndexFieldNames属性中写入要索引的字段名，
多个用逗号隔开。
2、
unit UnRTF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
ComboBox1: TComboBox;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
ColorDialog: TColorDialog;
Edit2: TEdit;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.Text:='宋体';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if ColorDialog.Execute then
begin
Edit2.Color:=ColorDialog.Color;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
begin
n:=Length(Edit2.text);
RichEdit1.Lines.Add(Edit2.Text);
RichEdit1.SelLength:=-n-2;
RichEdit1.SelAttributes.Name:=ComboBox1.Text;
RichEdit1.SelAttributes.Color:=Edit2.Color;
RichEdit1.SelAttributes.Size:=StrToInt(Edit1.text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Name:=ComboBox1.Text;
RichEdit1.SelAttributes.Color:=Edit2.Color;
RichEdit1.SelAttributes.Size:=StrToInt(Edit1.text);
RichEdit1.Lines.Add(Edit2.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
RichEdit1.Lines.Add(Edit2.Text);
end;

end.

3、现在的软件不是跟据代码长度定价格的，因为很多程序是自动生成的，
我们公司编的MIS源程序有400多兆，光PAS代码就70多兆，你说要买多少？
我们可只买3到5万。
现软件价格是根据工作量的大小，合算成本，这可是个挺复杂财务的问题。
你得去问题财务人员，不过不是一般的财务人员都知道，要是高新技术
公司里的，他们才能给出正确的定价。

第二个问题也解决，就如 程云 所说要用：
richedit1.SelAttributes .color:=clblue;
richedit1.Lines .add('hhhhhhhhhhhhh');
richedit1.SelAttributes .color:=clred;
richedit1.Lines .add('bbbbbbbbbbbbb');
第三个问题 我从没接触过，看看外面如何。
但是 MIS源程序有400多兆，光PAS代码就70多兆，3-5万，太少了吧？
四个程序员2个月如果做不完，那就要赔本了。

程云说的是通用软件吧，如果定做的话，作程序员太没前途了

第一个问题也解决了。
第二个问题中，我写了如下代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
with table2do
begin
Open;
first;
RichEdit1.clear;
while not eofdo
begin
RichEdit1.SelAttributes .Color := clred;
richedit1.Paragraph.numbering:= nsBullet;
richedit1.paragraph.firstindent:=20;
richedit1.Lines .add(table2.fieldbyname('xm').asstring);
next;
end;
end;
end;

table2大约有300条记录，但是每次执行后只有前20条的记录颜色是红的
以后还是黑的，我想这和程序中的SelAttributes有关，
有什么办法？
第三个问题：
那么一个人开发了2个月的程序值多少钱。

对我们的软件不是卖给一家的，虽然MIS是行业性软件，
但没人归定一定是一家家定作。现我们的软件还作不到
哪么通用，但目标是放在联邦里卖的那种。
>那么一个人开发了2个月的程序值多少钱。
因素太多，如程序员能力多少，软件的设计有多好，编程所
耗费的成本（吃住用等）多少，只否用到其它商业软件（如SQL Server）,
拥有客户几家等。
如果只有一家客户，没有其它商业软件，那大体可定位于2万左右。
如程序员能力空前，或软件设计十分独到、新颖、好用，要价可在
十万以上了。

多人接受答案了。