📄 u_form_mainmenu.~pas

📁 这是一个啤酒行业的软件
💻 ~PAS
字号:
unit U_Form_MainMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSkinStore, WinSkinData, Menus, DB, ADODB, jpeg, ExtCtrls,
  ButtonExCtl, ToolWin, ComCtrls,uAdoSet,uCheckValidate,uString, Buttons;

type
  TForm_MainMenu = class(TForm)
    SkinData1: TSkinData;
    SkinStore1: TSkinStore;
    CoolBar1: TCoolBar;
    Button1: TButtonExCtl;
    SampleBtn: TButtonExCtl;
    AccidentBtn: TButtonExCtl;
    StorageBtn: TButtonExCtl;
    DataInto: TButtonExCtl;
    StoreInput: TButtonExCtl;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    BtnChangeFind: TButtonExCtl;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    BtnDataCheck: TButtonExCtl;
    ButtonExCtl1: TButtonExCtl;
    PopupMenu1: TPopupMenu;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    Image2: TImage;
    Image3: TImage;
    PopupMenu2: TPopupMenu;
    N22: TMenuItem;
    N23: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure StoreInputClick(Sender: TObject);
    procedure DataIntoClick(Sender: TObject);
    procedure AccidentBtnClick(Sender: TObject);
    procedure SampleBtnClick(Sender: TObject);
    procedure BtnChangeFindClick(Sender: TObject);
    procedure StorageBtnClick(Sender: TObject);
    procedure BtnDataCheckClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure ButtonExCtl1Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
     _AdoNewProduce:TuAdoSet;
    _Check:TCheckValidate;
    _str:TuString;
  public
    { Public declarations }
  end;

var
  Form_MainMenu: TForm_MainMenu;

implementation

{$R *.dfm}
uses U_Form_ChangeBill,U_Form_InitStorage,U_Form_ProduceStock,U_Form_AccidentBill,
     U_Form_SampleBill,U_Form_ChangeBillFind,U_Form_handStorePD,U_Form_DataCheck,
     U_Form_wasteBill, U_Form_Login,uGlobal,U_Form_Storage_Init,
  U_Form_ProduceStock_DX, U_Form_ProduceStock_TK,U_Form_wasteBill_EmptyBox;
procedure TForm_MainMenu.FormCreate(Sender: TObject);
begin
    self.Top:=0;
    self.Left:=0;
    self.Width:=screen.Width;
    self.Height:=screen.height;
    
    _AdoNewProduce:=TuAdoSet.Create('newProduce',1);
    _Check:=TCheckValidate.create;
    _str:=TuString.Create;
      
end;

procedure TForm_MainMenu.Button1Click(Sender: TObject);
begin
    if Form_ChangeBill=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ChangeBill:=TForm_ChangeBill.Create(Application);
       Form_ChangeBill.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ChangeBill.Show;
    end;
end;

procedure TForm_MainMenu.StoreInputClick(Sender: TObject);
begin
    if Form_InitStorage=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_InitStorage:=TForm_InitStorage.Create(Application);
       Form_InitStorage.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_InitStorage.Show;
    end;
end;

procedure TForm_MainMenu.DataIntoClick(Sender: TObject);
begin
    {if Form_ProduceStock=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ProduceStock:=TForm_ProduceStock.Create(Application);
       Form_ProduceStock.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ProduceStock.Show;
    end;
    }
end;

procedure TForm_MainMenu.AccidentBtnClick(Sender: TObject);
begin
    if Form_AccidentBill=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_AccidentBill:=TForm_AccidentBill.Create(Application);
       Form_AccidentBill.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_AccidentBill.Show;
    end;
end;

procedure TForm_MainMenu.SampleBtnClick(Sender: TObject);
begin
    if Form_SampleBill=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_SampleBill:=TForm_SampleBill.Create(Application);
       Form_SampleBill.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_SampleBill.Show;
    end;
end;

procedure TForm_MainMenu.BtnChangeFindClick(Sender: TObject);
begin
    {if Form_wasteBill=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill:=TForm_wasteBill.Create(Application);
       Form_wasteBill.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill.Show;
    end;
    }
end;

procedure TForm_MainMenu.StorageBtnClick(Sender: TObject);
begin
    if Form_handStorePD=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_handStorePD:=TForm_handStorePD.Create(Application);
       Form_handStorePD.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_handStorePD.Show;
    end;
end;

procedure TForm_MainMenu.BtnDataCheckClick(Sender: TObject);
begin
    if Form_DataCheck=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_DataCheck:=TForm_DataCheck.Create(Application);
       Form_DataCheck.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_DataCheck.Show;
    end;
end;

procedure TForm_MainMenu.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
    param:TStringList;
    strsql:string;
    _CheckDate:string;
    _Flag1,_Flag2,_Flag3:string;
