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

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

百货/超市行业

开发平台：

Delphi

producetype.pas：源码内容
  1. unit producetype;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Mask, DBCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls,
  8.   DBTables;
  10. type
  11.   TPType_Form = class(TForm)
  12.     Panel1: TPanel;
  13.     DBGrid1: TDBGrid;
  14.     Label1: TLabel;
  15.     Button1: TButton;
  16.     DataSource1: TDataSource;
  17.     Label2: TLabel;
  18.     DBEdit2: TDBEdit;
  19.     DBEdit1: TDBEdit;
  20.     GroupBox1: TGroupBox;
  21.     Button2: TButton;
  22.     Button3: TButton;
  23.     Button5: TButton;
  24.     GroupBox2: TGroupBox;
  25.     Button7: TButton;
  26.     Button6: TButton;
  27.     Button4: TButton;
  28.     ADOQuery1: TADOQuery;
  29.     procedure Button1Click(Sender: TObject);
  30.     procedure Button2Click(Sender: TObject);
  31.     procedure Button3Click(Sender: TObject);
  32.     procedure Button4Click(Sender: TObject);
  33.     procedure Button5Click(Sender: TObject);
  34.     procedure FormActivate(Sender: TObject);
  35.     procedure Button6Click(Sender: TObject);
  36.     procedure Button7Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   PType_Form: TPType_Form;
  46. implementation
  48. uses datamodule;
  50. {$R *.dfm}
  52. procedure TPType_Form.Button1Click(Sender: TObject);
  53. begin
  54. adoquery1.active:=false;
  55. PType_Form.close;
  56. end;
  58. procedure TPType_Form.Button2Click(Sender: TObject);
  59. begin
  60.  button3.visible:=false;
  61.  button5.visible:=false;
  62.  button4.visible:=true;
  63.  adoquery1.insert;
  64. end;
  66. procedure TPType_Form.Button3Click(Sender: TObject);
  67. begin
  68. button4.visible:=true;
  69. button2.visible:=false;
  70. button5.visible:=false;
  71. adoquery1.edit;
  72. end;
  74. procedure TPType_Form.Button4Click(Sender: TObject);
  75. begin
  76.   try
  77.     adoquery1.post;
  78.   except
  79.   on exception do
  80.      begin
  81.        showmessage('保存不成功');
  82.        adoquery1.cancel;
  83.      end;
  84.   end;
  85.   button4.visible:=false;
  86.   button2.visible:=true;
  87.   button3.visible:=true;
  88.   button5.visible:=true;
  89. end;
  91. procedure TPType_Form.Button5Click(Sender: TObject);
  92. var
  93. ret:integer;
  94. k:integer;
  95. begin
  96.     ret:=messagebox(0,'警告：将删除该类型和他所对应的所有商品？？','不可恢复的删除确定',52);
  97.     if ret=idyes then
  98.      begin
  99.        k:=strtoint(dbedit1.text);
  100.        with datamodule1.adocommand1 do
  101.          begin
  102.            commandtext:='delete from produce_t where p_type=:i';
  103.            parameters.ParamValues['i']:=k;
  104.            execute;
  105.          end;
  106.        adoquery1.delete;
  107.      end;
  108. end;
  110. procedure TPType_Form.FormActivate(Sender: TObject);
  111. begin
  112. if not adoquery1.active then
  113.     adoquery1.active:=true;
  114. end;
  117. procedure TPType_Form.Button6Click(Sender: TObject);
  118. begin
  119.  adoquery1.prior;
  120. end;
  122. procedure TPType_Form.Button7Click(Sender: TObject);
  123. begin
  124. adoquery1.next;
  125. end;
  127. end.