frmmainp.~pas

进销存管理系统包含开题报告、无错程序源代码、无个性标记的可执行程序、院优毕业论文、PPT答辩资料等

unit FrmMainP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, Menus, ImgList, ToolWin, ActnList, DB, ADODB,ShellApi;

type
  TFrmMain = class(TForm)
    StatB1: TStatusBar;
    Timer1: TTimer;
    MainM1: TMainMenu;
    ImageList1: TImageList;
    M1: TMenuItem;
    MNew: TMenuItem;
    MEdit: TMenuItem;
    MDel: TMenuItem;
    MInsert: TMenuItem;
    N5: TMenuItem;
    MFind: TMenuItem;
    MPrint: TMenuItem;
    N8: TMenuItem;
    MTop: TMenuItem;
    MBack: TMenuItem;
    MNext: TMenuItem;
    MEnd: TMenuItem;
    N13: TMenuItem;
    MCheck: TMenuItem;
    MExplor: TMenuItem;
    MExit: TMenuItem;
    N17: TMenuItem;
    M2: TMenuItem;
    Ds_OdID: TMenuItem;
    Ds_Dept: TMenuItem;
    N3: TMenuItem;
    M3: TMenuItem;
    Ds_El00: TMenuItem;
    M4: TMenuItem;
    Ds_Userright: TMenuItem;
    Ds_DataBkup: TMenuItem;
    Ds_DataRecover: TMenuItem;
    M5: TMenuItem;
    N14: TMenuItem;
    Ds_TouchMe: TMenuItem;
    N1: TMenuItem;
    TlB1: TToolBar;
    Tnew: TToolButton;
    TEdit: TToolButton;
    TDel: TToolButton;
    TInsert: TToolButton;
    ToolButton5: TToolButton;
    TPrint: TToolButton;
    TFind: TToolButton;
    ToolButton8: TToolButton;
    Ttop: TToolButton;
    TBack: TToolButton;
    TNext: TToolButton;
    TEnd: TToolButton;
    ToolButton13: TToolButton;
    TCheck: TToolButton;
    TQuit: TToolButton;
    ActionList1: TActionList;
    Action1: TAction;
    TSubDel: TToolButton;
    N4: TMenuItem;
    Ds_User: TMenuItem;
    N9: TMenuItem;
    MRLogin: TMenuItem;
    Ds_DbfTag: TMenuItem;
    M6: TMenuItem;
    Ds_SU00: TMenuItem;
    Ds_User01: TMenuItem;
    Ds_Su01: TMenuItem;
    Ds_El01: TMenuItem;
    Ds_TableLog: TMenuItem;
    Ds_Ch00: TMenuItem;
    N2: TMenuItem;
    Ds_Ch01: TMenuItem;
    E1: TMenuItem;
    Ds_Qc00: TMenuItem;
    Ds_Mt00: TMenuItem;
    Ds_Mt01: TMenuItem;
    Ds_Mt02: TMenuItem;
    N6: TMenuItem;
    O1: TMenuItem;
    Ds_Cu00: TMenuItem;
    Ds_OD00: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure MExitClick(Sender: TObject);
    procedure TnewMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TlB1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TEditMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TDelMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TInsertMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TPrintMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TFindMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TtopMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TBackMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TNextMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TEndMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TCheckMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure TQuitMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure MExplorClick(Sender: TObject);
    Procedure SActiveControl(Flag:Boolean);
    procedure Ds_El00Click(Sender: TObject);
    procedure TQuitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Ds_OdIDClick(Sender: TObject);
    procedure Ds_DeptClick(Sender: TObject);
    procedure Ds_UserrightClick(Sender: TObject);
    procedure Ds_DbfTagClick(Sender: TObject);
    procedure Ds_UserClick(Sender: TObject);
    procedure Ds_SU00Click(Sender: TObject);
    procedure Ds_User01Click(Sender: TObject);
    procedure Ds_Su01Click(Sender: TObject);
    procedure MRLoginClick(Sender: TObject);
    procedure Ds_El01Click(Sender: TObject);
    procedure Ds_TableLogClick(Sender: TObject);
    procedure Ds_Ch00Click(Sender: TObject);
    procedure Ds_Ch01Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure Ds_DataBkupClick(Sender: TObject);
    procedure Ds_DataRecoverClick(Sender: TObject);
    procedure Ds_Qc00Click(Sender: TObject);
    procedure Ds_Mt00Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Ds_Cu00Click(Sender: TObject);
    procedure Ds_OD00Click(Sender: TObject);
    procedure Ds_TouchMeClick(Sender: TObject);
    procedure Ds_Mt01Click(Sender: TObject);
    procedure Ds_Mt02Click(Sender: TObject);//砞竚垫虫