unitmain.pas

众星小超市管理系统-条型码方式管理 用的access库,(也有sql版本的qq3885652)

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Menus, ImgList, ADODB, mmsystem, jpeg, DB,
  Grids, DBGrids;

type
  TForm2 = class(TForm)
    ImageBack: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image1: TImage;
    Image6: TImage;
    Image7: TImage;
    Image111: TImage;
    Image112: TImage;
    Image121: TImage;
    Image122: TImage;
    Image131: TImage;
    Image132: TImage;
    Image142: TImage;
    Image141: TImage;
    Image151: TImage;
    Image152: TImage;
    Image161: TImage;
    Image162: TImage;

    PopupMenu5: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ImageList1: TImageList;

    PopupMenu1: TPopupMenu;
    N9: TMenuItem;
    PopupMenu2: TPopupMenu;

    PopupMenu3: TPopupMenu;
    N15: TMenuItem;
    N16: TMenuItem;
    N10: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N7: TMenuItem;
    N23: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    ImageBar31: TImage;
    ImageBar32: TImage;
    ImageBar33: TImage;
    ImageBar34: TImage;
    ImageBar11: TImage;
    ImageBar12: TImage;
    ImageBar21: TImage;
    ImageBar22: TImage;
    ImageBar41: TImage;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;

    ADOQuery2: TADOQuery;
   
    PopupMenu4: TPopupMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    PopupMenu6: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
   
    procedure Image2Click(Sender: TObject);
    procedure ShowBar(BarNo:Integer);
    procedure ShowMenu(MenuNo:Integer);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure ImageBackMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image7Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image111MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image121MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image131MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image141MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image151MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
     procedure Image161MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N3Click(Sender: TObject);
    procedure Image112Click(Sender: TObject);
    procedure Image122Click(Sender: TObject);
    procedure Image132Click(Sender: TObject);
    procedure Image152Click(Sender: TObject);
    procedure Image111Click(Sender: TObject);
    procedure Image121Click(Sender: TObject);
    procedure Image131Click(Sender: TObject);
    procedure Image151Click(Sender: TObject);
     procedure Image161Click(Sender: TObject);
    procedure Image162Click(Sender: TObject);
    procedure N7Click(Sender: TObject);

    procedure ShowFrame(FrameNo:Integer);
    procedure N23Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N16Click(Sender: TObject);

    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);

    procedure N6Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Image142Click(Sender: TObject);
    procedure ImageBar11Click(Sender: TObject);
    procedure ImageBar12Click(Sender: TObject);
    procedure ImageBar21Click(Sender: TObject);
    procedure ImageBar22Click(Sender: TObject);
    procedure ImageBar31Click(Sender: TObject);
    procedure ImageBar32Click(Sender: TObject);
    procedure ImageBar33Click(Sender: TObject);
    procedure ImageBar34Click(Sender: TObject);
    procedure ImageBar41Click(Sender: TObject);
     procedure ImageBar61Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  CurrBar: Integer;
  IsCreat: bool;

implementation

uses UnitLogin, UnitUserList, UnitProdList, UnitSell, UnitReportProd,
  UnitDbBuckup, UnitReportSell, UnitSellHistory, UnitAbout, UnitHelp;

{$R *.dfm}

procedure TForm2.Image2Click(Sender: TObject);
begin
  ShowBar(2);
end;

procedure TForm2.ShowBar(BarNo:Integer);
var
  i,j:integer;
  AImage:TComponent;
begin
  if  barno>currbar then
  begin
    for i := currbar+1 to barno do
    begin
      Aimage := Form2.FindComponent('Image' + IntToStr(i));
      if Aimage is Timage then TImage(AImage).top :=  TImage(AImage).top-134;
    end;
  end
  else
  begin
    for i := barno+1 to currbar do
    begin
      Aimage := Form2.FindComponent('Image' + IntToStr(i));
      if Aimage is Timage then TImage(AImage).top :=  TImage(AImage).top+134;
    end;
  end;
  for i:=1 to 4 do
    for j:=1 to 4 do
    begin
      Aimage := Form2.FindComponent('ImageBar' + IntToStr(i) + IntToStr(j));
      if Aimage is Timage then
        if i=BarNo then
          TImage(AImage).Visible := True
        else
          TImage(AImage).Visible := False;
    end;
  if CurrBar<>BarNo then sndplaysound(pchar(ExeRoot+'\sound\folder.wav'),snd_async);
  CurrBar := BarNo;
