eco自动表单(mygeneration模板）续改进中..

从blog.org的我的原博客中迁入

发表时间：2006-9-5 14:33:15

模板继续改进中,加入一对多时自动引入combobox元件,并能进行选择，保存．改进能回车跳到下一控件，去掉一些错误．仅作备忘．

 <%
Dim bFirst
Dim name
Dim pname
Dim objTable
Dim objColumn
Dim tableNames
Dim databaseName
Dim tableName
dim ecospace
dim jj
dim xname

dim tmptable
dim tmpcolumn
' Grab the namespace

namespace = input.Item("txtNamespace")
Set tableName = input.Item("lstTables")

MyMeta.Language = input.Item("cmbLanguages")
MyMeta.DbTarget = "OleDb"

' Grab the choices the user made in our UI Script (see Interface Code tab)
Set tableNames = input.Item("lstTables")
ecospace=input.item("txtecospace")

databaseName  = input.Item("cmbDatabase")
Set database = MyMeta.Databases(0)

' Loop through the tables the user select and generate the stored procs and save them to disk
For intLp = 0 To tableNames.Count - 1

set objTable = database.Tables(tablenames.item(intLp))

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Now we have the table that we desire to build a Business Object From, let us begin.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
unit fm<%=objtable%>;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data,
  Borland.Eco.Handles, Borland.Eco.Windows.Forms, Borland.Eco.WinForm,
  <%=ecospace%>EcoSpace, Package_1Unit,Borland.Eco.Services, System.Resources ;

type
  form<%=objtable%> = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
    RHRoot: Borland.Eco.Handles.ReferenceHandle;
    eh<%=objtable%>: Borland.Eco.Handles.ExpressionHandle;
    cm<%=objtable%>: Borland.Eco.Handles.CurrencyManagerHandle;
    DataGrid1: System.Windows.Forms.DataGrid;
    StatusBar1: System.Windows.Forms.StatusBar;
    ToolBar1: System.Windows.Forms.ToolBar;
    ToolBarButton1: System.Windows.Forms.ToolBarButton;
    ToolBarButton2: System.Windows.Forms.ToolBarButton;
    ToolBarButton3: System.Windows.Forms.ToolBarButton;
    ToolBarButton4: System.Windows.Forms.ToolBarButton;
    ToolBarButton5: System.Windows.Forms.ToolBarButton;
    ToolBarButton6: System.Windows.Forms.ToolBarButton;
    ToolBarButton7: System.Windows.Forms.ToolBarButton;
    ToolBarButton8: System.Windows.Forms.ToolBarButton;
 
    //自动增加的文本框与标签框*******
    <% output.writeLn ""
    
 for Each objColumn in objTable.Columns
     bfirst=false
           name   = GetAlias(objColumn)
     if not mid(ucase(name),1,3)="ECO"  then
         For x = 0 To tableNames.Count - 1
                  set tmpTable = database.Tables(tablenames.item(x))
      if ucase(tmptable.alias)=ucase(name) and (not ucase(name)=ucase(objTable.alias)) then
               bfirst=true    
      end if
     next
     if bfirst=true then
         output.write "    eh" & name&": Borland.Eco.Handles.ExpressionHandle;"& vbCrLf
        output.write "    cmb" & name& ": System.Windows.Forms.combobox;"& vbCrLf
     else
           output.write "    Text" & name& ": System.Windows.Forms.TextBox;"& vbCrLf
     end if
    
        output.write "    lbl" & name& ": System.Windows.Forms.LABEL;"& vbCrLf
           end if
   
    Next %>
 
 
  {//关于combobox 的加
 
 
  procedure formbuy.ComboBox1_SelectedIndexChanged(sender: System.object; e: System.EventArgs);
var selected: ielement;
  arecord: buy;
begin
  if (cOMBOBOX1.SelectedIndex < 0) then
    exit;

  if not groupbox1.Enabled then exit;

  selected := (EHKH.Element as iobjectlist)[COMBOBOX1.selectedindex];
  if (selected = nil) then exit;

  arecord := cmMAIN.Element.asobject as buy;
  arecord.gys := gys(selected.AsObject);
end;
 
 }
 
 //*******************************
 
    GroupBox1: System.Windows.Forms.GroupBox;
    DataGridTableStyle1: System.Windows.Forms.DataGridTableStyle;
  //  DataGridTextBoxColumn1: System.Windows.Forms.DataGridTextBoxColumn;
 
    <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
          name   = GetAlias(objColumn)
    if not mid(ucase(name),1,3)="ECO" then
            output.write "DataGridTextBoxColumn" &cstr(k) &": System.Windows.Forms.DataGridTextBoxColumn;"  & vbCrLf
    END IF
         k=k+1
   Next %>
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
  
    procedure ToolBar1_ButtonClick(sender: System.object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
 
{$ENDREGION}
  strict private
  FEcoSpace: t<%=ecospace%>ecospace;
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean);
    procedure zeroform();
    procedure setstate(mode:integer);
      <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
     xname=""
     bfirst=false
           name   = GetAlias(objColumn)
     if not mid(ucase(name),1,3)="ECO"  then
         For x = 0 To tableNames.Count - 1
                  set tmpTable = database.Tables(tablenames.item(x))       
      if ucase(tmptable.alias)=ucase(name) and (not ucase(name)=ucase(objTable.alias)) then
               xname=tmptable.columns(2)
     bfirst=true    
      end if
      next
     

      
               if bfirst=true then
       
                      OUTPUT.WRITE "procedure Cmb"&name &"_SelectedIndexChanged(sender: System.object; e: System.EventArgs);"

               end if          
    END IF
         k=k+1
   
     Next %>

  public
    constructor Create();
//    constructor Create(anEcoSpace: EcoSpace); overload;
    function get_EcoSpace: Borland.Eco.Handles.EcoSpace;
    property EcoSpace: Borland.Eco.Handles.EcoSpace read get_EcoSpace;
    procedure enter_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
end;

  [assembly: RuntimeRequired(TypeOf(form<%=objtable%>))]

implementation

uses
  Borland.Eco.ObjectRepresentation;
{$AUTOBOX ON}

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure form<%=objtable%> .InitializeComponent;
type
  TArrayOfSystem_Windows_Forms_ToolBarButton = array of System.Windows.Forms.ToolBarButton;
  TArrayOfSystem_Windows_Forms_DataGridTableStyle = array of System.Windows.Forms.DataGridTableStyle;
  TArrayOfSystem_Windows_Forms_DataGridColumnStyle = array of System.Windows.Forms.DataGridColumnStyle;
begin
  Self.RHRoot := Borland.Eco.Handles.ReferenceHandle.Create;
 
  Self.eh<%=objtable%> := Borland.Eco.Handles.ExpressionHandle.Create;
  Self.cm<%=objtable%> := Borland.Eco.Handles.CurrencyManagerHandle.Create;
  Self.DataGrid1 := System.Windows.Forms.DataGrid.Create;

   <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
          name   = GetAlias(objColumn)
    if not mid(ucase(name),1,3)="ECO" then
           output.write "Self.DataGridTextBoxColumn" &cstr(k) &":= System.Windows.Forms.DataGridTextBoxColumn.create;"  & vbCrLf
    END IF
         k=k+1
   
     Next %>
  
  Self.DataGridTableStyle1:=System.Windows.Forms.DataGridTableStyle.Create;
  Self.StatusBar1 := System.Windows.Forms.StatusBar.Create;
  Self.ToolBar1 := System.Windows.Forms.ToolBar.Create;
  Self.ToolBarButton1 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton2 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton3 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton4 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton8 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton5 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton6 := System.Windows.Forms.ToolBarButton.Create;
  Self.ToolBarButton7 := System.Windows.Forms.ToolBarButton.Create;
 
  Self.GroupBox1 := System.Windows.Forms.GroupBox.Create;
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).BeginInit;
  Self.GroupBox1.SuspendLayout;
  Self.SuspendLayout;
  //
  // RHRoot
  //
  Self.RHRoot.EcoSpaceType := TypeOf(<%=ECOSPACE%>EcoSpace.t<%=ECOSPACE%>EcoSpace);
  //
 
  //
  //
  // eh<%=objtable%>
  //
   
  Self.eh<%=objtable%>.Expression := '<%=objtable%>.allInstances';
  Self.eh<%=objtable%>.RootHandle := Self.RHRoot;
  //
  //
  // cm<%=objtable%>
  //
  Self.cm<%=objtable%>.BindingContext := Self.DataGrid1;
  Self.cm<%=objtable%>.RootHandle := Self.eh<%=objtable%>;
  //
  // DataGrid1
  //
  Self.DataGrid1.DataMember := '';
  Self.DataGrid1.DataSource := Self.eh<%=objtable%>;
  Self.DataGrid1.HeaderForeColor := System.Drawing.SystemColors.ControlText;
  Self.DataGrid1.Location := System.Drawing.Point.Create(8, 64);
  Self.DataGrid1.Name := 'DataGrid1';
  Self.DataGrid1.RightToLeft := System.Windows.Forms.RightToLeft.No;
  Self.DataGrid1.RowHeaderWidth := 20;
  Self.DataGrid1.Size := System.Drawing.Size.Create(320, 312);
  Self.DataGrid1.TabIndex := 0;
  Self.DataGrid1.TableStyles.AddRange(TArrayOfSystem_Windows_Forms_DataGridTableStyle.Create(Self.DataGridTableStyle1));
  //
  // DataGridTableStyle1
  //
  Self.DataGridTableStyle1.DataGrid := Self.DataGrid1;
     <% output.writeLn ""
 
  k=1
  jj=1
        output.write "Self.DataGridTableStyle1.GridColumnStyles.AddRange(TArrayOfSystem_Windows_Forms_DataGridColumnStyle.Create("
        For Each objColumn in objTable.Columns
          name   = GetAlias(objColumn)
    if not mid(ucase(name),1,3)="ECO" then
      if (jj=1) then
           output.write "Self.DataGridTextBoxColumn" & cstr(k)
     jj=0
      else
        output.write ",Self.DataGridTextBoxColumn" & cstr(k)
   end if
    END IF
         k=k+1

    Next
    output.write "));" &  vbCrLf
  %> 
 
   <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
          name   = GetAlias(objColumn)
    if not mid(ucase(name),1,3)="ECO" then         
    output.write "Self.DataGridTextBoxColumn" &cstr(k) &".Format := '';" & vbCrLf
             output.write "Self.DataGridTextBoxColumn" &cstr(k) &".FormatInfo := nil;" & vbCrLf
             output.write "Self.DataGridTextBoxColumn" &cstr(k) &".HeaderText := '" & name & "';"  & vbCrLf
             output.write "Self.DataGridTextBoxColumn" &cstr(k) &".MappingName := '" & name & "';"  & vbCrLf
             output.write "Self.DataGridTextBoxColumn" &cstr(k) &".Width := 75;" & vbCrLf
    END IF
         k=k+1
   
     Next %>
  Self.DataGridTableStyle1.HeaderForeColor := System.Drawing.SystemColors.ControlText;
  Self.DataGridTableStyle1.MappingName := '';
  Self.DataGridTableStyle1.RowHeaderWidth := 20;
  //
  // DataGridTextBoxColumn1
  //
 
  //****************
 
  //
  // StatusBar1
  //
  Self.StatusBar1.Location := System.Drawing.Point.Create(0, 381);
  Self.StatusBar1.Name := 'StatusBar1';
  Self.StatusBar1.Size := System.Drawing.Size.Create(664, 24);
  Self.StatusBar1.TabIndex := 1;
  //
  // ToolBar1
  //
  Self.ToolBar1.Appearance := System.Windows.Forms.ToolBarAppearance.Flat;
  Self.ToolBar1.Buttons.AddRange(TArrayOfSystem_Windows_Forms_ToolBarButton.Create(Self.ToolBarButton1,
          Self.ToolBarButton2, Self.ToolBarButton3, Self.ToolBarButton4, Self.ToolBarButton8,
          Self.ToolBarButton5, Self.ToolBarButton6, Self.ToolBarButton7));
  Self.ToolBar1.DropDownArrows := True;
  Self.ToolBar1.Location := System.Drawing.Point.Create(0, 0);
  Self.ToolBar1.Name := 'ToolBar1';
  Self.ToolBar1.ShowToolTips := True;
  Self.ToolBar1.Size := System.Drawing.Size.Create(664, 41);
  Self.ToolBar1.TabIndex := 2;
  Include(Self.ToolBar1.ButtonClick, Self.ToolBar1_ButtonClick);
  //
  // ToolBarButton1
  //
  Self.ToolBarButton1.Text := '新增';
  //
  // ToolBarButton2
  //
  Self.ToolBarButton2.Text := '修改';
  //
  // ToolBarButton3
  //
  Self.ToolBarButton3.Text := '保存';
  //
  // ToolBarButton4
  //
  Self.ToolBarButton4.Text := '取消';
  //
  // ToolBarButton8
  //
  Self.ToolBarButton8.Text := '删除';
  //
  // ToolBarButton5
  //
  Self.ToolBarButton5.Text := '上一条';
  //
  // ToolBarButton6
  //
  Self.ToolBarButton6.Text := '下一条';
  //
  // ToolBarButton7
  //
  Self.ToolBarButton7.Text := '退出';
  //

  // GroupBox1
  //
  Self.GroupBox1.Location := System.Drawing.Point.Create(368, 64);
  Self.GroupBox1.Name := 'GroupBox1';
  Self.GroupBox1.RightToLeft := System.Windows.Forms.RightToLeft.No;
  Self.GroupBox1.Size := System.Drawing.Size.Create(264, 312);
  Self.GroupBox1.TabIndex := 20;
  Self.GroupBox1.TabStop := False;
  Self.GroupBox1.Text := '输入';
  //
  // Label1
     
  //
     <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
     xname=""
     bfirst=false
           name   = GetAlias(objColumn)
     if not mid(ucase(name),1,3)="ECO"  then
         For x = 0 To tableNames.Count - 1
                  set tmpTable = database.Tables(tablenames.item(x))       
      if ucase(tmptable.alias)=ucase(name) and (not ucase(name)=ucase(objTable.alias)) then
               xname=tmptable.columns(2)
     bfirst=true    
      end if
      next
    
               if bfirst=true then
          output.write "//"& xname & vbCrLf
          output.write "Self.eh" &name & ":= Borland.Eco.Handles.ExpressionHandle.Create;"  & vbCrLf
                   output.write "Self.eh" &name & ".Expression :='" &name & ".allInstances';" & vbCrLf
                   output.write "Self.eh" &name & ".RootHandle := Self.RHRoot;" & vbCrLf
          output.write "Self.cmb" &name & ":= System.Windows.Forms.combobox.Create;" & vbCrLf
                   output.write "Self.cmb" &name & ".Location := System.Drawing.Point.Create(60," & cstr(5+k*25) &");" & vbCrLf
                   output.write "Self.cmb" &name &".Name := 'cmb" & name &"';" & vbCrLf
                   output.write "Self.cmb" &name &".Size := System.Drawing.Size.Create(100, 20);" & vbCrLf
                   output.write "Self.cmb" &name &".TabIndex := 20;" & vbCrLf
                   output.write "Self.cmb" &name &".Text := 'cmb" & name & "';"& vbCrLf & vbCrLf
                   output.write "Include(Self.cmb" &name &".KeyPress, Self.enter_KeyPress);" & vbCrLf
                   output.write "Self.cmb" &name & ".DataBindings.Add(System.Windows.Forms.Binding.Create('SelectedValue',self.eh" & objtable &",'" & name &"'));" & vbCrLf
                   output.write "Self.cmb" &name & ".DataSource := Self.EH" &name &";" & vbCrLf
                   output.write "Self.cmb" &name & ".DisplayMember :='"& xname &"';" & vbCrLf
       output.write  "//" & xname & "*********" & vbCrLf
                   output.write "Self.cmb" &name & ".ValueMember :='" &xname &"';" & vbCrLf
                   output.write "Include(Self.cmb" &name & ".KeyPress, Self.enter_KeyPress);" & vbCrLf
                   output.write "Include(Self.cmb" &name & ".SelectedIndexChanged, Self.cmb" &name & "_SelectedIndexChanged);" & vbCrLf
       output.write "Self.GroupBox1.Controls.Add(Self.cmb" &name & ");" & vbCrLf
                 else
       output.write "Self.Text" &name & ":= System.Windows.Forms.TextBox.Create;" & vbCrLf
       output.write "Self.Text" &name & ".DataBindings.Add(System.Windows.Forms.Binding.Create('Text',Self.eh" & objtable & ",'" & name & "'));" & vbCrLf
                   output.write "Self.Text" &name & ".Location := System.Drawing.Point.Create(60," & cstr(5+k*25) &");" & vbCrLf
                   output.write "Self.Text" &name &".Name := 'TExt" & name &"';" & vbCrLf
                   output.write "Self.Text" &name &".Size := System.Drawing.Size.Create(100, 20);" & vbCrLf
                   output.write "Self.Text" &name &".TabIndex := 20;" & vbCrLf
                   output.write  "Self.Text" &name &".Text := 'TExt" & name & "';"& vbCrLf & vbCrLf
                   output.write "Include(Self.Text" &name &".KeyPress, Self.enter_KeyPress);"
       output.write "Self.GroupBox1.Controls.Add(Self.Text" &name & ");" & vbCrLf
      end if
     
               output.write "Self.lbl" &name & ":= System.Windows.Forms.Label.Create;"  & vbCrLf
               output.write "Self.lbl" &name & ".Location := System.Drawing.Point.Create(10," & cstr(5+k*25) &");" & vbCrLf
               output.write "Self.lbl" &name &".Name := 'lbl" & name & "';" & vbCrLf
               output.write "Self.lbl" &name &".Size := System.Drawing.Size.Create(40, 20);" & vbCrLf
               output.write "Self.lbl" &name &".Text :='" & name & "';"& vbCrLf & vbCrLf
         output.write "Self.GroupBox1.Controls.Add(Self.lbl" &name & ");" & vbCrLf
          
    END IF
         k=k+1
   
     Next %>
