u_lr.pas

个人财务记账.rar,简易的财务系统,以delphi 开发.

unit U_lr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, BusinessSkinForm, ComCtrls, ImgList, Grids,
  DBGridEh, StdCtrls, CheckLst, Buttons, Mask, DBCtrls, DB, ADODB,U_data;

type
  TF_lr = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Panel1: TPanel;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Image1: TImage;
    ImageList1: TImageList;
    SpeedButton4: TSpeedButton;
    TreeView1: TTreeView;
    Splitter2: TSplitter;
    Panel3: TPanel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Image3: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGridEh2: TDBGridEh;
    TreeView2: TTreeView;
    Splitter3: TSplitter;
    TreeView3: TTreeView;
    Bevel1: TBevel;
    Image2: TImage;
    Bevel2: TBevel;
    Panel4: TPanel;
    DBGridEh1: TDBGridEh;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBEdit5: TDBEdit;
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_lr: TF_lr;

implementation
    
{$R *.dfm}

procedure TF_lr.SpeedButton4Click(Sender: TObject);
begin
F_lr.Close;
end;

end.