⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 企业商品管理系统
💻 PAS
字号:
🔍 
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls,  Grids, StdCtrls, Buttons, DB,
  ADODB, jpeg, ExtCtrls, ImgList,StrUtils,Theme;

type
  TFrm_Main = class(TBaseForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N15: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    StatusBar1: TStatusBar;
    N2: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N25: TMenuItem;
    N27: TMenuItem;
    N29: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Image2: TImage;
    Panel1: TPanel;
    P6: TPanel;
    P5: TPanel;
    P4: TPanel;
    P3: TPanel;
    P2: TPanel;
    P1: TPanel;
    Lw: TListView;
    ImageList1: TImageList;
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure w1Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure P1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure P1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure P7Click(Sender: TObject);
    procedure LwDblClick(Sender: TObject);
  private
    CurN:Integer;
    { Private declarations }
    function IsShowForm(FormName: string): Boolean;
  public
    { Public declarations }
  end;

var
  Frm_Main: TFrm_Main;
  Operator:string;
  IsLogin:Boolean;
implementation
uses Organ,Dept,DepotSet,DepotPos,
  WareType,WareInfo,Area,PayType,
  SerInfo,SellInfo,XDPrice,XSOutDepot,
  XSQuityMoney,InOutType,WairOut,WairIn,
  DepotMove,PriceMove,SelClient,SelProduct,
  SelXDPeice,SelXSOutDept,SelXSQuityMoney,
  SelWairOutS,SelWairInS,XStaxis,XDPriceassay,
  WairAssay,Popedom,User,Login,DM;
{$R *.dfm}

procedure TFrm_Main.N39Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_Organ.ShowModal;
end;

procedure TFrm_Main.N40Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_Dept.ShowModal;
end;

procedure TFrm_Main.N41Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_DepotSet.ShowModal;
end;

procedure TFrm_Main.N42Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_DepotPos.ShowModal;
end;

procedure TFrm_Main.N44Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_WareType.ShowModal;
end;

procedure TFrm_Main.N45Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_WareInfo.ShowModal;
end;

procedure TFrm_Main.N47Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_Area.ShowModal;
end;

procedure TFrm_Main.N48Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_PayType.ShowModal;
end;

procedure TFrm_Main.w1Click(Sender: TObject);
begin
  Frm_Serinfo.ShowModal;
end;

procedure TFrm_Main.N23Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SellInfo.ShowModal;
end;

procedure TFrm_Main.N24Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_XDPeice.ShowModal;
end;

procedure TFrm_Main.FormShow(Sender: TObject);
begin
  IsLogin:=False;
  Frm_Login.ShowModal;
  if not IsLogin then
    PostMessage(Handle, WM_CLOSE, 0, 0);
end;

procedure TFrm_Main.N26Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_XSDepot.ShowModal;
end;

procedure TFrm_Main.N28Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_XSQuityMoney.ShowModal;
end;

procedure TFrm_Main.N30Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_InOutType.ShowModal;
end;

procedure TFrm_Main.N32Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_WairOut.ShowModal;
end;

procedure TFrm_Main.N33Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_WairIn.ShowModal;
end;

procedure TFrm_Main.N34Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_DepotMove.ShowModal;
end;

procedure TFrm_Main.N37Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_PriceMove.ShowModal;
end;

procedure TFrm_Main.N17Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelClient.ShowModal;
end;

procedure TFrm_Main.N18Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelProduct.ShowModal;
end;

procedure TFrm_Main.N20Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelXDPrice.ShowModal;
end;

procedure TFrm_Main.N21Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SeLXSOutDepot.ShowModal;
end;

procedure TFrm_Main.N22Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelXSQuityMoney.ShowModal;
end;

procedure TFrm_Main.N27Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelWairOutS.ShowModal;
end;

procedure TFrm_Main.N29Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_SelWairIns.ShowModal;
end;

procedure TFrm_Main.N49Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_XStaxis.ShowModal;
end;

procedure TFrm_Main.N50Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_XDPriceAssay.ShowModal;
end;

procedure TFrm_Main.N51Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_WairAssay.ShowModal;
end;

procedure TFrm_Main.N8Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_Popedom.ShowModal;
end;

procedure TFrm_Main.N7Click(Sender: TObject);
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  Frm_User.ShowModal;
end;

procedure TFrm_Main.N15Click(Sender: TObject);
begin
  Close;
end;

function TFrm_Main.IsShowForm(FormName: string): Boolean;
var
  ADOQ:TADODataSet;
begin
  ADOQ:=TADODataSet.Create(nil);
  ADOQ.Connection:=FDM.ADOCon;
  ADOQ.CommandText:='Select P.IsUse From MR_User_Tab U,MR_Popedom_Tab P '+
                    'where U.MR_Group=P.MR_Name and U.MR_Login='+QuotedStr(Operator)+
                    ' and P.MR_FormName='+QuotedStr(FormName);
  ADOQ.Open;
  if ADOQ.RecordCount=0 then
    Result := False
  else
    Result := ADOQ.Fields[0].AsBoolean;
end;

procedure TFrm_Main.N12Click(Sender: TObject);
var
  FileName:string;
  ADOQ:TADOQuery;
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;
  ADOQ:=TADOQuery.Create(nil);
  ADOQ.Connection:=FDM.ADOCon;

  try
   if Application.MessageBox('是否要备份数据库？', '明日科技', MB_OKCANCEL) =
     IDOK then
   begin
      if SaveDialog1.Execute then
      begin
        FileName:=SaveDialog1.FileName;
        ADOQ.SQL.Text:='use master BACKUP DATABASE MR_Ware to Disk ='''+FileName+''' use MR_Ware';
        ADOQ.ExecSQL;
        Application.MessageBox('数据备份成功！','明日科技');
      end;
   end;
  except
    Application.MessageBox('数据备份失败！','明日科技');
  end;
end;

procedure TFrm_Main.N13Click(Sender: TObject);
var
  SQLStr:string;
  ADOQ:TADOQuery;
begin
  if not IsShowForm(TMenuItem(Sender).Hint) then
  begin
    Application.MessageBox('您没有使用权限！','明日科技');
    Exit;
  end;

    ADOQ:=TADOQuery.Create(nil);
    ADOQ.Connection:=FDM.ADOCon;
    try
     if Application.MessageBox('是否要还原数据库？', '明日科技', MB_OKCANCEL) =
       IDOK then
     begin
        if OpenDialog1.Execute then
        begin
          SQLStr:=
          ' use master '+
          ' RESTORE DATABASE MR_Ware FROM Disk = '+QuotedStr(OpenDialog1.FileName)+
          ' use MR_Ware';
          ADOQ.SQL.Text:=SQLStr;
          ADOQ.ExecSQL;
          Application.MessageBox('数据还原成功！','明日科技');
        end;
     end;
    except
      Application.MessageBox('数据还原失败！','明日科技');
    end;
end;

procedure TFrm_Main.N10Click(Sender: TObject);
begin
  IsLogin:=False;
  Frm_Login.ShowModal;
end;

procedure TFrm_Main.P1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TPanel(Sender).BevelOuter:=bvLowered;
end;

procedure TFrm_Main.P1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TPanel(Sender).BevelOuter:=bvRaised;
end;

procedure TFrm_Main.P7Click(Sender: TObject);
var
  i:Integer;
  Temp,Count:Integer;
  Txt:string;
begin
  CurN:=StrToInt(RightStr(TPanel(Sender).Name,1));
  
  for i:=0 to Panel1.ControlCount-1 do
  begin
    if Panel1.Controls[i].ClassName='TPanel' then
    begin
      Temp:=StrToInt(RightStr(TPanel(Panel1.Controls[i]).Name,1));
      if Temp>CurN then
        TPanel(Panel1.Controls[i]).Align:=alBottom;
    end;
  end;

  Count:=Panel1.ControlCount-1;
  while Count>=0 do
  begin
    if Panel1.Controls[Count].ClassName='TPanel' then
    begin
      Temp:=StrToInt(RightStr(TPanel(Panel1.Controls[Count]).Name,1));
      if Temp<=CurN then
        TPanel(Panel1.Controls[Count]).Align:=alTop;
    end;
    Dec(Count);
  end;
  Lw.Clear;
  for i:=0 to MainMenu1.Items[CurN-1].Count-1 do
  begin
    Txt:=MainMenu1.Items[CurN-1].Items[i].Hint;
    if Txt<>'' then
    begin
      Lw.Items.Add.Caption:='          '+Txt+'          ';
    end;
  end;
end;

procedure TFrm_Main.LwDblClick(Sender: TObject);
var
  Txt:string;
  i:Integer;
begin
  if Assigned(Lw.Selected) then
    Txt:=Trim(Lw.Selected.Caption);
  for i:=0 to MainMenu1.Items[CurN-1].Count-1 do
  begin
    if Txt=MainMenu1.Items[CurN-1].Items[i].Hint then
    begin
      MainMenu1.Items[CurN-1].Items[i].Click;
      Break;
    end;
  end;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -