📄 fjveditortest.dfm
字号:
' }'
' defDate = Date();'
'}'
'//--------------------------------------------------------------' +
'-------------'
'__fastcall TEditCaseDoc::~TEditCaseDoc()'
'{'
' if (NeedFilter) {'
' DM->tSubCount->Filter="";'
' DM->tSubCount->Filtered = false;'
' }'
'}'
'//--------------------------------------------------------------' +
'-------------'
'void __fastcall TEditCaseDoc::DBEnumKeyDown(TObject *Sender, WOR' +
'D &Key,'
' TShiftState Shift)'
'{'
' TShiftState Shift1(Shift);'
' Shift1.Clear();'
' if ((Shift == Shift1 || Shift.Contains(ssShift)) && (Key == VK' +
'_RETURN)){'
' Key = 0;'
' bool toForward(!Shift.Contains(ssShift));'
' TWinControl* vv = FindNextControl( ActiveControl, toForward' +
', true, false);'
' if (vv)'
' vv->SetFocus();'
' }'
' if (Key == VK_SPACE || Key == VK_DOWN || Key == VK_UP) {'
' Key = 0;'
' }'
'}'
'//--------------------------------------------------------------' +
'-------------'
'void __fastcall TEditCaseDoc::DBEarticleChange(TObject *Sender)'
'{'
' if((DBEarticle->DataSource->DataSet->State == dsEdit ||'
' DBEarticle->DataSource->DataSet->State == dsInsert) && DBEa' +
'rticle->Text == "")'
' DBEarticle->DataSource->DataSet->FieldByName(DBEarticle->Dat' +
'aField)->AsVariant = Null;'
'}'
'//--------------------------------------------------------------' +
'-------------'
'void __fastcall TEditCaseDoc::SBCal1Click(TObject *Sender)'
'{'
' try{'
' BrDateForm->Date = StrToDate(MEdateorder->Text);'
' }catch(EConvertError &E){'
' BrDateForm->Date = TDateTime(0).CurrentDate();'
' }'
' if (BrDateForm->ShowModal() == mrOk){'
' MEdateorder->Text = DateToStr(BrDateForm->Date);'
' ActiveControl = DBEsubcount;'
' }'
'}'
'')
GutterWidth = 16
RightMarginVisible = False
RightMargin = 0
RightMarginColor = clSilver
Completion.DropDownCount = 8
Completion.Enabled = True
Completion.ItemHeight = 16
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.Templates.Strings = (
'builder=builder sample=Don'#39't use builder - use DELPHI !')
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 = hlCBuilder
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 TabSheet3: TTabSheet
Caption = 'SQL'
object RAEditor2: TJvHLEditor
Tag = 2
Left = 0
Top = 0
Width = 533
Height = 318
Cursor = crIBeam
Lines.Strings = (
'CONNECT "" USER "" PASSWORD "";'
''
' /* '#206' '#209' '#205' '#206' '#194' '#205' '#219' '#197' '#212' '#206' '#205' '#196' '#219' */'
''
'CREATE GENERATOR brt_unicum_gen;'
'CREATE GENERATOR brtc_unicum_gen;'
'CREATE GENERATOR bres_unicum_gen;'
'CREATE GENERATOR brc_unicum_gen;'
'CREATE GENERATOR bro_unicum_gen;'
''
'/*=========== B R _ T Y P E ====================================' +
'==*/'
'/* '#210#224#225#235#232#246#224' '#242#232#239#251' '#238#241#237#238#226#237#251#245' '#244#238#237#228#238#226' */'
'/* Table: br_type brt */'
'CREATE TABLE br_type ('
' unicum dIntNN,'
' name dChar250, /* '#238#239#232#241#224#237#232#229' '#234#240#224#242#234#238#229' */'
' PRIMARY KEY (unicum)'
');'
'CREATE INDEX brt_name ON br_type(name);'
'/*====================================================*/'
'/* '#210#224#225#235#232#246#224' "'#210#232#239#251' '#240#224#241#247#229#242#238#226'" */'
'/* Table: br_typeCalc brtc */'
'CREATE TABLE br_typeCalc ('
' unicum dIntNN,'
' name dChar50, /* '#228#235#255' '#239#240#238#241#236#238#242#240#224' */'
' script dChar50, /* '#228#235#255' '#234#224#240#242#238#247#234#232' */'
' debet dSc,'
' credit dSc,'
' formula dChar250,'
' PRIMARY KEY (unicum)'
');'
'CREATE INDEX brtc_name ON br_typeCalc(name);'
'COMMIT WORK;'
'/*=========== B R E S =====================================*/'
'/* '#210#224#225#235#232#246#224' "'#206#241#237#238#226#237#251#229' '#244#238#237#228#251'" */'
'/* Table: bresours bres */'
'CREATE TABLE bresours ('
' unicum dIntNN,'
' isActive dDate, /* NULL - '#224#234#242#232#226#237#251#233' DATA - '#241#237 +
#255#242#232#229' '#241' '#243#247#229#242#224' */'
' stat dInt, /* 0 - '#234#224#240#242#238#247#234#224' 1- '#227#240#243#239#239#238#226#224#255' ' +
'2- '#247#235#229#237' '#227#240#243#239#239#251'*/'
' uSelf dInt, /* '#241#241#251#235#234#224' '#237#224' unicum '#227#240#243#239#239#251' '#228#235 +
#255' '#247#235#229#237#238#226' '#227#240#243#239#239#251' */'
' type dIntNN, /* '#242#232#239' */'
' card dChar15, /* '#237#238#236#229#240' '#232#237#226#229#237#242#224#240#237#238#233' '#234#224#240#242#238#247#234#232 +
' */'
' inv dChar15, /* '#232#237#226#229#237#242#224#240#237#251#233' '#237#238#236#229#240' */'
' name dChar250, /* '#237#224#232#236#229#237#238#226#224#237#232#229' */'
' place dChar250, /* '#236#229#241#242#238#237#224#245#238#230#228#229#237#232#229' */'
' dateBorn dDate, /* '#228#224#242#224' '#226#251#239#243#241#234#224' ('#226#226#238#228#224' '#226' '#253#234#241#239 +
#235#243#224#242#224#246#232#254') */'
' dateReg dDate, /* '#228#224#242#224' '#239#238#241#242#224#237#238#226#234#232' '#237#224' '#243#247#229#242' */'
' summaReg dMoneyS, /* '#239#229#240#226#238#237#224#247#224#235#252#237#224#255' '#241#242#238#232#236#238#241#242#252' *' +
'/'
' league dInt, /* '#243#247#229#242#237#224#255' '#227#240#243#239#239#224' */'
' subcount dSc, /* '#225#224#235#224#237#241#238#226#251#233' '#241#247#229#242' */'
' fond dSc, /* '#241#247#229#242' '#244#238#237#228#224' '#226' '#238#241#237#238#226#237#251#245' '#241#240#229#228 +
#241#242#226#224#245' NEW */'
' amort dSc, /* '#241#247#229#242' '#224#236#238#240#242#232#231#224#246#232#232' NEW */'
' PRIMARY KEY (unicum),'
' FOREIGN KEY (subcount) REFERENCES subcount(num),'
' FOREIGN KEY (fond) REFERENCES subcount(num),'
' FOREIGN KEY (amort) REFERENCES subcount(num),'
' FOREIGN KEY (league) REFERENCES league(unicum),'
' FOREIGN KEY (uself) REFERENCES bresours(unicum),'
' FOREIGN KEY (type) REFERENCES br_type(unicum)'
');'
'CREATE INDEX bres_name ON bresours(name);'
'CREATE INDEX bres_inv ON bresours(inv);'
'CREATE INDEX bres_card ON bresours(card);'
'CREATE INDEX bres_sc ON bresours(subcount);'
'/* CREATE INDEX bres_sc ON bresours(subcount,name); */'
'COMMIT WORK;'
'/*====================================================*/'
'/* '#210#224#225#235#232#246#224' "'#196#238#239'. '#228#224#237#237#251#229'" */'
'/* Table: br_changed brc */'
'CREATE TABLE br_changed ('
' ubres dIntNN, /* '#241#241#251#235#234#224' '#237#224' unicum */'
' dateCh dDateNN, /* '#228#224#242#224' '#232#231#236#229#237#229#237#232#255' */'
' dateOut dDate, /* '#241#240#238#234' '#241#239#232#241#224#237#232#255' */'
' fst_summa dMoneyS, /* '#243#247#229#242#237#224#255' '#241#242#238#232#236#238#241#242#252' */'
' am_summa dMoneyS, /* '#241#243#236#236#224' '#232#231#237#238#241#224' */'
' uclient dInt, /* '#238#242#226#229#242#241#242#226#229#237#237#251#233' */'
' typeAm dInt, /* '#242#232#239' '#240#224#241#247#229#242#224' '#224#236#238#240#242#232#231#224#246#232#232' */'
' typeRa dInt, /* '#242#232#239' '#240#224#241#247#229#242#224' '#239#229#240#229#238#246#229#237#234#232' */'
' param1 dChar15, /* '#239#224#240#224#236#229#242#240#251' */'
' param2 dChar15,'
' param3 dChar15,'
' param4 dChar15,'
' param5 dChar15, /*..................*/'
' ubk dInt,'
' PRIMARY KEY (ubres,dateCh),'
' FOREIGN KEY (ubres) REFERENCES bresours(unicum),'
' FOREIGN KEY (typeAm) REFERENCES br_typeCalc(unicum),'
' FOREIGN KEY (typeRa) REFERENCES br_typeCalc(unicum),'
' FOREIGN KEY (uclient) REFERENCES client (unicum)'
');'
'COMMIT WORK;'
'/*====================================================*/'
'/* '#210#224#225#235#232#246#224' "'#206#239#229#240#224#246#232#232'" */'
'/* Table: br_oper bro */'
'CREATE TABLE br_oper ('
' unicum dIntNN,'
' dateOper dDate, /* '#228#224#242#224' '#238#239#229#240#224#246#232#232' */'
' ubres dIntNN, /* unicum '#238#241#237#238#226#237#238#227#238' '#244#238#237#228#224' */'
' type dInt, /* '#242#232#239' '#240#224#241#247#229#242#224' */'
' debet dScNN,'
' credit dScNN,'
' summa dMoneyS, /* '#241#243#236#236#224' */'
' ubk dInt,'
' PRIMARY KEY (unicum),'
' FOREIGN KEY (ubres) REFERENCES bresours(unicum),'
' FOREIGN KEY (type) REFERENCES br_typeCalc(unicum' +
')'
');'
'CREATE INDEX brc_oper ON br_oper(ubres,dateOper);'
'COMMIT WORK;'
'/*======================= STORE PROCEDUREs =====================' +
'======*/'
'SET TERM ^ ;'
'/*--------------------------------------------------------------' +
'------*/'
'CREATE ALTER PROCEDURE br_view('
' act INTEGER,'
' gr INTEGER,'
' sc CHAR(6),'
' lg INTEGER)'
'RETURNS('
' /* from BRES */'
' f_unicum INTEGER,'
' f_isActive DATE, /* NULL - '#224#234#242#232#226#237#251#233' DAT' +
'A - '#241#237#255#242#232#229' '#241' '#243#247#229#242#224' */'
' f_stat INTEGER, /* 0 - '#234#224#240#242#238#247#234#224' 1- '#227#240#243#239 +
#239#238#226#224#255' 2- '#247#235#229#237' '#227#240#243#239#239#251'*/'
' f_uSelf INTEGER, /* '#241#241#251#235#234#224' '#237#224' unicum '#227#240#243 +
#239#239#251' '#228#235#255' '#247#235#229#237#238#226' '#227#240#243#239#239#251' */'
' f_type INTEGER, /* '#242#232#239' */'
' f_card CHAR(15), /* '#237#238#236#229#240' '#232#237#226#229#237#242#224#240#237#238#233' '#234#224 +
#240#242#238#247#234#232' */'
' f_inv CHAR(15), /* '#232#237#226#229#237#242#224#240#237#251#233' '#237#238#236#229#240' */'
' f_name CHAR(250), /* '#237#224#232#236#229#237#238#226#224#237#232#229' */'
' f_place CHAR(250), /* '#236#229#241#242#238#237#224#245#238#230#228#229#237#232#229' */'
' f_dateBorn DATE, /* '#228#224#242#224' '#226#251#239#243#241#234#224' ('#226#226#238#228#224' ' +
#226' '#253#234#241#239#235#243#224#242#224#246#232#254') */'
' f_dateReg DATE, /* '#228#224#242#224' '#239#238#241#242#224#237#238#226#234#232' '#237#224' '#243 +
#247#229#242' */'
' f_summaReg 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' */'
' f_league INTEGER, /* '#243#247#229#242#237#224#255' '#227#240#243#239#239#224' */'
' f_subcount CHAR(6), /* '#225#224#235#224#237#241#238#226#251#233' '#241#247#229#242' */'
' f_fond CHAR(6), /* '#241#247#229#242' '#226' '#238#241#237#238#226#237#251#245' '#241#240#229#228 +
#241#242#226#224#245' */'
' f_amort CHAR(6), /* '#241#247#229#242' '#224#236#238#240#242#232#231#224#246#232#232' */'
' /* from BR_CHANGED */'
' s_ubres INTEGER, /* '#241#241#251#235#234#224' '#237#224' unicum ' +
' */'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -