This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-02 17:19:10 +08:00
parent 9d3d0fc81e
commit 324b6161ad
3 changed files with 38 additions and 25 deletions

View File

@ -2995,7 +2995,7 @@ begin
showmodal; showmodal;
free; free;
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.MaxRollNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmMJManageNewFDNewSF.MaxRollNoKeyPress(Sender: TObject; var Key: Char);
begin begin

View File

@ -24,7 +24,7 @@ object frmSysLogOrder: TfrmSysLogOrder
Width = 1370 Width = 1370
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 65
Caption = 'ToolBar1' Caption = 'ToolBar1'
Flat = True Flat = True
Images = ThreeImgList Images = ThreeImgList
@ -35,15 +35,15 @@ object frmSysLogOrder: TfrmSysLogOrder
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#35810 Caption = 'Query'
ImageIndex = 21 ImageIndex = 21
OnClick = TQryClick OnClick = TQryClick
end end
object Tclose: TToolButton object Tclose: TToolButton
Left = 63 Left = 69
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = 'close'
ImageIndex = 55 ImageIndex = 55
OnClick = TcloseClick OnClick = TcloseClick
end end
@ -87,7 +87,7 @@ object frmSysLogOrder: TfrmSysLogOrder
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object tv1OperMan: TcxGridDBColumn object tv1OperMan: TcxGridDBColumn
Caption = #25805#20316#20154 Caption = 'Operator'
DataBinding.FieldName = 'Operor' DataBinding.FieldName = 'Operor'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -95,33 +95,32 @@ object frmSysLogOrder: TfrmSysLogOrder
Width = 69 Width = 69
end end
object tv1jopertime: TcxGridDBColumn object tv1jopertime: TcxGridDBColumn
Caption = #25805#20316#26102#38388 Caption = 'Operation Time'
DataBinding.FieldName = 'opertime' DataBinding.FieldName = 'opertime'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 170 Width = 229
end end
object tv1Model: TcxGridDBColumn object tv1Model: TcxGridDBColumn
Caption = #25152#23646#27169#22359 Caption = 'Belonging Module'
DataBinding.FieldName = 'Model' DataBinding.FieldName = 'Model'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 127 Width = 281
end end
object tv1acction: TcxGridDBColumn object tv1acction: TcxGridDBColumn
Caption = #25805#20316#31867#22411 Caption = 'Operation Type'
DataBinding.FieldName = 'acction' DataBinding.FieldName = 'acction'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 97 Width = 234
end end
object tv1Result: TcxGridDBColumn object tv1Result: TcxGridDBColumn
Caption = #32467#26524
DataBinding.FieldName = 'Result' DataBinding.FieldName = 'Result'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 63 Width = 201
end end
object tv1Opevent: TcxGridDBColumn object tv1Opevent: TcxGridDBColumn
Caption = #25805#20316#20869#23481 Caption = 'Operation content'
DataBinding.FieldName = 'Opevent' DataBinding.FieldName = 'Opevent'
Width = 974 Width = 400
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -145,11 +144,11 @@ object frmSysLogOrder: TfrmSysLogOrder
Caption = '--' Caption = '--'
end end
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 32
Top = 14 Top = 14
Width = 48 Width = 24
Height = 12 Height = 12
Caption = #25805#20316#26085#26399 Caption = 'Time'
end end
object Label3: TLabel object Label3: TLabel
Left = 408 Left = 408
@ -159,11 +158,11 @@ object frmSysLogOrder: TfrmSysLogOrder
Caption = #25152#23646#27169#22359 Caption = #25152#23646#27169#22359
end end
object Label4: TLabel object Label4: TLabel
Left = 436 Left = 412
Top = 16 Top = 16
Width = 48 Width = 102
Height = 12 Height = 12
Caption = #25805#20316#20869#23481 Caption = 'Operation content'
end end
object begDate: TDateTimePicker object begDate: TDateTimePicker
Left = 62 Left = 62
@ -198,7 +197,7 @@ object frmSysLogOrder: TfrmSysLogOrder
Top = 12 Top = 12
Width = 121 Width = 121
Height = 17 Height = 17
Caption = #26102#38388#26465#20214#26159#21542#26377#25928 Caption = 'Effective'
Checked = True Checked = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -210,7 +209,7 @@ object frmSysLogOrder: TfrmSysLogOrder
TabOrder = 3 TabOrder = 3
end end
object edt_nr: TEdit object edt_nr: TEdit
Left = 492 Left = 516
Top = 11 Top = 11
Width = 250 Width = 250
Height = 20 Height = 20

View File

@ -8,7 +8,21 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,strUtils, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,strUtils,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, ExtCtrls, ImgList, cxControls, cxGridCustomView, cxGrid, ADODB, StdCtrls, ExtCtrls, ImgList,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
type type
TfrmSysLogOrder = class(TForm) TfrmSysLogOrder = class(TForm)