//

  //

  //
  // form<%=objtable%>
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(6, 14);
  Self.ClientSize := System.Drawing.Size.Create(664, 405);

  Self.Controls.Add(Self.GroupBox1);
  Self.Controls.Add(Self.ToolBar1);
  Self.Controls.Add(Self.StatusBar1);
  Self.Controls.Add(Self.DataGrid1);
  Self.Name := 'form<%=objtable%>' ;
  Self.RightToLeft := System.Windows.Forms.RightToLeft.No;
  Self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  Self.Text := '<%=objtable%>输入';
  (System.ComponentModel.ISupportInitialize(Self.DataGrid1)).EndInit;
  Self.GroupBox1.ResumeLayout(False);
  Self.ResumeLayout(False);
end;

procedure form<%=objtable%>.setstate(mode:integer);
begin
datagrid1.ReadOnly:=true;
case mode of
1:   //新增状态
begin
self.ToolBarButton2.Enabled:=false;
self.ToolBarButton7.Enabled:=false;
self.ToolBarButton1.Enabled:=false;
self.ToolBarButton5.Enabled:=false;
self.ToolBarButton6.Enabled:=false;
self.ToolBarButton3.Enabled:=true;
self.ToolBarButton4.Enabled:=true;
datagrid1.Enabled:=false;
groupbox1.Enabled:=true;
//textbox1.Focus;
end;
2:  //修改状态
begin
  self.ToolBarButton2.Enabled:=false;
  self.ToolBarButton7.Enabled:=false;
  self.ToolBarButton1.Enabled:=false;
  self.ToolBarButton5.Enabled:=false;
  self.ToolBarButton6.Enabled:=false;
  self.ToolBarButton3.Enabled:=true;
  self.ToolBarButton4.Enabled:=true;
  datagrid1.Enabled:=false;
  groupbox1.Enabled:=true;
  //textbox1.Focus;
