📄 main.pas
字号:
unit Main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, jpeg, ExtCtrls, Buttons, StdCtrls, ExtDlgs, ComCtrls, OleCtrls,
SHDocVw, Series, DBChart, TeEngine, TeeProcs, Chart, mxgraph, DBGrids,
Grids, mxgrid, mxpivsrc, dxDBTLCl, dxGrClms, DBCtrls, dxDBCtrl, dxDBGrid,
dxTL, dxCntner, mxDB, DBTables, mxtables, mxstore, Db, FileCtrl, Word97,
OleServer,registry,ComObj;
type
TMainform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Label1: TLabel;
Label2: TLabel;
C1: TMenuItem;
N50: TMenuItem;
N52: TMenuItem;
N62: TMenuItem;
N4: TMenuItem;
Panel2: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
TabSheet13: TTabSheet;
TabSheet14: TTabSheet;
TabSheet15: TTabSheet;
TabSheet16: TTabSheet;
TabSheet17: TTabSheet;
Timer1: TTimer;
PrinterSetupDialog1: TPrinterSetupDialog;
PageControl4: TPageControl;
TabSheet41: TTabSheet;
dxDBGrid4: TdxDBGrid;
dxDBGrid4ZhengShuMingCheng: TdxDBGridMaskColumn;
dxDBGrid4ZhengShuLeiXing: TdxDBGridMaskColumn;
dxDBGrid4DengJi: TdxDBGridMaskColumn;
dxDBGrid4FaZhengJiGuan: TdxDBGridMaskColumn;
dxDBGrid4YouXiaoQi: TdxDBGridMaskColumn;
Panel1: TPanel;
DBNavigator2: TDBNavigator;
SpeedButton2: TSpeedButton;
PageControl2: TPageControl;
TabSheet24: TTabSheet;
SpeedButton1: TSpeedButton;
dxDBGrid1: TdxDBGrid;
dxDBGrid1RiQi: TdxDBGridDateColumn;
dxDBGrid1TianQi: TdxDBGridPickColumn;
dxDBGrid1ZhuangJiHao: TdxDBGridMaskColumn;
dxDBGrid1ZhuangHao: TdxDBGridMaskColumn;
dxDBGrid1WeiZhi: TdxDBGridPickColumn;
dxDBGrid1ZhuangShenJianCe: TdxDBGridCheckColumn;
dxDBGrid1MaoZhuang: TdxDBGridCheckColumn;
dxDBGrid1JingZaiJianCe: TdxDBGridPickColumn;
dxDBGrid1XiaoYingBianJianCe: TdxDBGridPickColumn;
Panel3: TPanel;
Label3: TLabel;
DBNavigator1: TDBNavigator;
TabSheet25: TTabSheet;
dxDBGrid2: TdxDBGrid;
dxDBGrid2RiQi: TdxDBGridDateColumn;
dxDBGrid2TianQi: TdxDBGridPickColumn;
dxDBGrid2ZhuangJiHao: TdxDBGridMaskColumn;
dxDBGrid2ZhuangHao: TdxDBGridButtonColumn;
dxDBGrid2ZhuangShenJianCe: TdxDBGridCheckColumn;
dxDBGrid2MaoZhuang: TdxDBGridCheckColumn;
dxDBGrid2JingZaiJianCe: TdxDBGridPickColumn;
dxDBGrid2XiaoYingBianJianCe: TdxDBGridPickColumn;
Panel4: TPanel;
Label4: TLabel;
DBNavigator3: TDBNavigator;
TabSheet26: TTabSheet;
DecisionPivot1: TDecisionPivot;
DecisionGrid1: TDecisionGrid;
Button1: TButton;
DBGrid1: TDBGrid;
DecisionGraph1: TDecisionGraph;
Button6: TButton;
Series1: TBarSeries;
Series2: TBarSeries;
Series3: TBarSeries;
Series4: TBarSeries;
Series6: TBarSeries;
Series7: TBarSeries;
Series8: TBarSeries;
Series9: TBarSeries;
Series10: TBarSeries;
Series11: TBarSeries;
Series12: TBarSeries;
Series13: TBarSeries;
Series14: TBarSeries;
TabSheet27: TTabSheet;
Bevel2: TBevel;
DBChart1: TDBChart;
Button3: TButton;
Button2: TButton;
Series22: TLineSeries;
TabSheet28: TTabSheet;
Bevel3: TBevel;
DBChart2: TDBChart;
Button4: TButton;
Button5: TButton;
Series16: TLineSeries;
Series17: TLineSeries;
Series24: TLineSeries;
TabSheet29: TTabSheet;
WebBrowser1: TWebBrowser;
PageControl3: TPageControl;
TabSheet30: TTabSheet;
TabSheet31: TTabSheet;
TabSheet32: TTabSheet;
TabSheet33: TTabSheet;
TabSheet34: TTabSheet;
TabSheet35: TTabSheet;
TabSheet36: TTabSheet;
TabSheet37: TTabSheet;
TabSheet38: TTabSheet;
TabSheet39: TTabSheet;
TabSheet40: TTabSheet;
TabSheet18: TTabSheet;
TabSheet19: TTabSheet;
TabSheet20: TTabSheet;
TabSheet21: TTabSheet;
SpeedButton3: TSpeedButton;
dxDBGrid3: TdxDBGrid;
Panel5: TPanel;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
DBNavigator4: TDBNavigator;
dxDBGrid3XingMing: TdxDBGridMaskColumn;
dxDBGrid3ZhiWu: TdxDBGridMaskColumn;
dxDBGrid3ZhengShuZhongLei: TdxDBGridMaskColumn;
dxDBGrid5: TdxDBGrid;
Panel6: TPanel;
SpeedButton6: TSpeedButton;
DBNavigator5: TDBNavigator;
dxDBGrid5XingHao: TdxDBGridMaskColumn;
dxDBGrid5JianDingJieGuo: TdxDBGridMaskColumn;
dxDBGrid5JianDingRiQi: TdxDBGridDateColumn;
dxDBGrid5YouXiaoQi: TdxDBGridMaskColumn;
dxDBGrid5JianDingDanWei: TdxDBGridMaskColumn;
PageControl5: TPageControl;
TabSheet22: TTabSheet;
dxDBGrid6: TdxDBGrid;
Panel8: TPanel;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
DBNavigator6: TDBNavigator;
dxDBGrid6ZhengShuMingCheng: TdxDBGridMaskColumn;
dxDBGrid6DengJi: TdxDBGridMaskColumn;
dxDBGrid6FaZhengJiGuan: TdxDBGridMaskColumn;
dxDBGrid6FaZhengRiQi: TdxDBGridDateColumn;
dxDBGrid6YouXiaoQi: TdxDBGridMaskColumn;
PageControl6: TPageControl;
TabSheet23: TTabSheet;
dxDBGrid7: TdxDBGrid;
Panel9: TPanel;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
DBNavigator7: TDBNavigator;
dxDBGrid7MingCheng: TdxDBGridMaskColumn;
dxDBGrid7DengJi: TdxDBGridMaskColumn;
dxDBGrid7FaZhengJiGuan: TdxDBGridMaskColumn;
dxDBGrid7FaZhengRiQi: TdxDBGridDateColumn;
dxDBGrid7YouXiaoQi: TdxDBGridMaskColumn;
PageControl7: TPageControl;
TabSheet42: TTabSheet;
dxDBGrid8: TdxDBGrid;
dxDBGridMaskColumn1: TdxDBGridMaskColumn;
dxDBGridMaskColumn2: TdxDBGridMaskColumn;
dxDBGridMaskColumn3: TdxDBGridMaskColumn;
dxDBGridMaskColumn4: TdxDBGridMaskColumn;
dxDBGridMaskColumn5: TdxDBGridMaskColumn;
dxDBGridMaskColumn6: TdxDBGridMaskColumn;
Panel10: TPanel;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
DBNavigator8: TDBNavigator;
TabSheet43: TTabSheet;
TabSheet44: TTabSheet;
dxDBGrid9: TdxDBGrid;
dxDBGridMaskColumn7: TdxDBGridMaskColumn;
dxDBGridMaskColumn8: TdxDBGridMaskColumn;
dxDBGridMaskColumn9: TdxDBGridMaskColumn;
dxDBGridMaskColumn10: TdxDBGridMaskColumn;
Panel12: TPanel;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
DBNavigator9: TDBNavigator;
TabSheet45: TTabSheet;
dxDBGrid10: TdxDBGrid;
dxDBGridMaskColumn11: TdxDBGridMaskColumn;
dxDBGridMaskColumn12: TdxDBGridMaskColumn;
dxDBGridMaskColumn13: TdxDBGridMaskColumn;
dxDBGridMaskColumn14: TdxDBGridMaskColumn;
dxDBGridDateColumn1: TdxDBGridDateColumn;
dxDBGridMaskColumn15: TdxDBGridMaskColumn;
dxDBGridMaskColumn16: TdxDBGridMaskColumn;
Panel13: TPanel;
SpeedButton15: TSpeedButton;
DBNavigator10: TDBNavigator;
dxDBGrid2WeiZhi: TdxDBGridPickColumn;
PageControl8: TPageControl;
TabSheet46: TTabSheet;
TabSheet47: TTabSheet;
Button11: TButton;
Button12: TButton;
PageControl9: TPageControl;
TabSheet48: TTabSheet;
TabSheet49: TTabSheet;
PageControl10: TPageControl;
TabSheet50: TTabSheet;
TabSheet51: TTabSheet;
TabSheet52: TTabSheet;
PageControl11: TPageControl;
TabSheet53: TTabSheet;
TabSheet54: TTabSheet;
GroupBox1: TGroupBox;
PageControl12: TPageControl;
TabSheet55: TTabSheet;
TabSheet56: TTabSheet;
PageControl13: TPageControl;
TabSheet57: TTabSheet;
TabSheet58: TTabSheet;
PageControl14: TPageControl;
TabSheet59: TTabSheet;
TabSheet60: TTabSheet;
PageControl15: TPageControl;
TabSheet61: TTabSheet;
PageControl16: TPageControl;
TabSheet62: TTabSheet;
TabSheet63: TTabSheet;
TabSheet64: TTabSheet;
TabSheet65: TTabSheet;
PageControl17: TPageControl;
TabSheet66: TTabSheet;
TabSheet67: TTabSheet;
dxDBGrid11: TdxDBGrid;
dxDBGrid12: TdxDBGrid;
dxDBGrid11FenQu: TdxDBGridMaskColumn;
dxDBGrid12KaiShiRiqi: TdxDBGridDateColumn;
dxDBGrid12JieShuRiqi: TdxDBGridDateColumn;
dxDBGrid12BenZhouJiHua: TdxDBGridMaskColumn;
dxDBGrid12BenZhouShiJi: TdxDBGridMaskColumn;
dxDBGrid12LeiJiBaiFenBi: TdxDBGridMaskColumn;
dxDBGrid12FenXiCuoShi: TdxDBGridMaskColumn;
Panel14: TPanel;
SpeedButton16: TSpeedButton;
DBNavigator11: TDBNavigator;
Panel15: TPanel;
SpeedButton17: TSpeedButton;
DBNavigator12: TDBNavigator;
dxDBGrid13: TdxDBGrid;
Panel16: TPanel;
SpeedButton18: TSpeedButton;
DBNavigator13: TDBNavigator;
dxDBGrid13FenQu: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGrid;
Panel17: TPanel;
SpeedButton19: TSpeedButton;
DBNavigator14: TDBNavigator;
dxDBGrid14KaiShiRiqi: TdxDBGridDateColumn;
dxDBGrid14JieShuRiqi: TdxDBGridDateColumn;
dxDBGrid14BenZhouJiHua: TdxDBGridMaskColumn;
dxDBGrid14BenZhouShiJi: TdxDBGridMaskColumn;
dxDBGrid14LeiJiBaiFenBi: TdxDBGridMaskColumn;
dxDBGrid14FenXiCuoShi: TdxDBGridMaskColumn;
Panel18: TPanel;
SpeedButton20: TSpeedButton;
DBNavigator15: TDBNavigator;
Panel19: TPanel;
SpeedButton21: TSpeedButton;
DBNavigator16: TDBNavigator;
Panel20: TPanel;
SpeedButton22: TSpeedButton;
DBNavigator17: TDBNavigator;
dxDBGrid15: TdxDBGrid;
dxDBGridDateColumn2: TdxDBGridDateColumn;
dxDBGridDateColumn3: TdxDBGridDateColumn;
dxDBGridMaskColumn18: TdxDBGridMaskColumn;
dxDBGridMaskColumn19: TdxDBGridMaskColumn;
dxDBGridMaskColumn20: TdxDBGridMaskColumn;
dxDBGridMaskColumn21: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGrid;
dxDBGridMaskColumn22: TdxDBGridMaskColumn;
dxDBGridDateColumn4: TdxDBGridDateColumn;
dxDBGridDateColumn5: TdxDBGridDateColumn;
dxDBGridMaskColumn23: TdxDBGridMaskColumn;
dxDBGridMaskColumn24: TdxDBGridMaskColumn;
dxDBGridMaskColumn25: TdxDBGridMaskColumn;
dxDBGridMaskColumn26: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGrid;
dxDBGridMaskColumn27: TdxDBGridMaskColumn;
dxDBGridDateColumn6: TdxDBGridDateColumn;
dxDBGridDateColumn7: TdxDBGridDateColumn;
dxDBGridMaskColumn28: TdxDBGridMaskColumn;
dxDBGridMaskColumn29: TdxDBGridMaskColumn;
dxDBGridMaskColumn30: TdxDBGridMaskColumn;
dxDBGridMaskColumn31: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGrid;
dxDBGridMaskColumn32: TdxDBGridMaskColumn;
dxDBGridDateColumn8: TdxDBGridDateColumn;
dxDBGridDateColumn9: TdxDBGridDateColumn;
dxDBGridMaskColumn33: TdxDBGridMaskColumn;
dxDBGridMaskColumn34: TdxDBGridMaskColumn;
dxDBGridMaskColumn35: TdxDBGridMaskColumn;
dxDBGridMaskColumn36: TdxDBGridMaskColumn;
Panel21: TPanel;
SpeedButton23: TSpeedButton;
DBNavigator18: TDBNavigator;
dxDBGrid19: TdxDBGrid;
dxDBGridMaskColumn37: TdxDBGridMaskColumn;
dxDBGridDateColumn10: TdxDBGridDateColumn;
dxDBGridDateColumn11: TdxDBGridDateColumn;
dxDBGridMaskColumn38: TdxDBGridMaskColumn;
dxDBGridMaskColumn39: TdxDBGridMaskColumn;
dxDBGridMaskColumn40: TdxDBGridMaskColumn;
dxDBGridMaskColumn41: TdxDBGridMaskColumn;
Panel22: TPanel;
SpeedButton24: TSpeedButton;
DBNavigator19: TDBNavigator;
dxDBGrid20: TdxDBGrid;
dxDBGridMaskColumn42: TdxDBGridMaskColumn;
dxDBGridDateColumn12: TdxDBGridDateColumn;
dxDBGridDateColumn13: TdxDBGridDateColumn;
dxDBGridMaskColumn43: TdxDBGridMaskColumn;
dxDBGridMaskColumn44: TdxDBGridMaskColumn;
dxDBGridMaskColumn45: TdxDBGridMaskColumn;
dxDBGridMaskColumn46: TdxDBGridMaskColumn;
Panel23: TPanel;
SpeedButton25: TSpeedButton;
DBNavigator20: TDBNavigator;
Image1: TImage;
dxDBGrid21: TdxDBGrid;
dxDBGridMaskColumn47: TdxDBGridMaskColumn;
dxDBGridMaskColumn48: TdxDBGridMaskColumn;
dxDBGridMaskColumn49: TdxDBGridMaskColumn;
dxDBGridMaskColumn51: TdxDBGridMaskColumn;
dxDBGridMaskColumn52: TdxDBGridMaskColumn;
Panel24: TPanel;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
DBNavigator21: TDBNavigator;
dxDBGrid22: TdxDBGrid;
dxDBGridMaskColumn53: TdxDBGridMaskColumn;
dxDBGridMaskColumn54: TdxDBGridMaskColumn;
dxDBGridMaskColumn55: TdxDBGridMaskColumn;
Panel25: TPanel;
SpeedButton28: TSpeedButton;
SpeedButton29: TSpeedButton;
DBNavigator22: TDBNavigator;
dxDBGrid23: TdxDBGrid;
Panel26: TPanel;
SpeedButton30: TSpeedButton;
DBNavigator23: TDBNavigator;
dxDBGrid23FenQu: TdxDBGridMaskColumn;
dxDBGrid24: TdxDBGrid;
Panel27: TPanel;
SpeedButton31: TSpeedButton;
DBNavigator24: TDBNavigator;
dxDBGrid24FenQu: TdxDBGridMaskColumn;
dxDBGrid24YuanCai: TdxDBGridMaskColumn;
dxDBGrid24HNTQiangDu: TdxDBGridMaskColumn;
dxDBGrid24GJYinBiBaoYan: TdxDBGridMaskColumn;
dxDBGrid24HanJieZhiPing: TdxDBGridMaskColumn;
dxDBGrid24GangJinZhiPing: TdxDBGridMaskColumn;
dxDBGrid24MoBanZhiPing: TdxDBGridMaskColumn;
dxDBGrid24HNTZhiPing: TdxDBGridMaskColumn;
dxDBGrid24YinBiJiLu: TdxDBGridMaskColumn;
dxDBGrid25: TdxDBGrid;
dxDBGridMaskColumn57: TdxDBGridMaskColumn;
dxDBGridMaskColumn58: TdxDBGridMaskColumn;
dxDBGridMaskColumn59: TdxDBGridMaskColumn;
dxDBGridMaskColumn60: TdxDBGridMaskColumn;
dxDBGridMaskColumn61: TdxDBGridMaskColumn;
dxDBGridMaskColumn62: TdxDBGridMaskColumn;
dxDBGridMaskColumn63: TdxDBGridMaskColumn;
dxDBGridMaskColumn64: TdxDBGridMaskColumn;
dxDBGridMaskColumn65: TdxDBGridMaskColumn;
Panel28: TPanel;
SpeedButton32: TSpeedButton;
DBNavigator25: TDBNavigator;
dxDBGrid26: TdxDBGrid;
dxDBGridMaskColumn66: TdxDBGridMaskColumn;
dxDBGridMaskColumn67: TdxDBGridMaskColumn;
dxDBGridMaskColumn68: TdxDBGridMaskColumn;
dxDBGridMaskColumn69: TdxDBGridMaskColumn;
dxDBGridMaskColumn70: TdxDBGridMaskColumn;
dxDBGridMaskColumn71: TdxDBGridMaskColumn;
dxDBGridMaskColumn72: TdxDBGridMaskColumn;
dxDBGridMaskColumn73: TdxDBGridMaskColumn;
dxDBGridMaskColumn74: TdxDBGridMaskColumn;
Panel29: TPanel;
SpeedButton33: TSpeedButton;
DBNavigator26: TDBNavigator;
dxDBGrid27: TdxDBGrid;
dxDBGridMaskColumn75: TdxDBGridMaskColumn;
dxDBGridMaskColumn76: TdxDBGridMaskColumn;
dxDBGridMaskColumn77: TdxDBGridMaskColumn;
dxDBGridMaskColumn78: TdxDBGridMaskColumn;
dxDBGridMaskColumn79: TdxDBGridMaskColumn;
dxDBGridMaskColumn80: TdxDBGridMaskColumn;
Panel30: TPanel;
SpeedButton34: TSpeedButton;
SpeedButton35: TSpeedButton;
DBNavigator27: TDBNavigator;
Panel31: TPanel;
SpeedButton36: TSpeedButton;
SpeedButton37: TSpeedButton;
DBNavigator28: TDBNavigator;
dxDBGrid28: TdxDBGrid;
dxDBGridMaskColumn81: TdxDBGridMaskColumn;
dxDBGridMaskColumn82: TdxDBGridMaskColumn;
dxDBGridMaskColumn83: TdxDBGridMaskColumn;
dxDBGridMaskColumn84: TdxDBGridMaskColumn;
dxDBGrid29: TdxDBGrid;
dxDBGridMaskColumn85: TdxDBGridMaskColumn;
dxDBGridMaskColumn86: TdxDBGridMaskColumn;
Panel32: TPanel;
SpeedButton38: TSpeedButton;
DBNavigator29: TDBNavigator;
dxDBGrid30: TdxDBGrid;
Panel33: TPanel;
SpeedButton39: TSpeedButton;
DBNavigator30: TDBNavigator;
dxDBGrid30FenQu: TdxDBGridMaskColumn;
dxDBGrid30MiShiDuBaoGao: TdxDBGridMaskColumn;
dxDBGrid30TuFangZhiLiang: TdxDBGridMaskColumn;
Panel34: TPanel;
Splitter1: TSplitter;
TreeView1: TTreeView;
Panel35: TPanel;
Panel36: TPanel;
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
dxDBGrid4BianHao: TdxDBGridButtonColumn;
dxDBGrid3ZhengShuBianHao: TdxDBGridButtonColumn;
dxDBGrid5JianDingZhengShu: TdxDBGridButtonColumn;
dxDBGrid6BianHao: TdxDBGridButtonColumn;
dxDBGrid11WHZQXGC: TdxDBGridButtonColumn;
dxDBGrid12XuHao: TdxDBGridButtonColumn;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -