uy_yyt_jc.pas

一个针对酒店大堂管理的delphi应用管理软件

unit uy_yyt_jc;

interface

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

type
  Ty_yyt_jc = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cm: TEdit;
    dj: TEdit;
    sl: TEdit;
    lb: TComboBox;
    czyh: TEdit;
    qxmm: TEdit;
    cydw: TTable;
    cydwBh: TStringField;
    cydwDW: TStringField;
    cydwD_yn: TBooleanField;
    d_cydw: TDataSource;
    gg: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure djChange(Sender: TObject);
    procedure slChange(Sender: TObject);
    procedure djEnter(Sender: TObject);
    procedure slEnter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  y_yyt_jc: Ty_yyt_jc;
  s_dj,s_sl:string;
implementation

{$R *.DFM}


procedure Ty_yyt_jc.BitBtn1Click(Sender: TObject);
begin
 if length(trim(cm.text))=0 then
   begin
    messagebox(handle,'请输入菜名!','系统提示信息',MB_OK+MB_ICONWARNING);
    cm.setfocus;
    exit;
   end;
 if length(trim(gg.text))=0 then
   begin
    messagebox(handle,'请输入规格!','系统提示信息',MB_OK+MB_ICONWARNING);
    gg.setfocus;
    exit;
   end;
 if length(trim(dj.text))=0 then
   begin
    messagebox(handle,'请输入单价!','系统提示信息',MB_OK+MB_ICONWARNING);
    dj.setfocus;
    exit;
   end;
 if length(trim(sl.text))=0 then
   begin
    messagebox(handle,'请输入数量!','系统提示信息',MB_OK+MB_ICONWARNING);
    sl.setfocus;
    exit;
   end;
 if length(trim(lb.text))=0 then
   begin
    messagebox(handle,'请输入类别!','系统提示信息',MB_OK+MB_ICONWARNING);
    lb.setfocus;
    exit;
   end;
 if (czyh.text='') or (length(czyh.text)>4) then
   begin
    messagebox(handle,'请输入合法的批准人号!','系统提示信息',MB_OK+MB_ICONWARNING);
    czyh.setfocus;
    exit;
   end;
 if (qxmm.text='') then
   begin
    messagebox(handle,'请输入正确的权限密码!','系统提示信息',MB_OK+MB_ICONWARNING);
    qxmm.setfocus;
    exit
   end;
 if not main.h_czqx(czyh.text,qxmm.text,7) then exit;
 with y_yyt.cdmx do
  begin
    append;
    //fieldbyname('bh').value:=y_yyt.hn_cdmxbh;
    fieldbyname('cdbh').value:=s_cdbh;
    fieldbyname('cm').value:=cm.text;
    fieldbyname('gg').value:=gg.text;
    fieldbyname('dzl').value:=0;
    fieldbyname('dj').value:=strtocurr(dj.text);
    fieldbyname('sl').value:=strtocurr(sl.text);
    fieldbyname('cz').value:='3';
    fieldbyname('lbh').value:=inttostr(lb.itemindex+1);
  end;
 close;
end;

procedure Ty_yyt_jc.BitBtn2Click(Sender: TObject);
begin
   close;
end;

procedure Ty_yyt_jc.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then   close;
  if key=#13 then selectnext(activecontrol,true,true);
end;
procedure Ty_yyt_jc.FormShow(Sender: TObject);
var
 i:integer;
begin
 gg.Items.Clear;
 with main.query1 do
  begin
   sql.Clear;
   sql.Add('select * from cydw');
   active:=false;
   active:=true;
   first;
   for i:=1 to recordcount do
    begin
     gg.Items.Add(fieldbyname('dw').asstring);
     next;
    end;
  end;
 activecontrol:=cm;
 cm.text:='';
 dj.text:='';
 sl.text:='';
 lb.itemindex:=0;
 czyh.text:='';
 qxmm.text:='';
end;

procedure Ty_yyt_jc.djChange(Sender: TObject);
begin
 if not dj.Focused then exit;
 try
  strtofloat(dj.text);
 except
  dj.text:=s_dj;
  exit;
 end;
 if strtofloat(dj.text)<0 then dj.text:=s_dj;
 s_dj:=dj.text;
end;

procedure Ty_yyt_jc.slChange(Sender: TObject);
begin
 if not sl.Focused then exit;
 try
  strtofloat(sl.text);
 except
  sl.text:=s_sl;
  exit;
 end;
 if strtofloat(sl.text)<0 then sl.text:=s_sl;
 s_sl:=sl.text;
end;

procedure Ty_yyt_jc.djEnter(Sender: TObject);
begin
 s_dj:=dj.text;
end;

procedure Ty_yyt_jc.slEnter(Sender: TObject);
begin
 s_sl:=sl.text;

end;

procedure Ty_yyt_jc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.