binterface.pas

用delphi编写的数据库管理软件

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('当前表没有字段或是表错误 ！ ',mtWarning,[mbok],0);
            Exit;
          end;
    end;
end;

procedure Tfrminterface.gridGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if grid.SumList.RecNo mod 2=1 then
    BackGround:=$00EAEFED
    else
    BackGround:=clWhite;
end;

procedure Tfrminterface.btnokClick(Sender: TObject);
begin
  inherited;
  if CDSinterface.State in [dsEdit,dsInsert] then
    CDSinterface.Post;
  if CDSinterface.ChangeCount > 0 then
    begin
      baseformapplyupdata(CDSinterface,'Ttablefield','fid');
      CDSInterFace.MergeChangeLog;
    end;
  close;
end;

procedure Tfrminterface.gridTitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
var
  sortstring:string;
begin
  inherited;
  with Column do
  begin
    if FieldName = '' then
      Exit;
    case Title.SortMarker of
      smNoneEh:
      begin
        Title.SortMarker := smDownEh;
        sortstring := Column.FieldName + ' ASC';
      end;
      smDownEh: sortstring := Column.FieldName + ' ASC';
      smUpEh: sortstring := Column.FieldName + ' DESC';
    end;

    try
      CDSinterface.IndexFieldNames:= sortstring
    except
    end;
  end;
end;

end.