selectunitprice.pas

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

unit SelectUnitPrice;

interface

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

type
  TfrmSelectUnitPrict = class(TfrmBase_DLL)
    Label1: TLabel;
    Bevel1: TBevel;
    grid: TDBGridEh;
    btnok: TButton;
    btnexit: TButton;
    CDSUnitPrice: TClientDataSet;
    DSUnitPrice: 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
  frmSelectUnitPrict: TfrmSelectUnitPrict;

implementation

uses Global, DataProcess;

{$R *.dfm}

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

procedure TfrmSelectUnitPrict.FormDestroy(Sender: TObject);
begin
  inherited;
  frmSelectUnitPrict:=nil;
end;

procedure TfrmSelectUnitPrict.CreateCDSData;
begin
  with CDSUnitprice do
    begin
      close;
      FieldDefs.Add('PriceProj',ftString,8);
      FieldDefs.Add('UnitPrice',ftFloat);
      CreateDataset;
      Open;
      Fields.FieldByName('PriceProj').DisplayLabel:='