📄 fmain.~pas
字号:
r_staffteachidid: TAutoIncField;
r_staffteachidstaffid: TIntegerField;
r_staffteachidteachid: TIntegerField;
r_staffteachidmemo: TMemoField;
r_staffteachiddelrecy: TWideStringField;
r_staffteachidteachresult: TWideStringField;
N119: TMenuItem;
StyleRepository: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle3: TcxStyle;
cxStyle4: TcxStyle;
cxStyle5: TcxStyle;
cxStyle6: TcxStyle;
cxStyle7: TcxStyle;
cxStyle8: TcxStyle;
cxStyle9: TcxStyle;
cxStyle10: TcxStyle;
cxStyle11: TcxStyle;
cxStyle12: TcxStyle;
cxStyle13: TcxStyle;
cxStyle14: TcxStyle;
cxStyle15: TcxStyle;
cxStyle16: TcxStyle;
cxStyle17: TcxStyle;
cxStyle18: TcxStyle;
cxStyle19: TcxStyle;
cxStyle20: TcxStyle;
cxStyle21: TcxStyle;
cxStyle22: TcxStyle;
cxStyle23: TcxStyle;
cxStyle24: TcxStyle;
cxStyle25: TcxStyle;
cxStyle26: TcxStyle;
cxStyle27: TcxStyle;
cxStyle28: TcxStyle;
cxStyle29: TcxStyle;
cxStyle30: TcxStyle;
GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet;
GridBandedTableViewStyleSheetDevExpress: TcxGridBandedTableViewStyleSheet;
XPManifest1: TXPManifest;
N120: TMenuItem;
ColorDialog1: TColorDialog;
cxGrid8DBTableView1: TcxGridDBTableView;
cxGrid8Level1: TcxGridLevel;
cxGrid8: TcxGrid;
r_staffcontract: TADOTable;
cxGrid8DBTableView1DBColumn1: TcxGridDBColumn;
r_staffcontractDataSource: TDataSource;
cxGrid8DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid8DBTableView1DBColumn3: TcxGridDBColumn;
ToolButton7: TToolButton;
PopupMenu9: TPopupMenu;
N122: TMenuItem;
N123: TMenuItem;
N124: TMenuItem;
N125: TMenuItem;
N126: TMenuItem;
N127: TMenuItem;
N128: TMenuItem;
N129: TMenuItem;
N130: TMenuItem;
N131: TMenuItem;
N132: TMenuItem;
N133: TMenuItem;
N134: TMenuItem;
Agent1: TAgent;
N135: TMenuItem;
N136: TMenuItem;
N137: TMenuItem;
cxGrid9DBTableView1: TcxGridDBTableView;
cxGrid9Level1: TcxGridLevel;
cxGrid9: TcxGrid;
N139: TMenuItem;
p_w_tools: TADOTable;
p_w_toolsSource: TDataSource;
cxGrid9DBTableView1DBColumn1: TcxGridDBColumn;
cxGrid9DBTableView1DBColumn2: TcxGridDBColumn;
cxGrid9DBTableView1DBColumn3: TcxGridDBColumn;
w_tools: TADOTable;
w_toolsSource: TDataSource;
PopupMenu10: TPopupMenu;
N140: TMenuItem;
N141: TMenuItem;
N142: TMenuItem;
N143: TMenuItem;
N138: TMenuItem;
N11: TMenuItem;
N144: TMenuItem;
N145: TMenuItem;
N146: TMenuItem;
N147: TMenuItem;
N148: TMenuItem;
N149: TMenuItem;
N150: TMenuItem;
N151: TMenuItem;
dxComponentPrinter1: TdxComponentPrinter;
N152: TMenuItem;
dxComponentPrinter1Link1: TdxSpreadSheetBookReportLink;
N153: TMenuItem;
N154: TMenuItem;
N155: TMenuItem;
N156: TMenuItem;
N157: TMenuItem;
N158: TMenuItem;
N159: TMenuItem;
N106: TMenuItem;
N160: TMenuItem;
N161: TMenuItem;
DBImage1: TDBImage;
N162: TMenuItem;
TMenu: TPopupMenu;
N163: TMenuItem;
N164: TMenuItem;
N165: TMenuItem;
procedure cxSpreadBookSetSelection(Sender: TObject;
ASheet: TcxSSBookSheet);
procedure FormCreate(Sender: TObject);
procedure N28Click(Sender: TObject);
procedure branchAfterInsert(DataSet: TDataSet);
procedure N36Click(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure N29Click(Sender: TObject);
procedure dxDBTreeView1Click(Sender: TObject);
procedure N34Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure cxGrid1DBTableView1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure cxGrid1DBTableView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure cxGrid1DBTableView1SelectionChanged(
Sender: TcxCustomGridTableView);
procedure N32Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure N46Click(Sender: TObject);
procedure N42Click(Sender: TObject);
procedure N45Click(Sender: TObject);
procedure N44Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N48Click(Sender: TObject);
procedure dxDBTreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N51Click(Sender: TObject);
procedure N49Click(Sender: TObject);
procedure N54Click(Sender: TObject);
procedure N52Click(Sender: TObject);
procedure N56Click(Sender: TObject);
procedure cxGrid5DBTableView1DblClick(Sender: TObject);
procedure N58Click(Sender: TObject);
procedure N60Click(Sender: TObject);
procedure N61Click(Sender: TObject);
procedure N62Click(Sender: TObject);
procedure N63Click(Sender: TObject);
procedure N65Click(Sender: TObject);
procedure N67Click(Sender: TObject);
procedure N69Click(Sender: TObject);
procedure N70Click(Sender: TObject);
procedure Splitter1Moved(Sender: TObject);
procedure actNewExecute(Sender: TObject);
procedure actSaveSpeadSheetExecute(Sender: TObject);
procedure actCutExecute(Sender: TObject);
procedure actCopyExecute(Sender: TObject);
procedure actPasteExecute(Sender: TObject);
procedure tbUndoClick(Sender: TObject);
procedure ToolButton21Click(Sender: TObject);
procedure actCellLeftAlignExecute(Sender: TObject);
procedure actCellCenterAlignExecute(Sender: TObject);
procedure actCellRightAlignExecute(Sender: TObject);
procedure cbxFontChange(Sender: TObject);
procedure cbxSizeChange(Sender: TObject);
procedure actBoldExecute(Sender: TObject);
procedure actItalicExecute(Sender: TObject);
procedure actUnderlineExecute(Sender: TObject);
procedure actStrikeOutExecute(Sender: TObject);
procedure actMergeCellsExecute(Sender: TObject);
procedure actSplitCellsExecute(Sender: TObject);
procedure actSortAscendingExecute(Sender: TObject);
procedure tbBorderStyleClick(Sender: TObject);
procedure MenuItem1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
procedure MenuItem1MeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
procedure MenuItem1Click(Sender: TObject);
procedure actSumExecute(Sender: TObject);
procedure N73Click(Sender: TObject);
procedure N74Click(Sender: TObject);
procedure N72Click(Sender: TObject);
procedure N77Click(Sender: TObject);
procedure N78Click(Sender: TObject);
procedure N79Click(Sender: TObject);
procedure cxSpreadSheetBook1ActiveSheetChanging(
Sender: TcxCustomSpreadSheetBook; const ActiveSheet: Integer;
var CanSelect: Boolean);
procedure N83Click(Sender: TObject);
procedure cxGrid1DBTableView1KeyPress(Sender: TObject; var Key: Char);
procedure N85Click(Sender: TObject);
procedure N84Click(Sender: TObject);
procedure N86Click(Sender: TObject);
procedure N87Click(Sender: TObject);
procedure cxGrid1DBTableView1Editing(Sender: TcxCustomGridTableView;
AItem: TcxCustomGridTableItem; var AAllow: Boolean);
procedure cxGrid1DBTableView1EditChanged(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
procedure N89Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure N2Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
procedure N3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure cxGridDBTableView1DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N90Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N107Click(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure cxGrid1Click(Sender: TObject);
procedure cxSpreadSheetBook1Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N113Click(Sender: TObject);
procedure N115Click(Sender: TObject);
procedure N118Click(Sender: TObject);
procedure N116Click(Sender: TObject);
procedure N119Click(Sender: TObject);
procedure N120Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure cxGrid8DBTableView1DblClick(Sender: TObject);
procedure N125Click(Sender: TObject);
procedure N126Click(Sender: TObject);
procedure N127Click(Sender: TObject);
procedure N129Click(Sender: TObject);
procedure N132Click(Sender: TObject);
procedure N134Click(Sender: TObject);
procedure N136Click(Sender: TObject);
procedure N137Click(Sender: TObject);
procedure N141Click(Sender: TObject);
procedure N140Click(Sender: TObject);
procedure N143Click(Sender: TObject);
procedure N150Click(Sender: TObject);
procedure N151Click(Sender: TObject);
procedure N152Click(Sender: TObject);
procedure N153Click(Sender: TObject);
procedure N156Click(Sender: TObject);
procedure N158Click(Sender: TObject);
procedure N160Click(Sender: TObject);
procedure N161Click(Sender: TObject);
procedure DBImage1DblClick(Sender: TObject);
procedure N162Click(Sender: TObject);
procedure N165Click(Sender: TObject);
private
{ Private declarations }
FWinDir: String;
Procedure LoadForm(Form:TForm);
Procedure SaveForm(Form:TForm);
procedure SetCellText(ACol, ARow : Integer; AText : String);
procedure SetTokenStyle(AToolButton: TToolButton; AStyleValue: TStyleValue; AFontStyle: TFontStyle);
protected
procedure SetStates;
procedure CalculateSummary(AType: Byte);
procedure SetCellsStyle(AValuesSet: TStyleValueSet; AAlign: TcxHorzTextAlign;
AFontSize: Integer; const AFontName: string; AStyles: TFontStyles);
public
{ Public declarations }
systmpdate:string;//临时数据库文件
showdel:string;
tmpstaffid:string;
demofile:string;
showlogo:string;
sqlstring:string;
iflogin:string;
maxint,minint:array[1..4] of integer;
(*------定义INI文件读出的变理-------*)
ReadStencil:array[1..17] of string; //读出的模版变量
ReadDataControl:string; //工具栏之数据控制
ReadSheet:string; //工具栏之表格编辑
ReadStyle:string; //样式
ReadSaveOut:string; //退出时自动保存
ReadAutoMessage:string;//退出时弹出对话框
Readeidolon:string;//启动时显示精灵
procedure ReadConfiguration;
procedure NewSheet(const ASheetName: string = '');
property WinDir: String read FWinDir;//读取系统文件夹
end;
var
Main: TMain;
MyAgent: IAgentCtlCharacter;
implementation
uses addman, fzglx, Fbranch, Fpostedit, Fchangepost, Fcorpmessage,
Frepstaffinfo, Fbranmessage, Fshowpic, Fspic, Fpayedit, Flogo,EncryptIt,
Fmess, Flogin, cardin_form, Fconfig, Fchartbm, Fpaycalculate, Ftrain,
Ftrainresult, Fcontract, Fsearch, Fweal, Fcutline, Fperson, Fpworks,
Fstatools;
{$R *.dfm}
procedure Tmain.cxSpreadBookSetSelection(Sender: TObject;
ASheet: TcxSSBookSheet);
begin
try
SetStates;
finally
end;
end;
procedure Tmain.SetStates;
var
AStyle: TFontStyles;
begin
with cxSpreadSheetBook1 do
begin
with ActiveSheet.GetCellObject(ActiveSheet.SelectionRect.Left,
ActiveSheet.SelectionRect.Top) do
try
tbLeftAlign.Down := DisplayTextAlignment in [dtaLEFT, dtaFILL, dtaJUSTIFY];
tbCenterAlign.Down := DisplayTextAlignment in [dtaCenter];
tbRightAlign.Down := DisplayTextAlignment in [dtaRight];
AStyle := Style.Font.Style;
tbBold.Down := fsBold in AStyle;
tbItalic.Down := fsItalic in AStyle;
tbUnderline.Down := fsUnderline in AStyle;
tbStrikeOut.Down := fsStrikeOut in AStyle;
cbxFont.Text := Style.Font.Name;
self.ColorBox1.Selected:=style.Brush.BackgroundColor;
cbxSize.Text := IntToStr(Style.Font.Size);
finally
Free;
end;
actBeveledLookandFeel.Checked := PainterType = ptOfficeXPStyle;
actBufferedpaint.Checked := BufferedPaint;
actShowcaptions.Checked := ShowCaptionBar;
actShowgrid.Checked := ShowGrid;
actShowheaders.Checked := ShowHeaders;
actShowformulas.Checked := ShowFormulas;
actR1C1Referencestyle.Checked := R1C1ReferenceStyle;
actAutomaticcalc.Checked := AutoRecalc;
end;
end;
procedure Tmain.ReadConfiguration; //...读出INI文件内容
var ReadIni:tinifile;
Begin
ReadIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config.ini');
with ReadIni do
begin
self.ReadStencil[1]:= ReadString('Stencil', 'XM', 'XM');
self.ReadStencil[2]:= ReadString('Stencil', 'XB', 'XB');
self.ReadStencil[3]:= ReadString('Stencil', 'YWM', 'YWM');
self.ReadStencil[4]:= ReadString('Stencil', 'HF', 'HF');
self.ReadStencil[5]:= ReadString('Stencil', 'SR', 'SR');
self.ReadStencil[6]:= ReadString('Stencil', 'JG', 'JG');
self.ReadStencil[7]:= ReadString('Stencil', 'MZ', 'MZ');
self.ReadStencil[8]:= ReadString('Stencil', 'ZJ', 'ZJ');
self.ReadStencil[9]:= ReadString('Stencil', 'HK', 'HK');
self.ReadStencil[10]:= ReadString('Stencil', 'XL', 'XL');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -