thinkshop.dpr

超市管理系统

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

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

//为了改善界面，本系统中使用到的第三方控件有：
//1、平面控件集 flatstyle
//2、XPMenu Ver1.5 (高版本不适用）
//3、圆形按钮DsFancyButton
//向以上控件的作者表示谢意！！！

//对zypNeoForm的作者赵亦平表示感谢！！！

//如何进行有效的打印窗体设计与管理一直是本作者未解决的难题，
//本系统采用一张报表一个窗体的设计方法，结果生成了众多的打印窗体
//如果你有好的建议或方法，希望赐教，不胜感谢

program THINKSHOP;

uses
  Forms,
  FRMMAIN in 'FRMMAIN.pas' {Frm_main},
  NEOFORM in 'NEOFORM.pas' {zypNeoForm},
  FRMABOUT in 'FRMABOUT.pas' {Frm_about},
  FRMBASS in 'FRMBASS.pas' {Frm_bass},
  FRMBASSMESSAGE in 'FRMBASSMESSAGE.pas' {Frm_bassmessage},
  BASSMESSAGE_USER in 'BASSMESSAGE_USER.pas' {Frm_bassmessage_user},
  FACE in 'FACE.pas' {Frm_face},
  FRMBASSDIALOGS in 'FRMBASSDIALOGS.pas' {Frm_bassDialogs},
  LOGO in 'LOGO.pas' {Frm_Logo},
  MYSELF in 'MYSELF.pas',
  EDIT_USER in 'EDIT_USER.pas' {Frm_edit_user},
  SETUP in 'SETUP.pas' {Frm_setup},
  FRMRIGHTSMANAGE in 'FRMRIGHTSMANAGE.pas' {Frm_rightsmanage},
  BASSMESSAGE_YWY in 'BASSMESSAGE_YWY.pas' {Frm_bassmessage_ywy},
  EDIT_YWY in 'EDIT_YWY.pas' {Frm_edit_ywy},
  BASSMESSAGE_DEPOT in 'BASSMESSAGE_DEPOT.pas' {Frm_bassmessage_depot},
  EDIT_DEPOT in 'EDIT_DEPOT.pas' {Frm_edit_depot},
  BASSMESSAGE_GOODS in 'BASSMESSAGE_GOODS.pas' {Frm_bassmessage_goods},
  EDIT_GOODS in 'EDIT_GOODS.pas' {Frm_edit_goods},
  SELECT_TEMPLET in 'SELECT_TEMPLET.pas' {Frm_select_templet},
  SELECT_GOODS in 'SELECT_GOODS.pas' {Frm_select_goods},
  MAIN_DATAINPUT in 'MAIN_DATAINPUT.pas' {Frm_main_input},
  MAIN_DEPOTGOODS in 'MAIN_DEPOTGOODS.pas' {Frm_main_depotgoods},
  MAIN_DAYSELL in 'MAIN_DAYSELL.pas' {Frm_main_daysell},
  MAIN_SCJH in 'MAIN_SCJH.pas' {Frm_main_scjh},
  MAIN_SCJHTH in 'MAIN_SCJHTH.pas' {Frm_main_scjhth},
  MAIN_SCXSTH in 'MAIN_SCXSTH.pas' {Frm_main_scxsth},
  MAIN_DEPOTJH in 'MAIN_DEPOTJH.pas' {Frm_main_depotjh},
  MAIN_DEPOTTH in 'MAIN_DEPOTTH.pas' {Frm_main_depotth},
  MAIN_QUERY in 'MAIN_QUERY.pas' {Frm_main_query},
  MAIN_QUERY_YWYXSTJ in 'MAIN_QUERY_YWYXSTJ.pas' {Frm_main_query_ywyxstj},
  PRINT_TEMP in 'PRINT_TEMP.pas' {Frm_Print_temp},
  PRINT_YWYXSTJ in 'PRINT_YWYXSTJ.pas' {Frm_print_ywyxstj},
  CHART_BASS in 'CHART_BASS.pas' {Frm_chart_bass},
  MAIN_QUERY_YWYXSMX in 'MAIN_QUERY_YWYXSMX.pas' {Frm_main_query_ywyxsmx},
  PRINT_YWYXSMX in 'PRINT_YWYXSMX.pas' {Frm_print_ywyxsmx},
  MAIN_QUERY_SCXSTJ in 'MAIN_QUERY_SCXSTJ.pas' {Frm_main_query_scxstj},
  PRINT_SCXSTJ in 'PRINT_SCXSTJ.pas' {Frm_print_scxstj},
  MAIN_QUERY_SCXSMX in 'MAIN_QUERY_SCXSMX.pas' {Frm_main_query_scxsmx},
  PRINT_SCXSMX in 'PRINT_SCXSMX.pas' {Frm_print_scxsmx},
  MAIN_QUERY_SPXSTJ in 'MAIN_QUERY_SPXSTJ.pas' {Frm_main_query_spxstj},
  PRINT_SPXSTJ in 'PRINT_SPXSTJ.pas' {Frm_print_spxstj},
  MAIN_QUERY_SPXSMX in 'MAIN_QUERY_SPXSMX.pas' {Frm_main_query_spxsmx},
  PRINT_SPXSMX in 'PRINT_SPXSMX.pas' {Frm_print_spxsmx},
  MAIN_QUERY_CKJHTJ in 'MAIN_QUERY_CKJHTJ.pas' {Frm_main_query_ckjhtj},
  PRINT_CKJHTJ in 'PRINT_CKJHTJ.pas' {Frm_print_ckjhtj},
  MAIN_QUERY_CKJHMX in 'MAIN_QUERY_CKJHMX.pas' {Frm_main_query_ckjhmx},
  PRINT_CKJHMX in 'PRINT_CKJHMX.pas' {Frm_print_ckjhmx},
  MAIN_QUERY_SCJHTJ in 'MAIN_QUERY_SCJHTJ.pas' {Frm_main_query_scjhtj},
  PRINT_SCJHTJ in 'PRINT_SCJHTJ.pas' {Frm_print_scjhtj},
  MAIN_QUERY_SCJHMX in 'MAIN_QUERY_SCJHMX.pas' {Frm_main_query_scjhmx},
  PRINT_SCJHMX in 'PRINT_SCJHMX.pas' {Frm_print_scjhmx},
  MAIN_QUERY_KCSPTJ in 'MAIN_QUERY_KCSPTJ.pas' {Frm_main_query_kcsptj},
  PRINT_LSKCCX in 'PRINT_LSKCCX.pas' {Frm_print_lskccx},
  MAIN_QUERY_LSKCCX in 'MAIN_QUERY_LSKCCX.pas' {Frm_main_query_lskccx},
  PROGRASS in 'PROGRASS.pas' {Frm_prograss},
  PRINT_KCSPTJ in 'PRINT_KCSPTJ.pas' {Frm_print_kcsptj},
  MAIN_QUERY_SPJXCMX in 'MAIN_QUERY_SPJXCMX.pas' {Frm_main_query_spjxcmx},
  PRINT_SPJXCMX in 'PRINT_SPJXCMX.pas' {Frm_print_spjxcmx},
  MAIN_QUERY_SPFB in 'MAIN_QUERY_SPFB.pas' {Frm_main_query_spfb},
  PRINT_SPFB in 'PRINT_SPFB.pas' {Frm_print_spfb},
  MAIN_QUERY_YWYGZ in 'MAIN_QUERY_YWYGZ.pas' {Frm_main_query_ywygz},
  FRMBACKUP in 'FRMBACKUP.pas' {Frm_backup},
  SELECT_DIR in 'SELECT_DIR.pas' {Frm_select_dir},
  FRMCHECKOUT in 'FRMCHECKOUT.pas' {Frm_checkout},
  FRMMESSAGE in 'FRMMESSAGE.pas' {Frm_message},
  CHART_YWYXS in 'CHART_YWYXS.pas' {Frm_chart_ywyxs},
  CHART_SCXS in 'CHART_SCXS.pas' {Frm_chart_scxs};

{$R *.res}

begin
  Application.Initialize;
  //显示FLASH封面
  Frm_face:=TFrm_face.Create(Application);
  Frm_face.AlphaBlend :=false;
  Frm_face.Show;
  Frm_face.Update;
  application.ProcessMessages ;
  //创建主窗口
  Application.Title := '商场管理系统【单机版】';
  Application.CreateForm(TFrm_main, Frm_main);
  frm_main.Show ;
  frm_main.update;
  Frm_face.AlphaBlend :=true;
  Frm_face.Update ;
  //创建登录窗口
  Application.CreateForm(TFrm_logo, Frm_logo);
  while frm_face.AlphaBlendValue >15 do
  begin
     frm_face.AlphaBlendValue := frm_face.AlphaBlendValue-10;
  end;
  //关闭FLASH
  frm_face.Close ;
  frm_face.Free ;
//  frm_face.Destroy ;
  //显示登录窗口
  Frm_logo.showmodal;
  frm_logo.free  ;
  Application.Run;
end.