main.pas

详细的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, Types;

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;
    FNClearSLAction: TAction;
    SLGoodsOutAct: TAction;
    PCContractAction: TAction;
    PCOrderAction: TAction;
    PCGoodsInAction: TAction;
    PCPurchaseForecast: TAction;
    STHouseOutOutAction: TAction;
    STGoodsOutIn: TAction;
    FNCashIn: TAction;
    FNBalanceSheet: TAction;
    FNCashOutIn: TAction;
    FNAccountAgeAct: TAction;
    FNCashOut: TAction;
    YDPlanAction: TAction;
    YDPrepareAction: TAction;
    YDPurchasePlan: TAction;
    YDpowerAction: TAction;
    YDProductNotes: TAction;
    YDGoodsOutACT: TAction;
    YDBOMBackAction: TAction;
    YDGoodsCostAct: TAction;
    YDForecastPLAct: TAction;
    YDStockInWorkAct: TAction;
    FileLogonAction: TAction;
    FileExitAction: TAction;
    FileSetPrintAction: TAction;
    SRJobsAction: TAction;
    OAAction98: TAction;
    Action200: TAction;
    F11: 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;
    D71: TMenuItem;
    G11: TMenuItem;
    G31: TMenuItem;
    G51: TMenuItem;
    G81: TMenuItem;
    G101: TMenuItem;
    H11: TMenuItem;
    H21: TMenuItem;
    H31: TMenuItem;
    H41: TMenuItem;
    H61: 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;
    FNProfitLossAct: TAction;
    FNCredenceFilesAct: TAction;
    FNSubCodeDetailAct: TAction;
    FNSubCodeTotalAct: TAction;
    FNReceiptPayable: TAction;
    FNRunExpense: TAction;
    PCPurchaseAction: TAction;
    PCCreditAction: TAction;
    FAAssetAddAction: TAction;
    FADepreciation: TAction;
    PCPurchaseFruitAction: TAction;
    PCpurchaseStatistic: TAction;
    STPCGoodsInCostAct: TAction;
    STYDGoodsIn: TAction;
    STStockStatisticsAct: TAction;
    STYDGoodsOut: TAction;
    STGoodsCountOff: TAction;
    STStockChange: TAction;
    SLCreditAction: TAction;
    SLSaleChainList: TAction;
    SLSaleClientAction: TAction;
    SLSaleForecast: TAction;
    YDDealProductMngr: TAction;
    YDDailyReportAct: TAction;
    YDStatisticReport: TAction;
    YDGoodsInAction: 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;
    G121: 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;
    PCPurchsePrice: TAction;
    SLSaleFruitListAct: TAction;
    SLSalePrice: TAction;
    PCCotractPrice: TAction;
    N86: TMenuItem;
    MyReportsCustomizeAction: TAction;
    C1: TMenuItem;
    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;
    N14: 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;
    EGProjectProgress: TAction;
    N66: TMenuItem;
    EGconsignOutAction: TAction;
    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;
    N104: TMenuItem;
    UseTest: TADOQuery;
    N105: TMenuItem;
    N106: TMenuItem;
    SLSaleStatistic: TAction;
    N107: TMenuItem;
    N108: TMenuItem;
    N109: TMenuItem;
    FileDataRestore: TAction;
    N110: TMenuItem;
    FileShowHelpDoc: TAction;
    PCDealPurchaseAct: TAction;
    N111: TMenuItem;
    N112: TMenuItem;
    N63: TMenuItem;
    N113: TMenuItem;
    N115: TMenuItem;
    N116: TMenuItem;
    EGMaterialOutAction: TAction;
    EGFNClearEGAction: TAction;
    EGProjectCostSttAct: TAction;
    N119: TMenuItem;
    N120: TMenuItem;
    N124: TMenuItem;
    FileClearBusData: TAction;
    N73: TMenuItem;
    N127: TMenuItem;
    N128: TMenuItem;
    N68: TMenuItem;
    DAProjectClassAct: TAction;
    N6: TMenuItem;
    FNCredenceAction: TAction;
    N70: TMenuItem;
    PayableAccountAct: TAction;
    N132: TMenuItem;
    N15: TMenuItem;
    N78: TMenuItem;
    N131: TMenuItem;
    N133: TMenuItem;
    FNClearPCAction: TAction;
    FNReportsAction: TAction;
    FNSubjectCollectAction: TAction;
    FNSubjectDetailsCollectAction: TAction;
    FNCustomizeReportAction: TAction;
    C2: TMenuItem;
    FNSubjectDetailsReportAction: TAction;
    D2: TMenuItem;
    STYDGoodsOutCostAct: TAction;
    STYDGoodsInCostAct: TAction;
    N134: TMenuItem;
    N135: TMenuItem;
    STYDGoodsPrcCostAct: TAction;
    STSLGoodsOutCostAct: TAction;
    FileBusDataRar: TAction;
    N79: TMenuItem;
    N136: TMenuItem;
    STNewStockRepAct: TAction;
    N137: TMenuItem;
    N138: TMenuItem;
    N9: TMenuItem;
    N71: TMenuItem;
    N75: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N76: TMenuItem;
    FashionSaleAction: TAction;
    FashionPurchaseAtc: TAction;
    FashionRemoveAct: TAction;
    FashionCountOffAct: TAction;
    FashionPOSAction: TAction;
    FashionStockAct: TAction;
    FashionChangeAct: TAction;
    FashionSaleSttAct: TAction;
    FashionACAgeAct: TAction;
    FashionSaleForecast: TAction;
    N67: TMenuItem;
    N121: TMenuItem;
    N122: TMenuItem;
    N130: TMenuItem;
    FashionPurchaseSttAct: TAction;
    N141: TMenuItem;
    N142: TMenuItem;
    N143: TMenuItem;
    N144: TMenuItem;
    N145: TMenuItem;
    N146: TMenuItem;
    N147: TMenuItem;
    FashionDataAreaConAct: TAction;
    FashionDataPOSConAct: TAction;
    N125: TMenuItem;
    FileBaseDataFDS: TAction;
    FileBaseDataCloth: TAction;
    FileBaseDataFashion: TAction;
    FileBaseDataEG: TAction;
    FileBaseDataDecorate: TAction;
    N129: TMenuItem;
    N140: TMenuItem;
    N148: TMenuItem;
    N149: TMenuItem;
    N150: TMenuItem;
    N151: TMenuItem;
    FileBaseDataMetals: TAction;
    FileBaseDataElectron: TAction;
    FileBaseDataElectric: TAction;
    N152: TMenuItem;
    N153: TMenuItem;
    N154: TMenuItem;
    EGProjectPlanAction: TAction;
    N155: TMenuItem;
    SRJanitorDataConAct: TAction;
    SRJanitorDataAction: TAction;
    N81: TMenuItem;
    N85: TMenuItem;
    FileBaseDataChemical: TAction;
    N103: TMenuItem;
    SLSaleDsctAction: TAction;
    N114: TMenuItem;
    FNCashExchangeAct: TAction;
    N117: TMenuItem;
    FNCashExchSttAct: TAction;
    N118: TMenuItem;
    EGFNClearEGOutAct: TAction;
    EGConsignOutSttAct: TAction;
    N123: TMenuItem;
    N126: 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 SLGoodsOutActExecute(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 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 SLContractPriceExecute(Sender: TObject);
    procedure FNCashInExecute(Sender: TObject);
    procedure FNCashOutExecute(Sender: TObject);
    procedure OAEMailExecute(Sender: TObject);
    procedure DAProviderActionExecute(Sender: TObject);
    procedure OAClientcRelationExecute(Sender: TObject);
    procedure OACompanyNewsExecute(Sender: TObject);
    procedure OAClientkRelationExecute(Sender: TObject);
    procedure PCPurchaseActionExecute(Sender: TObject);
    procedure YDpowerActionExecute(Sender: TObject);
    procedure YDPlanActionExecute(Sender: TObject);
    procedure YDPrepareActionExecute(Sender: TObject);
    procedure YDForecastPLActExecute(Sender: TObject);
    procedure SLGoodsOutBActionExecute(Sender: TObject);
    procedure PCGoodsInBackExecute(Sender: TObject);
    procedure PCPurchaseBackExecute(Sender: TObject);