uunitset.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit uUnitSet;

interface

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub1, dxExEdtr, ImgList, ActnList, Menus, DB, ComCtrls,
  ToolWin, StdCtrls, ExtCtrls, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, Mask, DBCtrls, dxDBTLCl, dxGrClms, dbclient;

type                
  Tfmunitset = class(Tfmpub1)
    dxDBGrid1: TdxDBGrid;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    dxDBGrid2: TdxDBGrid;
    Label4: TLabel;
    Splitter1: TSplitter;
    DataSource1: TDataSource;
    dxDBGrid2UnitName: TdxDBGridLookupColumn;
    dxDBGrid2Remark: TdxDBGridMaskColumn;
    DBGrid1UnitID: TdxDBGridMaskColumn;
    DBGrid1UnitName: TdxDBGridMaskColumn;
    DBGrid1UnitLogo: TdxDBGridMaskColumn;
    DBGrid1Remark: TdxDBGridMaskColumn;
    DBGrid1Creater: TdxDBGridMaskColumn;
    DBGrid1CreateDate: TdxDBGridDateColumn;
    DBGrid1Updater: TdxDBGridMaskColumn;
    DBGrid1UpDateDate: TdxDBGridDateColumn;
    DBGrid1QConvertInfo: TdxDBGridColumn;
    dxDBGrid1UnitName: TdxDBGridLookupColumn;
    dxDBGrid1Remark: TdxDBGridMaskColumn;
    dxDBGrid1Creater: TdxDBGridMaskColumn;
    dxDBGrid1CreateDate: TdxDBGridDateColumn;
    dxDBGrid1Updater: TdxDBGridMaskColumn;
    dxDBGrid1UpdateDate: TdxDBGridDateColumn;
    dxDBGrid1Scale: TdxDBGridMaskColumn;
    dxDBGrid2Scale: TdxDBGridMaskColumn;
    dxDBGrid1Column8: TdxDBGridMaskColumn;
    procedure dxDBGrid1Column8CustomDrawCell(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
      AColumn: TdxTreeListColumn; ASelected, AFocused,
      ANewItemRow: Boolean; var AText: String; var AColor: TColor;
      AFont: TFont; var AAlignment: TAlignment; var ADone: Boolean);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dxDBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmunitset: Tfmunitset;

implementation

uses SherryLib, udmbase;

{$R *.dfm}

procedure Tfmunitset.dxDBGrid1Column8CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  inherited;
  AText:='='
end;

procedure Tfmunitset.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  SherryLib.FormKeyDown(Sender,Key,Shift,DxDbGrid2);
end;

procedure Tfmunitset.dxDBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  SherryLib.DxDbgridKeyDown(Key,DxDbGrid2,Shift);
end;

end.