uspgg.~pas

商场销售信息系统只要用于小商场的销售管理

unit uSpgg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinBoxCtrls, bsSkinCtrls, StdCtrls, Mask,
  bsSkinGrids, ComCtrls;

type
  TfrmSpGG = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    edtSpmc: TbsSkinEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    cbClass: TbsSkinComboBox;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinLabel5: TbsSkinLabel;
    edtSptm: TbsSkinEdit;
    edtBzgg: TbsSkinEdit;
    edtSpdj: TbsSkinEdit;
    btnAdd: TbsSkinButton;
    btnEdit: TbsSkinButton;
    btnDel: TbsSkinButton;
    btnClose: TbsSkinButton;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinPanel1: TbsSkinPanel;
    srHList: TbsSkinScrollBar;
    srVList: TbsSkinScrollBar;
    lvSp: TbsSkinListView;
    bsSkinLabel6: TbsSkinLabel;
    edtjhjg: TbsSkinEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure edtSptmKeyPress(Sender: TObject; var Key: Char);
    procedure edtBzggKeyPress(Sender: TObject; var Key: Char);
    procedure edtSpdjKeyPress(Sender: TObject; var Key: Char);
    procedure btnCloseClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure lvSpSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure btnEditClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure edtjhjgKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure listSp;
  public
    { Public declarations }
  end;

var
  frmSpGG: TfrmSpGG;

implementation
uses upublic,umain,comobj;
{$R *.dfm}

procedure TfrmSpGG.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
frmSpgg:=nil;
end;

procedure TfrmSpGG.FormCreate(Sender: TObject);
begin
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tclass order by classid',conn,1,1);
if not rs.eof then
begin
  rs.movefirst;
  repeat
    cbClass.Items.Add(rs.fields.Item['classname'].value);
    rs.movenext;
  until rs.eof;
end;
if cbClass.Items.Count>0 then cbClass.ItemIndex:=0;
rs.close;
rs:=unassigned;
listSp;
end;

procedure TfrmSpGG.edtSptmKeyPress(Sender: TObject; var Key: Char);
begin
MxFormatEditKeyPress(sender as TbsSkinEdit ,key,2,0);
end;

procedure TfrmSpGG.edtBzggKeyPress(Sender: TObject; var Key: Char);
begin
MxFormatEditKeyPress(sender as TbsSkinEdit ,key,2,0);
end;

procedure TfrmSpGG.edtSpdjKeyPress(Sender: TObject; var Key: Char);
begin
MxFormatEditKeyPress(sender as TbsSkinEdit,key,3,2);
end;

procedure TfrmSpGG.btnCloseClick(Sender: TObject);
begin
close;
end;

procedure TfrmSpGG.listSp;
begin
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tshangpin order by spid',conn,1,1);
if not rs.eof then
begin
  rs.movefirst;
  lvsp.Clear;
  lvsp.Items.BeginUpdate;
  repeat
    with lvsp.Items.Add do
    begin
      caption:=inttostr(rs.fields.Item['spid'].value);
      subitems.Add(rs.fields.Item['spmc'].value);
      subitems.Add(rs.fields.Item['class'].value);
      subitems.Add(rs.fields.Item['sptm'].value);
      subitems.Add(rs.fields.Item['bzgg'].value);
      subitems.Add(FloatToStr(rs.fields.Item['spdj'].value));
       subitems.Add(FloatToStr(rs.fields.Item['jhjg'].value));
    end;
    application.ProcessMessages;
    rs.movenext;
  until rs.eof;
  lvsp.Items.EndUpdate;
end;
rs.close;
rs:=unassigned;
end;

//增加商品规格
procedure TfrmSpGG.btnAddClick(Sender: TObject);
begin
if (trim(edtSpmc.text)<>'') and (trim(cbclass.Text)<>'')
   and (trim(edtSptm.text)<>'') and (trim(edtbzgg.Text)<>'') and
   (trim(edtspdj.Text)<>'') and (trim(edtjhjg.Text)<>'') then
