casebyperson.pas

仲裁委仲裁案件计酬程序.有基础资料设置、分级设置

unit CaseByPerson;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ActnList, ImgList, Grids, DBGridEh, ComCtrls, ToolWin,
  MDIChild,DBGridEhImpExp, StdCtrls, ExtCtrls,StrUtils;

type
  TCaseByPersonFrm = class(TMDIChild)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BRefresh: TToolButton;
    BOut: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    BQuit: TToolButton;
    BillGrid: TDBGridEh;
    UseList: TImageList;
    ActionList1: TActionList;
    BtnRefresh: TAction;
    BtnTakeOut: TAction;
    BtnQuit: TAction;
    SaveXLS: TSaveDialog;
    Bills: TADOQuery;
    _Bills: TDataSource;
    BillsDSDesigner: TWideStringField;
    BillsDSDesigner2: TWideStringField;
    BillsDSDesigner3: TBCDField;
    BillsDSDesigner4: TBCDField;
    BillsDSDesigner5: TBCDField;
    BillsDSDesigner6: TBCDField;
    BillsA: TBCDField;
    procedure FormCreate(Sender: TObject);
    procedure BtnRefreshExecute(Sender: TObject);
    procedure BtnQuitExecute(Sender: TObject);
    procedure BtnTakeOutExecute(Sender: TObject);
    procedure BillGridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CaseByPersonFrm: TCaseByPersonFrm;

implementation

{$R *.dfm}
Uses Link;
procedure TCaseByPersonFrm.FormCreate(Sender: TObject);
begin
Bills.Active:=True
end;

procedure TCaseByPersonFrm.BtnRefreshExecute(Sender: TObject);
begin
If Not Bills.Active Then
Bills.Active:=True
Else
Bills.Requery
end;

procedure TCaseByPersonFrm.BtnQuitExecute(Sender: TObject);
begin
Close
end;

procedure TCaseByPersonFrm.BtnTakeOutExecute(Sender: TObject);
begin
If (Bills.State = dsInactive) Or (Bills.IsEmpty=True)	 Then Exit;
If SaveXLS.Execute Then
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, BillGrid, SaveXLS.FileName ,true);

end;

procedure TCaseByPersonFrm.BillGridGetCellParams(Sender: TObject;
  Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
If AnsiEndsStr('合计',Column.Field.DataSet.FieldByName('仲裁员').AsString) Then
Background:=$00B4DEE2
Else
Background:=ClWindow;

end;

end.