📄 unit1.dfm
字号:
object Form1: TForm1
Left = 254
Top = 138
Width = 500
Height = 350
AutoSize = True
Caption = #23567#21306#29289#19994#31649#29702#31995#32479
Color = clWindow
Constraints.MaxHeight = 350
Constraints.MaxWidth = 500
Constraints.MinHeight = 350
Constraints.MinWidth = 500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poDefault
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object StatusBar1: TStatusBar
Left = 1
Top = 282
Width = 492
Height = 19
Align = alNone
Constraints.MaxWidth = 492
Constraints.MinWidth = 492
Panels = <
item
Alignment = taRightJustify
Width = 100
end
item
Alignment = taRightJustify
Width = 200
end
item
Width = 100
end>
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 492
Height = 282
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
TabOrder = 1
object Label1: TLabel
Left = 9
Top = 33
Width = 192
Height = 51
Caption = #27426#36814#36827#20837
Font.Charset = GB2312_CHARSET
Font.Color = clGray
Font.Height = -48
Font.Name = #21326#25991#34892#26999
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 104
Top = 120
Width = 384
Height = 51
Caption = #23567#21306#29289#19994#31649#29702#31995#32479
end
end
object MainMenu1: TMainMenu
BiDiMode = bdLeftToRight
ParentBiDiMode = False
Left = 408
Top = 16
object N38: TMenuItem
Caption = '-'
end
object DataInput: TMenuItem
Caption = #22522#26412#25968#25454#24405#20837
object FXZLLR: TMenuItem
Caption = #25151#22411#36164#26009#24405#20837
OnClick = FXZLLRClick
end
object ZHZLLR: TMenuItem
Caption = #20303#25143#36164#26009#24405#20837
OnClick = ZHZLLRClick
end
object N35: TMenuItem
Caption = '-'
end
object SFGL: TMenuItem
Caption = #29289#19994#25910#36153#39033#30446#31649#29702
OnClick = SFGLClick
end
object N37: TMenuItem
Caption = '-'
end
object TCCCWLR: TMenuItem
Caption = #20572#36710#22330#36710#20301#36164#26009#24405#20837
OnClick = TCCCWLRClick
end
end
object WYManage: TMenuItem
Caption = #29289#19994#31649#29702
object TSGL: TMenuItem
Caption = #20303#25143#25237#35785#31649#29702
OnClick = TSGLClick
end
object BXGL: TMenuItem
Caption = #20303#25143#25253#20462#31649#29702
OnClick = BXGLClick
end
object N47: TMenuItem
Caption = '-'
end
object TCGL: TMenuItem
Caption = #20303#25143#20572#36710#36710#20301#31649#29702
OnClick = TCGLClick
end
object N44: TMenuItem
Caption = '-'
end
object WYJFGL: TMenuItem
Caption = #29289#19994#32564#36153#31649#29702
OnClick = WYJFGLClick
end
object YFKGL: TMenuItem
Caption = #20303#25143#39044#20184#27454#31649#29702
OnClick = YFKGLClick
end
end
object rptMenu: TMenuItem
Caption = #32479#35745#25253#34920#19982#26597#35810
object TSBB: TMenuItem
Caption = #20303#25143#25237#35785#32479#35745#25253#34920
OnClick = TSBBClick
end
object BXBB: TMenuItem
Caption = #20303#25143#25253#20462#32479#35745#25253#34920
OnClick = BXBBClick
end
object N41: TMenuItem
Caption = '-'
end
object SFTJBB: TMenuItem
Caption = #29289#19994#25910#36153#32479#35745#25253#34920
OnClick = SFTJBBClick
end
end
object SYSMENU: TMenuItem
Caption = #31995#32479#31649#29702
RadioItem = True
object CHANGEPASSWORD: TMenuItem
Caption = #29992#25143#21475#20196#20462#25913
OnClick = CHANGEPASSWORDClick
end
object N2: TMenuItem
Caption = #22686#21152#29992#25143
OnClick = N2Click
end
object N3: TMenuItem
Caption = #21024#38500#29992#25143
OnClick = N3Click
end
object N40: TMenuItem
Caption = '-'
end
object ReLogin: TMenuItem
Caption = #37325#26032#30331#38470
OnClick = ReLoginClick
end
object EXITMENU: TMenuItem
Caption = #36864#20986
ShortCut = 16468
OnClick = EXITMENUClick
end
end
object N9: TMenuItem
Caption = #24110#21161
object SystemHelp: TMenuItem
Caption = #24110#21161
ShortCut = 112
OnClick = SystemHelpClick
end
object About: TMenuItem
Caption = #20851#20110
OnClick = AboutClick
end
end
object N1: TMenuItem
Caption = #36864#20986
OnClick = N1Click
end
object N7: TMenuItem
Caption = ' '
end
end
object ADOQuery1: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '#25805#20316#35760#24405#34920' order by '#25805#20316'ID desc'
'')
Left = 40
Top = 200
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=XQ.mdb;Persist Secu' +
'rity Info=False'
CursorType = ctStatic
TableName = #25805#20316#35760#24405#65288#29992#25143#65289#34920
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -