新日期组件
This commit is contained in:
parent
2e917bd27e
commit
821eecf691
259
项目代码/RTBasicsV1/A00通用组件/FrameDateSel10.dfm
Normal file
259
项目代码/RTBasicsV1/A00通用组件/FrameDateSel10.dfm
Normal file
|
|
@ -0,0 +1,259 @@
|
|||
object frmFrameDateSel10: TfrmFrameDateSel10
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 956
|
||||
Height = 45
|
||||
AutoSize = True
|
||||
Color = clBtnFace
|
||||
ParentBackground = False
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
object dxLayoutControl1: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 956
|
||||
Height = 45
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
Transparent = True
|
||||
object BegDate: TcxDateEdit
|
||||
Left = 110
|
||||
Top = 5
|
||||
ParentCustomHint = False
|
||||
AutoSize = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ShowTime = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
TabOrder = 1
|
||||
Height = 33
|
||||
Width = 120
|
||||
end
|
||||
object EndDate: TcxDateEdit
|
||||
Left = 250
|
||||
Top = 5
|
||||
AutoSize = False
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ShowTime = False
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
TabOrder = 2
|
||||
Height = 33
|
||||
Width = 120
|
||||
end
|
||||
object cxButton1: TcxButton
|
||||
Left = 450
|
||||
Top = 5
|
||||
Width = 80
|
||||
Height = 33
|
||||
Caption = #26412#26376
|
||||
TabOrder = 4
|
||||
OnClick = cxButton1Click
|
||||
end
|
||||
object cxButton2: TcxButton
|
||||
Left = 610
|
||||
Top = 5
|
||||
Width = 80
|
||||
Height = 33
|
||||
Caption = #24448#21069
|
||||
TabOrder = 6
|
||||
OnClick = cxButton2Click
|
||||
end
|
||||
object cxButton3: TcxButton
|
||||
Left = 741
|
||||
Top = 5
|
||||
Width = 80
|
||||
Height = 33
|
||||
Caption = #24448#21518
|
||||
TabOrder = 8
|
||||
OnClick = cxButton3Click
|
||||
end
|
||||
object cbbType: TcxComboBox
|
||||
Left = 690
|
||||
Top = 5
|
||||
AutoSize = False
|
||||
Properties.DropDownListStyle = lsFixedList
|
||||
Properties.Items.Strings = (
|
||||
#26085
|
||||
#26376
|
||||
#24180)
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.TransparentBorder = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Text = #26085
|
||||
Height = 32
|
||||
Width = 51
|
||||
end
|
||||
object cxButton4: TcxButton
|
||||
Left = 370
|
||||
Top = 5
|
||||
Width = 80
|
||||
Height = 33
|
||||
Caption = #26412#26085
|
||||
TabOrder = 3
|
||||
OnClick = cxButton4Click
|
||||
end
|
||||
object cxButton5: TcxButton
|
||||
Left = 530
|
||||
Top = 5
|
||||
Width = 80
|
||||
Height = 33
|
||||
Caption = #26412#24180
|
||||
TabOrder = 5
|
||||
OnClick = cxButton5Click
|
||||
end
|
||||
object TimeType: TcxComboBox
|
||||
Left = 10
|
||||
Top = 5
|
||||
AutoSize = False
|
||||
Properties.DropDownListStyle = lsEditFixedList
|
||||
Properties.ImmediatePost = True
|
||||
Properties.Items.Strings = (
|
||||
#26597#35810#26085#26399)
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
TabOrder = 0
|
||||
Text = #26597#35810#26085#26399
|
||||
Height = 32
|
||||
Width = 100
|
||||
end
|
||||
object jqModel: TcxCheckBox
|
||||
Left = 835
|
||||
Top = 5
|
||||
Caption = #31934#30830#26597#35810
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.TransparentBorder = False
|
||||
TabOrder = 9
|
||||
Transparent = True
|
||||
end
|
||||
object dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
AlignHorz = ahLeft
|
||||
AlignVert = avTop
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
Padding.Top = -5
|
||||
Padding.AssignedValues = [lpavTop]
|
||||
ShowBorder = False
|
||||
UseIndent = False
|
||||
Index = -1
|
||||
end
|
||||
object dxLayoutItem1: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Visible = False
|
||||
Control = TimeType
|
||||
ControlOptions.OriginalHeight = 32
|
||||
ControlOptions.OriginalWidth = 100
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 0
|
||||
end
|
||||
object dxLayoutItem2: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Visible = False
|
||||
Control = BegDate
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 120
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 1
|
||||
end
|
||||
object dxLayoutItem3: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Text = ' '#33267
|
||||
Control = EndDate
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 120
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 2
|
||||
end
|
||||
object dxLayoutItem4: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
AlignVert = avClient
|
||||
CaptionOptions.Text = 'New Item'
|
||||
CaptionOptions.Visible = False
|
||||
Control = cxButton4
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 80
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 3
|
||||
end
|
||||
object dxLayoutItem5: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Text = 'New Item'
|
||||
CaptionOptions.Visible = False
|
||||
Control = cxButton1
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 80
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 4
|
||||
end
|
||||
object dxLayoutItem6: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Text = 'New Item'
|
||||
CaptionOptions.Visible = False
|
||||
Control = cxButton5
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 80
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 5
|
||||
end
|
||||
object dxLayoutItem7: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Text = 'New Item'
|
||||
CaptionOptions.Visible = False
|
||||
Control = cxButton2
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 80
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 6
|
||||
end
|
||||
object dxLayoutItem8: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Visible = False
|
||||
Control = cbbType
|
||||
ControlOptions.OriginalHeight = 32
|
||||
ControlOptions.OriginalWidth = 51
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 7
|
||||
end
|
||||
object dxLayoutItem9: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Visible = False
|
||||
Control = cxButton3
|
||||
ControlOptions.OriginalHeight = 33
|
||||
ControlOptions.OriginalWidth = 80
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 8
|
||||
end
|
||||
object dxLayoutItem10: TdxLayoutItem
|
||||
Parent = dxLayoutControl1Group_Root
|
||||
CaptionOptions.Text = ' '
|
||||
Control = jqModel
|
||||
ControlOptions.OriginalHeight = 17
|
||||
ControlOptions.OriginalWidth = 66
|
||||
ControlOptions.ShowBorder = False
|
||||
Index = 9
|
||||
end
|
||||
end
|
||||
end
|
||||
125
项目代码/RTBasicsV1/A00通用组件/FrameDateSel10.pas
Normal file
125
项目代码/RTBasicsV1/A00通用组件/FrameDateSel10.pas
Normal file
|
|
@ -0,0 +1,125 @@
|
|||
unit FrameDateSel10;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
|
||||
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
|
||||
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
|
||||
Vcl.ComCtrls, dxCore, cxDateUtils, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxSkinWXI, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, Vcl.StdCtrls,
|
||||
Vcl.Menus, cxButtons, Vcl.ExtCtrls, DateUtils, cxCheckBox,
|
||||
dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl,
|
||||
dxLayoutControlAdapters;
|
||||
|
||||
type
|
||||
TfrmFrameDateSel10 = class(TFrame)
|
||||
BegDate: TcxDateEdit;
|
||||
EndDate: TcxDateEdit;
|
||||
cxButton1: TcxButton;
|
||||
cxButton2: TcxButton;
|
||||
cxButton3: TcxButton;
|
||||
cbbType: TcxComboBox;
|
||||
cxButton4: TcxButton;
|
||||
cxButton5: TcxButton;
|
||||
TimeType: TcxComboBox;
|
||||
jqModel: TcxCheckBox;
|
||||
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
||||
dxLayoutControl1: TdxLayoutControl;
|
||||
dxLayoutItem1: TdxLayoutItem;
|
||||
dxLayoutItem2: TdxLayoutItem;
|
||||
dxLayoutItem3: TdxLayoutItem;
|
||||
dxLayoutItem4: TdxLayoutItem;
|
||||
dxLayoutItem5: TdxLayoutItem;
|
||||
dxLayoutItem6: TdxLayoutItem;
|
||||
dxLayoutItem7: TdxLayoutItem;
|
||||
dxLayoutItem8: TdxLayoutItem;
|
||||
dxLayoutItem9: TdxLayoutItem;
|
||||
dxLayoutItem10: TdxLayoutItem;
|
||||
procedure cxButton4Click(Sender: TObject);
|
||||
procedure cxButton1Click(Sender: TObject);
|
||||
procedure cxButton5Click(Sender: TObject);
|
||||
procedure cxButton2Click(Sender: TObject);
|
||||
procedure cxButton3Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
procedure initTimeType(mType:string);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
//uses
|
||||
// U_RTFun;
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmFrameDateSel10.cxButton1Click(Sender: TObject);
|
||||
begin
|
||||
BegDate.Date := StartOfTheMonth(strToDate(FormatDateTime('yyyy-MM-dd', Now)));
|
||||
EndDate.Date := EndOfTheMonth(strToDate(FormatDateTime('yyyy-MM-dd', Now)));
|
||||
end;
|
||||
|
||||
procedure TfrmFrameDateSel10.cxButton2Click(Sender: TObject);
|
||||
begin
|
||||
if cbbType.Text = 'ÈÕ' then
|
||||
begin
|
||||
BegDate.Date := BegDate.Date - 1;
|
||||
EndDate.Date := EndDate.Date - 1;
|
||||
end;
|
||||
if cbbType.Text = 'ÔÂ' then
|
||||
begin
|
||||
BegDate.Date := StartOfTheMonth(StartOfTheMonth(EndDate.Date) - 1);
|
||||
EndDate.Date := EndOfTheMonth(StartOfTheMonth(EndDate.Date) - 1);
|
||||
end;
|
||||
if cbbType.Text = 'Äê' then
|
||||
begin
|
||||
BegDate.Date := StartOfTheMonth(strToDate(FormatDateTime('yyyy-01-01', strToDate(FormatDateTime('yyyy-01-01', EndDate.Date)) - 1)));
|
||||
EndDate.Date := EndOfTheMonth(strToDate(FormatDateTime('yyyy-12-01', BegDate.Date)));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFrameDateSel10.cxButton3Click(Sender: TObject);
|
||||
begin
|
||||
if cbbType.Text = 'ÈÕ' then
|
||||
begin
|
||||
BegDate.Date := BegDate.Date + 1;
|
||||
EndDate.Date := EndDate.Date + 1;
|
||||
end;
|
||||
if cbbType.Text = 'ÔÂ' then
|
||||
begin
|
||||
BegDate.Date := EndOfTheMonth(EndDate.Date) + 1;
|
||||
EndDate.Date := EndOfTheMonth(EndOfTheMonth(EndDate.Date) + 1);
|
||||
end;
|
||||
if cbbType.Text = 'Äê' then
|
||||
begin
|
||||
BegDate.Date := StartOfTheMonth(strToDate(FormatDateTime('yyyy-01-01', strToDate(FormatDateTime('yyyy-12-31', EndDate.Date)) + 1)));
|
||||
EndDate.Date := EndOfTheMonth(strToDate(FormatDateTime('yyyy-12-01', BegDate.Date)));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmFrameDateSel10.cxButton4Click(Sender: TObject);
|
||||
begin
|
||||
BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', Now));
|
||||
EndDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', Now));
|
||||
end;
|
||||
|
||||
procedure TfrmFrameDateSel10.cxButton5Click(Sender: TObject);
|
||||
begin
|
||||
BegDate.Date := StartOfTheMonth(strToDate(FormatDateTime('yyyy-01-01', Now)));
|
||||
EndDate.Date := EndOfTheMonth(strToDate(FormatDateTime('yyyy-12-01', Now)));
|
||||
end;
|
||||
|
||||
/////////////////////////////////////////////////
|
||||
///
|
||||
procedure TfrmFrameDateSel10.initTimeType(mType:string);
|
||||
var
|
||||
array_str:TArray<string>;
|
||||
begin
|
||||
if trim(mType)='' then exit;
|
||||
array_str:=mtype.Split([',']) ;
|
||||
TimeType.Properties.Items.Clear;
|
||||
TimeType.Properties.Items.AddStrings(array_str) ;
|
||||
TimeType.ItemIndex:=0;
|
||||
end;
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user