end;
3:
begin
  self.ToolBarButton2.Enabled:=true;
  self.ToolBarButton7.Enabled:=true;
  self.ToolBarButton1.Enabled:=true;
  self.ToolBarButton5.Enabled:=true;
  self.ToolBarButton6.Enabled:=true;
  self.ToolBarButton3.Enabled:=false;
  self.ToolBarButton4.Enabled:=false;
  datagrid1.Enabled:=true;
  groupbox1.Enabled:=false;
end;
end;

end;

procedure form<%=objtable%>.zeroform;
begin
     <% output.writeLn ""
  for Each objColumn in objTable.Columns
     bfirst=false
           name   = GetAlias(objColumn)
     if not mid(ucase(name),1,3)="ECO"  then
         For x = 0 To tableNames.Count - 1
                  set tmpTable = database.Tables(tablenames.item(x))
         xname=tmptable.columns(2)
      if ucase(tmptable.alias)=ucase(name) and (not ucase(name)=ucase(objTable.alias)) then
               bfirst=true    
      end if
      next
    
              if bfirst=true then
           output.write "    cmb" & name & ".text:='';" & vbCrLf
              else
              output.write "    Text" & name& ".clear;" & vbCrLf
        end if 
    end if
        Next %>
end;

{$ENDREGION}

