📄 unit_systemaffiche.dfm
字号:
object Frm_SystemAffiche: TFrm_SystemAffiche
Left = 88
Top = 258
Width = 670
Height = 450
Caption = '公告录入'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Panel6: TPanel
Left = 248
Top = 0
Width = 414
Height = 416
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object Panel3: TPanel
Left = 0
Top = 0
Width = 414
Height = 36
Align = alTop
BevelOuter = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 300
Top = 11
Width = 56
Height = 14
Caption = '公告类型'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 89
Top = 12
Width = 28
Height = 14
Caption = '局向'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 175
Top = 11
Width = 28
Height = 14
Caption = '级别'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 3
Top = 12
Width = 28
Height = 14
Caption = '地市'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Fcom_jx: TFlatComboBox
Left = 118
Top = 8
Width = 52
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 0
ItemIndex = -1
OnKeyPress = Fcom_jxKeyPress
end
object Fcom_jb: TFlatComboBox
Left = 205
Top = 7
Width = 92
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 1
ItemIndex = -1
end
object Fcom_gglx: TFlatComboBox
Left = 358
Top = 8
Width = 52
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
Items.Strings = (
'一般'
'中等'
'重要')
TabOrder = 2
ItemIndex = -1
end
object FCom_city: TFlatComboBox
Left = 32
Top = 8
Width = 52
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 3
ItemIndex = -1
OnChange = FCom_cityChange
OnKeyPress = Fcom_jxKeyPress
end
end
object Panel5: TPanel
Left = 0
Top = 36
Width = 414
Height = 23
Align = alTop
BevelOuter = bvLowered
Caption = '发布内容'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object FMemo_ggnr: TMemo
Left = 0
Top = 59
Width = 414
Height = 321
Align = alClient
ImeName = '中文 (简体) - 智能 ABC'
TabOrder = 2
end
object Panel2: TPanel
Left = 0
Top = 380
Width = 414
Height = 36
Align = alBottom
BevelOuter = bvLowered
TabOrder = 3
object Panel1: TPanel
Left = -12
Top = 1
Width = 425
Height = 34
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object BitBtn_gb: TFlatButton
Left = 348
Top = 6
Width = 70
Height = 25
Caption = '关闭'
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 0
OnClick = BitBtn_gbClick
Anchors = [akRight, akBottom]
end
object BitBtn_qx: TFlatButton
Left = 276
Top = 6
Width = 70
Height = 25
Caption = '取消'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 1
OnClick = BitBtn_qxClick
Anchors = [akRight, akBottom]
end
object BitBtn_bc: TFlatButton
Left = 204
Top = 6
Width = 70
Height = 25
Caption = '保存'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
0003737FFFFFFFFF7F7330099999999900333777777777777733}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 2
OnClick = BitBtn_bcClick
Anchors = [akRight, akBottom]
end
object BitBtn_sc: TFlatButton
Left = 132
Top = 6
Width = 70
Height = 25
Caption = '删除'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003333333333333777333333333333
300033FFFFFF3333377739999993333333333777777F3333333F399999933333
3300377777733333337733333333333333003333333333333377333333333333
3333333333333333333F333333333333330033333F33333333773333C3333333
330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
333333377F33333333FF3333C333333330003333733333333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 3
OnClick = BitBtn_scClick
Anchors = [akRight, akBottom]
end
object BitBtn_zj: TFlatButton
Left = 60
Top = 6
Width = 70
Height = 25
Caption = '增加'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333FF33333333FF333993333333300033377F3333333777333993333333
300033F77FFF3333377739999993333333333777777F3333333F399999933333
33003777777333333377333993333333330033377F3333333377333993333333
3333333773333333333F333333333333330033333333F33333773333333C3333
330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
333333333337733333FF3333333C333330003333333733333777333333333333
3000333333333333377733333333333333333333333333333333}
Layout = blGlyphLeft
NumGlyphs = 2
TabOrder = 4
OnClick = BitBtn_zjClick
Anchors = [akRight, akBottom]
end
end
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 248
Height = 416
Align = alLeft
DataSource = DataSource1
ImeName = '中文 (简体) - 智能 ABC'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
OnTitleClick = DBGrid1TitleClick
Columns = <
item
Expanded = False
FieldName = 'WK_NO'
Title.Caption = '工号'
Width = 78
Visible = True
end
item
Expanded = False
FieldName = 'PUBTIME'
Title.Caption = '公告时间'
Width = 152
Visible = True
end>
end
object Query_gg: TQuery
AfterScroll = Query_ggAfterScroll
DatabaseName = 'db_vipdl'
Left = 88
Top = 228
end
object DataSource1: TDataSource
DataSet = Query_gg
Left = 35
Top = 63
end
object Query2: TQuery
DatabaseName = 'db_vipdl'
Left = 82
Top = 75
end
object QueryRYJB: TQuery
DatabaseName = 'db_vipdl'
SQL.Strings = (
'')
Left = 126
Top = 102
end
object Query_ggxx: TQuery
DatabaseName = 'db_vipdl'
Left = 40
Top = 279
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -