changearticleunit.pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit changearticleunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tfrm_changearticle = class(TForm)
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    articlename: TEdit;
    articletype: TEdit;
    use: TEdit;
    units: TEdit;
    price: TEdit;
    birthplace: TEdit;
    b_modify: TButton;
    b_close: TButton;
    Label6: TLabel;
    articleid: TEdit;
    stock: TEdit;
    b_del: TButton;
    procedure FormCreate(Sender: TObject);
    procedure b_modifyClick(Sender: TObject);
    procedure b_delClick(Sender: TObject);
    procedure b_closeClick(Sender: TObject);
  private
    { Private declarations }
    function ismoney(s:string):boolean;
  public
    { Public declarations }
  end;

var
  frm_changearticle: Tfrm_changearticle;

implementation
  uses queryarticleunit;
{$R *.dfm}

function tfrm_changearticle.ismoney(s:string):boolean;
var i:integer;
begin
 i:=1;
 while i<=length(s) do
  begin
   if (s[i]<>'.') and ((ord(s[i])<48) or (ord(s[i])>57)) then
    begin
     result:=false;
     exit;
    end;
    i:=i+1;
   end;
  result:=true;
end;
procedure Tfrm_changearticle.FormCreate(Sender: TObject);
begin
//b_modify.Visible:=false;
//b_del.Visible:=false;
with frm_queryarticle.q_article do
 begin
  articleid.Text:=FieldValues['商品编号'];
  articlename.Text:=fieldvalues['商品姓名'];
  articletype.Text:=fieldvalues['商品类型'];
  price.Text:=floattostr(fieldvalues['单价']);
  stock.Text:=inttostr(fieldvalues['存货']);
  units.Text:=fieldvalues['单位'];
  birthplace.Text:=fieldvalues['产地'];
  use.Text:=fieldvalues['用途'];
 end;
 activecontrol:=articlename;

end;

procedure Tfrm_changearticle.b_modifyClick(Sender: TObject);
var rt:integer;
begin
  if articlename.Text='' then
   begin
    showmessage('商品名称不能为空');
    activecontrol:=articlename;
    exit;
   end;
   if ismoney(price.Text)=false
    then
     begin
      showmessage('请确认单价输入是否正确');
      activecontrol:=price;
      exit;
     end; 
rt:=messagedlg('确认修改'''+frm_queryarticle.q_article.FieldValues['商品姓名']+''''+'这条记录吗?',mtwarning,[mbyes,mbno],0);
if rt=mryes then
 begin
   with frm_queryarticle.q_article do
    begin
    edit;
    FieldByName('商品姓名').AsString:=articlename.Text;
    FieldByName('商品类型').AsString:=articletype.Text;
    FieldByName('单价').AsCurrency:=strtofloat(price.Text);
    FieldByName('产地').AsString:=birthplace.Text;
    FieldByName('单位').AsString:=units.Text;
    FieldByName('用途').AsString:=use.Text;
    post;
    end;
end;
end;

procedure Tfrm_changearticle.b_delClick(Sender: TObject);
var rt:integer;
begin
rt:=messagedlg('你确定要删除'+articlename.Text+'这件商品吗?',mtconfirmation,[mbyes,mbno],0);
if rt=mryes
  then frm_queryarticle.q_article.Delete;
  close;
end;

procedure Tfrm_changearticle.b_closeClick(Sender: TObject);
begin
close;
end;

end.