fieldshow.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 70 行

unit fieldshow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RXCtrls, Db, Grids, Menus;

type
  TFormfieldshow = class(TForm)
    StringGrid1: TStringGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formfieldshow: TFormfieldshow;

implementation

uses reportdsg;

{$R *.DFM}

procedure TFormfieldshow.FormCreate(Sender: TObject);
var
 i:integer;
begin
  left:=Screen.Width-left;
  top:=70;
  with formreportdsg do
  begin
    StringGrid1.RowCount :=RepData.Fields.Count;
    StringGrid1.Cells[0,0]:='中文含义';
    StringGrid1.Cells[1,0]:='栏位名称';
    For i:=0 to RepData.Fields.Count -1 do
    begin
     StringGrid1.Cells[0,i+1]:=RepData.Fields[i].DisplayLabel;
     StringGrid1.Cells[1,i+1]:=RepData.Fields[i].FieldName;
    end;
  end;
end;

procedure TFormfieldshow.N1Click(Sender: TObject);
begin
  if N1.Checked then
  begin
    N1.Checked :=False;
    FormStyle:=fsNormal;
  end else
  begin
    N1.Checked :=True;
    FormStyle:=fsStayOnTop;
  end;
end;

procedure TFormfieldshow.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Formfieldshow:=Nil;
end;

end.