listbycases.pas

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

unit ListByCases;

interface

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

type
  TListByCasesFrm = class(TMDIChild)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BRefresh: TToolButton;
    ToolButton3: TToolButton;
    BOut: 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: TWideStringField;
    BillsDSDesigner4: TWideStringField;
    BillsDSDesigner5: TBCDField;
    BillsDSDesigner6: TBCDField;
    BillsDSDesigner7: TBCDField;
    BillsDSDesigner8: TBCDField;
    BillsDSDesigner9: TBCDField;
    BillsDSDesigner10: TBCDField;
    procedure FormCreate(Sender: TObject);
    procedure BtnRefreshExecute(Sender: TObject);
    procedure BtnTakeOutExecute(Sender: TObject);
    procedure BtnQuitExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ListByCasesFrm: TListByCasesFrm;

implementation

{$R *.dfm}

procedure TListByCasesFrm.FormCreate(Sender: TObject);
begin
Bills.Active:=True
end;

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

procedure TListByCasesFrm.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 TListByCasesFrm.BtnQuitExecute(Sender: TObject);
begin
Close
end;

end.