adjustprice.pas

1、系统环境要求：WindowsXP/2000 2、DELPHI7.0企业版 3、如果数据库为SQL Server数据库

unit adjustprice;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, DB, StdCtrls, Grids, DBGrids, ExtCtrls;

type
  Tf_adjustprice = class(Tf_baseform)
    Label1: TLabel;
    Panel1: TPanel;
    Label2: TLabel;
    fixprice: TEdit;
    Confirm: TButton;
    Cancel: TButton;
    Quit: TButton;
    Grid1: TDBGrid;
    Panel2: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Field: TComboBox;
    Value: TEdit;
    Query: TButton;
    Source1: TDataSource;
    procedure CancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure QuitClick(Sender: TObject);
    procedure QueryClick(Sender: TObject);
    procedure ConfirmClick(Sender: TObject);
    procedure fixpriceKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_adjustprice: Tf_adjustprice;

implementation
  uses Data;
{$R *.dfm}

procedure Tf_adjustprice.CancelClick(Sender: TObject);
begin
  inherited;
  Fixprice.Clear;
  Field.ItemIndex:= -1;
  Value.Clear;
  With t_data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from v_fixinfo');
    Open;
  end;
  if t_data.Query1.RecordCount>0 then
  begin
    Source1.DataSet := t_data.Query1;
  end
  else
  begin
    Source1.DataSet := Nil;
    t_data.Query1.Close;
  end;
end;

procedure Tf_adjustprice.FormShow(Sender: TObject);
begin
  inherited;
  Cancel.Click;
end;

procedure Tf_adjustprice.QuitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tf_adjustprice.QueryClick(Sender: TObject);
begin
  inherited;
  if (Field.Text<>'')and(Trim(Value.Text)<>'')then
  begin
    With t_data.Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * From v_fixinfo where ');
      Case Field.ItemIndex of
        0:  SQL.Add('bookname = :FieldValue');
        1:  SQL.Add('bookconcern = :FieldValue');
        2:  SQL.Add('author = :FieldValue');
        3:  SQL.Add('barcode = :FieldValue');
      end;
      Parameters.ParamByName('FieldValue').Value := Trim(Value.Text);
      Open;
    end;
    if t_data.Query1.RecordCount<1 then
    begin
      Application.MessageBox('没有找到符合条件的记录.','提示',64);
      Cancel.Click;
    end
    else
      Source1.DataSet := t_data.Query1;
  end;
end;

procedure Tf_adjustprice.ConfirmClick(Sender: TObject);
begin
  inherited;
  if (Trim(Fixprice.Text)<>'')and(t_data.Query1.Active) then
  begin
    Try
      With t_data.Insert1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Update tb_fixprice set sellprice = :sellprice where barcode = :barcode');
        Parameters.ParamByName('barcode').Value := Trim(t_data.Query1.FieldByName('barcode').AsString);
        Parameters.ParamByName('sellprice').Value := StrToFloat(fixprice.Text);
        ExecSQL;
      end;
      Application.MessageBox('操作成功.','提示',64);
      Cancel.Click;
    Except
      Application.MessageBox('系统出错.','提示',64);
    End;
  end;
end;

procedure Tf_adjustprice.fixpriceKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if Not(Key in ['0'..'9',#8,'.']) then
    Key := #0
  else if (key = '.')and(Pos('.',Trim(Fixprice.Text))<>0) then
    Key := #0;
end;

end.