hfgd1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit hfgd1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables, EHGrids, DBGridEh;

type
  Thfgd = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query1gdh: TIntegerField;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Table1: TTable;
    DataSource2: TDataSource;
    Table1spcode: TStringField;
    Table1spname: TStringField;
    Table1dj: TCurrencyField;
    Table1sl: TCurrencyField;
    Table1gdh: TIntegerField;
    Query2: TQuery;
    Table1unit: TStringField;
    Table1je: TCurrencyField;
    Table1zk: TCurrencyField;
    Table1zkje: TCurrencyField;
    Table1sj: TDateTimeField;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hfgd: Thfgd;

implementation

uses main1, print1;

{$R *.DFM}

procedure Thfgd.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var I: integer;
begin
  if key = 27 then close;
  if key = 38 then Query1.Prior;
  if key = 40 then Query1.Next;
  if key = 33 then PostMessage(DBGridEh1.Handle, WM_KEYDOWN, 33, 0);
  if key = 34 then PostMessage(DBGridEh1.Handle, WM_KEYDOWN, 34, 0);
  if key = 13 then
  begin
    if MAIN.CheckBox1.Checked then Main.pringbt(Sender);
    Table1.First;
    while not Table1.Eof do
    begin
      try
        Main.Table1.AppendRecord([Table1.fields[0].asstring,
          Table1.fields[1].asstring,
            Table1.fields[2].asstring,
            Table1.fields[3].asstring,
            Table1.fields[4].asstring,
            Table1.fields[5].asstring,
            Table1.fields[6].asstring,
            Table1.fields[7].asstring, nil]);
      except
      end;
      Main.Table1.close;
      Main.Table1.open;
      Main.Table1.Last;
      //打印商品
      pnt.Edit3.Text := Table1.Fields[0].Text;
      pnt.Edit4.Text := Table1.Fields[1].Text;
      pnt.Edit5.Text := Table1.Fields[3].Text;
      pnt.Edit6.Text := Table1.Fields[4].Text;
      pnt.Edit7.Text := Table1.Fields[5].Text;
      pnt.Button14.Click;
      Table1.Next;
    end;
    Query2.close;
    Query2.sql.clear;
    Query2.sql.add('delete from spxs_g where gdh=:gdh');
    Query2.ParamByName('gdh').asstring := Query1.fields[0].asstring;
    Query2.ExecSQL;
    Main.Table1.close;
    Main.Table1.open;
    Main.Table1.Last;
    Main.Edit1.SetFocus;
    close;
    Main.CheckBox1.Checked := false;
  end;
end;

procedure Thfgd.Query1AfterScroll(DataSet: TDataSet);
begin
  Edit1.Text := Query1.Fields[0].asstring;
end;

procedure Thfgd.FormActivate(Sender: TObject);
begin
  Query1.open;
end;

procedure Thfgd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Query1.close;
  Action:=cafree;
end;

end.