hyunt.pas

商品销售系统完全的功能SQL和JAVA

unit hyunt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, DB, DBGridEh;

type
  Thyfrm = class(TForm)
    Label1: TLabel;
    vip_Ed: TEdit;
    bt_sc: TBitBtn;
    Bevel1: TBevel;
    Bt_qx: TBitBtn;
    Bt_cp: TBitBtn;
    Bt_tc: TBitBtn;
    hyDS: TDataSource;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure bt_scClick(Sender: TObject);
    procedure Bt_qxClick(Sender: TObject);
    procedure Bt_cpClick(Sender: TObject);
    procedure Bt_tcClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure vip_EdKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1KeyPress(Sender: TObject; var Key: Char);
    procedure vip_EdExit(Sender: TObject);
    procedure vip_EdEnter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hyfrm: Thyfrm;

implementation
uses data,datam;

{$R *.dfm}


procedure Thyfrm.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
with dbgrideh1 do
  begin
      Canvas.Pen.Mode:=pmmask;
          if gdSelected in State  then
            begin
              Canvas.Brush.Color:=clinfobk;
              Canvas.FillRect(Rect);
              Canvas.Font.Color:=clred;
              Canvas.Font.Style:=[fsBold];
            end;
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

procedure Thyfrm.bt_scClick(Sender: TObject);
begin
try
 begin
 if messagedlg('确定要删除此条记录?',mtwarning,[mbyes,mbno],0)=mryes then
  dataman.hyTable.Delete;
 end;
 except
 abort;
 end;
end;

procedure Thyfrm.Bt_qxClick(Sender: TObject);
begin
try
begin
dataman.hyTable.Cancel;
dataman.hyTable.Close;
dataman.hyTable.Open;
dataman.hyTable.Refresh;
end;
except
abort;
end;
end;

procedure Thyfrm.Bt_cpClick(Sender: TObject);
begin
try
begin
dataman.ADOCon.BeginTrans;
dataman.hyTable.UpdateBatch();
dataman.hyTable.Refresh;
dataman.ADOCon.CommitTrans;
showmessage('存盘成功！');
end;
except
dataman.ADOCon.RollbackTrans;
end;
end;

procedure Thyfrm.Bt_tcClick(Sender: TObject);
begin
if cachenosave(dataman.hyTable)=true then
   messagedlg('对不起你还没有存盘数据!',mtconfirmation,[mbok],0)
else
   dataman.hyTable.Close;
   hyfrm.close;

end;

procedure Thyfrm.FormActivate(Sender: TObject);
begin
vip_ed.SetFocus;
dataman.hyTable.Active:=true;
end;

procedure Thyfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=true;
if cachenosave(dataman.hyTable)=true then
 begin
   messagedlg('对不起你还没有存盘数据!',mtconfirmation,[mbok],0);
   canclose:=false;
 end;
end;

procedure Thyfrm.BitBtn1Click(Sender: TObject);
begin
  try
   begin
     if length(vip_ed.Text)>5 then
        vip_ed.SelStart:= 0;
     if length(vip_ed.Text)=5 then
      begin
        if  not dataman.hyTable.Locate('VIP卡号',trim(vip_ed.Text),[]) then
           showmessage('对不起没有找到！')
      end ;
     end;

  except
     abort;
  end;
end;

procedure Thyfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Thyfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
hyfrm:=nil;
hyfrm.Free;
end;

procedure Thyfrm.vip_EdKeyPress(Sender: TObject; var Key: Char);
begin
 BitBtn1Click(Sender);
end;

procedure Thyfrm.DBGridEh1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   Perform(CM_DialogKey,Vk_TAB,0);
end;

procedure Thyfrm.vip_EdExit(Sender: TObject);
begin
vip_Ed.color:=clWindow;
end;

procedure Thyfrm.vip_EdEnter(Sender: TObject);
begin
vip_Ed.Color:=clSkyBlue;
end;

end.