procedure form<%=objtable%>.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor form<%=objtable%>.Create();
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
  FEcoSpace := t<%=ecospace%>ecospace.Create;
  // Note that you need to set the EcoSpace property for each ReferenceHandle you add to the form.

  RHRoot.EcoSpace := FEcoSpace;
  if (not fecospace.Active) then
    fecospace.Active:=true;

  zeroform;
  setstate(3);
end;

function form<%=objtable%>.get_EcoSpace: Borland.Eco.Handles.EcoSpace;
begin
  Result := FEcoSpace;
end;

procedure form<%=objtable%>.enter_KeyPress(sender: System.Object; e: System.Windows.Forms.KeyPressEventArgs);
begin
    if (e.keychar =#13) then
    self.SelectNextControl(self.activecontrol, true, true, true, true);
end;

procedure form<%=objtable%>.ToolBar1_ButtonClick(sender: System.object; e: System.Windows.Forms.ToolBarButtonClickEventArgs);
var a<%=objtable%>: <%=objtable%>;
begin
  case toolbar1.Buttons.IndexOf(e.Button) of
    0: //新增
      begin
        fEcoSpace.UndoService.StartUndoBlock('abc');
        a<%=objtable%> := <%=objtable%>.create(fecospace);
        datagrid1.DataBindings;
        eh<%=objtable%>.EnsureBindingList;
        cm<%=objtable%>.set_Position(eh<%=objtable%>.Element.GetAsCollection.Count - 1);
        setstate(1);
      end;
    1: //修改
      begin
        fEcoSpace.UndoService.startUndoBlock('abc');
        setstate(2);
      end;
    2: //保存
      begin
        fecospace.UndoService.ClearAllUndoBlocks;
        setstate(3);
        fecospace.UpdateDatabase;
      end;
    3: //取消
      begin
        fEcoSpace.UndoService.UndoBlock('abc');
        fecospace.UndoService.ClearAllUndoBlocks;
        setstate(3);
      end;
    4: //  删除
      begin
        if (MessageBox.Show('你真的要删除吗,按确定后记录将被删除并不能恢复？', '删除数据',
          MessageBoxButtons.YesNo, MessageBoxIcon.Question) = System.Windows.Forms.DialogResult.Yes) then
        begin
          try
            <%=objtable%>(cm<%=objtable%>.Element.AsObject).AsIObject.Delete;
          except
            messagebox.show('该名称已经使用,不能删除!');
            exit;
          end;
          fecospace.UpdateDatabase;
        end;
      end;
    5: // 上一条
      begin

      end;
    6: //   下一条
      begin

      end;
    7: //退出
      begin
        close;
//        fecospace.UpdateDatabase;
      end;
  end;
end;

     <% output.writeLn ""
  k=1
  For Each objColumn in objTable.Columns
     xname=""
     bfirst=false
           name   = GetAlias(objColumn)
     if not mid(ucase(name),1,3)="ECO"  then
         For x = 0 To tableNames.Count - 1
                  set tmpTable = database.Tables(tablenames.item(x))       
      if ucase(tmptable.alias)=ucase(name) and (not ucase(name)=ucase(objTable.alias)) then
               xname=tmptable.columns(2)
     bfirst=true    
      end if
      next
     

      
               if bfirst=true then
                      OUTPUT.WRITE "procedure form" & objtable & ".Cmb"&name &"_SelectedIndexChanged(sender: System.object; e: System.EventArgs);"& vbCrLf
                      OUTPUT.WRITE "var selected: ielement;"& vbCrLf
                      OUTPUT.WRITE "    arecord:"& objtable & ";"& vbCrLf
                      OUTPUT.WRITE "begin"& vbCrLf
                      OUTPUT.WRITE "   if (cMb"& name &".SelectedIndex < 0) then"& vbCrLf
                      OUTPUT.WRITE "          exit;"& vbCrLf
                      OUTPUT.WRITE "   if not groupbox1.Enabled then exit;"& vbCrLf
                      OUTPUT.WRITE "   selected := (EH"& name &".Element as iobjectlist)[Cmb"& name &".selectedindex];"& vbCrLf
                      OUTPUT.WRITE "   if (selected = nil) then exit;"& vbCrLf
                      OUTPUT.WRITE ""& vbCrLf
                      OUTPUT.WRITE "   arecord := cm" & objtable & ".Element.asobject as "& objtable & ";"& vbCrLf
                      OUTPUT.WRITE "   arecord."& name &" := "& name &"(selected.AsObject);"& vbCrLf
                      OUTPUT.WRITE "end;  "& vbCrLf
               end if          
    END IF
         k=k+1
   
     Next %>

 

end.

<%
 ' Save the output file for this Table
 Dim filename
 filename = input.item("txtPath")

 Dim length
 Dim pos
 lenth = Len(filename)
 pos = InStrRev(filename, "/")

 If Not pos = lenth Then
  filename = filename & "/"
 End If

 filename = filename & "fm" & objTable.Alias & ".pas"

 output.save filename, false
 buffer = buffer & output.text
 output.clear
Next '  tableName
 
 output.write buffer
 %>

<%
'===========================================================================
' These are support routines called by the above scirpt
'===========================================================================
Function GetAlias(objColumn)
 Dim name
 name = TrimSpaces(objColumn.Alias)
 GetAlias =name
' UCase(Left(name, 1)) & Right(name, Len(name) -1)
End Function

Function GetName(objColumn)
 Dim name
 name = objColumn.Name
 GetName =name
' UCase(Left(name, 1)) & Right(name, Len(name) -1)
End Function

Function TrimSpaces(str)

 Dim tname
 Dim name
 Dim char
 Dim l

 name = ""
 tname = str
 l = Len(tname)

 For j = 1 To l
  char = Mid(tname, j, 1)
  If Not char = " " Then
   name = name & char
  End If
 Next

 TrimSpaces = name
End Function
%>