begin
  rs:=CreateOleObject('ADODB.Recordset');
  rs.open('select * from tShangpin where spmc='+yinhao+trim(edtspmc.text)+yinhao,conn,1,1);
  if not rs.eof then
    frmmain.bsmessage.MessageDlg('此商品名称已经存在!',mtWarning,[mbok],0)
  else
  begin
    rs.close;
    rs.open('select * from tShangpin order by spid',conn,1,3);
    rs.addnew;
    rs.fields.Item['spmc'].value:=trim(edtspmc.text);
    rs.fields.Item['class'].value:=trim(cbclass.text);
    rs.fields.Item['sptm'].value:=trim(edtsptm.text);
    rs.fields.Item['bzgg'].value:=trim(edtbzgg.text);
    rs.fields.Item['spdj'].value:=trim(edtspdj.text);
    rs.fields.Item['jhjg'].value:=trim(edtjhjg.Text);
    rs.update;
    rs.close;
    rs:=unassigned;
    frmmain.bsmessage.MessageDlg('增加商品资料成功!',mtInformation,[mbok],0);
    listsp;
    edtspmc.text:='';
    edtsptm.text:='';
    edtbzgg.text:='';
    edtspdj.text:='';
    edtjhjg.Text:='';
  end;
end
else
  frmmain.bsMessage.MessageDlg('数据不能为空!',mtWarning,[mbok],0);

end;

procedure TfrmSpGG.lvSpSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
if selected then
begin
   edtspmc.Text:=item.SubItems[0];
   cbclass.ItemIndex :=cbclass.Items.IndexOf(item.SubItems[1]);
   cbclass.Text:=item.SubItems[1];
   edtsptm.text:=item.SubItems[2];
   edtbzgg.text:=item.SubItems[3];
   edtspdj.text:=item.SubItems[4];
   edtjhjg.Text:=item.SubItems[5];
end;
end;

//修改数据
procedure TfrmSpGG.btnEditClick(Sender: TObject);
var
  oldname:string;
begin
  oldname:=lvsp.Selected.SubItems[0];
if frmmain.bsmessage.MessageDlg('真的要修改所选商品规格?',mtInformation,mbOKCancel,0)=idok then
  begin
  rs:=CreateOleObject('ADODB.Recordset');
  rs.open('select * from tShangpin where spmc='+yinhao+oldname+yinhao,conn,1,3);
  if not rs.eof then
  begin  //开始修改
    rs.fields.Item['spmc'].value:=trim(edtspmc.text);
    rs.fields.Item['class'].value:=trim(cbclass.text);
    rs.fields.Item['sptm'].value:=trim(edtsptm.text);
    rs.fields.Item['bzgg'].value:=trim(edtbzgg.text);
    rs.fields.Item['spdj'].value:=trim(edtspdj.text);
    rs.fields.Item['jhjg'].value:=trim(edtjhjg.text);
    rs.update;
    rs.close;
    rs:=unassigned;
    frmmain.bsmessage.MessageDlg('修改商品规格成功!',mtInformation,[mbok],0);
    listsp;
    edtspmc.text:='';
    edtsptm.text:='';
    edtbzgg.text:='';
    edtspdj.text:='';
    edtjhjg.Text:='';
  end
  else
    frmmain.bsmessage.MessageDlg('没有找到记录!',mtwarning,[mbok],0);
end;
end;

//删除记录
procedure TfrmSpGG.btnDelClick(Sender: TObject);
begin
if frmmain.bsmessage.MessageDlg('真的要删除所选商品规格?',mtInformation,mbOKCancel,0)=idok then
begin
  conn.execute('delete from tShangpin where spid='+lvsp.Selected.Caption);
  lvsp.Selected.Delete;
  frmmain.bsmessage.MessageDlg('删除商品规格成功!',mtInformation,[mbok],0);
end;
end;

procedure TfrmSpGG.edtjhjgKeyPress(Sender: TObject; var Key: Char);
begin
MxFormatEditKeyPress(sender as TbsSkinEdit,key,3,2);
end;

end.