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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
UnitProdList.pas
资源名称：东之源.rar　[点击查看]
上传用户：zexin0769
上传日期：2010-01-19
资源大小：443k
文件大小：6k
源码类别：

百货/超市行业

开发平台：

Delphi

UnitProdList.pas：源码内容
  1. unit UnitProdList;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  7.   Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, Mask, DBCtrls;
  9. type
  10.   TFrameProdList = class(TFrame)
  11.     Image1: TImage;
  12.     ADOQuery1: TADOQuery;
  13.     DataSource1: TDataSource;
  14.     DBGrid1: TDBGrid;
  15.     GroupBox1: TGroupBox;
  16.     Image2: TImage;
  17.     Image3: TImage;
  18.     Image4: TImage;
  19.     Label1: TLabel;
  20.     DBEdit1: TDBEdit;
  21.     Label2: TLabel;
  22.     DBEdit2: TDBEdit;
  23.     DBEdit3: TDBEdit;
  24.     Label3: TLabel;
  25.     DBEdit4: TDBEdit;
  26.     Label4: TLabel;
  27.     DBEdit5: TDBEdit;
  28.     Label5: TLabel;
  29.     Image5: TImage;
  30.     Image6: TImage;
  31.     GroupBox2: TGroupBox;
  32.     Label6: TLabel;
  33.     Edit1: TEdit;
  34.     Image7: TImage;
  35.     Label7: TLabel;
  36.     procedure Image2Click(Sender: TObject);
  37.     procedure Image5Click(Sender: TObject);
  38.     procedure Image3Click(Sender: TObject);
  39.     procedure Image4Click(Sender: TObject);
  40.     procedure Image6Click(Sender: TObject);
  41.     procedure Image7Click(Sender: TObject);
  42.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  43.     function IsAllNum(s:string):bool;
  44.     procedure Label7Click(Sender: TObject);
  45.     procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  46.     procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  47.     procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
  48.     procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
  49.     procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  56. implementation
  58. {$R *.dfm}
  60. procedure TFrameProdList.Image2Click(Sender: TObject);
  61. begin
  62.   {添加商品}
  63.   Image2.Enabled := False;
  64.   Image3.Enabled := False;
  65.   Image4.Enabled := False;
  66.   DBEdit1.Color := clWhite;
  67.   DBEdit2.Color := clWhite;
  68.   DBEdit3.Color := clWhite;
  69.   DBEdit4.Color := clWhite;
  70.   DBEdit5.Color := clWhite;
  71.   DBEdit1.Enabled := True;
  72.   DBEdit2.Enabled := True;
  73.   DBEdit3.Enabled := True;
  74.   DBEdit4.Enabled := True;
  75.   DBEdit5.Enabled := True;
  76.   Image5.Visible := True;
  77.   Image6.Visible := True;
  78.   DBEdit1.SetFocus;
  79.   ADOQuery1.Append;
  80. end;
  82. procedure TFrameProdList.Image5Click(Sender: TObject);
  83. begin
  84.   {提交数据}
  85.   if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'') and (DBEdit4.Text<>'') and (DBEdit5.Text<>'') then
  86.     ADOQuery1.Post
  87.   else
  88.     if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes then
  89.       ADOQuery1.Cancel
  90.     else
  91.       exit;
  92.   Image2.Enabled := True;
  93.   Image3.Enabled := True;
  94.   Image4.Enabled := True;
  95.   DBEdit1.Color := $00FFF0DC;
  96.   DBEdit2.Color := $00FFF0DC;
  97.   DBEdit3.Color := $00FFF0DC;
  98.   DBEdit4.Color := $00FFF0DC;
  99.   DBEdit5.Color := $00FFF0DC;
  100.   DBEdit1.Enabled := False;
  101.   DBEdit2.Enabled := False;
  102.   DBEdit3.Enabled := False;
  103.   DBEdit4.Enabled := False;
  104.   DBEdit5.Enabled := False;
  105.   Image5.Visible := False;
  106.   Image6.Visible := False;
  107. end;
  109. procedure TFrameProdList.Image3Click(Sender: TObject);
  110. begin
  111.   if messagebox(handle,'删除的商品不能被恢复，是否删除？','确认删除',mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete;
  112. end;
  114. procedure TFrameProdList.Image4Click(Sender: TObject);
  115. begin
  116.   {修改用户}
  117.   Image2.Enabled := False;
  118.   Image3.Enabled := False;
  119.   Image4.Enabled := False;
  120.   DBEdit1.Color := clWhite;
  121.   DBEdit2.Color := clWhite;
  122.   DBEdit3.Color := clWhite;
  123.   DBEdit4.Color := clWhite;
  124.   DBEdit5.Color := clWhite;
  125.   DBEdit1.Enabled := True;
  126.   DBEdit2.Enabled := True;
  127.   DBEdit3.Enabled := True;
  128.   DBEdit4.Enabled := True;
  129.   DBEdit5.Enabled := True;
  130.   Image5.Visible := True;
  131.   Image6.Visible := True;
  132.   DBEdit1.SetFocus;
  133.   ADOQuery1.Edit;
  134. end;
  136. procedure TFrameProdList.Image6Click(Sender: TObject);
  137. begin
  138.   {放弃提交}
  139.   ADOQuery1.Cancel;
  140.   Image2.Enabled := True;
  141.   Image3.Enabled := True;
  142.   Image4.Enabled := True;
  143.   DBEdit1.Color := $00FFF0DC;
  144.   DBEdit2.Color := $00FFF0DC;
  145.   DBEdit3.Color := $00FFF0DC;
  146.   DBEdit4.Color := $00FFF0DC;
  147.   DBEdit5.Color := $00FFF0DC;
  148.   DBEdit1.Enabled := False;
  149.   DBEdit2.Enabled := False;
  150.   DBEdit3.Enabled := False;
  151.   DBEdit4.Enabled := False;
  152.   DBEdit5.Enabled := False;
  153.   Image5.Visible := False;
  154.   Image6.Visible := False;
  155. end;
  157. procedure TFrameProdList.Image7Click(Sender: TObject);
  158. var
  159.   sqlstr:string;
  160. begin
  161.   if Edit1.Text<>'' then
  162.   begin
  163.     sqlstr := 'select * from t_prod where prod_name like "%' + Edit1.Text + '%"';
  164.     if IsAllNum(Edit1.Text) then sqlstr := sqlstr + ' or prod_id=' + Edit1.Text;
  165.     ADOQuery1.Close;
  166.     ADOQuery1.SQL.Clear;
  167.     ADOQuery1.SQL.Add(sqlstr);
  168.     ADOQuery1.Open;
  169.   end
  170.   else
  171.     messagebox(handle,'请输入查询条件！','检查输入',mb_iconwarning+mb_ok)
  172. end;
  174. procedure TFrameProdList.Edit1KeyPress(Sender: TObject; var Key: Char);
  175. begin
  176.   if key=#13 then Image7Click(self);
  177. end;
  179. function TFrameProdList.IsAllNum(s:string):bool;
  180. var
  181.   i:integer;
  182. begin
  183.   for i := 1 To Length(s) do
  184.     if (s[i] < '0') or (s[i] > '9') then
  185.     begin
  186.       IsAllNum := False;
  187.       Exit;
  188.     end;
  189.   IsAllNum := True;
  190. end;
  192. procedure TFrameProdList.Label7Click(Sender: TObject);
  193. var
  194.   sqlstr: string;
  195. begin
  196.   sqlstr := 'select * from t_prod';
  197.   ADOQuery1.Close;
  198.   ADOQuery1.SQL.Clear;
  199.   ADOQuery1.SQL.Add(sqlstr);
  200.   ADOQuery1.Open;
  201. end;
  203. procedure TFrameProdList.DBEdit1KeyPress(Sender: TObject; var Key: Char);
  204. begin
  205.   if key=#13 then DBEdit2.SetFocus;
  206. end;
  208. procedure TFrameProdList.DBEdit2KeyPress(Sender: TObject; var Key: Char);
  209. begin
  210.   if key=#13 then DBEdit3.SetFocus;
  211. end;
  213. procedure TFrameProdList.DBEdit3KeyPress(Sender: TObject; var Key: Char);
  214. begin
  215.   if key=#13 then DBEdit4.SetFocus;
  216. end;
  218. procedure TFrameProdList.DBEdit4KeyPress(Sender: TObject; var Key: Char);
  219. begin
  220.   if key=#13 then DBEdit5.SetFocus;
  221. end;
  223. procedure TFrameProdList.DBEdit5KeyPress(Sender: TObject; var Key: Char);
  224. begin
  225.   if key=#13 then Image5Click(Self);
  226. end;
  228. end.