sale.~pas

网吧商品销售平台

unit sale;

interface

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

type
  TSaleForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Click(Sender: TObject);
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SaleForm: TSaleForm;

implementation

uses server;
{$R *.dfm}

procedure TSaleForm.Button2Click(Sender: TObject);
begin
close;
end;

procedure TSaleForm.Button1Click(Sender: TObject);
begin
if (trim(edit1.Text)='') or (trim(edit2.Text)='') then
begin
application.MessageBox('请先填写好所有项目！','错误',MB_ICONERROR);
edit1.SetFocus;
exit;
end;
if Button1.Caption='增加' then
begin
with ServerForm.ListView1.Items.Add do
begin
Caption:=edit1.Text;
SubItems.Text:=edit2.Text;
end;
close;
end;
if Button1.Caption='修改' then
begin
with ServerForm.ListView1.Selected do
begin
Caption:=edit1.Text;
SubItems.Text:=edit2.Text;
end;
close;
end;
end;

procedure TSaleForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button1Click(sender);
end;

procedure TSaleForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button1Click(sender);
end;

procedure TSaleForm.Edit2Click(Sender: TObject);
begin
Edit2.SetFocus;
end;

procedure TSaleForm.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Edit2.SetFocus;
end;

end.