usplb.pas

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

unit uSplb;

interface

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

type
  Tfrmsplb = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinLabel1: TbsSkinLabel;
    edtSplb: TbsSkinEdit;
    listSp: TbsSkinListBox;
    bsSkinLabel2: TbsSkinLabel;
    btnAdd: TbsSkinButton;
    btnEdit: TbsSkinButton;
    btnDel: TbsSkinButton;
    btnClose: TbsSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure listSpListBoxClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsplb: Tfrmsplb;

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

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

procedure Tfrmsplb.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
    listsp.Items.Add(rs.fields.Item['classname'].value);
    rs.movenext;
  until rs.eof;
end;
rs.close;
rs:=unassigned;

end;


//增加商品类别
procedure Tfrmsplb.btnAddClick(Sender: TObject);
begin
if trim(edtsplb.text)='' then exit;
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tclass where classname='+yinhao+trim(edtsplb.text)+yinhao,conn,1,1);
if not rs.eof then
  frmmain.bsmessage.MessageDlg('此商品类别已经存在!',mtWarning,[mbok],0)
else
begin
  rs.close;
  rs.open('select * from tclass order by classid',conn,1,3);
  rs.addnew;
  rs.fields.Item['classname'].value:=trim(edtsplb.text);
  rs.update;
  frmmain.bsmessage.MessageDlg('增加商品类别成功!',mtInformation,[mbok],0);
  listSp.Items.Add(trim(edtsplb.text));
  listSp.ItemIndex:=ListSp.Items.Count-1;
end;
rs.close;
rs:=unassigned;

end;

procedure Tfrmsplb.listSpListBoxClick(Sender: TObject);
begin
edtSplb.Text:=ListSp.Items.Strings[listsp.itemindex];
end;

//删除商品类别
procedure Tfrmsplb.btnDelClick(Sender: TObject);
begin
if frmmain.bsmessage.MessageDlg('真的要删除所选商品类别?',mtInformation,mbOKCancel,0)=idok then
begin
  conn.execute('delete from tclass where classname=' + YinHao+trim(edtsplb.text)+YinHao);
  frmmain.bsmessage.MessageDlg('删除商品类别成功!',mtInformation,[mbok],0);
  listSp.Items.Delete(listSp.ItemIndex);
  listSp.ItemIndex:=ListSp.Items.Count-1;
  edtSplb.Text:='';
end;
end;

procedure Tfrmsplb.btnEditClick(Sender: TObject);
var
  oldName:string;
begin
oldname:=ListSp.Items.Strings[listsp.itemindex];
if frmmain.bsmessage.MessageDlg('真的要修改所选商品类别?',mtInformation,mbOKCancel,0)=idok then
begin
  rs:=CreateOleObject('ADODB.Recordset');
  rs.open('select * from tclass where classname='+yinhao+oldname+yinhao,conn,1,3);
  if not rs.eof then
  begin
    rs.fields.Item['classname'].value:=trim(edtsplb.text);
    rs.update;
    frmmain.bsmessage.MessageDlg('修改商品类别成功!',mtInformation,[mbok],0);
    ListSp.Items.Strings[listsp.itemindex]:=trim(edtsplb.text);
  end;
end;

end;

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

end.