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

unit UnitSell; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  Dialogs, ExtCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Mask, DBCtrls; 
 
type 
  TFrameSell = class(TFrame) 
    Image1: TImage; 
    Image2: TImage; 
    DBGrid1: TDBGrid; 
    ADOQuery1: TADOQuery; 
    DataSource1: TDataSource; 
    Panel1: TPanel; 
    Label1: TLabel; 
    Label2: TLabel; 
    Image3: TImage; 
    DBEdit1: TDBEdit; 
    DBEdit2: TDBEdit; 
    GroupBox1: TGroupBox; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Edit1: TEdit; 
    Image4: TImage; 
    Image5: TImage; 
    Image6: TImage; 
    DBEdit3: TDBEdit; 
    DBEdit4: TDBEdit; 
    Image7: TImage; 
    Label7: TLabel; 
    procedure Image2Click(Sender: TObject); 
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); 
    procedure Image3Click(Sender: TObject); 
    procedure Image5Click(Sender: TObject); 
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); 
    procedure Image6Click(Sender: TObject); 
    procedure DBGrid1CellClick(Column: TColumn); 
    procedure Image7Click(Sender: TObject); 
    procedure Image4Click(Sender: TObject); 
    function IsAllNum(s:string):bool; 
    procedure Edit1KeyPress(Sender: TObject; var Key: Char); 
    procedure Label7Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
implementation 
 
uses UnitLogin; 
 
var 
  ADOQuery2: TADOQuery; 
  MoneyTotal: Real; 
 
{$R *.dfm} 
 
procedure TFrameSell.Image2Click(Sender: TObject); 
begin 
  DBEdit1.Color := clWhite; 
  DBEdit2.Color := clWhite; 
  DBEdit1.Enabled := True; 
  DBEdit2.Enabled := True; 
  ADOQuery1.Active := True; 
  ADOQuery1.Append; 
  DBEdit1.SetFocus; 
  image2.Enabled := False; 
  image3.Visible := True; 
  image5.Visible := True; 
  image6.Visible := True; 
end; 
 
procedure TFrameSell.DBEdit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key=#13 then DBEdit2.SetFocus; 
end; 
 
procedure TFrameSell.Image3Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  {提交数据} 
  if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') then 
  begin 
    ADOQuery2:= TADOQuery.Create(self); 
    ADOQuery2.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;'; 
    ADOQuery2.SQL.Clear; 
    ADOQuery2.SQL.Add('select * from t_prod where prod_id=' + DBEdit1.Text); 
    ADOQuery2.Open; 
    if ADOQuery2.Eof then 
    begin 
      messagebox(handle,'数据库中没有该商品编号！','重新输入',mb_iconwarning+mb_ok); 
      DBEdit1.SelectAll; 
      DBEdit1.SetFocus; 
      exit; 
    end; 
    if ADOQuery2.FieldByName('prod_stock').AsInteger < strtoint(DBEdit2.Text) then 
    begin 
      messagebox(handle,pchar('应该商品当前库存为 '+ADOQuery2.FieldByName('prod_stock').AsString+' ，不足所输销售数量！'),'重新输入',mb_iconwarning+mb_ok); 
      DBEdit2.SelectAll; 
      DBEdit2.SetFocus; 
      exit; 
    end; 
    DBEdit3.Text := ADOQuery2.FieldByName('prod_name').AsString; 
    DBEdit4.Text := ADOQuery2.FieldByName('prod_price').AsString; 
    ADOQuery2.Free; 
    ADOQuery1.Post; 
    MoneyTotal := 0; 
    for i:=1 to ADOQuery1.RecordCount do 
    begin 
      MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger; 
      ADOQuery1.Prior; 
    end; 
    Label4.Caption := FloatToStr(MoneyTotal); 
    ADOQuery1.Append; 
    DBEdit1.SetFocus; 
    Edit1.Color := clWhite; 
    Edit1.Enabled := True; 
    Image4.Enabled := True; 
    Label7.Enabled := True; 
 
  end 
  else 
    messagebox(handle,'您的输入不正确（空值）！','检查输入',mb_iconwarning+mb_ok) 
end; 
 
procedure TFrameSell.Image7Click(Sender: TObject); 
var 
  i: integer; 
begin 
  ADOQuery1.Edit; 
  ADOQuery1.Post; 
  Image7.Visible := False; 
  MoneyTotal := 0; 
  for i:=1 to ADOQuery1.RecordCount do 
  begin 
    MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger; 
    ADOQuery1.Prior; 
  end; 
  Label4.Caption := FloatToStr(MoneyTotal); 
  ADOQuery1.Append; 
end; 
 
procedure TFrameSell.Image5Click(Sender: TObject); 
var 
  i: integer; 
begin 
  ADOQuery1.Cancel; 
  for i:=1 to ADOQuery1.RecordCount do 
    ADOQuery1.delete; 
  DBEdit1.Color := $00FFF0DC; 
  DBEdit2.Color := $00FFF0DC; 
  DBEdit1.Enabled := False; 
  DBEdit2.Enabled := False; 
  ADOQuery1.Active := False; 
  image2.Enabled := True; 
  image3.Visible := False; 
  image5.Visible := False; 
  image6.Visible := False; 
  Image7.Visible := False; 
  Edit1.Text := ''; 
  Label4.Caption := '0'; 
  Edit1.Color := $00FFF0DC; 
  Image4.Enabled := False; 
  Label7.Enabled := False; 
  Edit1.Enabled := False; 
end; 
 
procedure TFrameSell.DBEdit2KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key=#13 then Image3Click(self); 
end; 
 
procedure TFrameSell.Image6Click(Sender: TObject); 
var 
  i: integer; 
begin 
  ADOQuery1.Cancel; 
  if ADOQuery1.RecordCount>0 then ADOQuery1.Delete; 
  if ADOQuery1.RecordCount<=0 then 
  begin 
    Edit1.Text := ''; 
    Label4.Caption := '0'; 
    Edit1.Color := $00FFF0DC; 
    Image4.Enabled := False; 
    Label7.Enabled := False; 
    Edit1.Enabled := False; 
  end; 
  MoneyTotal := 0; 
  for i:=1 to ADOQuery1.RecordCount do 
  begin 
    MoneyTotal := MoneyTotal + ADOQuery1.FieldByName('sell_prod_Price').AsVariant * ADOQuery1.FieldByName('sell_number').asinteger; 
    ADOQuery1.Prior; 
  end; 
  Label4.Caption := FloatToStr(MoneyTotal); 
  ADOQuery1.Append; 
  Image7.Visible := False; 
end; 
 
procedure TFrameSell.DBGrid1CellClick(Column: TColumn); 
begin 
  Image7.Visible := True; 
end; 
 
procedure TFrameSell.Image4Click(Sender: TObject); 
var 
  i: integer; 
begin 
  if (Edit1.Text<>'') and IsAllNum(Edit1.Text) then 
  begin 
    if (StrToFloat(Edit1.Text) '9') then 
    begin 
      IsAllNum := False; 
      Exit; 
    end; 
  IsAllNum := True; 
end; 
 
 
procedure TFrameSell.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key=#13 then Image4Click(self); 
end; 
 
procedure TFrameSell.Label7Click(Sender: TObject); 
begin 
  Image4Click(self); 
end; 
 
end.