unit1.pas

小区水费管理系统源代码水费收费管理系统 水费收费管理系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ImgList, Db, DBTables, DBActns, ActnList, se_controls, KsSkinForms,
  KsSkinEngine, KsSkinButtons, KsSkinEdits, KsSkinDBControls, DBCtrls,
  StdCtrls;
  
type
  TForm1 = class(TForm)
    SeSkinEngine1: TSeSkinEngine;
    SeSkinForm1: TSeSkinForm;
    ActionList1: TActionList;
    DataSource1: TDataSource;
    Table1: TTable;
    ImageList1: TImageList;
    DataSetCancel1: TDataSetCancel;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetFirst1: TDataSetFirst;
    DataSetInsert1: TDataSetInsert;
    DataSetLast1: TDataSetLast;
    DataSetNext1: TDataSetNext;
    DataSetPost1: TDataSetPost;
    DataSetPrior1: TDataSetPrior;
    DataSetRefresh1: TDataSetRefresh;
    DBImage1: TDBImage;
    SeSkinDBEdit1: TSeSkinDBEdit;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    SeSkinButton3: TSeSkinButton;
    SeSkinButton4: TSeSkinButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses KsSkinVersion;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'SkinEngine DBNav v. '+sSeSkinVersion;
end;

end.