?? thinkshop.dpr
字號:
//商場管理系統單機版Ver 2.0 源程序
//本版本開始設計于2002年5月初
//作者:肖揚
//本系統除了第三方控件或源程序外,所有代碼均為作者本人獨立完成
//如果你引用了本程序中的源代碼,希望你能保留本信息
//如果你對本程序有何建議,請與作者聯系
//聯系方法:thinknet@china.com
//特別感謝:《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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -