uroutin.pas

来自「自己写的一个用于管理通讯录、记事、计划管理等的小程序。」· PAS 代码 · 共 36 行

unit uRoutin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons;

type
  TFormRoutine = class(TForm)
    GroupBox3: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox4: TGroupBox;
    MonthCalendar1: TMonthCalendar;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRoutine: TFormRoutine;

implementation

uses dmAssistant;

{$R *.dfm}

end.