unit3.pas

PosEasy收银系统源码,Pos机前后台管理代码

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Db, DBTables, Buttons,
  PrintAtOnces;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    DataSource1: TDataSource;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    PrintAtOnce1: TPrintAtOnce;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Query1: TQuery;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  Operator:string;
implementation
 uses unit2;
{$R *.DFM}

procedure TForm3.SpeedButton3Click(Sender: TObject);
begin
 
 form2.Query1.Close;
 form2.Query1.Open;
 close;

end;

procedure TForm3.FormShow(Sender: TObject);
var
 tmpsql:string;

begin

 with query1 do
   begin
    tmpsql:='select * from GoodsCheckTempBase where 部门编码='''+form2.Labeldep.Caption+'''';
    close;
    sql.clear;
    sql.add(tmpsql);
    prepare;
    open;
   end;
 query1.Edit;
 dbedit8.EditText:=Operator;
 dbedit5.SetFocus;
 
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
 query1.Edit;
 query1.Post;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
 printatonce1.Preview; 
end;

procedure TForm3.SpeedButton4Click(Sender: TObject);
begin
 query1.Prior;
 dbedit5.SetFocus;
end;

procedure TForm3.SpeedButton5Click(Sender: TObject);
begin
 query1.Next;
 dbedit5.SetFocus;
 query1.Edit;
 dbedit8.EditText:=Operator;
end;

procedure TForm3.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
 if (key<>'0') and (key<>'1') and (key<>'2') and (key<>'3') and (key<>'4') and (key<>'5') and (key<>'6') and (key<>'7') and (key<>'8') and (key<>'9') then
 key:=chr(0);
end;

procedure TForm3.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
 if (key<>'0') and (key<>'1') and (key<>'2') and (key<>'3') and (key<>'4') and (key<>'5') and (key<>'6') and (key<>'7') and (key<>'8') and (key<>'9') then
 key:=chr(0);
end;

end.