tongji.pas

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

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.