ugt.pas

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

unit UGt;

interface

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

type
  TfrmGt = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    lvGt: TbsSkinListView;
    edtGtMc: TbsSkinEdit;
    edtGtDm: TbsSkinEdit;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    btnAdd: TbsSkinButton;
    btnDel: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnAddClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure edtGtDmKeyPress(Sender: TObject; var Key: Char);
    procedure edtGtMcKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtGtDmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGt: TfrmGt;

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

procedure TfrmGt.bsSkinButton3Click(Sender: TObject);
begin
close;
end;

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

procedure TfrmGt.btnAddClick(Sender: TObject);
begin
if (trim(edtGtmc.text)='') or (trim(edtGtdm.Text )='') then exit;
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tGt where gtmc='+yinhao+trim(edtgtmc.text)+yinhao+' or gtdm='+trim(edtgtdm.Text),conn,1,3);
if rs.eof then //如果没有记录
begin
  rs.addnew;
  rs.fields.Item['gtmc'].value:=trim(edtgtmc.text);
  rs.fields.Item['gtdm'].value:=trim(edtGtdm.text);
  rs.update;
  frmmain.bsmessage.MessageDlg('增加柜台代码成功!',mtInformation,[mbok],0);
  with lvGt.Items.Add do
  begin
    caption:=trim(edtgtmc.text);
    subitems.Add(trim(edtGtdm.text));
  end;
  edtgtmc.text:='';
  edtgtdm.text:='';
end
else
begin
  frmmain.bsmessage.MessageDlg('柜台代码或柜台名称已经存在!',mtInformation,[mbok],0);
  edtgtmc.text:='';
  edtgtdm.text:='';
end;
rs.close;
rs:=unassigned;

end;

procedure TfrmGt.btnDelClick(Sender: TObject);
begin
if lvgt.Selected=nil then exit;
if frmmain.bsmessage.MessageDlg('真的要删除所选项目?',mtInformation,mbOKCancel,0)=idok then
begin
  conn.execute('delete from tgt where gtmc='+yinhao+lvgt.Selected.caption+yinhao);
  lvgt.Selected.Delete;
  frmmain.bsmessage.MessageDlg('删除成功!',mtInformation,[mbok],0);
end;
end;

procedure TfrmGt.FormCreate(Sender: TObject);
begin
rs:=CreateOleObject('ADODB.Recordset');
rs.open('select * from tGt order by gtid' ,conn,1,1);
while not rs.eof do
begin
  with lvgt.Items.Add do
  begin
    caption:=rs.fields.Item['gtmc'].value;
    subitems.Add(rs.fields.Item['gtdm'].value);
  end;
  rs.MoveNext;
  application.ProcessMessages;
end;
rs.close;
rs:=unassigned;
end;

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

procedure TfrmGt.edtGtMcKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
  edtgtdm.SetFocus;
end;

procedure TfrmGt.edtGtDmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
  btnadd.SetFocus;
end;

end.