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

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

百货/超市行业

开发平台：

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.   private
  110.     { Private declarations }
  111.   public
  112.     { Public declarations }
  113.   end;
  115. var
  116.   Main_Form: TMain_Form;
  118. implementation
  120. uses about, datamodule, producetype, putproducet, saleunit, entergoo,
  121.   select, backup, UseLogin, admin_unit, help;
  123. {$R *.dfm}
  125. procedure TMain_Form.Help_AboutClick(Sender: TObject);
  126. begin
  127. AboutBox.show;
  128. end;
  130. procedure TMain_Form.Back_ManageClick(Sender: TObject);
  131. begin
  132. Put_Form.show;
  133. end;
  135. procedure TMain_Form.System_ExitClick(Sender: TObject);
  136. begin
  137. Application.Terminate;
  138. end;
  140. procedure TMain_Form.N1Click(Sender: TObject);
  141. begin
  142.   if N1.Checked then
  143.     begin
  144.          N1.Checked:=false;
  145.          Back_M.visible:=false;
  146.     end
  147.   else
  148.      begin
  149.           N1.Checked:=true;
  150.           Back_M.visible:=true;
  151.       end;
  152. end;
  153. procedure TMain_Form.N2Click(Sender: TObject);
  154. begin
  155.   if N2.Checked then
  156.     begin
  157.          N2.Checked:=false;
  158.          Front_S.visible:=false;
  159.     end
  160.   else
  161.      begin
  162.           N2.Checked:=true;
  163.           Front_S.visible:=true;
  164.       end;
  165. end;
  167. procedure TMain_Form.N3Click(Sender: TObject);
  168. begin
  169.   if N3.Checked then
  170.     begin
  171.          N3.Checked:=false;
  172.          Rave_C.visible:=false;
  173.     end
  174.   else
  175.      begin
  176.           N3.Checked:=true;
  177.           Rave_C.visible:=true;
  178.       end;
  179. end;
  181. procedure TMain_Form.N4Click(Sender: TObject);
  182. begin
  183.   if N4.Checked then
  184.     begin
  185.          N4.Checked:=false;
  186.          Person_M.visible:=false;
  187.     end
  188.   else
  189.      begin
  190.           N4.Checked:=true;
  191.           Person_M.visible:=true;
  192.       end;
  193. end;
  195. procedure TMain_Form.N5Click(Sender: TObject);
  196. begin
  197.   if N5.Checked then
  198.     begin
  199.          N5.Checked:=false;
  200.          Help.visible:=false;
  201.     end
  202.   else
  203.      begin
  204.           N5.Checked:=true;
  205.           Help.visible:=true;
  206.       end;
  207. end;
  209. procedure TMain_Form.Back_TypeClick(Sender: TObject);
  210. begin
  211. PType_Form.show;
  212. end;
  214. procedure TMain_Form.FormActivate(Sender: TObject);
  215. begin
  216.      with datamodule1 do
  217.          begin
  218.              if adoconnection1.connectionstring='' then
  219.                 begin
  220.                   adoconnection1.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+extractfilepath(application.exename)+'datesuper.mdb;Persist Security Info=False';
  221.                   adoconnection1.connected:=true;
  222.                   if not adoquery1.active then
  223.                   adoquery1.open;
  224.                   Login_Form.ShowModal;
  225.                 end;
  226.          end;
  227.      if Login_Form.UseType>1 then
  228.       admin_form.panel1.enabled:=false;
  229.      if Login_Form.UseType>2 then
  230.      begin
  231.      System_M.enabled:=false;
  232.      back_m.enabled:=false;
  233.      person_m.enabled:=false;
  234.      toolbar1.enabled:=false
  235.      end;
  236. end;
  238. procedure TMain_Form.Front_SellClick(Sender: TObject);
  239. begin
  240. Sale_Form.show;
  241. end;
  243. procedure TMain_Form.Back_inputClick(Sender: TObject);
  244. begin
  245. enterFrom.show;
  246. end;
  248. procedure TMain_Form.Back_SelectClick(Sender: TObject);
  249. begin
  250.  sel_From.show;
  251. end;
  253. procedure TMain_Form.Front_dayClick(Sender: TObject);
  254. begin
  255.  with datamodule1.adoquery1 do
  256.  begin
  257.   close;
  258.   SQL.Clear;
  259.   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())');
  260.   Open;
  261.   messagebox(handle,PChar('今日销售额为 '+FieldByName('TDResult').AsString+' 元。'),'今日盘点',MB_ICONinformation+mb_ok);
  262.  end;
  263. end;
  265. procedure TMain_Form.Rave_StoClick(Sender: TObject);
  266. begin
  267. with datamodule1 do
  268. begin
  269. adoquery3.close;
  270. adoquery3.open;
  271. rvproject1.projectfile:=extractfilepath(application.exename)+'Super_report.rav';
  272. rvproject1.execute;
  273. rvproject1.close;
  274. end;
  275. end;
  277. procedure TMain_Form.System_BackClick(Sender: TObject);
  278. begin
  279. backup_From.show;
  280. end;
  282. procedure TMain_Form.Person_SupClick(Sender: TObject);
  283. begin
  284. admin_form.show;
  285. end;
  287. procedure TMain_Form.N6Click(Sender: TObject);
  288. begin
  289.  with datamodule1.adoquery2 do
  290.  begin
  291.   close;
  292.   SQL.Clear;
  293.   SQL.Add('select sum(s_p_price) as TDResult from sell_back_t');
  294.   Open;
  295.   messagebox(handle,PChar('历史记录中共统计销售额： '+FieldByName('TDResult').AsString+' 元。'),'销售统计',MB_ICONinformation+mb_ok);
  296.  end;
  297.  if messagebox(handle,'历史记录删除后不能被恢复，销售数据将被置空！是否清除？','确定清空',mb_iconinformation+mb_yesno)=IDNo then exit;
  298.    with datamodule1.adocommand1 do
  299.     begin
  300.      commandtext:='delete from sell_back_t';
  301.       execute;
  302.       showmessage('清空历史记录的操作成功，为了防止数据库过大，建议您定期清空历史记录！！');
  303.     end;
  304. datamodule1.adoquery2.close;
  305. end;
  307. procedure TMain_Form.ToolButton12MouseMove(Sender: TObject;
  308.   Shift: TShiftState; X, Y: Integer);
  309. begin
  310.  toolbutton12.hint:='数据库备份';
  311. end;
  313. procedure TMain_Form.ToolButton18MouseMove(Sender: TObject;
  314.   Shift: TShiftState; X, Y: Integer);
  315. begin
  316.  toolbutton18.hint:='进货单';
  317. end;
  319. procedure TMain_Form.ToolButton1MouseMove(Sender: TObject;
  320.   Shift: TShiftState; X, Y: Integer);
  321. begin
  322.  toolbutton1.hint:='商品类型';
  323. end;
  325. procedure TMain_Form.ToolButton2MouseMove(Sender: TObject;
  326.   Shift: TShiftState; X, Y: Integer);
  327. begin
  328.  toolbutton2.hint:='商品查询';
  329. end;
  331. procedure TMain_Form.ToolButton3MouseMove(Sender: TObject;
  332.   Shift: TShiftState; X, Y: Integer);
  333. begin
  334.  toolbutton3.hint:='库存管理';
  335. end;
  337. procedure TMain_Form.ToolButton4MouseMove(Sender: TObject;
  338.   Shift: TShiftState; X, Y: Integer);
  339. begin
  340.  toolbutton4.hint:='销售库清理';
  341. end;
  343. procedure TMain_Form.ToolButton16MouseMove(Sender: TObject;
  344.   Shift: TShiftState; X, Y: Integer);
  345. begin
  346.  toolbutton16.hint:='帮助主题';
  347. end;
  349. procedure TMain_Form.ToolButton5MouseMove(Sender: TObject;
  350.   Shift: TShiftState; X, Y: Integer);
  351. begin
  352.  toolbutton5.hint:='关于软件';
  353. end;
  355. procedure TMain_Form.ToolButton8MouseMove(Sender: TObject;
  356.   Shift: TShiftState; X, Y: Integer);
  357. begin
  358.  toolbutton8.hint:='退出系统';
  359. end;
  361. procedure TMain_Form.ToolButton20MouseMove(Sender: TObject;
  362.   Shift: TShiftState; X, Y: Integer);
  363. begin
  364.  toolbutton20.hint:='收银台';
  365. end;
  367. procedure TMain_Form.ToolButton13MouseMove(Sender: TObject;
  368.   Shift: TShiftState; X, Y: Integer);
  369. begin
  370.  toolbutton13.hint:='今日盘点';
  371. end;
  373. procedure TMain_Form.ToolButton14MouseMove(Sender: TObject;
  374.   Shift: TShiftState; X, Y: Integer);
  375. begin
  376.  toolbutton14.hint:='库存报表';
  377. end;
  379. procedure TMain_Form.ToolButton15MouseMove(Sender: TObject;
  380.   Shift: TShiftState; X, Y: Integer);
  381. begin
  382.  toolbutton15.hint:='日销售报表';
  383. end;
  385. procedure TMain_Form.Rave_dayClick(Sender: TObject);
  386. begin
  387. with datamodule1 do
  388. begin
  389. adoquery4.close;
  390. adoquery4.open;
  391. rvproject2.projectfile:=extractfilepath(application.exename)+'Super_report2.rav';
  392. rvproject2.execute;
  393. rvproject2.close;
  394. end;
  395. end;
  397. procedure TMain_Form.Help_TopClick(Sender: TObject);
  398. begin
  399. help_form.show;
  400. end;
  402. end.