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

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

百货/超市行业

开发平台：

Delphi

entergoo.pas：源码内容
  1. unit entergoo;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, Grids, DBGrids, ExtCtrls, ADODB, StdCtrls;
  9. type
  10.   TenterFrom = class(TForm)
  11.     ADOQuery1: TADOQuery;
  12.     Panel1: TPanel;
  13.     DBGrid1: TDBGrid;
  14.     DataSource1: TDataSource;
  15.     ADOQuery1p_id: TSmallintField;
  16.     ADOQuery1p_name: TWideStringField;
  17.     ADOQuery1p_price: TBCDField;
  18.     ADOQuery1p_unit: TWideStringField;
  19.     ADOQuery1p_type: TSmallintField;
  20.     ADOQuery1p_sale: TSmallintField;
  21.     Button1: TButton;
  22.     Button2: TButton;
  23.     procedure Button1Click(Sender: TObject);
  24.     procedure FormActivate(Sender: TObject);
  25.     procedure Button2Click(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   enterFrom: TenterFrom;
  35. implementation
  37. uses datamodule;
  39. {$R *.dfm}
  41. procedure TenterFrom.Button1Click(Sender: TObject);
  42. begin
  43.  if not adoquery1.active then
  44.   adoquery1.open
  45.   else
  46.   adoquery1.close;
  47. end;
  49. procedure TenterFrom.FormActivate(Sender: TObject);
  50. begin
  51.   if not datamodule1.adoconnection1.connected then
  52.     datamodule1.adoconnection1.connected:=true;
  53.   adoquery1.close;
  54.   adoquery1.open;
  55. end;
  57. procedure TenterFrom.Button2Click(Sender: TObject);
  58. begin
  59. adoquery1.close;
  60. datamodule1.adoconnection1.connected:=false;
  61. close;
  62. end;
  64. end.