📄 fjveditortest.dfm
字号:
' s_dateCh DATE, /* '#228#224#242#224' '#232#231#236#229#237#229#237#232#255' ' +
' */'
' s_dateOut DATE, /* '#228#224#242#224' '#241#239#232#241#224#237#232#255' ' +
' */'
' s_fst_summa NUMERIC(15,2), /* '#239#229#240#226#238#237#224#247#224#235#252#237#224#255' '#241#242#238#232#236 +
#238#241#242#252' */'
' s_am_summa NUMERIC(15,2), /* '#239#229#240#226#238#237#224#247#224#235#252#237#224#255' '#241#242#238#232#236 +
#238#241#242#252' */'
' s_uclient INTEGER, /* '#238#242#226#229#242#241#242#226#229#237#237#251#233' ' +
' */'
' s_typeAm INTEGER, /* '#242#232#239' '#240#224#241#247#229#242#224' '#224#236#238#240#242#232#231#224 +
#246#232#232' */'
' s_typeRa INTEGER, /* '#242#232#239' '#240#224#241#247#229#242#224' '#239#229#240#229#238#246#229#237 +
#234#232' */'
' s_param1 CHAR(15), /* '#239#224#240#224#236#229#242#240#251' ' +
' */'
' s_param2 CHAR(15),'
' s_param3 CHAR(15),'
' s_param4 CHAR(15),'
' s_param5 CHAR(15) /*.....................' +
'....*/'
' )'
'AS'
'BEGIN'
' FOR SELECT unicum, isActive, stat, uSelf,'
' type, card, inv, name, place,'
' dateBorn, dateReg, summaReg,'
' league, subcount, fond, amort'
' FROM bresours'
' WHERE ( ( :act = 0 OR'
' (:act = 1 AND isActive IS NULL) OR'
' (:act = 2 AND isActive IS NOT NULL) ) AND'
' ( :gr = -1 OR type = :gr) AND'
' ( :sc = "*" OR subcount = :sc) AND'
' ( :lg = -1 OR league = :lg)'
' )'
' INTO :f_unicum, :f_isActive, :f_stat, :f_uSelf,'
' :f_type, :f_card, :f_inv, :f_name, ' +
' :f_place,'
' :f_dateBorn, :f_dateReg, :f_summaReg,'
' :f_league, :f_subcount, :f_fond, :f_amort'
' DO BEGIN'
' SELECT ubres, dateCh, dateOut, fst_summa, am_summa, uc' +
'lient,'
' typeAm, typeRa, param1, param2, param3, param4, ' +
'param5'
' FROM br_changed'
' WHERE (ubres = :f_unicum AND '
' dateCh = (SELECT MAX(dateCh) FROM br_changed WH' +
'ERE ubres = :f_unicum))'
' ORDER BY dateCh DESC'
' INTO :s_ubres, :s_dateCh, :s_dateOut, :s_fst_summa, :s_' +
'am_summa, :s_uclient,'
' :s_typeAm, :s_typeRa, :s_param1, :s_param2, :s_para' +
'm3, :s_param4, :s_param5;'
' SUSPEND;'
' END'
' EXIT;'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE PROCEDURE bres_insert /* 001 */'
'RETURNS(f_unicum INTEGER)'
'AS'
'DECLARE VARIABLE t_uType INTEGER;'
'BEGIN'
' SELECT MAX(unicum) FROM br_type INTO :t_uType;'
' IF (:t_uType IS NULL) THEN'
' BEGIN'
' INSERT INTO br_type VALUES (0,"'#205#229#238#239#240#229#228#229#235#229#237#237#224#255' '#227#240#243#239#239#224' ('#236'. '#243#228#224 +
#235#232#242#252')");'
' t_uType = 0;'
' END'
' f_unicum = GEN_ID(bres_unicum_gen, 1);'
' INSERT INTO bresours(unicum,type) VALUES (:f_unicum,:t_uType);'
' EXIT;'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'COMMIT WORK ^'
'SET TERM ; ^'
'/*==============================================================' +
'====*/'
'/*============= T R I G G E R S ================================' +
'====*/'
'/*==============================================================' +
'====*/'
''
'/*======= B R _ T Y P E =======================================' +
'=====*/'
'SET TERM ^ ;'
''
'CREATE TRIGGER brt_insert_bf FOR br_type'
'ACTIVE BEFORE INSERT POSITION 0'
'AS'
'BEGIN'
' IF (NEW.unicum IS NULL) THEN'
' NEW.unicum = GEN_ID(brt_unicum_gen, 1);'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brt_insert_af FOR br_type'
'ACTIVE AFTER INSERT POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRT_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brt_update_af FOR br_type'
'ACTIVE AFTER UPDATE POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRT_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brt_delete_af FOR br_type'
'ACTIVE AFTER DELETE POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRT_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'COMMIT WORK ^'
'SET TERM ; ^'
''
'/*======= B R _ T Y P E C A L C ================================' +
'==*/'
'SET TERM ^ ;'
''
'CREATE TRIGGER brtc_insert_bf FOR br_typeCalc'
'ACTIVE BEFORE INSERT POSITION 0'
'AS'
'BEGIN'
' IF (NEW.unicum IS NULL) THEN'
' NEW.unicum = GEN_ID(brtc_unicum_gen, 1);'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brtc_insert_af FOR br_typeCalc'
'ACTIVE AFTER INSERT POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRTC_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brtc_update_af FOR br_typeCalc'
'ACTIVE AFTER UPDATE POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRTC_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'CREATE TRIGGER brtc_delete_af FOR br_typeCalc'
'ACTIVE AFTER DELETE POSITION 0'
'AS'
'BEGIN'
' POST_EVENT "BRTC_CHANGED";'
'END'
' ^'
'/*--------------------------------------------------------------' +
'--*/'
'COMMIT WORK ^'
'SET TERM ; ^'
'')
GutterWidth = 16
RightMarginVisible = False
RightMargin = 0
RightMarginColor = clSilver
Completion.DropDownCount = 8
Completion.Enabled = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.Templates.Strings = (
'crp=create procedure=create procedure | as/nbegin/nend')
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
SelForeColor = clHighlightText
SelBackColor = clHighlight
OnPaintGutter = RAEditorPaintGutter
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlSql
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clOlive
Colors.Comment.BackColor = clWindow
Colors.Number.ForeColor = clNavy
Colors.Number.BackColor = clWindow
Colors.Strings.ForeColor = clPurple
Colors.Strings.BackColor = clWindow
Colors.Symbol.ForeColor = clBlue
Colors.Symbol.BackColor = clWindow
Colors.Reserved.Style = [fsBold]
Colors.Reserved.ForeColor = clBlack
Colors.Reserved.BackColor = clWindow
Colors.Identifier.ForeColor = clBlack
Colors.Identifier.BackColor = clWindow
Colors.Preproc.ForeColor = clGreen
Colors.Preproc.BackColor = clWindow
Colors.FunctionCall.ForeColor = clWindowText
Colors.FunctionCall.BackColor = clWindow
Colors.Declaration.ForeColor = clWindowText
Colors.Declaration.BackColor = clWindow
Colors.Statement.Style = [fsBold]
Colors.Statement.ForeColor = clWindowText
Colors.Statement.BackColor = clWindow
Colors.PlainText.ForeColor = clWindowText
Colors.PlainText.BackColor = clWindow
end
end
object TabSheet6: TTabSheet
Caption = 'Python'
object RAHLEditor1: TJvHLEditor
Tag = 2
Left = 0
Top = 0
Width = 533
Height = 318
Cursor = crIBeam
Lines.Strings = (
'# Dialog.py -- Tkinter interface to the tk_dialog script.'
''
'from Tkinter import *'
'from Tkinter import _cnfmerge'
''
'if TkVersion <= 3.6:'
' DIALOG_ICON = '#39'warning'#39
'else:'
' DIALOG_ICON = '#39'questhead'#39
''
''
'class Dialog(Widget):'
' def __init__(self, master=None, cnf={}, **kw):'
' cnf = _cnfmerge((cnf, kw))'
' self.widgetName = '#39'__dialog__'#39
' Widget._setup(self, master, cnf)'
' self.num = self.tk.getint('
' apply(self.tk.call,'
' ('#39'tk_dialog'#39', self._w,'
' cnf['#39'title'#39'], cnf['#39'text'#39'], '
' cnf['#39'bitmap'#39'], cnf['#39'default'#39'])'
' + cnf['#39'strings'#39']))'
' try: Widget.destroy(self)'
' except TclError: pass'
' def destroy(self): pass'
''
'def _test():'
' d = Dialog(None, {'#39'title'#39': '#39'File Modified'#39','
' '#39'text'#39':'
' '#39'File "Python.h" has been modified'#39
' '#39' since the last time it was saved.'#39
' '#39' Do you want to save it before'#39
' '#39' exiting the application.'#39','
' '#39'bitmap'#39': DIALOG_ICON,'
' '#39'default'#39': 0,'
' '#39'strings'#39': ('#39'Save File'#39', '
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -