tongji.pas

来自「主要是介绍DELPHI三层应用以及分布式数据库的应用」· PAS 代码 · 共 50 行

unit tongji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst,ADODB;

type
  TForm_tongji = class(TForm)
    list_fields: TCheckListBox;

    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  TransADO: TADOQuery;
    { Public declarations }
  end;

var
  Form_tongji: TForm_tongji;

implementation

uses Unit_wxp;

{$R *.dfm}



procedure TForm_tongji.FormShow(Sender: TObject);
var
i:integer;
begin
        for i:=0 to TransADO.FieldList.Count-1  do
        begin
                //将每个字段的字段类型放在数组中
                unit_wxp.FieldType[i]:= TransADO.Fields[i].DataType;


                list_fields.Items.Add  (TransADO.Fields[i].FieldName  );
                if  (unit_wxp.GetFieldType(i)='string') or (unit_wxp.GetFieldType(i)='date') then
                    list_fields.ItemEnabled[i]:=false;

        end;
end;

end.