binterface.pas

三层ERP系统 (SQL)

unit Binterface;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_DLL, StdCtrls, Grids, DBGridEh, ExtCtrls, DB, DBClient;

type
  Tfrminterface = class(TfrmBase_DLL)
    Label1: TLabel;
    Bevel1: TBevel;
    grid: TDBGridEh;
    btnok: TButton;
    btnexit: TButton;
    Bevel2: TBevel;
    CDSinterface: TClientDataSet;
    DSinterface: TDataSource;
    CDSinterfacefid: TAutoIncField;
    CDSinterfaceftableName: TWideStringField;
    CDSinterfacefname: TWideStringField;
    CDSinterfaceftype: TWideStringField;
    CDSinterfaceflength: TIntegerField;
    CDSinterfacefisnullable: TBooleanField;
    CDSinterfacefdesc: TWideStringField;
    CDSinterfacefisvisible: TBooleanField;
    procedure btnexitClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure btnokClick(Sender: TObject);
    procedure gridTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminterface: Tfrminterface;

implementation

uses Global, DataProcess;

{$R *.dfm}

procedure Tfrminterface.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrminterface.FormDestroy(Sender: TObject);
begin
  inherited;
  frminterface:=nil;
end;

procedure Tfrminterface.FormShow(Sender: TObject);
begin
  inherited;
  if FromInterface<>'' then
    begin
      GetsqlData(CDSinterface,'Ttablefield','fid','ftablename='+vartosql(FromInterface));
      if CDSinterface.RecordCount > 0 then
        CDSinterface.First
        else
          begin
            messagedlg('⊿