unit_goods_manage.~pas

美汇美容网网站管理系统

unit Unit_Goods_Manage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, XPMenu, ExtDlgs,IniFiles;

type
  TForm_Goods_Manage = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label11: TLabel;
    Label9: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    edSN: TEdit;
    edName: TEdit;
    edProducer: TEdit;
    cbbclass1: TComboBox;
    Label1: TLabel;
    cbbclass2: TComboBox;
    mmIntro: TMemo;
    edCPrice: TEdit;
    edSPrice: TEdit;
    edPPrice: TEdit;
    edEPrice: TEdit;
    Label2: TLabel;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    OpenPictureDialog1: TOpenPictureDialog;
    XPMenu1: TXPMenu;
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edSNKeyPress(Sender: TObject; var Key: Char);
    procedure edCPriceKeyPress(Sender: TObject; var Key: Char);
    procedure edSPriceKeyPress(Sender: TObject; var Key: Char);
    procedure edPPriceKeyPress(Sender: TObject; var Key: Char);
    procedure edEPriceKeyPress(Sender: TObject; var Key: Char);
    procedure cbbclass1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure ReadSetup;
    { Private declarations }
  public
    { Public declarations }
    manage_type,imagefilename,imagetype:String;
    localdir,remotedir:string;
  end;

var
  Form_Goods_Manage: TForm_Goods_Manage;

implementation

uses Unit_info_Manage, Unit_DM;

{$R *.dfm}

function strleft(const tempstr:string;rp:char):string;
var
  i:integer;
  Buffer: array [0..10] of char;
begin
  for i:=0 to length(tempstr) do
    if tempstr[i]=rp then
    begin
       strlcopy(Buffer,pchar(tempstr),i-1);
       break;
    end;
  result:=Buffer;
end;

procedure TForm_Goods_Manage.ReadSetup();
var
  meihuisetup:TIniFile;
begin
  meihuisetup := TIniFile.Create('meihui.ini');
  LocalDir:=meihuisetup.ReadString('Image Setup','LocalSaveDir','');
  RemoteDir:=meihuisetup.ReadString('Image Setup','RemoteSaveDir','');
  meihuisetup.Free;
end;

procedure TForm_Goods_Manage.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm_Goods_Manage.SpeedButton1Click(Sender: TObject);
begin
  imagetype:='del';
  image1.Hide;
end;

procedure TForm_Goods_Manage.SpeedButton2Click(Sender: TObject);
var
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
  if openpicturedialog1.Execute then
  begin
    image1.Picture.LoadFromFile(openpicturedialog1.FileName);
    imagetype:='add';
    image1.Show;
    if length(imagefilename)<1 then
    begin
      DecodeDate(now, Year, Month, Day);
      DecodeTime(now, Hour, Min, Sec, MSec);
      imagefilename:=format('%d%d%d%d%d%d%d.jpg',[year,month,day,hour,min,sec,msec]);
    end;
  end;
end;

procedure TForm_Goods_Manage.FormCreate(Sender: TObject);
begin
  Self.Left:= Round(Screen.Width/2-Width/2);
  Self.Top :=Round(Screen.Height/2-Height/2);

  Form_Goods_Manage.ReadSetup;

  {为一级分类下拉框添加分类}
  with dm.adods do
  begin
    close;
    commandtext:='select * from goods_class';
    Open;
    
    first;
    while not eof do
    begin
      if fieldvalues['iUpNo']=0 then
        cbbclass1.Items.Add(inttostr(fieldvalues['iNo'])+'.'+fieldvalues['vName']);
      next;
    end;
  end;
end;

procedure TForm_Goods_Manage.edSNKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

procedure TForm_Goods_Manage.edCPriceKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if Key='.' then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

procedure TForm_Goods_Manage.edSPriceKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if Key='.' then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

procedure TForm_Goods_Manage.edPPriceKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if Key='.' then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

procedure TForm_Goods_Manage.edEPriceKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#8 then
    exit;
  if Key='.' then
    exit;
  if (Key < '0') or (Key > '9') then
    Key :=#10 ;
end;

procedure TForm_Goods_Manage.cbbclass1Change(Sender: TObject);
var
  upClassNo:integer;
