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;
free;
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.MaxRollNoKeyPress(Sender: TObject; var Key: Char);
begin

View File

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

View File

@ -8,7 +8,21 @@ uses
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,strUtils,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
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
TfrmSysLogOrder = class(TForm)