stockmain.~pas

Barcode And LabelPrint

unit StockMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, ExtCtrls, StdCtrls, jpeg, ComCtrls, ImgList, Buttons,
  fcButton, fcImgBtn, fcShapeBtn, fcImager, fcClearPanel, fcButtonGroup,
  fcOutlookBar, ToolWin;

type
  TGBKPFrmStockMain = class(TGBKPForm)
    StatusBar1: TStatusBar;
    ImageListLarge: TImageList;
    fcOutlookBar1: TfcOutlookBar;
    fcImager1: TfcImager;
    fcOutlookBar1fcShapeBtnSys: TfcShapeBtn;
    fcOutlookBar1fcShapeBtnInvioce: TfcShapeBtn;
    fcOutlookBar1fcShapeBtnDeclare: TfcShapeBtn;
    fcOutlookBar1fcShapeBtnCheck: TfcShapeBtn;
    fcOutlookBar1fcShapeBtnProtect: TfcShapeBtn;
    TreeView1: TTreeView;
    TreeView2: TTreeView;
    TreeView3: TTreeView;
    TreeView5: TTreeView;
    TreeView6: TTreeView;
    ImageListsmall: TImageList;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    SpeedBtnOrderToBarCode: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Image1: TImage;
    SpeedBtnBoxIncome: TSpeedButton;
    imlistXXL: TImageList;
    ToolButtonImages: TImageList;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;

    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure fcOutlookBar1fcShapeBtnSysMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure fcOutlookBar1fcShapeBtnSysMouseLeave(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TreeView2Click(Sender: TObject);
    procedure TreeView3Click(Sender: TObject);
    procedure TreeView5Click(Sender: TObject);
    procedure TreeView6Click(Sender: TObject);
    procedure SpeedBtnBoxIncomeClick(Sender: TObject);
    procedure SpeedBtnOrderToBarCodeClick(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);

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

var
  GBKPFrmStockMain: TGBKPFrmStockMain;

implementation

uses calendarFun, PublicFunction, StockDataModel, Login, PublicParameter,
  DeviceType, ProSeriseMan, GBarCodes, Shipment, OrderToBarCode,
  BarCodeQuery, BoxIncome, User;

{$R *.dfm}

procedure TGBKPFrmStockMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  inherited;
  if application.MessageBox('真的要退出此系统吗?', '提示', mb_yesno) = id_no then
    canclose := false;
end;

procedure TGBKPFrmStockMain.BitBtn1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  if (Sender is TBitBtn) then
  begin
    (Sender as TBitBtn).Font.Color := $00400040;
    (Sender as TBitBtn).Font.Style := [fsBold, fsUnderline]; //,fsItalic
  end;
end;

procedure TGBKPFrmStockMain.fcOutlookBar1fcShapeBtnSysMouseMove(
  Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  (Sender as TfcShapeBtn).Color := clYellow;
end;

procedure TGBKPFrmStockMain.fcOutlookBar1fcShapeBtnSysMouseLeave(
  Sender: TObject);
begin
  inherited;
  (Sender as TfcShapeBtn).Color := clSkyBlue;
end;

procedure TGBKPFrmStockMain.FormShow(Sender: TObject);
begin
  inherited;
//展开所有treeview
  TreeView1.FullExpand;
  TreeView2.FullExpand;
  TreeView3.FullExpand;
  //TreeView4.FullExpand;
  TreeView5.FullExpand;
  TreeView6.FullExpand;
  //StatusBar1.Panels[0].Text :=
  //StatusBar1.Panels[1].Text :='登录人:'+OperatorName;
  StatusBar1.Panels[2].Text := '登录日期:阳历:' + datetostr(date) + '  农历:' + GetCuurDateInfo + ' 登录时间:' + TimeToStr(now);
  //if OperatorName <> '' then StatusBar1.Panels[2].Text := '当前操作员:' + OperatorName else StatusBar1.Panels[2].Text := '当前操作员:无';
end;

procedure TGBKPFrmStockMain.TreeView1Click(Sender: TObject);
begin
  inherited;
  if TreeView1.Selected.Text = '机器类型信息' then
  begin
    frmDeviceType := TfrmDeviceType.Create(self);
    try
      frmDeviceType.ShowModal;
    finally
      FreeAndNil(frmDeviceType);
    end;

  end;
  if TreeView1.Selected.Text = '产品系列信息' then
  begin
    frmBProSeriseMan := TfrmBProSeriseMan.Create(self);
    try
      frmBProSeriseMan.ShowModal;
    finally
      FreeAndNil(frmBProSeriseMan);
    end;

  end;
end;

procedure TGBKPFrmStockMain.FormCreate(Sender: TObject);
var
  FrmLogonTemp: TFrmLogin;
  UserName: string; //登录人
  LoginNum: byte;
begin
  inherited;

  AppPath := ExtractFilePath(application.ExeName); //+ cfgfpfile;
  ConnStr := GetCfgValue('DataStr', cfgfpfile);
  //应该在窗口启动之前创建数据模块。

  FrmLogonTemp := TFrmLogin.Create(self);
  //ConnStr:='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=zem400ini;Data Source=192.168.1.36' ;
  if not connect_DB(StockDM.ADOConn, connstr) then //数据库连接
  begin
    if messagedlg('连接数据库失败，选择数据库?', mtinformation, [mbok, mbno], 0) = mrOk then
    begin
      ConnStr := selectDB(GBKPFrmStockMain);
      if not connect_DB(StockDM.ADOConn, connstr) then
      begin
        FrmLogonTemp.Free;
        application.Terminate;
      end
      else
      begin
        //save the options.
        SetCfgValue('DataStr', ConnStr, cfgfpfile); //存入iniDeviceName文件

      end;
    end
    else
    begin
      //DM.ADOCnn.Connected:=false;
      FrmLogonTemp.Free;
      stockDM.Free;
      application.Terminate;
    end;
  end;
  //连接己经成功
  if StockDM.QUser.Active = false then StockDM.QUser.Active := true;
  LoginNum := 0;
  while (true) do
  begin
    if FrmLogonTemp.ShowModal = mrok then
    begin
      //a key for first aid.
      UserName := copy(FrmLogonTemp.cbbName.Text, 0, pos('[', FrmLogonTemp.cbbName.Text) - 1);
      Userkey := FrmLogonTemp.EDTPassword.Text;
      if (StockDM.QUser.Locate('UserName', UserName, [])) and (StockDM.QUser.FieldValues['UserKey'] = UserKey) then
      begin
        LoginPriStr := StockDM.QUser.FieldValues['UserSecurity']; //读出用户权限
        FrmLogonTemp.Free;
        LoginMan := UserName;
        Loginkey := Userkey;
        LoginNum := 0;
        //权限分配.
        if LoginPriStr = '2' then
        begin
        //toolbar.Enabled := false;
        end;
        break;
      end;
      LoginNum := LoginNum + 1;
      if LoginNum = 3 then
      begin

        FrmLogonTemp.Free;
        FrmLogonTemp := nil;
        stockDM.Free;
        ShowMessage('你无权使用此系统,请与管理员联系!');
        Application.Terminate;

        break;
      end;
    end else
    begin
      FrmLogonTemp.Free;
      FrmLogonTemp := nil;
      stockDM.Free;

      Application.Terminate;

      break;
    end; //end if recset  if  not DM.QUser.Isempty then

  end; //登陆处理 end while (true) do


end;



procedure TGBKPFrmStockMain.TreeView2Click(Sender: TObject);
begin
  inherited;
  { if TreeView2.Selected.Text = '条码生成' then
  begin
    frmGBarCodes := TfrmGBarCodes.Create(self);
    try
     frmGBarCodes.ShowModal;
    finally
     FreeAndNil(frmGBarCodes);
    end;

  end; }

  if TreeView2.Selected.Text = '条码生成' then
  begin
    FrmOrderToBarCode := TFrmOrderToBarCode.Create(self);
    try
      FrmOrderToBarCode.ShowModal;
    finally
      FreeAndNil(FrmOrderToBarCode);
    end;

  end;
   if TreeView2.Selected.Text = '装箱入库' then
  begin
    FrmBoxIncome := TFrmBoxIncome.Create(self);
    try
      FrmBoxIncome.ShowModal;
    finally
      FreeAndNil(FrmBoxIncome);
    end;
  end;
end;

procedure TGBKPFrmStockMain.TreeView3Click(Sender: TObject);
begin
  inherited;
  if TreeView3.Selected.Text = '装箱出货' then
  begin
    FrmShipment := TFrmShipment.Create(self);
    try
      FrmShipment.ShowModal;
    finally
      FreeAndNil(FrmShipment);
    end;

  end;

end;

procedure TGBKPFrmStockMain.TreeView5Click(Sender: TObject);
begin
  inherited;
 if TreeView5.Selected.Text = '条码查询' then
  begin
    FrmBarCodeQuery := TFrmBarCodeQuery.Create(self);
    try
      FrmBarCodeQuery.ShowModal;
    finally
      FreeAndNil(FrmBarCodeQuery);
    end;

  end;
end;

procedure TGBKPFrmStockMain.TreeView6Click(Sender: TObject);
begin
  inherited;
  if TreeView6.Selected.Text = '操作员管理' then
  begin
    frmBUser := TfrmBUser.Create(self);
    try
      frmBUser.ShowModal;
    finally
      FreeAndNil(frmBUser);
    end;

  end;

end;

procedure TGBKPFrmStockMain.SpeedBtnBoxIncomeClick(Sender: TObject);
begin
  inherited;
 FrmBoxIncome := TFrmBoxIncome.Create(self);
    try
      FrmBoxIncome.ShowModal;
    finally
      FreeAndNil(FrmBoxIncome);
    end;
end;

procedure TGBKPFrmStockMain.SpeedBtnOrderToBarCodeClick(Sender: TObject);
begin
  inherited;
 FrmOrderToBarCode := TFrmOrderToBarCode.Create(self);
    try
      FrmOrderToBarCode.ShowModal;
    finally
      FreeAndNil(FrmOrderToBarCode);
    end;
end;

procedure TGBKPFrmStockMain.SpeedButton6Click(Sender: TObject);
begin
  inherited;
  FrmShipment := TFrmShipment.Create(self);
    try
      FrmShipment.ShowModal;
    finally
      FreeAndNil(FrmShipment);
    end;

end;

procedure TGBKPFrmStockMain.SpeedButton2Click(Sender: TObject);
begin
  inherited;
Application.Terminate;
end;

procedure TGBKPFrmStockMain.SpeedButton5Click(Sender: TObject);
begin
  inherited;
 FrmBarCodeQuery := TFrmBarCodeQuery.Create(self);
    try
      FrmBarCodeQuery.ShowModal;
    finally
      FreeAndNil(FrmBarCodeQuery);
    end;
end;

end.