ufhmrp.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit Ufhmrp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, jpeg, ExtCtrls, StdCtrls, ToolWin, Menus, Buttons, shellapi;

type
  TMainForm = class(TForm)
    statusbar: TStatusBar;
    mainPanel: TPanel;
    ImgDcheck: TImage;
    ImgIpay: TImage;
    ImgIreturn: TImage;
    ImgOcharge: TImage;
    ImgOreturn: TImage;
    Image25: TImage;
    Image32: TImage;
    ImgDmove: TImage;
    ImgIbuild: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    Image29: TImage;
    Image33: TImage;
    Image34: TImage;
    ImgIorder: TImage;
    Imginstore: TImage;
    ImgOorder: TImage;
    ImgOoutstore: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    ImgOorder1: TImage;
    ImgOoutstore1: TImage;
    ImgOcharge1: TImage;
    ImgOreturn1: TImage;
    ImgIorder1: TImage;
    Imginstore1: TImage;
    ImgIpay1: TImage;
    ImgIreturn1: TImage;
    ImgDcheck1: TImage;
    ImgDmove1: TImage;
    ImgDcombine1: TImage;
    Imgcharge: TImage;
    Imgpay: TImage;
    Imgpay1: TImage;
    Imgcharge1: TImage;
    ImgIright1: TImage;
    ImgIright2: TImage;
    ImgIdown: TImage;
    ImgItear: TImage;
    Panel3: TPanel;
    LbeRpt1: TLabel;
    LbeRpt2: TLabel;
    LbeRpt3: TLabel;
    LbeRpt4: TLabel;
    LbeRpt5: TLabel;
    LbeRpt6: TLabel;
    LbeRpt7: TLabel;
    LbeRpt8: TLabel;
    ImgRpt1: TImage;
    ImgRpt2: TImage;
    ImgRpt3: TImage;
    ImgRpt4: TImage;
    ImgRpt5: TImage;
    ImgRpt6: TImage;
    ImgRpt7: TImage;
    ImgRpt8: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    OprRightsItem: TMenuItem;
    ChangePwd: TMenuItem;
    ChangeOprItem: TMenuItem;
    eventLogItem: TMenuItem;
    N2: TMenuItem;
    ChangeSuit: TMenuItem;
    SuitParams: TMenuItem;
    ClearSuitItem: TMenuItem;
    N74: TMenuItem;
    BackupItem: TMenuItem;
    Restroeitem: TMenuItem;
    DeleteItem: TMenuItem;
    N7: TMenuItem;
    ExitItem: TMenuItem;
    L1: TMenuItem;
    V1: TMenuItem;
    C2: TMenuItem;
    N9: TMenuItem;
    N18: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Mgoodtype: TMenuItem;
    MUnit: TMenuItem;
    N73: TMenuItem;
    MDept: TMenuItem;
    Memploy: TMenuItem;
    MIOTYPE: TMenuItem;
    N75: TMenuItem;
    Mpaytype: TMenuItem;
    MBank: TMenuItem;
    MIetype: TMenuItem;
    C1: TMenuItem;
    MIorder: TMenuItem;
    MIinstore: TMenuItem;
    MIreturn: TMenuItem;
    MIpay: TMenuItem;
    N21: TMenuItem;
    MVendorPurchaseTotal: TMenuItem;
    MVendorPurchaseDetail: TMenuItem;
    N24: TMenuItem;
    MGoodsPurchaseTotal: TMenuItem;
    MGoodsPurchaseDetail: TMenuItem;
    N29: TMenuItem;
    MEmployPurchaseTotal: TMenuItem;
    MEmployPurchaseDetail: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N76: TMenuItem;
    V4: TMenuItem;
    Z1: TMenuItem;
    X2: TMenuItem;
    MOOrder: TMenuItem;
    MOoutstore: TMenuItem;
    MOreturn: TMenuItem;
    MOcharge: TMenuItem;
    N35: TMenuItem;
    MClientSaleTotal: TMenuItem;
    MClientSaleDetail: TMenuItem;
    N38: TMenuItem;
    MGoodsSaleTotal: TMenuItem;
    MGoodsSaleDetail: TMenuItem;
    N41: TMenuItem;
    MEmploySaleTotal: TMenuItem;
    MEmploySaleDetail: TMenuItem;
    N44: TMenuItem;
    MStoreSaleTotal: TMenuItem;
    MStoreSaleDetail: TMenuItem;
    N77: TMenuItem;
    MClientProfitTotal: TMenuItem;
    MClientProfitDetail: TMenuItem;
    MClientProfitByInvo: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N4: TMenuItem;
    MDmove: TMenuItem;
    MDcheck: TMenuItem;
    MDInOut: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    MIbuild: TMenuItem;
    MItear: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    N91: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N58: TMenuItem;
    MDExpense: TMenuItem;
    MDIncome: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    BankTotalItem: TMenuItem;
    BankDetailItem: TMenuItem;
    N59: TMenuItem;
    POSItem: TMenuItem;
    N19: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N57: TMenuItem;
    N56: TMenuItem;
    N20: TMenuItem;
    MIPay1: TMenuItem;
    MOCharge1: TMenuItem;
    POS1: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    PosSchItem: TMenuItem;
    N6: TMenuItem;
    PosTurnItem: TMenuItem;
    DayAuditItem: TMenuItem;
    N8: TMenuItem;
    VIPCardItem: TMenuItem;
    CardDiscountItem: TMenuItem;
    CardTotalItem: TMenuItem;
    CardDetailItem: TMenuItem;
    operatortotal: TMenuItem;
    MOoutstore1: TMenuItem;
    ImgOoutstore2: TImage;
    ImgIright3: TImage;
    Timer1: TTimer;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N22: TMenuItem;
    Panel1: TPanel;
    ImgTitle: TImage;
    lblGoods: TLabel;
    lblClient: TLabel;
    lblVendor: TLabel;
    lblEmployee: TLabel;
    Image1: TImage;
    RepairItem: TMenuItem;
    N27: TMenuItem;
    DRepairItem: TMenuItem;
    N23: TMenuItem;
    N28: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N36: TMenuItem;
    N39: TMenuItem;
    N37: TMenuItem;
    N42: TMenuItem;
    N45: TMenuItem;
    N47: TMenuItem;
    N40: TMenuItem;
    N43: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure ShowInfoSchForm(Sender: TObject);  
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ImgIorderClick(Sender: TObject);
    procedure ImginstoreClick(Sender: TObject);
    procedure ImgOorderClick(Sender: TObject);
    procedure ImgOoutstoreClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ImgOreturnClick(Sender: TObject);
    procedure ImgDcheckClick(Sender: TObject);
    procedure ImgDmoveClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure BackupItemClick(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure V1Click(Sender: TObject);
    procedure Y1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure MIorderClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure MIreturnClick(Sender: TObject);
    procedure MOOrderClick(Sender: TObject);
    procedure MOoutstoreClick(Sender: TObject);
    procedure MOreturnClick(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label6Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure ImgIreturnClick(Sender: TObject);
    procedure ImgpayClick(Sender: TObject);
    procedure ImgchargeClick(Sender: TObject);
    procedure ImgIbuildClick(Sender: TObject);
    procedure ImgItearClick(Sender: TObject);
    procedure ImgIpayClick(Sender: TObject);
    procedure ImgOchargeClick(Sender: TObject);
    procedure MDInOutClick(Sender: TObject);
    procedure MIinstoreClick(Sender: TObject);
    procedure MIpayClick(Sender: TObject);
    procedure MOchargeClick(Sender: TObject);
    procedure MDmoveClick(Sender: TObject);
    procedure MDcheckClick(Sender: TObject);
    procedure MIbuildClick(Sender: TObject);
    procedure MItearClick(Sender: TObject);
    procedure ExitItemClick(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure MBankClick(Sender: TObject);
    procedure MIetypeClick(Sender: TObject);
    procedure MpaytypeClick(Sender: TObject);
    procedure MIOTYPEClick(Sender: TObject);
    procedure MgoodtypeClick(Sender: TObject);
    procedure MUnitClick(Sender: TObject);
    procedure MDeptClick(Sender: TObject);
    procedure MemployClick(Sender: TObject);
    procedure OprRightsItemClick(Sender: TObject);
    procedure ChangePwdClick(Sender: TObject);
    procedure eventLogItemClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SuitParamsClick(Sender: TObject);
    procedure RestroeitemClick(Sender: TObject);
    procedure ClearSuitItemClick(Sender: TObject);
    procedure DeleteItemClick(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure MVendorPurchaseTotalClick(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure ChangeOprItemClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure MDIncomeClick(Sender: TObject);
    procedure MDExpenseClick(Sender: TObject);
    procedure PosSchItemClick(Sender: TObject);
    procedure DayAuditItemClick(Sender: TObject);
    procedure BankDetailItemClick(Sender: TObject);
    procedure LbeRpt1Click(Sender: TObject);
    procedure LbeRpt2Click(Sender: TObject);
    procedure LbeRpt4Click(Sender: TObject);
    procedure LbeRpt7Click(Sender: TObject);
    procedure LbeRpt5Click(Sender: TObject);
    procedure LbeRpt8Click(Sender: TObject);
    procedure LbeRpt1MouseLeave(Sender: TObject);
    procedure PosTurnItemClick(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure Image32Click(Sender: TObject);
    procedure Image34Click(Sender: TObject);
    procedure Image25Click(Sender: TObject);
    procedure Image27Click(Sender: TObject);
    procedure Image29Click(Sender: TObject);
    procedure Image28Click(Sender: TObject);
    procedure Image26Click(Sender: TObject);
    procedure VIPCardItemClick(Sender: TObject);
    procedure CardDiscountItemClick(Sender: TObject);
    procedure CardTotalItemClick(Sender: TObject);
    procedure CardDetailItemClick(Sender: TObject);
    procedure POS1Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure operatortotalClick(Sender: TObject);
    procedure MOoutstore1Click(Sender: TObject);
    procedure ImgOoutstore2Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure LbeRpt6Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure V4Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure LbeRpt3Click(Sender: TObject);
    procedure ChangeSuitClick(Sender: TObject);
    procedure lblGoodsClick(Sender: TObject);
    procedure lblClientClick(Sender: TObject);
    procedure lblVendorClick(Sender: TObject);
    procedure lblEmployeeClick(Sender: TObject);
    procedure lblGoodsMouseLeave(Sender: TObject);
    procedure lblGoodsMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N27Click(Sender: TObject);
    procedure DRepairItemClick(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure AuditItemClick(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure BankTotalItemClick(Sender: TObject);
    procedure N43Click(Sender: TObject);
  private
    { Private declarations }
     nLblTag:integer;//记录当前在那个画面 如:进,销
     procedure InitSystemInfo;
     procedure SetMenuItems;
     procedure ShowLblbyTag;
     function CheckRights(aName:string): Boolean;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  atom:word;
  bPass:boolean;
implementation

uses IOrder, IInStore, IReturn,datamodule1, IBuild, ITear, information, search,
  DataBack, department, employee, subarea, VendorTYPE, selVC,
  Dcheck, Dmove, Ipay, Ocharge, DInOut, Good_D, client, ChgPwd, EventLog,
  infoType, About, sysParam, DataClear, DataDelete, DMaterial, InfoSch,DelphiHtmlHelp,
  login, DInCome, PosSch, RegCode, BasicData, PosMachine, SelectGoods,
  Account, infoNew, DRepair, TreeIEType, Audit, PosRight, BankInOut, ioGas;

{$R *.DFM}

procedure TMainForm.FormShow(Sender: TObject);
begin
//self.Caption:=self.Caption+'[进 货 管 理]';
ImgIorder.Visible:=true;
ImgIorder1.Visible:=false;
Imginstore.Visible:=true;
Imginstore1.Visible:=false;
ImgIpay.Visible:=true;
ImgIpay1.Visible:=false;
ImgIreturn.Visible:=true;
ImgIreturn1.Visible:=false;
ImgOorder.Visible:=false;
ImgOorder1.Visible:=false;
ImgOoutstore.Visible:=false;
ImgOoutstore1.Visible:=false;
ImgOcharge.Visible:=false;
ImgOcharge1.Visible:=false;
ImgOreturn.Visible:=false;
ImgOoutstore2.Visible:=false;
ImgOreturn1.Visible:=false;
ImgDcheck.Visible:=false;
ImgDcheck1.Visible:=false;
ImgDmove.Visible:=false;
ImgDmove1.Visible:=false;
ImgIbuild.Visible:=false;
ImgItear.Visible:=false;
ImgDcombine1.Visible:=false;