uz_cbkz_cl.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit uz_cbkz_cl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, Mask, Buttons, ExtCtrls,u_main, DBLookup;

type
  Tz_cbkz_cl = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    qx: TBitBtn;
    jl: TDBEdit;
    zl: TDBEdit;
    dj: TDBEdit;
    je: TDBEdit;
    yl: TDBEdit;
    BitBtn1: TBitBtn;
    lb: TDBComboBox;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    procedure qxClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure jlKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure xl_cz;
  end;

var
  z_cbkz_cl: Tz_cbkz_cl;
  cs_dj:string;

implementation

uses uz_cbkz, uz_cbkz_xl;

{$R *.DFM}
procedure Tz_cbkz_cl.xl_cz;
begin
 with z_cbkz.cypl do
  begin
   esc_enter:=0;
   z_cbkz_xl.showmodal;
   if esc_enter=0 then  exit;
   edit;
   fieldbyname('bm').value:=z_cbkz_xl.xl.fieldbyname('bm').asstring;
   fieldbyname('jl').value:=z_cbkz_xl.xl.fieldbyname('jl').asstring;
   fieldbyname('dj').value:=z_cbkz_xl.xl.fieldbyname('dj').asstring;
   fieldbyname('yl').value:=z_cbkz_xl.xl.fieldbyname('yl').asstring;
   fieldbyname('jll').value:=z_cbkz_xl.xl.fieldbyname('jll').asstring;
   fieldbyname('cllb').value:=z_cbkz_xl.xl.fieldbyname('lb').asfloat;
   post;
 end;
end;
procedure Tz_cbkz_cl.qxClick(Sender: TObject);
begin
 z_cbkz.cypl.cancel;
 close;
end;
procedure Tz_cbkz_cl.BitBtn1Click(Sender: TObject);
begin
 if (trim(jl.text)='') then
  begin
   messagebox(handle,'请选择净料！','系统提示信息',MB_OK+MB_ICONWARNING);
   jl.setfocus;
   exit;
  end;
 if (trim(lb.text)='') then
  begin
   messagebox(handle,'请选择类别！','系统提示信息',MB_OK+MB_ICONWARNING);
   lb.setfocus;
   exit;
  end;
 z_cbkz.cypl.edit;
 z_cbkz.cypl.post;
 close;
end;

procedure Tz_cbkz_cl.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then selectnext(activecontrol,true,true);
  if key=#27 then qxClick(Sender);
end;

procedure Tz_cbkz_cl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 z_cbkz.cypl.cancel;
end;

procedure Tz_cbkz_cl.jlKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if ((key>=65) and (key<=90)) or ((key<=57) and (key>=48)) or ((key<=105) and (key>=96)) then
  begin
   c_key:=chr(key);
   xl_cz;
  end;
end;

procedure Tz_cbkz_cl.FormShow(Sender: TObject);
begin
 if y_n=1 then
  with z_cbkz do
    begin
     cypl.Append;
     cypl.fieldbyname('ch').value:=cy.fieldbyname('ch').asstring;
     cypl.fieldbyname('bh').value:=main.h_n_bh('select max(bh) as bh from cypl');
    end
end;

end.