begin
     _CheckDate:=formatDateTime('yyyy-mm-dd',now);
     param:=TStringList.Create;
     param.clear;
     if Application.MessageBox(Pchar('确定是否退出系统？'),'系统提示!',MB_YESNO+MB_IconWarning)=id_yes then
     begin
        param.Add(trim(_CheckDate));
        param.Add(_whichStore);
        param.Add('CHK_followTohand');
        strsql:='select * from  sale_handRealStore_Flag  where  CHK_CheckDate=:s1  and  ';
        strsql:=strsql+'CHK_whichStore=:s2 and  CHK_Type=:s3';
        _Flag1:=_AdoNewProduce.getFieldValue(strsql,param,'CHK_successFlag');

        param.clear;
        param.Add(trim(_CheckDate));
        param.Add(_whichStore);
        param.Add('CHK_handData');
        strsql:='select * from  sale_handRealStore_Flag  where  CHK_CheckDate=:s1  and  ';
        strsql:=strsql+'CHK_whichStore=:s2 and  CHK_Type=:s3';
        _Flag2:=_AdoNewProduce.getFieldValue(strsql,param,'CHK_successFlag');

        {param.clear;
        param.Add(trim(_CheckDate));
        param.Add(_whichStore);
        param.Add('CHK_checkBill');
        strsql:='select * from  sale_handRealStore_Flag  where  CHK_CheckDate=:s1  and  ';
        strsql:=strsql+'CHK_whichStore=:s2 and  CHK_Type=:s3';
        _Flag3:=_AdoNewProduce.getFieldValue(strsql,param,'CHK_successFlag');
        }
        if (_Flag1<>'1')  and  (_Flag2<>'1')   then
        begin
           ///showmessage('对不起，数据核对工作没进行或核对错误，不能交班');
          //  Form_Login.Close;
            {/*
               退出系统之前，将要做的工作
               1。先删除newproduce--->sale_storage表中的数据
               2.将sale_handStore表中的数据拷贝到sale_Storage中，
               3.再将sale_handStore中的数据删除
           */}


           param.Clear;
           strsql:='delete  from  sale_handStore';
           _AdoNewProduce.actionRecord(strsql,param);
           
           Form_Login.Close;


           CanClose:=true;
          //  and  (_Flag2<>'1')  and  (_Flag3<>'1')

        end
        else
        begin
           {/*
               退出系统之前，将要做的工作
               1。先删除newproduce--->sale_storage表中的数据
               2.将sale_handStore表中的数据拷贝到sale_Storage中，
               3.再将sale_handStore中的数据删除
           */}
           

           param.Clear;
           strsql:='delete  from  sale_handStore';
           _AdoNewProduce.actionRecord(strsql,param);
           
           Form_Login.Close;
           CanClose:=true;
        end;   
     end
     else
     begin
        CanClose:=false;
     end;
end;

procedure TForm_MainMenu.ButtonExCtl1Click(Sender: TObject);
begin
    if Form_Storage_Init=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_Storage_Init:=TForm_Storage_Init.Create(Application);
       Form_Storage_Init.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_Storage_Init.Show;
    end;
end;

procedure TForm_MainMenu.N19Click(Sender: TObject);
begin
    if Form_ProduceStock=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ProduceStock:=TForm_ProduceStock.Create(Application);
       Form_ProduceStock.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_ProduceStock.Show;
    end;
    
end;

procedure TForm_MainMenu.N20Click(Sender: TObject);
begin
     if Form_ProduceStock_DX=nil then
     begin
        EnableWindow(Form_MainMenu.Handle,false);
        Form_ProduceStock_DX:=TForm_ProduceStock_DX.Create(Application);
        Form_ProduceStock_DX.Show;
     end
     else
     begin
        EnableWindow(Form_MainMenu.Handle,false);
        Form_ProduceStock_DX.Show;
     end;
end;

procedure TForm_MainMenu.N21Click(Sender: TObject);
begin
      if Form_ProduceStock_TK=nil then
     begin
        EnableWindow(Form_MainMenu.Handle,false);
        Form_ProduceStock_TK:=TForm_ProduceStock_TK.Create(Application);
        Form_ProduceStock_TK.Show;
     end
     else
     begin
        EnableWindow(Form_MainMenu.Handle,false);
        Form_ProduceStock_TK.Show;
     end;
end;

procedure TForm_MainMenu.N22Click(Sender: TObject);
begin
    if Form_wasteBill=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill:=TForm_wasteBill.Create(Application);
       Form_wasteBill.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill.Show;
    end;
end;

procedure TForm_MainMenu.N23Click(Sender: TObject);
begin
    if Form_wasteBill_EmptyBox=nil then
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill_EmptyBox:=TForm_wasteBill_EmptyBox.Create(Application);
       Form_wasteBill_EmptyBox.Show;
    end
    else
    begin
       EnableWindow(Form_MainMenu.Handle,false);
       Form_wasteBill_EmptyBox.Show;
    end;
end;

procedure TForm_MainMenu.Image2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    _p:TPoint;
begin
     if button=mbleft then
     begin
        _p:=ClientToScreen(point(x,y));
        popupMenu1.Popup(_p.x+320,_p.y+25); 
     end;
end;

procedure TForm_MainMenu.Image3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
    _p:TPoint;
begin
     if button=mbleft then
     begin
        _p:=ClientToScreen(point(x,y));
        popupMenu2.Popup(_p.x+720,_p.y+25);
     end;
end;

end.
💿 文件大小 4474 K
👤 上传用户 jwl119
📂 所属分类 *行业应用
🏷️ 相关标签

#软件
⌨️ 快捷键说明

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