end;

procedure TForm2.ShowMenu(MenuNo:Integer);
var
  i: integer;
  AImage: TComponent;
begin
  for i := 1 to 5 do
  begin
    Aimage := Form2.FindComponent('Image1' + IntToStr(i) + '2');
    if i<>MenuNo then
    begin
      TImage(AImage).Visible := False;
    end
    else
      TImage(AImage).Visible := True;
  end;
end;


procedure TForm2.Image3Click(Sender: TObject);
begin
  ShowBar(3);
end;

procedure TForm2.Image4Click(Sender: TObject);
begin
  ShowBar(4);
end;
  procedure TForm2.Image6Click(Sender: TObject);
begin
  {关闭程序}
  application.Terminate;
end;
procedure TForm2.Image1Click(Sender: TObject);
begin
  ShowBar(1);
end;

procedure TForm2.ImageBackMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(0);
  if (ssleft in shift) then
  begin
    releasecapture;
    perform(wm_syscommand, $f012, 0);
  end;
end;

procedure TForm2.Image7Click(Sender: TObject);
begin
  application.Minimize;
end;


procedure TForm2.Image111MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(1);
end;

procedure TForm2.Image121MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(2);
end;
  procedure TForm2.Image131MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(3);
end;
procedure TForm2.Image161MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(6);
end;

procedure TForm2.Image141MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(4);
end;

procedure TForm2.Image151MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ShowMenu(5);
end;

procedure TForm2.N3Click(Sender: TObject);
begin
  form2.Close;
end;

procedure TForm2.Image112Click(Sender: TObject);
begin
  PopupMenu1.Popup(Form2.Left +Image112.Left ,Form2.Top + Image112.Top + Image112.Height + 1);
end;

procedure TForm2.Image122Click(Sender: TObject);
begin
  PopupMenu2.Popup(Form2.Left +Image122.Left ,Form2.Top + Image122.Top + Image122.Height + 1);
end;

procedure TForm2.Image132Click(Sender: TObject);
begin
  PopupMenu3.Popup(Form2.Left +Image132.Left ,Form2.Top + Image132.Top + Image132.Height + 1);
end;

procedure TForm2.Image152Click(Sender: TObject);
begin
  PopupMenu5.Popup(Form2.Left +Image152.Left ,Form2.Top + Image152.Top + Image152.Height + 1);
end;

procedure TForm2.Image111Click(Sender: TObject);
begin
  PopupMenu1.Popup(Form2.Left +Image112.Left ,Form2.Top + Image112.Top + Image112.Height + 1);
end;

procedure TForm2.Image121Click(Sender: TObject);
begin
  PopupMenu2.Popup(Form2.Left +Image122.Left ,Form2.Top + Image122.Top + Image122.Height + 1);
end;


procedure TForm2.Image131Click(Sender: TObject);
begin
  PopupMenu3.Popup(Form2.Left +Image132.Left ,Form2.Top + Image132.Top + Image132.Height + 1);
end;
procedure TForm2.Image151Click(Sender: TObject);
begin
  PopupMenu5.Popup(Form2.Left +Image152.Left ,Form2.Top + Image152.Top + Image152.Height + 1);
end;
procedure TForm2.Image161Click(Sender: TObject);
begin
  PopupMenu6.Popup(Form2.Left +Image162.Left ,Form2.Top + Image162.Top + Image162.Height + 1);
end;
procedure TForm2.Image162Click(Sender: TObject);
begin
  PopupMenu6.Popup(Form2.Left +Image162.Left ,Form2.Top + Image162.Top + Image162.Height + 1);
end;