📄 unit1.dfm
字号:
object Form1: TForm1
Left = 259
Top = 197
AutoScroll = False
Caption = #21150#20844#33258#21160#21270
ClientHeight = 29
ClientWidth = 292
Color = clBtnFace
Constraints.MinHeight = 50
Constraints.MinWidth = 300
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Scaled = False
OnClick = FormClick
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object suiPopupMenu1: TsuiPopupMenu
Alignment = paCenter
OwnerDraw = True
FileTheme = suiFileTheme1
UIStyle = FromThemeFile
MenuItemHeight = 21
SeparatorHeight = 5
BarWidth = 26
BarColor = 15658992
Color = clWhite
SeparatorColor = 8684164
SelectedBorderColor = 12937777
SelectedColor = 12937777
SelectedFontColor = clWhite
FontColor = clBlack
BorderColor = clBlack
FlatMenu = True
FontName = 'MS Sans Serif'
FontSize = 8
FontCharset = DEFAULT_CHARSET
UseSystemFont = True
Left = 32
object N1: TMenuItem
AutoCheck = True
Caption = #21608#19968#21608#22235'B'#38376#24215#25171#21360
OnClick = N1Click
end
object N2: TMenuItem
AutoCheck = True
Caption = #21608#20108#21608#20116'C'#38376#24215#25171#21360
OnClick = N2Click
end
object N3: TMenuItem
AutoCheck = True
Caption = #21608#19977#21608#20845'A'#38376#24215#25171#21360
OnClick = N3Click
end
object N16: TMenuItem
Caption = '-'
end
object N6: TMenuItem
AutoCheck = True
Caption = #35814#32454#20171#32461#21508#31867#34920#21517
OnClick = N6Click
end
object N7: TMenuItem
AutoCheck = True
Caption = #38376#24215#32852#31995#36164#26009#26032#29256
OnClick = N7Click
end
object N8: TMenuItem
AutoCheck = True
Caption = #26410#37197#25490#21517#26032#29256
OnClick = N8Click
end
object N13: TMenuItem
AutoCheck = True
Caption = #37038#20214#25910#21457#31995#32479
OnClick = N13Click
end
object N14: TMenuItem
Caption = '-'
end
object N5: TMenuItem
AutoCheck = True
Caption = #38376#24215#32852#31995#36164#26009#26087#29256
OnClick = N5Click
end
object N9: TMenuItem
AutoCheck = True
Caption = #26152#26085#38144#21806#26087#29256
OnClick = N9Click
end
object N10: TMenuItem
AutoCheck = True
Caption = #27531#27425#26087#29256
OnClick = N10Click
end
object N11: TMenuItem
AutoCheck = True
Caption = #28165#22330#26087#29256
OnClick = N11Click
end
object N12: TMenuItem
AutoCheck = True
Caption = #20805#20540#21345#26087#29256
OnClick = N12Click
end
object N15: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #36864#20986#31243#24207
OnClick = N4Click
end
end
object CoolTrayIcon1: TCoolTrayIcon
CycleInterval = 0
Icon.Data = {
0000010001002020080000000000A80800001600000028000000200000004000
0000010008000000000000040000000000000000000000000000000000000000
00004000000080000000FF000000002000004020000080200000FF2000000040
00004040000080400000FF400000006000004060000080600000FF6000000080
00004080000080800000FF80000000A0000040A0000080A00000FFA0000000C0
000040C0000080C00000FFC0000000FF000040FF000080FF0000FFFF00000000
20004000200080002000FF002000002020004020200080202000FF2020000040
20004040200080402000FF402000006020004060200080602000FF6020000080
20004080200080802000FF80200000A0200040A0200080A02000FFA0200000C0
200040C0200080C02000FFC0200000FF200040FF200080FF2000FFFF20000000
40004000400080004000FF004000002040004020400080204000FF2040000040
40004040400080404000FF404000006040004060400080604000FF6040000080
40004080400080804000FF80400000A0400040A0400080A04000FFA0400000C0
400040C0400080C04000FFC0400000FF400040FF400080FF4000FFFF40000000
60004000600080006000FF006000002060004020600080206000FF2060000040
60004040600080406000FF406000006060004060600080606000FF6060000080
60004080600080806000FF80600000A0600040A0600080A06000FFA0600000C0
600040C0600080C06000FFC0600000FF600040FF600080FF6000FFFF60000000
80004000800080008000FF008000002080004020800080208000FF2080000040
80004040800080408000FF408000006080004060800080608000FF6080000080
80004080800080808000FF80800000A0800040A0800080A08000FFA0800000C0
800040C0800080C08000FFC0800000FF800040FF800080FF8000FFFF80000000
A0004000A0008000A000FF00A0000020A0004020A0008020A000FF20A0000040
A0004040A0008040A000FF40A0000060A0004060A0008060A000FF60A0000080
A0004080A0008080A000FF80A00000A0A00040A0A00080A0A000FFA0A00000C0
A00040C0A00080C0A000FFC0A00000FFA00040FFA00080FFA000FFFFA0000000
C0004000C0008000C000FF00C0000020C0004020C0008020C000FF20C0000040
C0004040C0008040C000FF40C0000060C0004060C0008060C000FF60C0000080
C0004080C0008080C000FF80C00000A0C00040A0C00080A0C000FFA0C00000C0
C00040C0C00080C0C000FFC0C00000FFC00040FFC00080FFC000FFFFC0000000
FF004000FF008000FF00FF00FF000020FF004020FF008020FF00FF20FF000040
FF004040FF008040FF00FF40FF000060FF004060FF008060FF00FF60FF000080
FF004080FF008080FF00FF80FF0000A0FF0040A0FF0080A0FF00FFA0FF0000C0
FF0040C0FF0080C0FF00FFC0FF0000FFFF0040FFFF0080FFFF00FFFFFF000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000DF05000000000000000000000000000004FF000000000000000000
00000000BBDFFF0000000000000000000000000000FFDFFF0000000000000000
000000BBDFDFDFFF050000000000000000000000FFDFDFDFDF00000000000000
0000BBDBDBDFDFDFFF04000000000000000000FFDFDFDFDBDBDF000000000000
0077BBBBBBBBDBDFDFDF0400000000000000FFDFDFDFBBBBBBBBBB0000000000
77BBBBBBBBBBBBDBDFDFDF050000000000DFDFDFDFBBBBBBBBBBBBBB00000033
9B9B9B9B9B9BBBBBDBDFDFDF00000000DFDFDFDBBBBB9B9B9B9B9B9B33000000
3397779797979BBBBBBBDBDBDF0500DFDFDBDBBBBB9B97979777773300000000
00337777777777979BBBBBBBBBDBDBBBBBBBBBBB9B9777777777330000000000
00002F7757777777979BBBBBBBBBBBBBBBBB9B9777777757772F000000000000
0000000F53535357777797979B9B9B9B9B977777575353530F00000000000000
000000000F5333535353777777777777777753535333530F0000000000000000
00000000000F533333335353535353535353333333770F000000000000000000
0000000000000F532F2F2F2F333333332F2F2F2F730F00000000000000000000
000000000000000F530F0F0F0F0F0F0F0F0F0F530F0000000000000000000000
000000000000002F0F0F0F0F0F0F0F0F0F0F0F0F2F0000000000000000000000
0000000000000F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F00000000000000000000
0000000000535353535353535353530F0B0B0B0B0B0B0F000000000000000000
0000000053737373777777777777777373530B0B0B0B0B0B0000000000000000
0000007777979797979797979797979797777373530B0B0B0B00000000000000
000097979797B7B7B7BBBBBBBBBBBBB7B797979777737373732F000000000000
0097B7BBBBBBBBBBBBBBBBBBBB0B0BBBBBBBBB97979797979797970000000000
BBBBBBBBDBDBDBDBDBDBBBBB0B00000BBBBBBBBBBBB797979797979700000006
BBDBDBDBDFDFDFDFDBDBDB0B000000000BDBDBDBBBBBBBBBBBBBBBBB0B000000
0BBBDFFFFFFFFFFFFFDF0B0000000000000BDFDFDBDBDBDBBBBBDB0B00000000
0007DFFFFFFFFFFFFF07000000000000000007FFDFDFDBDBDBDF070000000000
000006FFFFFFFFFF070000000000000000000007FFFFFFFFFF07000000000000
00000007FFFFFF0B00000000000000000000000007FFFFFF0700000000000000
0000000006FF07000000000000000000000000000007FF060000000000000000
000000000006000000000000000000000000000000000700000000000000FFFF
FF7FFC7FFE3FF83FFC1FF01FF80FE00FF007C007E0038003C001800180008000
0001C0000003E0000007F000000FF800001FFC00003FFE00007FFF0000FFFF00
00FFFE00007FFC00003FF800001FF000000FE0000007C0000003800000018001
80008003C001C007E003E00FF007F01FF80FF83FFC1FFC7FFE3FFEFFFF7F}
IconIndex = 0
PopupMenu = suiPopupMenu1
LeftPopup = True
StartMinimized = True
MinimizeToTray = True
end
object Timer1: TTimer
Interval = 10000
OnTimer = Timer1Timer
Left = 64
end
object Timer2: TTimer
Interval = 180000
OnTimer = Timer2Timer
Left = 88
end
object suiMSNPopForm1: TsuiMSNPopForm
AnimateTime = 800
StayTime = 1000
PositionX = 0
PositionY = 0
AutoPosition = True
ClickHide = False
Title = #20449#24687#33258#21160#21270#36719#20214' v1.2'
MessageText = #24180#24180#23681#23681#33457#30456#20284#23681#23681#24180#24180#20154#19981#21516
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clNavy
TitleFont.Height = -16
TitleFont.Name = #21326#25991#34892#26999
TitleFont.Style = []
MessageFont.Charset = GB2312_CHARSET
MessageFont.Color = clRed
MessageFont.Height = -21
MessageFont.Name = #23435#20307
MessageFont.Style = []
Left = 56
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=blzb;Data Source=dbserver'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select *'
'from Table_gl')
Left = 120
end
object QExport3Dialog1: TQExport3Dialog
DataSet = ADOQuery1
RTFOptions.CaptionStyle.Font.Charset = DEFAULT_CHARSET
RTFOptions.CaptionStyle.Font.Color = clBlack
RTFOptions.CaptionStyle.Font.Height = -13
RTFOptions.CaptionStyle.Font.Name = 'Arial'
RTFOptions.CaptionStyle.Font.Style = [fsBold]
RTFOptions.CaptionStyle.Alignment = talCenter
RTFOptions.DataStyle.Font.Charset = DEFAULT_CHARSET
RTFOptions.DataStyle.Font.Color = clBlack
RTFOptions.DataStyle.Font.Height = -13
RTFOptions.DataStyle.Font.Name = 'Arial'
RTFOptions.DataStyle.Font.Style = []
RTFOptions.FooterStyle.Font.Charset = DEFAULT_CHARSET
RTFOptions.FooterStyle.Font.Color = clBlack
RTFOptions.FooterStyle.Font.Height = -13
RTFOptions.FooterStyle.Font.Name = 'Arial'
RTFOptions.FooterStyle.Font.Style = []
RTFOptions.HeaderStyle.Font.Charset = DEFAULT_CHARSET
RTFOptions.HeaderStyle.Font.Color = clBlack
RTFOptions.HeaderStyle.Font.Height = -13
RTFOptions.HeaderStyle.Font.Name = 'Arial'
RTFOptions.HeaderStyle.Font.Style = []
RTFOptions.StripStyles = <>
HTMLPageOptions.TextFont.Charset = DEFAULT_CHARSET
HTMLPageOptions.TextFont.Color = clWhite
HTMLPageOptions.TextFont.Height = -11
HTMLPageOptions.TextFont.Name = 'Arial'
HTMLPageOptions.TextFont.Style = []
CSVOptions.Comma = ','
PDFOptions.PageOptions.MarginLeft = 1.17
PDFOptions.PageOptions.MarginRight = 0.57
PDFOptions.PageOptions.MarginTop = 0.78
PDFOptions.PageOptions.MarginBottom = 0.78
XLSOptions.PageFooter = 'Page &P of &N'
XLSOptions.SheetTitle = 'Sheet 1'
XLSOptions.CaptionFormat.Font.Style = [xfsBold]
XLSOptions.HyperlinkFormat.Font.Color = clrBlue
XLSOptions.HyperlinkFormat.Font.Underline = fulSingle
XLSOptions.NoteFormat.Alignment.Horizontal = halLeft
XLSOptions.NoteFormat.Alignment.Vertical = valTop
XLSOptions.NoteFormat.Font.Size = 8
XLSOptions.NoteFormat.Font.Style = [xfsBold]
XLSOptions.NoteFormat.Font.Name = 'Tahoma'
XLSOptions.FieldFormats = <>
XLSOptions.StripStyles = <>
XLSOptions.Hyperlinks = <>
XLSOptions.Notes = <>
XLSOptions.Charts = <>
XLSOptions.Pictures = <>
XLSOptions.Images = <>
XLSOptions.Cells = <>
XLSOptions.MergedCells = <>
Left = 152
end
object ADOQuery2: TADOQuery
Active = True
CacheSize = 10
ConnectionString =
'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
'al Catalog=blzb;Data Source=dbserver'
CursorType = ctStatic
Filter =
'sc_id>'#39'f21'#39' and sc_id<>'#39'f24'#39' and sc_id<>'#39'f27'#39' and sc_id<>'#39'f30'#39' a' +
'nd sc_id<>'#39'f40'#39' and sc_id<>'#39'f45'#39' and sc_id<>'#39'f46'#39' and sc_id<>'#39'f5' +
'8'#39' and sc_id<>'#39'f99'#39
Filtered = True
Parameters = <>
SQL.Strings = (
'select sc_id,sc_mc,sc_lxdh,sc_lxr,sc_dz,sc_yysj,sc_kzrq'
'from Scbm'
'order by sc_id')
Left = 224
object ADOQuery2sc_id: TStringField
DisplayLabel = #38376#24215#20195#30721
FieldName = 'sc_id'
Size = 4
end
object ADOQuery2sc_mc: TStringField
DisplayLabel = #38376#24215#21517#31216
DisplayWidth = 8
FieldName = 'sc_mc'
Size = 8
end
object ADOQuery2sc_lxdh: TStringField
DisplayLabel = #32852#31995#30005#35805
DisplayWidth = 8
FieldName = 'sc_lxdh'
Size = 8
end
object ADOQuery2sc_lxr: TStringField
DisplayLabel = #38376#24215#24215#38271
DisplayWidth = 10
FieldName = 'sc_lxr'
Size = 10
end
object ADOQuery2sc_dz: TStringField
DisplayLabel = #38376#24215#22320#22336
DisplayWidth = 38
FieldName = 'sc_dz'
Size = 38
end
object ADOQuery2sc_yysj: TStringField
DisplayLabel = #33829#19994#26102#38388
FieldName = 'sc_yysj'
Size = 10
end
object ADOQuery2sc_kzrq: TDateTimeField
DisplayLabel = #24320#19994#26085#26399
DisplayWidth = 10
FieldName = 'sc_kzrq'
end
end
object suiThemeManager1: TsuiThemeManager
UIStyle = FromThemeFile
FileTheme = suiFileTheme1
CompList.Strings = (
'suiPopupMenu1')
Left = 176
end
object suiFileTheme1: TsuiFileTheme
ThemeFile = 'C:\My Documents\sui\msn.sui'
Left = 200
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -