plandetali.~pas

来自「串口监控程序,可与UPS进行通信,适合初学者使用」· ~PAS 代码 · 共 61 行

unit plandetali;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Spin, ExtCtrls, RzButton, DB, ADODB, ComCtrls;

type
  Tfplandetail = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    SpinEdit1: TSpinEdit;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RzButton1: TRzButton;
    RzButton2: TRzButton;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure RzButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fplandetail: Tfplandetail;

implementation
 uses
  workplan;
{$R *.dfm}

procedure Tfplandetail.FormCreate(Sender: TObject);
begin



 //edit1.Text :=fworkplan.Edit1.Text ;
end;

procedure Tfplandetail.RzButton1Click(Sender: TObject);
begin

 close;
end;

end.