selectunit.pas

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

unit SelectUnit;

interface

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

type
  TfrmSelectUnit = class(TfrmBase_DLL)
    Label1: TLabel;
    Bevel1: TBevel;
    grid: TDBGridEh;
    btnok: TButton;
    btnexit: TButton;
    CDSUnit: TClientDataSet;
    DSUnit: TDataSource;
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure btnexitClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    Procedure CreateCDSData;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSelectUnit: TfrmSelectUnit;

implementation

uses Global, DataProcess;

{$R *.dfm}

procedure TfrmSelectUnit.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 TfrmSelectUnit.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmSelectUnit.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSelectUnit:=nil;
end;

procedure TfrmSelectUnit.FormCreate(Sender: TObject);
begin
  inherited;
  CreateCDSData;
end;

procedure TfrmSelectUnit.CreateCDSData;
begin
  with CDSUnit do
    begin
      close;
      FieldDefs.Add('UnitProj',ftString,10);
      FieldDefs.Add('UnitName',ftString,12);
      CreateDataset;
      Open;
      Fields.FieldByName('UnitProj').DisplayLabel:='虫