main.pas

通过程序的试算平衡表

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList, XPMenu, xpPages, DB, ADODB, Grids, ComObj,
  DosMove, StrUtils, xpEdit;

type
  TMainForm = class(TForm)
    StatusBar: TStatusBar;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    FileSave: TAction;
    FileExit: TAction;
    HelpAbout1: TAction;
    ImageListToolBar: TImageList;
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    ToolButtonFile: TToolButton;
    ToolButtonEdit: TToolButton;
    ToolButtonView: TToolButton;
    ToolButtonTool: TToolButton;
    ToolButtonHelp: TToolButton;
    ToolBar2: TToolBar;
    ToolButtonNew: TToolButton;
    ToolButtonOpen: TToolButton;
    ToolButtonDelet: TToolButton;
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    Panel2: TPanel;
    ListView1: TListView;
    CoolBar1: TCoolBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    ImageList2: TImageList;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    O1: TMenuItem;
    D1: TMenuItem;
    SetNew: TAction;
    SetOpen: TAction;
    SetDel: TAction;
    ImageListToolBarD: TImageList;
    ImageListToolBarH: TImageList;
    ImageListMenu: TImageList;
    ImageListMenuD: TImageList;
    ImageListMenuH: TImageList;
    ScrollBox1: TScrollBox;
    MainMenu1: TMainMenu;
    FileMenu: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileDeletItem: TMenuItem;
    N10: TMenuItem;
    FileSaveItem: TMenuItem;
    FileOutputItem: TMenuItem;
    N1: TMenuItem;
    FilePrintViewItem: TMenuItem;
    FilePrintItem: TMenuItem;
    N4: TMenuItem;
    FileExitItem: TMenuItem;
    EditMenu: TMenuItem;
    EditCutItem: TMenuItem;
    Copy2: TMenuItem;
    EditPasteItem: TMenuItem;
    ViewMenu: TMenuItem;
    Normal1: TMenuItem;
    SmallIcon: TMenuItem;
    ListIcon: TMenuItem;
    DataListIcon: TMenuItem;
    ToolsMenu: TMenuItem;
    ToolsRegster: TMenuItem;
    HelpMenu: TMenuItem;
    HelpAboutItem: TMenuItem;
    CoolBar3: TCoolBar;
    BitBtnZCOK: TBitBtn;
    BitBtnZCESC: TBitBtn;
    BitBtnZCClose: TBitBtn;
    CoolBar2: TCoolBar;
    BitBtnLROK: TBitBtn;
    BitBtnLRESC: TBitBtn;
    CoolBar4: TCoolBar;
    BitBtnXJSave: TBitBtn;
    BitBtnXJClose: TBitBtn;
    ToolButtonSave: TToolButton;
    ToolButtonPrint: TToolButton;
    ToolButtonPrintView: TToolButton;
    ToolButton1: TToolButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Edit2: TxpEdit;
    Edit3: TxpEdit;
    Label36: TLabel;
    Label37: TLabel;
    Edit4: TxpEdit;
    Edit5: TxpEdit;
    Edit6: TxpEdit;
    Edit7: TxpEdit;
    Edit8: TxpEdit;
    Edit9: TxpEdit;
    Edit10: TxpEdit;
    Edit11: TxpEdit;
    Edit12: TxpEdit;
    Edit13: TxpEdit;
    Edit14: TxpEdit;
    Edit15: TxpEdit;
    Edit16: TxpEdit;
    Edit17: TxpEdit;
    Edit18: TxpEdit;
    Edit19: TxpEdit;
    Edit22: TxpEdit;
    Edit23: TxpEdit;
    Edit24: TxpEdit;
    Edit25: TxpEdit;
    Edit26: TxpEdit;
    Edit27: TxpEdit;
    Edit28: TxpEdit;
    Edit29: TxpEdit;
    Edit30: TxpEdit;
    Edit31: TxpEdit;
    Edit32: TxpEdit;
    Edit33: TxpEdit;
    Edit34: TxpEdit;
    Edit35: TxpEdit;
    Edit36: TxpEdit;
    Edit37: TxpEdit;
    Edit38: TxpEdit;
    Edit39: TxpEdit;
    Edit40: TxpEdit;
    Edit41: TxpEdit;
    Edit42: TxpEdit;
    Edit43: TxpEdit;
    Edit44: TxpEdit;
    Edit45: TxpEdit;
    Edit46: TxpEdit;
    Edit47: TxpEdit;
    Edit48: TxpEdit;
    Edit49: TxpEdit;
    Edit50: TxpEdit;
    Edit51: TxpEdit;
    Edit52: TxpEdit;
    Edit53: TxpEdit;
    Edit54: TxpEdit;
    Edit55: TxpEdit;
    Edit56: TxpEdit;
    Edit57: TxpEdit;
    Edit58: TxpEdit;
    Edit59: TxpEdit;
    Edit60: TxpEdit;
    Edit61: TxpEdit;
    Edit62: TxpEdit;
    Edit63: TxpEdit;
    Edit64: TxpEdit;
    Edit65: TxpEdit;
    Edit66: TxpEdit;
    Edit67: TxpEdit;
    Edit68: TxpEdit;
    Edit69: TxpEdit;
    Edit70: TxpEdit;
    Edit71: TxpEdit;
    Edit72: TxpEdit;
    Edit73: TxpEdit;
    Edit74: TxpEdit;
    Edit75: TxpEdit;
    Edit76: TxpEdit;
    Edit77: TxpEdit;
    Edit78: TxpEdit;
    Edit79: TxpEdit;
    Edit80: TxpEdit;
    Edit81: TxpEdit;
    Edit82: TxpEdit;
    Edit83: TxpEdit;
    Edit84: TxpEdit;
    Edit85: TxpEdit;
    Edit86: TxpEdit;
    Edit87: TxpEdit;
    Edit88: TxpEdit;
    Edit89: TxpEdit;
    Edit90: TxpEdit;
    Edit91: TxpEdit;
    Edit92: TxpEdit;
    Edit93: TxpEdit;
    Edit94: TxpEdit;
    Edit95: TxpEdit;
    Edit96: TxpEdit;
    Edit97: TxpEdit;
    Edit98: TxpEdit;
    Edit99: TxpEdit;
    Edit100: TxpEdit;
    Edit101: TxpEdit;
    Edit102: TxpEdit;
    Edit103: TxpEdit;
    Edit104: TxpEdit;
    Edit105: TxpEdit;
    Edit106: TxpEdit;
    Edit107: TxpEdit;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label43: TLabel;
    Label45: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label50: TLabel;
    Label51: TLabel;
    Label52: TLabel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label60: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label64: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label67: TLabel;
    Label68: TLabel;
    Label69: TLabel;
    Label71: TLabel;
    Label8: TLabel;
    ScrollBox2: TScrollBox;
    Label70: TLabel;
    Label72: TLabel;
    Label73: TLabel;
    Label74: TLabel;
    Label75: TLabel;
    Label76: TLabel;
    Label77: TLabel;
    Label78: TLabel;
    Label79: TLabel;
    Label80: TLabel;
    Label81: TLabel;
    Label82: TLabel;
    Label83: TLabel;
    Label84: TLabel;
    Label85: TLabel;
    Label86: TLabel;
    Label87: TLabel;
    Label88: TLabel;
    Label89: TLabel;
    Label90: TLabel;
    Label91: TLabel;
    Label92: TLabel;
    Label93: TLabel;
    Label94: TLabel;
    Label95: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label98: TLabel;
    Label99: TLabel;
    Label100: TLabel;
    Label101: TLabel;
    Label102: TLabel;
    Edit20: TxpEdit;
    Edit21: TxpEdit;
    Edit108: TxpEdit;
    Edit109: TxpEdit;
    Edit110: TxpEdit;
    Edit111: TxpEdit;
    Edit112: TxpEdit;
    Label103: TLabel;
    Edit113: TxpEdit;
    Edit114: TxpEdit;
    Edit115: TxpEdit;
    Edit116: TxpEdit;
    Edit117: TxpEdit;
    Edit118: TxpEdit;
    Edit119: TxpEdit;
    Edit120: TxpEdit;
    Edit121: TxpEdit;
    Edit122: TxpEdit;
    Edit123: TxpEdit;
    Edit124: TxpEdit;
    Edit125: TxpEdit;
    Edit126: TxpEdit;
    Edit127: TxpEdit;
    Edit128: TxpEdit;
    Edit129: TxpEdit;
    Edit130: TxpEdit;
    Edit131: TxpEdit;
    Edit132: TxpEdit;
    Edit133: TxpEdit;
    Edit134: TxpEdit;
    Edit135: TxpEdit;
    Edit136: TxpEdit;
    ScrollBox3: TScrollBox;
    ScrollBox4: TScrollBox;
    Label104: TLabel;
    Label105: TLabel;
    Label106: TLabel;
    Label107: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    Label113: TLabel;
    Label114: TLabel;
    Label115: TLabel;
    Label116: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    Label119: TLabel;
    Label120: TLabel;
    Label121: TLabel;
    Label122: TLabel;
    Label123: TLabel;
    Label124: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label127: TLabel;
    Label128: TLabel;
    Label129: TLabel;
    Label130: TLabel;
    Label131: TLabel;
    Label132: TLabel;
    Label133: TLabel;
    Label134: TLabel;
    Label135: TLabel;
    Label136: TLabel;
    Edit137: TxpEdit;
    Edit138: TxpEdit;
    Edit139: TxpEdit;
    Edit140: TxpEdit;
    Edit141: TxpEdit;
    Edit142: TxpEdit;
    Edit143: TxpEdit;
    Edit144: TxpEdit;
    Edit145: TxpEdit;
    Edit146: TxpEdit;
    Edit147: TxpEdit;
    Edit148: TxpEdit;
    Edit149: TxpEdit;
    Edit150: TxpEdit;