untdata.pas

固定资产管理系统源码 资产管理 查询管理 报表管理 系统管理

unit UntData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, Mask, Grids, DBGridEh, StdCtrls, Buttons, ComCtrls,
  ExtCtrls,UntDMasset,selffunc;

type
  TFrmData = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel4: TPanel;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox4: TGroupBox;
    DBGridEh3: TDBGridEh;
    TabSheet2: TTabSheet;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    GroupBox2: TGroupBox;
    DBGridEh2: TDBGridEh;
    DBNavigator2: TDBNavigator;
    TabSheet3: TTabSheet;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    DBNavigator1: TDBNavigator;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGridEh3DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh3TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmData: TFrmData;

implementation

{$R *.dfm}

procedure TFrmData.BitBtn1Click(Sender: TObject);
var
  sql:string;
begin
  if Edit1.Text<>'' then
  begin
    sql:='select Fields.*,Tables.TablesName from Fields,Tables where Fields.TablesID=Tables.TablesID ';
    sql:=sql+' AND Tables.TablesName like ' + '''%' + edit1.Text + '%''';
    sql:=sql+' order by Fields.FieldName';
    myquery(sql,DMAsset.ADOFields);
  end;
end;

procedure TFrmData.BitBtn2Click(Sender: TObject);
begin
  DBGridEhToXLS(DBGridEh3);
end;

procedure TFrmData.DBGridEh3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
    if gdSelected in State then Exit;
  if (TDBGridEh(Sender).DataSource=nil)or(TDBGridEh(Sender).DataSource.DataSet=nil) then Exit;

  if TDBGridEh(Sender).DataSource.DataSet.RecNo mod 2 = 0 then
    TDBGridEh(Sender).Canvas.Brush.Color := clInfoBk
  else
    TDBGridEh(Sender).Canvas.Brush.Color := RGB(191, 255, 223);

  TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

  TDBGridEh(Sender).Canvas.Pen.Color := $00C08000;
  TDBGridEh(Sender).Canvas.MoveTo(Rect.Left, Rect.Bottom);
  TDBGridEh(Sender).Canvas.LineTo(Rect.Right, Rect.Bottom);
  TDBGridEh(Sender).Canvas.LineTo(Rect.Right, Rect.Top);
end;

procedure TFrmData.DBGridEh3TitleClick(Column: TColumnEh);
begin
  DBGridTitleSort(Column);
end;

end.