frmmain.pas

超市管理系统

//商场管理系统单机版Ver 2.0  源程序
//本版本开始设计于2002年5月初
//作者：肖扬
//本系统除了第三方控件或源程序外，所有代码均为作者本人独立完成
//如果你引用了本程序中的源代码，希望你能保留本信息
//如果你对本程序有何建议，请与作者联系
//联系方法：[e-mail]
//特别感谢：《Delphi 之葵花宝典2.7》、大富翁论坛，以及本程序中曾经（或正在）引用
//    或借鉴过的源程序代码的作者，对未保留原作者信息的源程序的作者表示歉意！
//如果本程序中的源代码侵犯了您的权益，请与作者联系，将立即删除

//本系统中的源程序只供您研究、开发个人软件或免费软件,
//任何商业使用均需经本系统作者同意！！！
unit FRMMAIN;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, Menus, ExtCtrls, ImgList, XPMenu, Buttons,
  StdCtrls, DBTables,registry,ShellApi, myself,CommCtrl,
   DB, TFlatSpeedButtonUnit, TFlatHintUnit,Grids, DBGrids;

type
  TFrm_main = class(TForm)
    CoolBar_tools: TCoolBar;
    MainMenu_main: TMainMenu;
    Menu_file: TMenuItem;
    Menu_file_print: TMenuItem;
    N3: TMenuItem;
    Menu_file_exit: TMenuItem;
    Menu_bassmessage: TMenuItem;
    Menu_bassmessage_user: TMenuItem;
    Menu_bassmessage_depot: TMenuItem;
    N5: TMenuItem;
    Menu_bassmessage_goods: TMenuItem;
    StatusBar_main: TStatusBar;
    Panel_back: TPanel;
    ToolBar_main: TToolBar;
    TB_daysell: TToolButton;
    TB_jhlr: TToolButton;
    TB_jhth: TToolButton;
    TB_xsth: TToolButton;
    ImageList_tools: TImageList;
    Menu_data: TMenuItem;
    Menu_data_daysell: TMenuItem;
    Menu_data_jhlr: TMenuItem;
    Menu_data_jhth: TMenuItem;
    N4: TMenuItem;
    Menu_data_xsth: TMenuItem;
    Menu_ywcx_ywyxstj: TMenuItem;
    N8: TMenuItem;
    N51: TMenuItem;
    TB_kctj: TToolButton;
    TB_spfb: TToolButton;
    TB_ywyxs: TToolButton;
    TB_scxs: TToolButton;
    TB_exit: TToolButton;
    Panel_left: TPanel;
    Splitter_main: TSplitter;
    Timer_system: TTimer;
    Menu_bassmessage_depotgoods: TMenuItem;
    Query_menu: TQuery;
    Menu_ywcx_ywyxsmx: TMenuItem;
    N1: TMenuItem;
    Menu_ywcx_scxstj: TMenuItem;
    Menu_ywcx_scxsmx: TMenuItem;
    N2: TMenuItem;
    Menu_ywcx_cpxstj: TMenuItem;
    Menu_ywcx_cpxsmx: TMenuItem;
    Menu_ywcx_kczk: TMenuItem;
    Menu_ywcx_scjhmx: TMenuItem;
    N15: TMenuItem;
    Menu_ywcx: TMenuItem;
    Menu_ywcx_xscx: TMenuItem;
    Menu_ywcx_jhcx: TMenuItem;
    Menu_ywcx_thcx: TMenuItem;
    N9: TMenuItem;
    Menu_ywcx_sckcsptj: TMenuItem;
    Menu_ywcx_scspjxcmx: TMenuItem;
    Menu_ywcx_scjhtj: TMenuItem;
    Menu_tools: TMenuItem;
    Menu_tools_setup: TMenuItem;
    Menu_tools_data: TMenuItem;
    N20: TMenuItem;
    Menu_tools_about: TMenuItem;
    N110: TMenuItem;
    Menu_tools_data_backup: TMenuItem;
    N35: TMenuItem;
    N19: TMenuItem;
    Menu_chart: TMenuItem;
    Menu_chart_all: TMenuItem;
    Menu_tools_gz: TMenuItem;
    N6: TMenuItem;
    Menu_ywcx_spfb: TMenuItem;
    CoolBar_menu: TCoolBar;
    ToolBar_menu: TToolBar;
    Menu_ywcx_sclskccx: TMenuItem;
    Panel_main: TPanel;
    Panel_datainput: TPanel;
    FSB_datainput: TFlatSpeedButton;
    Panel_query: TPanel;
    FSB_query: TFlatSpeedButton;
    Panel_chart: TPanel;
    FSB_chart: TFlatSpeedButton;
    Panel_bassmessage: TPanel;
    FSB_bassmessage: TFlatSpeedButton;
    ScrollBox_datainput: TScrollBox;
    Panel_exit: TPanel;
    FSB_exit: TFlatSpeedButton;
    Sb_explorer_sell: TSpeedButton;
    Sb_explorer_scjh: TSpeedButton;
    Sb_explorer_scth: TSpeedButton;
    Sb_explorer_xsth: TSpeedButton;
    Sb_explorer_depotjh: TSpeedButton;
    Menu_bassmessage_admin: TMenuItem;
    Menu_tools_rights: TMenuItem;
    N12: TMenuItem;
    Menu_file_checkout: TMenuItem;
    Menu_file_saveas: TMenuItem;
    ScrollBox_query: TScrollBox;
    Sb_explorer_xsyw: TSpeedButton;
    Sb_explorer_jhyw: TSpeedButton;
    Sb_explorer_thyw: TSpeedButton;
    Sb_explorer_kczk: TSpeedButton;
    XPMenu: TXPMenu;
    TB_file: TToolButton;
    TB_bassmessage: TToolButton;
    TB_datainput: TToolButton;
    TB_query: TToolButton;
    TB_chart: TToolButton;
    TB_tools: TToolButton;
    TB_logo: TToolButton;
    ScrollBox_bassmessage: TScrollBox;
    Sb_explorer_admin: TSpeedButton;
    Sb_explorer_ywy: TSpeedButton;
    Sb_explorer_depot: TSpeedButton;
    Sb_explorer_goods: TSpeedButton;
    Sb_explorer_depotgoods: TSpeedButton;
    N10: TMenuItem;
    Menu_data_depotjh: TMenuItem;
    Menu_data_depotth: TMenuItem;
    N81: TMenuItem;
    Sb_explorer_depotth: TSpeedButton;
    Menu_chart_ywyxs: TMenuItem;
    Menu_chart_scxs: TMenuItem;
    Menu_chart_spxs: TMenuItem;
    Menu_chart_kczk: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    Menu_file_log: TMenuItem;
    Menu_chart_jh: TMenuItem;
    Menu_chart_th: TMenuItem;
    Menu_tools_logsetup: TMenuItem;
    N24: TMenuItem;
    Menu_ywcx_ckjhtj: TMenuItem;
    Menu_ywcx_ckjhmx: TMenuItem;
    N32: TMenuItem;
    FlatHint: TFlatHint;
    Menu_windows: TMenuItem;
    TB_windows: TToolButton;
    Menu_windows_showall: TMenuItem;
    Menu_windows_now: TMenuItem;
    Menu_windows_closeall: TMenuItem;
    N13: TMenuItem;
    Menu_windows_closenow: TMenuItem;
    ScrollBox_ywfx: TScrollBox;
    Sb_explorer_ywyxsfx: TSpeedButton;
    Sb_explorer_scxs: TSpeedButton;
    Sb_explorer_spxs: TSpeedButton;
    Sb_explorer_jhfx: TSpeedButton;
    Sb_explorer_thfx: TSpeedButton;
    Sb_explorer_kcfx: TSpeedButton;
    Sb_explorer_allfx: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    PopupMenu_toolbar: TPopupMenu;
    PopupMenu_toolbar_custom: TMenuItem;
    procedure Menu_file_exitClick(Sender: TObject);
    procedure Panel_datainputResize(Sender: TObject);
    procedure FSB_datainputClick(Sender: TObject);
    procedure FSB_queryClick(Sender: TObject);
    procedure FSB_chartClick(Sender: TObject);
    procedure FSB_bassmessageClick(Sender: TObject);
    procedure ScrollBox_datainputResize(Sender: TObject);
    procedure Sb_explorer_xsywClick(Sender: TObject);
    procedure Menu_tools_aboutClick(Sender: TObject);
    procedure Menu_bassmessage_adminClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Menu_tools_rightsClick(Sender: TObject);
    procedure TB_logoClick(Sender: TObject);
    procedure Menu_bassmessage_userClick(Sender: TObject);
    procedure Menu_bassmessage_depotClick(Sender: TObject);
    procedure Menu_bassmessage_goodsClick(Sender: TObject);
    procedure Panel_mainUnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    procedure Menu_data_daysellClick(Sender: TObject);
    procedure User_explorer(I_id:integer);
    procedure User_depotgoodsMenu();
    procedure User_setupdepot(Sender: TObject);
    procedure User_selectsetupdepot(sender: TObject);
    procedure User_switchwindows(Sender: Tobject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Menu_data_jhlrClick(Sender: TObject);
    procedure Menu_data_jhthClick(Sender: TObject);
    procedure Menu_tools_setupClick(Sender: TObject);
    procedure Menu_data_xsthClick(Sender: TObject);
    procedure Menu_data_depotjhClick(Sender: TObject);
    procedure Menu_data_depotthClick(Sender: TObject);
    procedure Menu_ywcx_ywyxstjClick(Sender: TObject);
    procedure Menu_ywcx_ywyxsmxClick(Sender: TObject);
    procedure Panel_mainMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel_mainConstrainedResize(Sender: TObject; var MinWidth,
      MinHeight, MaxWidth, MaxHeight: Integer);
    procedure Menu_ywcx_scxstjClick(Sender: TObject);
    procedure Menu_ywcx_scxsmxClick(Sender: TObject);
    procedure Menu_ywcx_cpxstjClick(Sender: TObject);
    procedure Menu_ywcx_cpxsmxClick(Sender: TObject);
    procedure Timer_systemTimer(Sender: TObject);
    procedure Menu_ywcx_scjhtjClick(Sender: TObject);
    procedure Menu_ywcx_scjhmxClick(Sender: TObject);
    procedure Menu_ywcx_ckjhtjClick(Sender: TObject);
    procedure Menu_ywcx_ckjhmxClick(Sender: TObject);
    procedure Menu_ywcx_sckcsptjClick(Sender: TObject);
    procedure Menu_windowsClick(Sender: TObject);
    procedure Menu_windows_showallClick(Sender: TObject);
    procedure Menu_windows_closenowClick(Sender: TObject);
    procedure Menu_windows_closeallClick(Sender: TObject);
    procedure Menu_ywcx_sclskccxClick(Sender: TObject);
    procedure Menu_ywcx_scspjxcmxClick(Sender: TObject);
    procedure Menu_ywcx_spfbClick(Sender: TObject);
    procedure Menu_tools_gzClick(Sender: TObject);
    procedure Menu_tools_data_backupClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Menu_file_checkoutClick(Sender: TObject);
    procedure Menu_fileClick(Sender: TObject);
    procedure Menu_file_logClick(Sender: TObject);
    procedure PopupMenu_toolbar_customClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Menu_chart_ywyxsClick(Sender: TObject);
    procedure Menu_chart_scxsClick(Sender: TObject);
    procedure Menu_toolsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;
    S_name:string;       //公司名称
    S_username:string;   //公司联系人
    S_cotel:string;      //公司电话
    S_address:string;    //公司地址
    S_autosave:string;   //1-自动保存，0或其它-手工保存
    S_savedays:string;   //自动保存天数
    I_countdate:integer;   //默认结算日期
    HWSHOPDATA:string;    //系统数据库
    USERRIGHTS:string;    //权限
    USERRIGHTSNAME:String;//权限名
    USERNAME:string;      //操作员
    S_RegTree:string;     //注册表路径
    S_logfile:string;     //日志文件

implementation

uses FRMABOUT, BASSMESSAGE_USER, SETUP, FACE, FRMRIGHTSMANAGE, LOGO,
  BASSMESSAGE_YWY, BASSMESSAGE_DEPOT, BASSMESSAGE_GOODS,
  MAIN_DEPOTGOODS, MAIN_DAYSELL, MAIN_SCJH, MAIN_SCJHTH, MAIN_SCXSTH,
  MAIN_DEPOTJH, MAIN_DEPOTTH, MAIN_QUERY_YWYXSTJ, MAIN_QUERY_YWYXSMX,
  MAIN_QUERY_SCXSTJ, MAIN_QUERY_SCXSMX, MAIN_QUERY_SPXSTJ,
  MAIN_QUERY_SPXSMX, MAIN_QUERY_SCJHTJ, MAIN_QUERY_SCJHMX,
  MAIN_QUERY_CKJHTJ, MAIN_QUERY_CKJHMX, MAIN_QUERY_KCSPTJ,
  MAIN_QUERY_LSKCCX, MAIN_QUERY_SPJXCMX, MAIN_QUERY_SPFB, MAIN_QUERY_YWYGZ,
  PROGRASS, FRMBACKUP, FRMCHECKOUT, FRMMESSAGE, CHART_BASS, CHART_YWYXS,
  CHART_SCXS;
{$R *.dfm}
procedure TFrm_main.User_explorer(I_id:integer);
begin
   if (I_id=1) and (ScrollBox_datainput.Visible) then exit;
   if (I_id=2) and (ScrollBox_query.Visible) then exit;
   if (I_id=3) and (ScrollBox_ywfx.Visible) then exit;
   if (I_id=4) and (ScrollBox_bassmessage.Visible) then exit;
   ScrollBox_datainput.Visible :=false;
   ScrollBox_query.Visible :=false;
   ScrollBox_ywfx.Visible :=false;
   ScrollBox_bassmessage.Visible :=false;
   if I_id=1 then
   begin
      panel_datainput.Align :=altop;
      Panel_bassmessage.Align :=albottom;
      Panel_chart.Align :=albottom;
      Panel_query.Align :=albottom;
      ScrollBox_datainput.Visible :=true;
      ScrollBox_datainput.Align :=alclient;
   end
   else if I_id=2 then
   begin
      panel_datainput.Align :=altop;
      Panel_query.Align :=altop;
      Panel_bassmessage.Align :=albottom;
      Panel_chart.Align :=albottom;
      ScrollBox_query.Visible :=true;
      ScrollBox_query.Align :=alclient;
   end
   else if I_id=3 then
   begin
      panel_datainput.Align :=altop;
      Panel_query.Align :=altop;
      Panel_chart.Align :=altop;
      Panel_bassmessage.Align :=albottom;
      ScrollBox_ywfx.Visible :=true;
      ScrollBox_ywfx.Align :=alclient;
   end
   else if I_id=4 then
   begin
      panel_datainput.Align :=altop;
      Panel_query.Align :=altop;
      Panel_chart.Align :=altop;
      Panel_bassmessage.Align :=altop;
      ScrollBox_bassmessage.Visible :=true;
      ScrollBox_bassmessage.Align :=alclient;
   end;
end;
procedure TFrm_main.Menu_file_exitClick(Sender: TObject);
begin
   self.Close ;
end;

procedure TFrm_main.Panel_datainputResize(Sender: TObject);
var
   I_control:integer;
begin
   for I_control:=0 to (sender as Tpanel).ControlCount -1 do
   begin
      with (sender as Tpanel).Controls[I_control] do
      begin
         left:=0;
         top:=0;
         Width :=(sender as Tpanel).Width ;
      end;
   end;
end;

procedure TFrm_main.FSB_datainputClick(Sender: TObject);
begin