thunt.pas

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

unit thunt;

interface

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

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

implementation
 uses data,datam;
{$R *.dfm}


procedure Tthfrm.Bt_cpClick(Sender: TObject);
begin
 dbgrideh1.ReadOnly:=false;
try
begin
Dataman.ADOCon.BeginTrans;
Dataman.thTable.UpdateBatch();
Dataman.thTable.Refresh;
Dataman.ADOCon.CommitTrans;
showmessage('存盘成功！');
end;
except
Dataman.ADOCon.RollbackTrans;
end;

end;

procedure Tthfrm.Bt_qxClick(Sender: TObject);
begin
 dbgrideh1.ReadOnly:=false;
try
begin
Dataman.thTable.Cancel;
Dataman.thTable.Close;
Dataman.thTable.Open;
Dataman.thTable.Refresh;
end;
except
abort;
end;
end;

procedure Tthfrm.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 Tthfrm.bt_scClick(Sender: TObject);
begin
  dbgrideh1.ReadOnly:=false;
try
 begin
 if messagedlg('确定要删除此条记录?',mtwarning,[mbyes,mbno],0)=mryes then
  Dataman.thTable.Delete;
 end;
 except
 abort;
 end;
end;

procedure Tthfrm.Bt_tcClick(Sender: TObject);
begin
inherited;
if cachenosave(Dataman.thTable)=true then
   messagedlg('对不起你还没有存盘数据!',mtconfirmation,[mbok],0)
else
   Dataman.thTable.Close;
   thfrm.close;
end;

procedure Tthfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

canclose:=true;
if cachenosave(Dataman.thTable)=true then
 begin
   messagedlg('对不起你还没有存盘数据!',mtconfirmation,[mbok],0);
   canclose:=false;
 end;
end;

procedure Tthfrm.FormActivate(Sender: TObject);
begin
Dataman.thTable.Active:=true;

end;

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

procedure Tthfrm.BitBtn1Click(Sender: TObject);
begin
  dbgrideh1.ReadOnly:=true;
  try
        if  not Dataman.thTable.Locate('退货原因描述',trim(th_ed.Text),[]) then
           showmessage('对不起没有找到！');
  except
     abort;
  end;
 th_ed.Text:='';
end;

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

end.