hinform.pas

学籍管理

{**********************************************************************}
{                    ===================                               }
{                        更新提示                                      }
{                   ===================                                }
{                                    《学籍管理系统》--作者：贺广兵    }
{                                                                      }
{     可在本单元加一个读字段类型的方法，并显示字段类型信息给用户，但   }
{     如何读取字段类型信息并直观的呈现给用户？                         }
{                                                                      }
{**********************************************************************}
unit HinForm;

interface

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

type
  TfmHint = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmHint: TfmHint;

implementation

uses DataMoudle, MainForm;

{$R *.DFM}

procedure TfmHint.Button1Click(Sender: TObject);
begin
  fmHint.Close;
end;

procedure TfmHint.FormShow(Sender: TObject);
var
  icount:Integer;
begin
  if DataModule1.ClientDataSet1.Active then
  begin
    Memo1.Lines.Clear;
    for icount:=0 to  DataModule1.ClientDataSet1.RecordCount do
    begin
      DataModule1.ClientDataSet1.GetFieldNames(Memo1.Lines);
    end;
  end
  else
  begin
    Memo1.Lines.Add('请连接服务器并打开您要查看的表！');
    Memo1.Lines.Add('');
    Memo1.Lines.Add('   '+DateToStr(Now));
  end;
end;

end.