【搞定】[请求]关于表单的问题**

snowman

[新手求助]我设计好了一个表格，因为有些功能需要写代码来实现，听说表格里不能写代码？如果写不了，是否要做一个表单？如果是，怎么才能很快地把表单做的和表格一样？

snowman

不知道在把表单做成这个样子

atiger

有些功能需要写代码来实现?写啥代码呢？要处理哪些业务呢？

snowman

下面这个才是我自己做的表格
我想实现一些功能，比如拼音码自动填充，
另外，编号我想自己设计一个特殊格式的流水号

atiger

我想实现一些功能，比如拼音码自动填充，
参考http://bbs.justep.com/forum.php?mod=viewthread&tid=14986

另外，编号我想自己设计一个特殊格式的流水号
参考 http://bbs.justep.com/forum.php?mod=viewthread&tid=14984

snowman

最初由 atiger 发布
[B]我想实现一些功能，比如拼音码自动填充，
参考http://bbs.justep.com/forum.php?mod=viewthread&tid=14986

另外，编号我想自己设计一个特殊格式的流水号
参?.

以下省略...... [/B]

这次想实现的流水号要复杂一点
比如 DD2007-05-24-0001
里面的年月日要自动生成的
后面几位自动递增

snowman

斑竹帮忙看一下
下面的代码编译已经通过，但是还是没有自动生成拼音码

unit SPXXB;

interface

uses
  Business.System, Business.Model, Business.Data;

type
  TSPXXB = class(TInfo)
    DataSetSPXXSJJ: TSQLDataSet;
    procedure DataSetSPXXSJJFieldChange(DataSet: TDataSet; Field: TDataField);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation
var
   s: string;

procedure TSPXXB.DataSetSPXXSJJFieldChange(DataSet: TDataSet; Field: TDataField);
begin
     if Field.FieldName = 'SPXX_SPQM' then
     begin
         Business.Model.ExtUtils.StringToPYCapitals(DataSetBroker1.DataSet.FieldByName['SPXX_SPQM'].Text.ToString, S);
         DataSetBroker1.DataSet.FieldByName['SPXX_PYM'].AsString := S;
     end;
end;

end.

atiger

这次想实现的流水号要复杂一点
比如 DD2007-05-24-0001
里面的年月日要自动生成的
后面几位自动递增

对呀，你在表达式里面去拼就可以了，自增的号用参数，其他的直接在自动填充里面去拼，年月日可以用函数直接取到。例如如表达式为：'DD'+cast(now()as char)+&[编号]

snowman

表达式为：'DD'+cast(now()as char)+&[编号]

这里的&[编号]默认为10位数
能不能改短一点点？

另外，帮忙看一下7楼的问题
代码是同事帮写的，我还不熟
编译通过了，但没有实现拼音码的自动填充

atiger

这里的&[编号]默认为10位数
能不能改短一点点？

当然可以，这是参数，根据自己的需求来做。


另外，帮忙看一下7楼的问题
代码是同事帮写的，我还不熟
编译通过了，但没有实现拼音码的自动填充
你是怎么看的没有填充，是运行功能吗？还是预览表或者测试数据集？
参数是代码赋值的，所以一定要运行功能才起作用，所有代码只有在运行功能时才起作用，否则代码不起作用