【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：JLOOKUPM.PAS绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit JLOOKUPM;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      DBTables, Db, Grids, DBGrids, ComCtrls, StdCtrls, Mask, DBCtrls, Buttons,
      ToolWin, Menus, JEdit, ExtCtrls;
    
    type
      TFMLOOKUPM = class(TForm)
        DBGrid1: TDBGrid;
        QSYSLST: TQuery;
        DSSYSLST: TDataSource;
        QSYSLSTLSTID1: TStringField;
        QSYSLSTLSTID2: TStringField;
        QSYSLSTLSTNAM: TStringField;
        QSYSLSTLSTMRK: TStringField;
        Label1: TLabel;
        Label2: TLabel;
        Label3: TLabel;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    
    var
      FMLOOKUPM: TFMLOOKUPM;
    
    
    implementation
    
    uses UN_UTL, FM_UTL, DB_UTL, JLOOKUPD, JLOOKUP;
    {$R *.DFM}
    
    
    
    
    
    
    
    procedure TFMLOOKUPM.FormCreate(Sender: TObject);
    begin
    //
       FMLOOKUPM.Left := SCREEN.Width  - FMLOOKUPM.Width;
       FMLOOKUPM.Top  := SCREEN.Height - FMLOOKUPM.Height;
    
    end;
    
    end.