unitprodlist.pas

众星小超市管理系统-条型码方式管理 用的access库,(也有sql版本的qq3885652)

unit UnitProdList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, Mask, DBCtrls,unitlogin;

type
  TFrameProdList = class(TFrame)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
  //无  procedure Image1Click(Sender: TObject);


    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
     DBEdit8: TDBEdit;

    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;

    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
      ADOQuery1: TADOQuery;
      ADOQuery1txm: TWideStringField;
    ADOQuery1prod_id: TAutoIncField;
    ADOQuery1prod_name: TWideStringField;
    ADOQuery1prod_price: TBCDField;
    ADOQuery1prod_unit: TWideStringField;
    ADOQuery1prod_in: TBCDField;
    ADOQuery1prod_shelf: TIntegerField;
    ADOQuery1prod_stock: TIntegerField;
    ADOQuery1prod_sale: TIntegerField;


    ADOQuery1leixin: TWideStringField;
    Edit2: TEdit;






    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 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);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
      procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
     function IsAllNum(s:string):bool;
     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
     procedure Label7Click(Sender: TObject);

  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;
  Image5.Visible := True;
  Image6.Visible := True;

  DBEdit1.Color := clMoneyGreen;
  DBEdit2.Color := clMoneyGreen;
  DBEdit3.Color := clMoneyGreen;
  DBEdit4.Color := clMoneyGreen;
  DBEdit5.Color := clMoneyGreen;
  DBEdit6.Color := clMoneyGreen;
  DBEdit7.Color := clMoneyGreen;
  DBEdit8.Color := clMoneyGreen;
  DBEdit1.Enabled := True;
  DBEdit2.Enabled := True;
  DBEdit3.Enabled := True;
  DBEdit4.Enabled := True;
  DBEdit5.Enabled := True;
  DBEdit6.Enabled := True;
  DBEdit7.Enabled := True;
  DBEdit8.Enabled := True;
          //首先光标在dbedit7
  DBEdit7.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<>'') and (DBEdit6.Text<>'') and (DBEdit7.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;
  DBEdit6.Color := $00FFF0DC;
  DBEdit7.Color := $00FFF0DC;
  DBEdit8.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBEdit3.Enabled := False;
  DBEdit4.Enabled := False;
  DBEdit5.Enabled := False;
  DBEdit6.Enabled := False;
  DBEdit7.Enabled := False;
  DBEdit8.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 := clMoneyGreen;
  DBEdit2.Color := clMoneyGreen;
  DBEdit3.Color := clMoneyGreen;
  DBEdit4.Color := clMoneyGreen;
  DBEdit5.Color := clMoneyGreen;
  DBEdit6.Color := clMoneyGreen;
   DBEdit7.Color := clMoneyGreen;
   DBEdit8.Color := clMoneyGreen;
  DBEdit1.Enabled := True;
  DBEdit2.Enabled := True;
  DBEdit3.Enabled := True;
  DBEdit4.Enabled := True;
  DBEdit5.Enabled := True;
   DBEdit6.Enabled := True;
   DBEdit7.Enabled := True;
    DBEdit8.Enabled := True;
  Image5.Visible := True;
  Image6.Visible := True;
   //Image7.Visible := True;
  DBEdit7.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;
   DBEdit6.Color := $00FFF0DC;
      DBEdit7.Color := $00FFF0DC;
     DBEdit8.Color := $00FFF0DC;
  DBEdit1.Enabled := False;
  DBEdit2.Enabled := False;
  DBEdit3.Enabled := False;
  DBEdit4.Enabled := False;
  DBEdit5.Enabled := False;
  DBEdit6.Enabled := True;
  DBEdit7.Enabled := True;
   DBEdit8.Enabled := True;
  Image5.Visible := False;
  Image6.Visible := False;
  //Image7.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 + '%" or leixin like "%' + Edit1.Text + '%"';
   // if IsAllNum(Edit1.Text) then sqlstr := sqlstr + ' or leixin=' + Edit1.Text;
    if IsAllNum(Edit1.Text) then
     sqlstr := sqlstr ;
    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.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then DBEdit1.SetFocus;
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 DBEdit6.SetFocus;
end;
procedure TFrameProdList.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then DBEdit8.SetFocus;
end;

procedure TFrameProdList.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then Image5Click(Self);
end;

end.