开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
Main.pas
资源名称：万家福超市管理系统.rar　[点击查看]
上传用户：bjkrmsxy
上传日期：2010-01-31
资源大小：9004k
文件大小：11k
源码类别：

百货/超市行业

开发平台：

Delphi

Main.pas：源码内容
  1. unit Main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, Grids, DBGrids, DB, ADODB, ToolWin, ComCtrls, ExtCtrls,
  8.   ImgList, WinSkinData;
  10. type
  11.   TMain_Form = class(TForm)
  12.     Menu1: TMainMenu;
  13.     System_M: TMenuItem;
  14.     Back_M: TMenuItem;
  15.     Front_S: TMenuItem;
  16.     Rave_C: TMenuItem;
  17.     Person_M: TMenuItem;
  18.     Help: TMenuItem;
  19.     System_Tool: TMenuItem;
  20.     System_Back: TMenuItem;
  21.     System_Exit: TMenuItem;
  22.     Back_input: TMenuItem;
  23.     Back_Type: TMenuItem;
  24.     Back_Select: TMenuItem;
  25.     Back_Manage: TMenuItem;
  26.     Front_Sell: TMenuItem;
  27.     Front_day: TMenuItem;
  28.     Rave_Sto: TMenuItem;
  29.     Rave_day: TMenuItem;
  30.     Person_Sup: TMenuItem;
  31.     Person_Comm: TMenuItem;
  32.     Help_Top: TMenuItem;
  33.     Help_About: TMenuItem;
  34.     N1: TMenuItem;
  35.     N2: TMenuItem;
  36.     N3: TMenuItem;
  37.     N4: TMenuItem;
  38.     N5: TMenuItem;
  39.     N6: TMenuItem;
  40.     CoolBar1: TCoolBar;
  41.     ToolBar1: TToolBar;
  42.     ToolBar2: TToolBar;
  43.     ToolBar3: TToolBar;
  44.     Image1: TImage;
  45.     ImageList1: TImageList;
  46.     ToolButton18: TToolButton;
  47.     ImageList2: TImageList;
  48.     ToolButton1: TToolButton;
  49.     ToolButton2: TToolButton;
  50.     ToolButton3: TToolButton;
  51.     ToolButton4: TToolButton;
  52.     ToolButton6: TToolButton;
  53.     ToolButton12: TToolButton;
  54.     ToolButton20: TToolButton;
  55.     ToolButton13: TToolButton;
  56.     ToolButton14: TToolButton;
  57.     ToolButton15: TToolButton;
  58.     ToolButton16: TToolButton;
  59.     ToolButton5: TToolButton;
  60.     ToolButton7: TToolButton;
  61.     ToolButton8: TToolButton;
  62.     SkinData1: TSkinData;
  63.     procedure Help_AboutClick(Sender: TObject);
  64.     procedure Back_ManageClick(Sender: TObject);
  65.     procedure System_ExitClick(Sender: TObject);
  66.     procedure N1Click(Sender: TObject);
  67.     procedure N2Click(Sender: TObject);
  68.     procedure N3Click(Sender: TObject);
  69.     procedure N4Click(Sender: TObject);
  70.     procedure N5Click(Sender: TObject);
  71.     procedure Back_TypeClick(Sender: TObject);
  72.     procedure FormActivate(Sender: TObject);
  73.     procedure Front_SellClick(Sender: TObject);
  74.     procedure Back_inputClick(Sender: TObject);
  75.     procedure Back_SelectClick(Sender: TObject);
  76.     procedure Front_dayClick(Sender: TObject);
  77.     procedure Rave_StoClick(Sender: TObject);
  78.     procedure System_BackClick(Sender: TObject);
  79.     procedure Person_SupClick(Sender: TObject);
  80.     procedure N6Click(Sender: TObject);
  81.     procedure ToolButton12MouseMove(Sender: TObject; Shift: TShiftState; X,
  82.       Y: Integer);
  83.     procedure ToolButton18MouseMove(Sender: TObject; Shift: TShiftState; X,
  84.       Y: Integer);
  85.     procedure ToolButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
  86.       Y: Integer);
  87.     procedure ToolButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
  88.       Y: Integer);
  89.     procedure ToolButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
  90.       Y: Integer);
  91.     procedure ToolButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
  92.       Y: Integer);
  93.     procedure ToolButton16MouseMove(Sender: TObject; Shift: TShiftState; X,
  94.       Y: Integer);
  95.     procedure ToolButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
  96.       Y: Integer);
  97.     procedure ToolButton8MouseMove(Sender: TObject; Shift: TShiftState; X,
  98.       Y: Integer);
  99.     procedure ToolButton20MouseMove(Sender: TObject; Shift: TShiftState; X,
  100.       Y: Integer);
  101.     procedure ToolButton13MouseMove(Sender: TObject; Shift: TShiftState; X,
  102.       Y: Integer);
  103.     procedure ToolButton14MouseMove(Sender: TObject; Shift: TShiftState; X,
  104.       Y: Integer);
  105.     procedure ToolButton15MouseMove(Sender: TObject; Shift: TShiftState; X,
  106.       Y: Integer);
  107.     procedure Rave_dayClick(Sender: TObject);
  108.     procedure Help_TopClick(Sender: TObject);
  109.     procedure Person_CommClick(Sender: TObject);
  110.   private
  111.     { Private declarations }
  112.   public
  113.     { Public declarations }
  114.   end;
  116. var
  117.   Main_Form: TMain_Form;
  119. implementation
  121. uses about, datamodule, producetype, putproducet, saleunit, entergoo,
  122.   select, backup, UseLogin, admin_unit, help;
  124. {$R *.dfm}
  126. procedure TMain_Form.Help_AboutClick(Sender: TObject);
  127. begin
  128. AboutBox.show;
  129. end;
  131. procedure TMain_Form.Back_ManageClick(Sender: TObject);
  132. begin
  133. Put_Form.show;
  134. end;
  136. procedure TMain_Form.System_ExitClick(Sender: TObject);
  137. begin
  138. Application.Terminate;
  139. end;
  141. procedure TMain_Form.N1Click(Sender: TObject);
  142. begin
  143.   if N1.Checked then
  144.     begin
  145.          N1.Checked:=false;
  146.          Back_M.visible:=false;
  147.     end
  148.   else
  149.      begin
  150.           N1.Checked:=true;
  151.           Back_M.visible:=true;
  152.       end;
  153. end;
  154. procedure TMain_Form.N2Click(Sender: TObject);
  155. begin
  156.   if N2.Checked then
  157.     begin
  158.          N2.Checked:=false;
  159.          Front_S.visible:=false;
  160.     end
  161.   else
  162.      begin
  163.           N2.Checked:=true;
  164.           Front_S.visible:=true;
  165.       end;
  166. end;
  168. procedure TMain_Form.N3Click(Sender: TObject);
  169. begin
  170.   if N3.Checked then
  171.     begin
  172.          N3.Checked:=false;
  173.          Rave_C.visible:=false;
  174.     end
  175.   else
  176.      begin
  177.           N3.Checked:=true;
  178.           Rave_C.visible:=true;
  179.       end;
  180. end;
  182. procedure TMain_Form.N4Click(Sender: TObject);
  183. begin
  184.   if N4.Checked then
  185.     begin
  186.          N4.Checked:=false;
  187.          Person_M.visible:=false;
  188.     end
  189.   else
  190.      begin
  191.           N4.Checked:=true;
  192.           Person_M.visible:=true;
  193.       end;
  194. end;
  196. procedure TMain_Form.N5Click(Sender: TObject);
  197. begin
  198.   if N5.Checked then
  199.     begin
  200.          N5.Checked:=false;
  201.          Help.visible:=false;
  202.     end
  203.   else
  204.      begin
  205.           N5.Checked:=true;
  206.           Help.visible:=true;
  207.       end;
  208. end;
  210. procedure TMain_Form.Back_TypeClick(Sender: TObject);
  211. begin
  212. PType_Form.show;
  213. end;
  215. procedure TMain_Form.FormActivate(Sender: TObject);
  216. begin
  217.      with datamodule1 do
  218.          begin
  219.              if adoconnection1.connectionstring='' then
  220.                 begin
  221.                   adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'datesuper.mdb;Persist Security Info=False';
  222.                   adoconnection1.connected:=true;
  223.                   if not adoquery1.active then
  224.                   adoquery1.open;
  225.                   Login_Form.ShowModal;
  226.                 end;
  227.          end;
  228.      if Login_Form.UseType>1 then
  229.      begin
  230.       admin_form.panel1.enabled:=false;
  231.       person_sup.enabled:=false;
  232.      end;
  233.      if Login_Form.UseType>2 then
  234.      begin
  235.      System_M.enabled:=false;
  236.      back_m.enabled:=false;
  237.      person_m.enabled:=false;
  238.      toolbar1.enabled:=false
  239.      end;
  240. end;
  242. procedure TMain_Form.Front_SellClick(Sender: TObject);
  243. begin
  244. Sale_Form.show;
  245. end;
  247. procedure TMain_Form.Back_inputClick(Sender: TObject);
  248. begin
  249. enterFrom.show;
  250. end;
  252. procedure TMain_Form.Back_SelectClick(Sender: TObject);
  253. begin
  254.  sel_From.show;
  255. end;
  257. procedure TMain_Form.Front_dayClick(Sender: TObject);
  258. begin
  259.  with datamodule1.adoquery1 do
  260.  begin
  261.   close;
  262.   SQL.Clear;
  263.   SQL.Add('select sum(s_p_price) as TDResult from sell_back_t where year(s_time)=year(now()) and month(s_time)=month(now()) and day(s_time)=day(now())');
  264.   Open;
  265.   messagebox(handle,PChar('今日销售额为 '+FieldByName('TDResult').AsString+' 元。'),'今日盘点',MB_ICONinformation+mb_ok);
  266.  end;
  267. end;
  269. procedure TMain_Form.Rave_StoClick(Sender: TObject);
  270. begin
  271. with datamodule1 do
  272. begin
  273. adoquery3.close;
  274. adoquery3.open;
  275. rvproject1.projectfile:=extractfilepath(application.exename)+'Super_report.rav';
  276. rvproject1.execute;
  277. rvproject1.close;
  278. end;
  279. end;
  281. procedure TMain_Form.System_BackClick(Sender: TObject);
  282. begin
  283. backup_From.show;
  284. end;
  286. procedure TMain_Form.Person_SupClick(Sender: TObject);
  287. begin
  288. admin_form.show;
  289. end;
  291. procedure TMain_Form.N6Click(Sender: TObject);
  292. begin
  293.  with datamodule1.adoquery2 do
  294.  begin
  295.   close;
  296.   SQL.Clear;
  297.   SQL.Add('select sum(s_p_price) as TDResult from sell_back_t');
  298.   Open;
  299.   messagebox(handle,PChar('历史记录中共统计销售额： '+FieldByName('TDResult').AsString+' 元。'),'销售统计',MB_ICONinformation+mb_ok);
  300.  end;
  301.  if messagebox(handle,'历史记录删除后不能被恢复，销售数据将被置空！是否清除？','确定清空',mb_iconinformation+mb_yesno)=IDNo then exit;
  302.    with datamodule1.adocommand1 do
  303.     begin
  304.      commandtext:='delete from sell_back_t';
  305.       execute;
  306.       showmessage('清空历史记录的操作成功，为了防止数据库过大，建议您定期清空历史记录！！');
  307.     end;
  308. datamodule1.adoquery2.close;
  309. end;
  311. procedure TMain_Form.ToolButton12MouseMove(Sender: TObject;
  312.   Shift: TShiftState; X, Y: Integer);
  313. begin
  314.  toolbutton12.hint:='数据库备份';
  315. end;
  317. procedure TMain_Form.ToolButton18MouseMove(Sender: TObject;
  318.   Shift: TShiftState; X, Y: Integer);
  319. begin
  320.  toolbutton18.hint:='进货单';
  321. end;
  323. procedure TMain_Form.ToolButton1MouseMove(Sender: TObject;
  324.   Shift: TShiftState; X, Y: Integer);
  325. begin
  326.  toolbutton1.hint:='商品类型';
  327. end;
  329. procedure TMain_Form.ToolButton2MouseMove(Sender: TObject;
  330.   Shift: TShiftState; X, Y: Integer);
  331. begin
  332.  toolbutton2.hint:='商品查询';
  333. end;
  335. procedure TMain_Form.ToolButton3MouseMove(Sender: TObject;
  336.   Shift: TShiftState; X, Y: Integer);
  337. begin
  338.  toolbutton3.hint:='库存管理';
  339. end;
  341. procedure TMain_Form.ToolButton4MouseMove(Sender: TObject;
  342.   Shift: TShiftState; X, Y: Integer);
  343. begin
  344.  toolbutton4.hint:='销售库清理';
  345. end;
  347. procedure TMain_Form.ToolButton16MouseMove(Sender: TObject;
  348.   Shift: TShiftState; X, Y: Integer);
  349. begin
  350.  toolbutton16.hint:='帮助主题';
  351. end;
  353. procedure TMain_Form.ToolButton5MouseMove(Sender: TObject;
  354.   Shift: TShiftState; X, Y: Integer);
  355. begin
  356.  toolbutton5.hint:='关于软件';
  357. end;
  359. procedure TMain_Form.ToolButton8MouseMove(Sender: TObject;
  360.   Shift: TShiftState; X, Y: Integer);
  361. begin
  362.  toolbutton8.hint:='退出系统';
  363. end;
  365. procedure TMain_Form.ToolButton20MouseMove(Sender: TObject;
  366.   Shift: TShiftState; X, Y: Integer);
  367. begin
  368.  toolbutton20.hint:='收银台';
  369. end;
  371. procedure TMain_Form.ToolButton13MouseMove(Sender: TObject;
  372.   Shift: TShiftState; X, Y: Integer);
  373. begin
  374.  toolbutton13.hint:='今日盘点';
  375. end;
  377. procedure TMain_Form.ToolButton14MouseMove(Sender: TObject;
  378.   Shift: TShiftState; X, Y: Integer);
  379. begin
  380.  toolbutton14.hint:='库存报表';
  381. end;
  383. procedure TMain_Form.ToolButton15MouseMove(Sender: TObject;
  384.   Shift: TShiftState; X, Y: Integer);
  385. begin
  386.  toolbutton15.hint:='日销售报表';
  387. end;
  389. procedure TMain_Form.Rave_dayClick(Sender: TObject);
  390. begin
  391. with datamodule1 do
  392. begin
  393. adoquery4.close;
  394. adoquery4.open;
  395. rvproject2.projectfile:=extractfilepath(application.exename)+'Super_report2.rav';
  396. rvproject2.execute;
  397. rvproject2.close;
  398. end;
  399. end;
  401. procedure TMain_Form.Help_TopClick(Sender: TObject);
  402. begin
  403. help_form.show;
  404. end;
  406. procedure TMain_Form.Person_CommClick(Sender: TObject);
  407. begin
  408. admin_form.show;
  409. end;
  411. end.