begin
  if length(cbbClass1.Text)>3 then
  begin
    upClassNo:=strtoint(strleft(cbbClass1.text,'.'));
    cbbclass2.Text:='';
    //cbbclass3.Text:='';
    cbbClass2.items.clear;
  {为二级分类下拉框添加分类}
    with dm.adods do
    begin
      first;
      while not eof do
      begin
        if fieldvalues['iUpNo']=upClassNo then
          cbbClass2.Items.Add(inttostr(fieldvalues['iNo'])+'.'+fieldvalues['vName']);
        next;
      end;
    end;
    cbbClass2.Enabled:=true;
  end;
end;

procedure TForm_Goods_Manage.BitBtn1Click(Sender: TObject);
begin
  {检查数据录入}
  if length(edSn.Text)<1 then
  begin
    application.MessageBox('请填写商品编号.','提示',MB_OK);
    edSn.SetFocus;
    exit;
  end;
  if length(edName.Text)<1 then
  begin
    application.MessageBox('请填写商品名称.','提示',MB_OK);
    edName.SetFocus;
    exit;
  end;
  if length(edProducer.Text)<1 then
  begin
    application.MessageBox('请填写生产厂家.','提示',MB_OK);
    edProducer.SetFocus;
    exit;
  end;
  if length(cbbClass1.Text)<1 then
  begin
    application.MessageBox('请选择一级分类.','提示',MB_OK);
    cbbClass1.SetFocus;
    exit;
  end;
  if length(cbbClass2.Text)<1 then
  begin
    application.MessageBox('请选择二级分类.','提示',MB_OK);
    cbbClass2.SetFocus;
    exit;
  end;
  if length(mmIntro.Text)<1 then
  begin
    application.MessageBox('请填写商品介绍.','提示',MB_OK);
    mmIntro.SetFocus;
    exit;
  end;
  if length(edCPrice.Text)<1 then
  begin
    application.MessageBox('请填写普通价格.','提示',MB_OK);
    edCPrice.SetFocus;
    exit;
  end;
  if length(edSPrice.Text)<1 then
  begin
    application.MessageBox('请填写优惠价格.','提示',MB_OK);
    edSPrice.SetFocus;
    exit;
  end;
  if length(edPPrice.Text)<1 then
  begin
    application.MessageBox('请填写个人会员优惠价格.','提示',MB_OK);
    edPPrice.SetFocus;
    exit;
  end;
  if length(edEPrice.Text)<1 then
  begin
    application.MessageBox('请填写企业会员优惠价格.','提示',MB_OK);
    edEPrice.SetFocus;
    exit;
  end;

   {保存到数据库}
   with dm.adsComm do
   begin
      if manage_type='add' then
        append;
      if manage_type='edit'then
        edit;

      {赋值}
      fieldvalues['vSN']:=edSN.Text;
      fieldvalues['vName']:=edName.Text;
      fieldvalues['iClass1No']:=strtoint(strleft(cbbClass1.Text,'.'));
      fieldvalues['iClass2No']:=strtoint(strleft(cbbClass2.Text,'.'));
      fieldvalues['vProducer']:=edProducer.Text;
      fieldvalues['vIntro']:=mmIntro.Text;
      fieldvalues['fCPrice']:=StrToFloat(edCPrice.Text);
      fieldvalues['fSPrice']:=StrToFloat(edSPrice.Text);
      fieldvalues['fPPrice']:=StrToFloat(edPPrice.Text);
      fieldvalues['fEPrice']:=StrToFloat(edEPrice.Text);
      fieldvalues['vImageType']:=imagetype;
      fieldvalues['vimage']:=imagefilename;
      if length(imagefilename)>4 then
        image1.Picture.SaveToFile(format('%s%s',[localdir,imagefilename]));

      {保存到数据库}
      try
        post;
        UpdateBatch();
        application.MessageBox('商品已经保存.','提示',MB_OK);
      except
        application.MessageBox('商品保存不成功.','提示',MB_OK);
      end;

      if manage_type='add' then
      begin
        edSN.SetFocus;
        edName.Text:='';
        edProducer.Text:='';
        cbbclass1.Text:='';
        cbbcLass2.Text:='';
        cbbclass2.Enabled:=false;
        edCPrice.Text:='';
        edSPrice.Text:='';
        edPPrice.Text:='';
        edEPrice.Text:='';
        mmIntro.Text:='';
        fieldvalues['vimage']:='';
        image1.Hide;
      end;
      if manage_type='edit'then
        form_Goods_manage.Close;
   end;
end;

end.