main.pas

Nicesoft ERP 是新一代智能型 ERP 系统

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, Navigator,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,shellapi,
  ActnList, ToolWin, ImgList, OutlookBar, DB, ADODB;

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    File1: TMenuItem;
    Window1: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
    WindowArrangeItem: TMenuItem;
    WindowMinimizeItem: TMenuItem;
    StatusBar: TStatusBar;
    ActionList: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowArrangeAll1: TWindowArrange;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileVertical1: TWindowTileVertical;
    WindowTileItem2: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    pnlLeft: TPanel;
    VertSplitter: TSplitter;
    LargeImageList: TImageList;
    SmallImageList: TImageList;
    ToolImageList: TImageList;
    A1: TMenuItem;
    B1: TMenuItem;
    D1: TMenuItem;
    G1: TMenuItem;
    H1: TMenuItem;
    ReportsMenu: TMenuItem;
    K1: TMenuItem;
    MSCompanyUserAction: TAction;
    MSPermissionsAction: TAction;
    MSUserAction: TAction;
    MSloginAction: TAction;
    MSPeriodAction: TAction;
    DAMSCurrency: TAction;
    DAFNAccounts: TAction;
    DAFNAccountCode: TAction;
    DASTWarehouse: TAction;
    DAGoodsAction: TAction;
    MSUnitsAction: TAction;
    MSBillTypeAction: TAction;
    DAFNExpense: TAction;
    DAClientAction: TAction;
    DAProviderAction: TAction;
    SLContractAction: TAction;
    SLOrderAction: TAction;
    SLSaleAction: TAction;
    SLFNClearSL: TAction;
    SLGoodsOutAction: TAction;
    SLSaleBackAction: TAction;
    SLDeliverAction: TAction;
    PCContractAction: TAction;
    PCOrderAction: TAction;
    PCClearPCAction: TAction;
    PCGoodsInAction: TAction;
    PCPurchaseBack: TAction;
    PCPurchaseForecast: TAction;
    STHouseOutOutAction: TAction;
    STAction49: TAction;
    STGoodsOutIn: TAction;
    STStockCountOff: TAction;
    STAction52: TAction;
    FNCashIn: TAction;
    FNBalanceSheet: TAction;
    FNCashOutIn: TAction;
    FNAccountAgeAction: TAction;
    FNCashOut: TAction;
    FNAction66: TAction;
    YDPlanAction: TAction;
    YDPrepareAction: TAction;
    YDPurchasePlan: TAction;
    YDpowerAction: TAction;
    YDProductNotes: TAction;
    YDGoodsOut: TAction;
    YDBOMBack: TAction;
    YDGoodsCost: TAction;
    YDForecastPL: TAction;
    YDStockInWork: TAction;
    FileLogonAction: TAction;
    FileExitAction: TAction;
    FileSetPrintAction: TAction;
    SRJobsAction: TAction;
    OAAction98: TAction;
    Action200: TAction;
    F11: TMenuItem;
    F21: TMenuItem;
    A11: TMenuItem;
    A31: TMenuItem;
    A41: TMenuItem;
    A51: TMenuItem;
    A61: TMenuItem;
    A101: TMenuItem;
    B11: TMenuItem;
    B21: TMenuItem;
    B31: TMenuItem;
    B51: TMenuItem;
    B61: TMenuItem;
    D21: TMenuItem;
    D51: TMenuItem;
    D61: TMenuItem;
    D71: TMenuItem;
    D81: TMenuItem;
    D101: TMenuItem;
    G11: TMenuItem;
    G31: TMenuItem;
    G51: TMenuItem;
    G81: TMenuItem;
    G101: TMenuItem;
    H11: TMenuItem;
    H21: TMenuItem;
    H31: TMenuItem;
    H41: TMenuItem;
    H51: TMenuItem;
    H61: TMenuItem;
    H71: TMenuItem;
    I11: TMenuItem;
    K11: TMenuItem;
    K31: TMenuItem;
    A131: TMenuItem;
    A141: TMenuItem;
    A151: TMenuItem;
    MSDepartmentAction: TAction;
    MSEmployeesAction: TAction;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    q21: TMenuItem;
    N8: TMenuItem;
    MSBrAreasAction: TAction;
    FilePasswordChangeAction: TAction;
    f1: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    NavigatorAction: TAction;
    Panel2: TPanel;
    Label1: TLabel;
    Panel3: TPanel;
    SpeedButton3: TSpeedButton;
    btnOutlookBar: TSpeedButton;
    HelpAboutAction: TAction;
    FNReceiptPayableE: TAction;
    FNActuialCash: TAction;
    FNCashFlow: TAction;
    FNExpense: TAction;
    FNProfitLoss: TAction;
    FNAction6: TAction;
    FNAction7: TAction;
    FNAction8: TAction;
    FNAction9: TAction;
    EGContractAction: TAction;
    FNReceiptPayable: TAction;
    FNRunExpense: TAction;
    PCPurchaseAction: TAction;
    PCCreditAction: TAction;
    PCGoodsInBack: TAction;
    FAAssetAddAction: TAction;
    FADepreciation: TAction;
    PCPurchaseFruitAction: TAction;
    PCpurchaseStatistic: TAction;
    STGoodsOutCost: TAction;
    STYDGoodsIn: TAction;
    STActualStock: TAction;
    STYDGoodsOut: TAction;
    STAction26: TAction;
    STSLGoodsOut: TAction;
    STGoodsCountOff: TAction;
    STAction29: TAction;
    STAction30: TAction;
    STAction31: TAction;
    STAction32: TAction;
    STAction33: TAction;
    StockChange: TAction;
    STAction35: TAction;
    SLGoodsOutBAction: TAction;
    SLCreditAction: TAction;
    SLSaleChainList: TAction;
    SLSaleClientAction: TAction;
    SLSaleSpecail: TAction;
    SLSaleForecast: TAction;
    YDDealProductMngr: TAction;
    YDDailyReport: TAction;
    YDStatisticReport: TAction;
    YDAction47: TAction;
    YDGoodsIn: TAction;
    DAMaterialClassAction: TAction;
    DAMaterialAction: TAction;
    DASLDiscount: TAction;
    DASLSaleGift: TAction;
    DAFNClearMode: TAction;
    DAProjectAction: TAction;
    DAAccountPeriod: TAction;
    OAClientkRelation: TAction;
    OAClientcRelation: TAction;
    OABrJobRecordsMng: TAction;
    OABrJobRecordsAction: TAction;
    OACompanyNews: TAction;
    OAEMail: TAction;
    OABrJobArrangeAction: TAction;
    DAGoodsClass: TAction;
    MSAttrDictionary: TAction;
    MSPostionClass: TAction;
    MSPostionBrowse: TAction;
    OALinkMenIDCard: TAction;
    ReportsExplorerAction: TAction;
    SLContractPrice: TAction;
    YDFormulaAction: TAction;
    O1: TMenuItem;
    L1: TMenuItem;
    l11: TMenuItem;
    l21: TMenuItem;
    G111: TMenuItem;
    G121: TMenuItem;
    G2: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N32: TMenuItem;
    N28: TMenuItem;
    N33: TMenuItem;
    N36: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N49: TMenuItem;
    N56: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N65: TMenuItem;
    N69: TMenuItem;
    N72: TMenuItem;
    N74: TMenuItem;
    N77: TMenuItem;
    N80: TMenuItem;
    N85: TMenuItem;
    N79: TMenuItem;
    PCPurchsePrice: TAction;
    SLSaleFruitListAction: TAction;
    SLSalePrice: TAction;
    FNClearSLaction: TAction;
    FNClearPCAction: TAction;
    PCCotractPrice: TAction;
    N86: TMenuItem;
    MyReportsCustomizeAction: TAction;
    C1: TMenuItem;
    STPCGoodsIn: TAction;
    SRJobsPrice: TAction;
    SRWorkQuantity: TAction;
    SRSalaryAnalyze: TAction;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    N34: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N7: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    SRBaseSalary: TAction;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    FileSystemIni: TAction;
    N35: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    SRWorktimeAction: TAction;
    SRWorkScheduleAction: TAction;
    N44: TMenuItem;
    SRWorkRestAction: TAction;
    N48: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N19: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N57: TMenuItem;
    N64: TMenuItem;
    EGMaterialChangeAct: TAction;
    EGProjectProgress: TAction;
    EGMaterialBalance: TAction;
    N66: TMenuItem;
    N67: TMenuItem;
    N71: TMenuItem;
    EGconsignInAction: TAction;
    EGconsignOutAction: TAction;
    N75: TMenuItem;
    N76: TMenuItem;
    N81: TMenuItem;
    SRWorkTimeCnt: TAction;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N91: TMenuItem;
    FileDataBackup: TAction;
    B2: TMenuItem;
    SRLeaveRept: TAction;
    N92: TMenuItem;
    FAAssetRept: TAction;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    FAAssetReduce: TAction;
    FAAssetRepair: TAction;
    FAAssetRePlan: TAction;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    FAAssetChange: TAction;
    N101: TMenuItem;
    FAAssetPlanRept: TAction;
    N102: TMenuItem;
    N103: TMenuItem;
    N104: TMenuItem;
    UseTest: TADOQuery;
    N105: TMenuItem;
    N106: TMenuItem;
    SLSaleStatistic: TAction;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    FileDataRestore: TAction;
    N110: TMenuItem;
    FileShowHelpDoc: TAction;
    PCDealPurchase: TAction;
    N111: TMenuItem;
    N112: TMenuItem;
    N63: TMenuItem;
    N113: TMenuItem;
    N9: TMenuItem;
    N114: TMenuItem;
    N115: TMenuItem;
    N116: TMenuItem;
    EGMaterialInAction: TAction;
    EGMaterialOutAction: TAction;
    EGProExpenseAction: TAction;
    EGMaterialInSTTAction: TAction;
    EGMaterialOutSTTAction: TAction;
    EGProjectCostAction: TAction;
    EGProjectExpenseAction: TAction;
    N117: TMenuItem;
    N118: TMenuItem;
    N119: TMenuItem;
    N120: TMenuItem;
    N121: TMenuItem;
    N122: TMenuItem;
    N123: TMenuItem;
    N124: TMenuItem;
    N125: TMenuItem;
    N126: TMenuItem;
    FileClearBusData: TAction;
    N73: TMenuItem;
    N127: TMenuItem;
    N128: TMenuItem;
    N129: TMenuItem;
    N130: TMenuItem;
    N68: TMenuItem;
    DAProjectClassAct: TAction;
    N6: TMenuItem;
    FNCredenceAction: TAction;
    N70: TMenuItem;
    N78: TMenuItem;
    N134: TMenuItem;
    N136: TMenuItem;
    N138: TMenuItem;
    N139: TMenuItem;
    PayableAccountAct: TAction;
    N132: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure SLSaleActionExecute(Sender: TObject);
    procedure MSPeriodActionExecute(Sender: TObject);
    procedure MSPermissionsActionExecute(Sender: TObject);
    procedure MSloginActionExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FileExitActionExecute(Sender: TObject);
    procedure FileLogonActionExecute(Sender: TObject);
    procedure MSUserActionExecute(Sender: TObject);
    procedure SLSaleBackActionExecute(Sender: TObject);
    procedure SLGoodsOutActionExecute(Sender: TObject);
    procedure SLOrderActionExecute(Sender: TObject);
    procedure NavigatorActionExecute(Sender: TObject);
    procedure btnOutlookBarClick(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure HelpAboutActionExecute(Sender: TObject);
    procedure SLContractActionExecute(Sender: TObject);
    procedure SLClearActionExecute(Sender: TObject);
    procedure DAClientActionExecute(Sender: TObject);
    procedure DAGoodsActionExecute(Sender: TObject);
    procedure DASTWarehouseExecute(Sender: TObject);
    procedure DASLDiscountExecute(Sender: TObject);
    procedure DASLSaleGiftExecute(Sender: TObject);
    procedure DAFNClearModeExecute(Sender: TObject);
    procedure DAFNAccountCodeExecute(Sender: TObject);
    procedure DAMSCurrencyExecute(Sender: TObject);
    procedure DAFNExpenseExecute(Sender: TObject);
    procedure DAFNAccountsExecute(Sender: TObject);
    procedure MSUnitsActionExecute(Sender: TObject);
    procedure MSCompanyUserActionExecute(Sender: TObject);
    procedure MSDepartmentActionExecute(Sender: TObject);
    procedure MSEmployeesActionExecute(Sender: TObject);
    procedure MSBrAreasActionExecute(Sender: TObject);
    procedure DAGoodsClassExecute(Sender: TObject);
    procedure MSAttrDictionaryExecute(Sender: TObject);
    procedure MSPostionClassExecute(Sender: TObject);
    procedure MSPostionBrowseExecute(Sender: TObject);
    procedure MSBillTypeActionExecute(Sender: TObject);
    procedure PCGoodsInActionExecute(Sender: TObject);
    procedure STYDGoodsOutExecute(Sender: TObject);
    procedure STYDGoodsInExecute(Sender: TObject);
    procedure PCClearPCActionExecute(Sender: TObject);
    procedure OALinkMenIDCardExecute(Sender: TObject);
    procedure PCContractActionExecute(Sender: TObject);
    procedure ReportsExplorerActionExecute(Sender: TObject);
    procedure OABrJobRecordsActionExecute(Sender: TObject);
    procedure OABrJobRecordsMngExecute(Sender: TObject);
    procedure PCOrderActionExecute(Sender: TObject);
    procedure FNExpenseExecute(Sender: TObject);
    procedure OABrJobArrangeActionExecute(Sender: TObject);
    procedure YDFormulaActionExecute(Sender: TObject);
    procedure STGoodsOutInExecute(Sender: TObject);
    procedure STStockCountOffExecute(Sender: TObject);