销售管理软件版1楼: 把DBGridEh属性的定制表格底部（footer）区域的汇总统计行（Dbgrideh）的行数设置为1行

然后使用dbgrideh1.Columns[1].Footer.ValueType := fvtSum;想把Columns[1]的三条记录数加起来，但是显示结果仍然为零，请问这是怎么回事呀？

2楼: 能告诉我代码要怎么修改吗？ 如进销存系统详细设计

3楼: procedure TForm1.Button1Click(Sender: TObject);
var
Str : string;
begin
Str := Copy(edit1.Text, Length(edit1.Text) -3, 4);
Str := Format(＇＇%.4d＇＇, [StrToIntDef(Str, 0) + 1]);
Str := Copy(edit1.Text, 1, Length(edit1.Text) -4) + Str;
edit1.Text := Str;
ShowMessage(Str);
end;

4楼: 楼上的朋友，运行后edit.text里产生的结果是0001，前半部分没了。

5楼: 不可能的，我这里测试通过了！Edit里面的初始内容是“SG-2006-02-18-0001”

6楼: 汗，你要首先把时间和SG先放进去啊！

EDIT1的初始化没初始化过呢！

销售管理软件版7楼: 前部分我想自动产生，因为SG-2006-02-18-不是今天的日期。如果今天的日期我弄成18号的，那以后的单据弄的都是18号的，不是当天开的。

8楼: 日期可以读系统时间或者数据库时间啊！？当然这样是随计算机系统的时间变化的。

9楼: 我就是这一点改不好，弄的都是18号的。

您能帮改下吗？

10楼: 如果是SQL数据库用触发器很容易实现　的

11楼: edit1.text:=date(now)；
不知道是否可以直接这样写？手头没DELPHI，全靠自己乱想了！

12楼: procedure TForm1.Button1Click(Sender: TObject);
var
Str : string;
begin
Str := Copy(edit1.Text, Length(edit1.Text) -3, 4);
Str := Format(＇＇%.4d＇＇, [StrToIntDef(Str, 0) + 1]);
Str := Copy(edit1.Text, 1, Length(edit1.Text) -4) + Str;
edit1.Text := Str;
ShowMessage(Str);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text := ＇＇SG-＇＇ + FormatDateTime(＇＇yyyy-mm-dd＇＇, Now) + ＇＇-0001＇＇;
end; 如excel进销存记账本

13楼: var
n,len1,len2,i:ineger;
s :string;
len1:=Length(inttostr(n));
len2:=5-len1;
s:=＇＇＇＇;
for i:=1 to len2 do
begin
s:=s+＇＇0＇＇;
end;
edit1.text:=FormatDateTime(＇＇SG-YYYY-MM-DD-＇＇,Now)+s+inttostr(n);

销售管理软件版14楼: 接受答案了.