preunit.pas

delphi的通讯录,绿色的,可以看一看,还不错

unit PreUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Spin, ExtCtrls, jpeg, ComCtrls,
  Buttons, ToolWin;
type
  TPreForm=class(TForm)
    sBar: TStatusBar;
    ToolBar1: TToolBar;
    QuitBtn: TSpeedButton;
    SetupBtn: TSpeedButton;
    LastBtn: TSpeedButton;
    PriorBtn: TSpeedButton;
    ZYBtn: TSpeedButton;
    YKBtn: TSpeedButton;
    PrintBtn: TSpeedButton;
    YMSZBtn: TSpeedButton;
    cBox: TComboBox;
    psDialog: TPrinterSetupDialog;
    sBox: TScrollBox;
    PrDialog: TPrintDialog;
    SpeedButton1: TSpeedButton;
    SaveDialog: TSaveDialog;
    pBox: TPaintBox;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    Bevel1: TBevel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    tEdt: TSpinEdit;
    lEdt: TSpinEdit;
    rEdt: TSpinEdit;
    bEdt: TSpinEdit;
    vBox: TCheckBox;
    hBox: TCheckBox;
    yjEdt: TSpinEdit;
    ymEdt: TSpinEdit;
    TabSheet2: TTabSheet;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Bevel2: TBevel;
    Label13: TLabel;
    ymlEdt: TEdit;
    ymcEdt: TEdit;
    ymrEdt: TEdit;
    yjlEdt: TEdit;
    yjcEdt: TEdit;
    yjrEdt: TEdit;
    TabSheet3: TTabSheet;
    Label14: TLabel;
    Bevel3: TBevel;
    Label15: TLabel;
    pScaleEdt: TSpinEdit;
    gridBox: TCheckBox;
    colorBox: TCheckBox;
    rowBox: TCheckBox;
    colBox: TCheckBox;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PreForm: TPreForm;



implementation

{$R *.DFM}

end.