clientaskrep.~pas

来自「一个电力企业的后台管理程序」· ~PAS 代码 · 共 170 行

unit ClientAskRep;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ComCtrls, Spin, DsFancyButton;

type
  TFrm_Base = class(TForm)
    PC_Content: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel_Condition: TPanel;
    Lbl_Condition: TLabel;
    Panel_Type: TPanel;
    Panel1: TPanel;
    Lbl_Type: TLabel;
    RB_ByType: TRadioButton;
    RB_ByUnit: TRadioButton;
    Panel_Date: TPanel;
    Lbl_AskDate: TLabel;
    DTP_CountDate: TDateTimePicker;
    RB_ByCountDay: TRadioButton;
    RB_ByCountMonth: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    SE_CountYear: TSpinEdit;
    SE_CountMonth: TSpinEdit;
    Panel_Format: TPanel;
    Bevel1: TBevel;
    Label3: TLabel;
    RB_ByCountRep: TRadioButton;
    RB_CountWord: TRadioButton;
    Bevel2: TBevel;
    BTN_: TDsFancyButton;
    Panel2: TPanel;
    RB_ByTypeDay: TRadioButton;
    RB_ByTypeMonth: TRadioButton;
    DTP_TypeDate: TDateTimePicker;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SE_TypeYear: TSpinEdit;
    SE_TypeMonth: TSpinEdit;
    Panel3: TPanel;
    Label7: TLabel;
    RB_TypeNormal: TRadioButton;
    RB_TypeWord: TRadioButton;
    Bevel3: TBevel;
    DsFancyButton5: TDsFancyButton;
    Bevel6: TBevel;
    Bevel7: TBevel;
    BTN_OK: TDsFancyButton;
    BTN_Cancel: TDsFancyButton;
    Panel4: TPanel;
    SE_FxYear: TSpinEdit;
    Label9: TLabel;
    RB_FxWord: TRadioButton;
    RB_FxNormal: TRadioButton;
    DsFancyButton6: TDsFancyButton;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Label8: TLabel;
    Panel5: TPanel;
    Label10: TLabel;
    Panel6: TPanel;
    Label11: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure RB_ByCountDayClick(Sender: TObject);
    procedure BTN_CancelClick(Sender: TObject);
    procedure RB_ByCountMonthClick(Sender: TObject);
    procedure RB_ByTypeMonthClick(Sender: TObject);
    procedure RB_ByTypeDayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Base: TFrm_Base;

implementation

{$R *.DFM}

procedure TFrm_Base.FormCreate(Sender: TObject);
begin
 SE_CountYear.Enabled := False;
 SE_CountMonth.Enabled := False;
 SE_TypeYear.Enabled := False;
 SE_TypeMonth.Enabled := False;
end;

procedure TFrm_Base.RB_ByCountDayClick(Sender: TObject);
begin
 if RB_ByCountDay.Checked then
  begin
   DTP_CountDate.Enabled := True;
   SE_CountYear.Enabled := False;
   SE_CountMonth.Enabled := False;
  end;
 if RB_ByCountMonth.Checked then
  begin
   DTP_CountDate.Enabled := False;
   SE_CountYear.Enabled := True;
   SE_CountMonth.Enabled := True;
  end;
end;

procedure TFrm_Base.BTN_CancelClick(Sender: TObject);
begin
 Close;
end;

procedure TFrm_Base.RB_ByCountMonthClick(Sender: TObject);
begin
 if RB_ByCountDay.Checked then
  begin
   DTP_CountDate.Enabled := True;
   SE_CountYear.Enabled := False;
   SE_CountMonth.Enabled := False;
  end;
 if RB_ByCountMonth.Checked then
  begin
   DTP_CountDate.Enabled := False;
   SE_CountYear.Enabled := True;
   SE_CountMonth.Enabled := True;
  end;

end;

procedure TFrm_Base.RB_ByTypeMonthClick(Sender: TObject);
begin
 if RB_ByTypeDay.Checked then
  begin
   DTP_TypeDate.Enabled := True;
   SE_TypeYear.Enabled := False;
   SE_TypeMonth.Enabled := False;
  end;
 if RB_ByTypeMonth.Checked then
  begin
   DTP_TypeDate.Enabled := False;
   SE_TypeYear.Enabled := True;
   SE_TypeMonth.Enabled := True;
  end;

end;

procedure TFrm_Base.RB_ByTypeDayClick(Sender: TObject);
begin
 if RB_ByTypeDay.Checked then
  begin
   DTP_TypeDate.Enabled := True;
   SE_TypeYear.Enabled := False;
   SE_TypeMonth.Enabled := False;
  end;
 if RB_ByTypeMonth.Checked then
  begin
   DTP_TypeDate.Enabled := False;
   SE_TypeYear.Enabled := True;
   SE_TypeMonth.Enabled := True;
  end;

end;

end.