You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

250 lines
7.3 KiB
Plaintext

11 months ago
object frm_op_delnote: Tfrm_op_delnote
Left = 471
Top = 306
Width = 196
Height = 243
Caption = #30003#35831#21024#38500
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object bsSkinGroupBox9: TbsSkinGroupBox
Left = 0
Top = 0
Width = 180
Height = 205
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'groupbox'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
AutoEnabledControls = True
CheckedMode = False
Checked = False
DefaultAlignment = taLeftJustify
DefaultCaptionHeight = 22
BorderStyle = bvFrame
CaptionMode = True
RollUpMode = False
RollUpState = False
NumGlyphs = 1
Spacing = 2
Caption = #30003#35831#19994#21153#21024#38500#21407#22240
Align = alClient
object lbl4: TLabel
Left = 4
Top = 32
Width = 60
Height = 12
Caption = #30003' '#35831' '#20154#65306
Transparent = True
end
object lbl5: TLabel
Left = 4
Top = 56
Width = 60
Height = 12
Caption = #30003#35831#26085#26399#65306
Transparent = True
end
object lbl6: TLabel
Left = 5
Top = 78
Width = 72
Height = 12
Caption = #30003#35831#21024#38500#21407#22240
Transparent = True
end
object bsSkinSpeedButton1: TbsSkinSpeedButton
Left = 158
Top = 93
Width = 23
Height = 25
SkinData = frm_main.bsSkinData1
SkinDataName = 'toolbutton'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
Transparent = False
Flat = False
AllowAllUp = False
Down = False
GroupIndex = 0
Caption = '...'
NumGlyphs = 2
Spacing = 1
OnClick = bsSkinSpeedButton1Click
end
object bsSkinButton56: TbsSkinButton
Left = 58
Top = 176
Width = 73
Height = 25
TabOrder = 0
SkinData = frm_main.bsSkinData1
SkinDataName = 'button'
DefaultFont.Charset = DEFAULT_CHARSET
DefaultFont.Color = clWindowText
DefaultFont.Height = 14
DefaultFont.Name = 'Arial'
DefaultFont.Style = []
DefaultWidth = 0
DefaultHeight = 0
UseSkinFont = True
RepeatMode = False
RepeatInterval = 100
AllowAllUp = False
TabStop = True
CanFocused = True
Down = False
GroupIndex = 0
Caption = #30830#23450
Glyph.Data = {
36030000424D3603000000000000360100002800000020000000100000000100
08000000000000020000C30E0000C30E0000400000004000000000000000FFFF
FF00FF00FF00B73D3D00C95C5C00CA5F5F00CC656500CC666600CD696900CE6B
6B00CE6C6C00CF6E6E00CF6F6F00D2777700D7868600DA909000DC959500DE9B
9B0000660000149D210019AA2B00179D27001AB02D001BA92E001DB132001EB2
31001FB133001EAE310022B7380021B4370025A83B0031C24F0031B54D003BCB
5E0041C5630047D36D004FD6790053DE7F00CACACA00C4C4C400BFBFBF00BCBC
BC00B8B8B800B5B5B500AEAEAE00ABABAB00A5A5A500A4A4A4009F9F9F009E9E
9E009D9D9D009C9C9C009B9B9B009A9A9A009999990098989800979797009494
940093939300929292008C8C8C008A8A8A007A7A7A0065656500020202020202
0202020202020202020202020202020202020202020202020202020202020202
0202020202020202020202020202020202020202020202020202020202020202
121202020202020202020202020202023F3F0202020202020202020202020212
191A120202020202020202020202023F35353F0202020202020202020202121F
1C161D12020202020202020202023F2D3138333F020202020202020202122321
1E1217181202020202020202023F282B373F39363F0202020202020212242520
120212151B120202020202023F27262E3F023F3C373F02020202020202122212
0A0302021214120202020202023F2B3F323E02023F3A3F02020202020203120C
080B03020212131202020202023E3F3034313E02023F3D3F02020202030F0E08
0307090302020212120202023E2B2C343E36333E0202023F3F02020310110D03
02030508030202021212023E2A292F3E023E39343E0202023F3F0202030E0302
0202020306030202020202023E2C3E020202023E373E02020202020202030202
020202020304030202020202023E0202020202023E3B3E020202020202020202
020202020202030302020202020202020202020202023E3E0202020202020202
02020202020202030302020202020202020202020202023E3E02020202020202
0202020202020202020202020202020202020202020202020202}
NumGlyphs = 2
Spacing = 1
ModalResult = 1
end
object dbedt4: TDBEdit
Left = 66
Top = 28
Width = 114
Height = 20
DataField = #30003#35831#20154
DataSource = ds_op_delnote1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 1
end
object dbedt5: TDBEdit
Left = 66
Top = 52
Width = 114
Height = 20
DataField = #30003#35831#26085#26399
DataSource = ds_op_delnote1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
end
object DBMemo1: TDBMemo
Left = 8
Top = 120
Width = 173
Height = 49
DataField = #30003#35831#21407#22240
DataSource = ds_op_delnote1
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 3
end
object RxDBLookupCombo2: TRxDBLookupCombo
Left = 9
Top = 96
Width = 147
Height = 20
DropDownCount = 20
DropDownWidth = 200
DisplayAllFields = True
Color = clWhite
DisplayEmpty = '<'#26080'>'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
LookupField = #21024#38500#21407#22240
LookupDisplay = #21024#38500#21407#22240
LookupSource = t_code_del1
ParentFont = False
TabOrder = 4
OnChange = RxDBLookupCombo2Change
end
end
object ds_op_delnote1: TDataSource
DataSet = t_op_delnote
Left = 72
Top = 120
end
object t_op_delnote: TADOQuery
Connection = frm_main.db
AfterInsert = t_op_delnoteAfterInsert
BeforePost = t_op_delnoteBeforePost
Parameters = <
item
Name = #32534#21495
DataType = ftString
NumericScale = 255
Precision = 255
Size = 20
Value = Null
end>
SQL.Strings = (
'select * from t_op_delnote where '#32534#21495'=:'#32534#21495)
Left = 16
Top = 140
end
object DataSource1: TDataSource
Left = 136
Top = 140
end
object t_code_del: TADOQuery
Connection = frm_main.db
Parameters = <>
SQL.Strings = (
'select * from t_code_del')
Left = 52
Top = 20
end
object t_code_del1: TDataSource
DataSet = t_code_del
Left = 100
Top = 16
end
end