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

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

百货/超市行业

开发平台：

Delphi

admin_unit.pas：源码内容
  1. unit admin_unit;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls;
  9. type
  10.   TAdmin_Form = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     ADOQuery1: TADOQuery;
  14.     ADOQuery2: TADOQuery;
  15.     DataSource1: TDataSource;
  16.     DataSource2: TDataSource;
  17.     DBGrid1: TDBGrid;
  18.     DBGrid2: TDBGrid;
  19.     GroupBox1: TGroupBox;
  20.     Label1: TLabel;
  21.     Label2: TLabel;
  22.     GroupBox2: TGroupBox;
  23.     Button1: TButton;
  24.     Button2: TButton;
  25.     Button3: TButton;
  26.     Button4: TButton;
  27.     Button5: TButton;
  28.     Button6: TButton;
  29.     Button7: TButton;
  30.     Button8: TButton;
  31.     Button9: TButton;
  32.     Button10: TButton;
  33.     Button11: TButton;
  34.     Button12: TButton;
  35.     Button13: TButton;
  36.     Button14: TButton;
  37.     Label3: TLabel;
  38.     Label4: TLabel;
  39.     procedure Button1Click(Sender: TObject);
  40.     procedure Button2Click(Sender: TObject);
  41.     procedure Button3Click(Sender: TObject);
  42.     procedure Button4Click(Sender: TObject);
  43.     procedure Button5Click(Sender: TObject);
  44.     procedure Button6Click(Sender: TObject);
  45.     procedure Button7Click(Sender: TObject);
  46.     procedure Button8Click(Sender: TObject);
  47.     procedure Button9Click(Sender: TObject);
  48.     procedure Button10Click(Sender: TObject);
  49.     procedure Button11Click(Sender: TObject);
  50.     procedure Button12Click(Sender: TObject);
  51.     procedure Button13Click(Sender: TObject);
  52.     procedure Button14Click(Sender: TObject);
  53.     procedure FormActivate(Sender: TObject);
  54.   private
  55.     { Private declarations }
  56.   public
  57.     { Public declarations }
  58.   end;
  60. var
  61.   Admin_Form: TAdmin_Form;
  63. implementation
  65. uses datamodule;
  67. {$R *.dfm}
  69. procedure TAdmin_Form.Button1Click(Sender: TObject);
  70. begin
  71. adoquery1.insert;
  72. end;
  74. procedure TAdmin_Form.Button2Click(Sender: TObject);
  75. begin
  76.  adoquery1.edit;
  77. end;
  79. procedure TAdmin_Form.Button3Click(Sender: TObject);
  80. begin
  81. adoquery1.delete;
  82. end;
  84. procedure TAdmin_Form.Button4Click(Sender: TObject);
  85. begin
  86. adoquery1.prior;
  87. end;
  89. procedure TAdmin_Form.Button5Click(Sender: TObject);
  90. begin
  91. adoquery1.next;
  92. end;
  94. procedure TAdmin_Form.Button6Click(Sender: TObject);
  95. begin
  96.  adoquery1.post;
  97. end;
  99. procedure TAdmin_Form.Button7Click(Sender: TObject);
  100. begin
  101. adoquery1.close;
  102. adoquery2.close;
  103. close;
  104. end;
  106. procedure TAdmin_Form.Button8Click(Sender: TObject);
  107. begin
  108. adoquery2.insert;
  109. end;
  111. procedure TAdmin_Form.Button9Click(Sender: TObject);
  112. begin
  113. adoquery2.edit;
  114. end;
  116. procedure TAdmin_Form.Button10Click(Sender: TObject);
  117. begin
  118. adoquery2.delete;
  119. end;
  121. procedure TAdmin_Form.Button11Click(Sender: TObject);
  122. begin
  123. adoquery2.prior;
  124. end;
  126. procedure TAdmin_Form.Button12Click(Sender: TObject);
  127. begin
  128. adoquery2.next;
  129. end;
  131. procedure TAdmin_Form.Button13Click(Sender: TObject);
  132. begin
  133.  adoquery2.post;
  134. end;
  136. procedure TAdmin_Form.Button14Click(Sender: TObject);
  137. begin
  138. adoquery1.close;
  139. adoquery2.close;
  140. close;
  141. end;
  143. procedure TAdmin_Form.FormActivate(Sender: TObject);
  144. begin
  145. if not adoquery1.active then
  146. adoquery1.open;
  147. if not adoquery2.active then
  148. adoquery2.open;
  149. end;
  151. end.