www.pudn.com > 东之源小型超市管理系统1.0版含源码.rar > UnitProdList.pas

unit UnitProdList; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, Mask, DBCtrls; 
 
type 
  TFrameProdList = class(TFrame) 
    Image1: TImage; 
    ADOQuery1: TADOQuery; 
    DataSource1: TDataSource; 
    DBGrid1: TDBGrid; 
    GroupBox1: TGroupBox; 
    Image2: TImage; 
    Image3: TImage; 
    Image4: TImage; 
    Label1: TLabel; 
    DBEdit1: TDBEdit; 
    Label2: TLabel; 
    DBEdit2: TDBEdit; 
    DBEdit3: TDBEdit; 
    Label3: TLabel; 
    DBEdit4: TDBEdit; 
    Label4: TLabel; 
    DBEdit5: TDBEdit; 
    Label5: TLabel; 
    Image5: TImage; 
    Image6: TImage; 
    GroupBox2: TGroupBox; 
    Label6: TLabel; 
    Edit1: TEdit; 
    Image7: TImage; 
    Label7: TLabel; 
    procedure Image2Click(Sender: TObject); 
    procedure Image5Click(Sender: TObject); 
    procedure Image3Click(Sender: TObject); 
    procedure Image4Click(Sender: TObject); 
    procedure Image6Click(Sender: TObject); 
    procedure Image7Click(Sender: TObject); 
    procedure Edit1KeyPress(Sender: TObject; var Key: Char); 
    function IsAllNum(s:string):bool; 
    procedure Label7Click(Sender: TObject); 
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); 
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); 
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char); 
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); 
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
{$R *.dfm} 
 
procedure TFrameProdList.Image2Click(Sender: TObject); 
begin 
  {添加商品} 
  Image2.Enabled := False; 
  Image3.Enabled := False; 
  Image4.Enabled := False; 
  DBEdit1.Color := clWhite; 
  DBEdit2.Color := clWhite; 
  DBEdit3.Color := clWhite; 
  DBEdit4.Color := clWhite; 
  DBEdit5.Color := clWhite; 
  DBEdit1.Enabled := True; 
  DBEdit2.Enabled := True; 
  DBEdit3.Enabled := True; 
  DBEdit4.Enabled := True; 
  DBEdit5.Enabled := True; 
  Image5.Visible := True; 
  Image6.Visible := True; 
  DBEdit1.SetFocus; 
  ADOQuery1.Append; 
end; 
 
procedure TFrameProdList.Image5Click(Sender: TObject); 
begin 
  {提交数据} 
  if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'') and (DBEdit4.Text<>'') and (DBEdit5.Text<>'') then 
    ADOQuery1.Post 
  else 
    if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes then 
      ADOQuery1.Cancel 
    else 
      exit; 
  Image2.Enabled := True; 
  Image3.Enabled := True; 
  Image4.Enabled := True; 
  DBEdit1.Color := $00FFF0DC; 
  DBEdit2.Color := $00FFF0DC; 
  DBEdit3.Color := $00FFF0DC; 
  DBEdit4.Color := $00FFF0DC; 
  DBEdit5.Color := $00FFF0DC; 
  DBEdit1.Enabled := False; 
  DBEdit2.Enabled := False; 
  DBEdit3.Enabled := False; 
  DBEdit4.Enabled := False; 
  DBEdit5.Enabled := False; 
  Image5.Visible := False; 
  Image6.Visible := False; 
end; 
 
procedure TFrameProdList.Image3Click(Sender: TObject); 
begin 
  if messagebox(handle,'删除的商品不能被恢复，是否删除？','确认删除',mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete; 
end; 
 
procedure TFrameProdList.Image4Click(Sender: TObject); 
begin 
  {修改用户} 
  Image2.Enabled := False; 
  Image3.Enabled := False; 
  Image4.Enabled := False; 
  DBEdit1.Color := clWhite; 
  DBEdit2.Color := clWhite; 
  DBEdit3.Color := clWhite; 
  DBEdit4.Color := clWhite; 
  DBEdit5.Color := clWhite; 
  DBEdit1.Enabled := True; 
  DBEdit2.Enabled := True; 
  DBEdit3.Enabled := True; 
  DBEdit4.Enabled := True; 
  DBEdit5.Enabled := True; 
  Image5.Visible := True; 
  Image6.Visible := True; 
  DBEdit1.SetFocus; 
  ADOQuery1.Edit; 
end; 
 
procedure TFrameProdList.Image6Click(Sender: TObject); 
begin 
  {放弃提交} 
  ADOQuery1.Cancel; 
  Image2.Enabled := True; 
  Image3.Enabled := True; 
  Image4.Enabled := True; 
  DBEdit1.Color := $00FFF0DC; 
  DBEdit2.Color := $00FFF0DC; 
  DBEdit3.Color := $00FFF0DC; 
  DBEdit4.Color := $00FFF0DC; 
  DBEdit5.Color := $00FFF0DC; 
  DBEdit1.Enabled := False; 
  DBEdit2.Enabled := False; 
  DBEdit3.Enabled := False; 
  DBEdit4.Enabled := False; 
  DBEdit5.Enabled := False; 
  Image5.Visible := False; 
  Image6.Visible := False; 
end; 
 
procedure TFrameProdList.Image7Click(Sender: TObject); 
var 
  sqlstr:string; 
begin 
  if Edit1.Text<>'' then 
  begin 
    sqlstr := 'select * from t_prod where prod_name like "%' + Edit1.Text + '%"'; 
    if IsAllNum(Edit1.Text) then sqlstr := sqlstr + ' or prod_id=' + Edit1.Text; 
    ADOQuery1.Close; 
    ADOQuery1.SQL.Clear; 
    ADOQuery1.SQL.Add(sqlstr); 
    ADOQuery1.Open; 
  end 
  else 
    messagebox(handle,'请输入查询条件！','检查输入',mb_iconwarning+mb_ok) 
end; 
 
procedure TFrameProdList.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then Image7Click(self); 
end; 
 
function TFrameProdList.IsAllNum(s:string):bool; 
var 
  i:integer; 
begin 
  for i := 1 To Length(s) do 
    if (s[i] < '0') or (s[i] > '9') then 
    begin 
      IsAllNum := False; 
      Exit; 
    end; 
  IsAllNum := True; 
end; 
 
procedure TFrameProdList.Label7Click(Sender: TObject); 
var 
  sqlstr: string; 
begin 
  sqlstr := 'select * from t_prod'; 
  ADOQuery1.Close; 
  ADOQuery1.SQL.Clear; 
  ADOQuery1.SQL.Add(sqlstr); 
  ADOQuery1.Open; 
end; 
 
procedure TFrameProdList.DBEdit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then DBEdit2.SetFocus; 
end; 
 
procedure TFrameProdList.DBEdit2KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then DBEdit3.SetFocus; 
end; 
 
procedure TFrameProdList.DBEdit3KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then DBEdit4.SetFocus; 
end; 
 
procedure TFrameProdList.DBEdit4KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then DBEdit5.SetFocus; 
end; 
 
procedure TFrameProdList.DBEdit5KeyPress(Sender: TObject; var Key: Char); 
begin 
  if key=#13 then Image5Click(Self); 
end; 
 
end.