uaddspyh.~pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit UADDSPYH;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFADDSPYH = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CobYHFL: TComboBox;
    CobPMGG: TComboBox;
    EdtDJYH: TEdit;
    EdtYFYH: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormShow(Sender: TObject);
    procedure EdtDJYHKeyPress(Sender: TObject; var Key: Char);
    procedure EdtYFYHKeyPress(Sender: TObject; var Key: Char);
    procedure EdtDJYHExit(Sender: TObject);
    procedure EdtYFYHExit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    procedure addSPYH;
    procedure updateSPYH;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDSPYH: TFADDSPYH;
implementation
  uses U_dm,UsysPub,UsysConst;
{$R *.dfm}

procedure TFADDSPYH.addSPYH;
var
  strspbh,strpmgg,strdj,stryf:string;
  strSQL:string;
  i:integer;
begin
  screen.Cursor:=crhourglass;
  i:=CobYHFL.ItemIndex;
  strspbh:=Trim(TStrkhfl.Strings[i]);
  i:=CobPMGG.ItemIndex;
  strpmgg:=Trim(TStrSp.Strings[i]);
  strdj:=NontoNumber(Trim(EdtDJYH.Text));
  stryf:=NontoNumber(Trim(EdtYFYH.Text));
  IF strspbh='' THEN
  begin
    Application.MessageBox('请选择用户分类！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  IF strpmgg='' THEN
  begin
    Application.MessageBox('请选择商品！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  strSQL:='select * from JG商品优惠 where (分类编号='+''''+strspbh+''''+')and(商品编号='+''''+strpmgg+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,0) then
  begin
    if DM.m_clADOQry_Temp.RecordCount>0 then
    begin
       Application.MessageBox('该用户类别，该商品已经存在，请重新选择！',MsgBxCaption,MB_OK+MB_ICONWARNING);
       screen.Cursor:=crdefault;
       abort;
    end
    else
    begin
      strSQL:='Insert Into JG商品优惠 Values('
             +''''+strCZMD+''''
             +','+''''+strspbh+''''
             +','+''''+strpmgg+''''
             +','+strdj
             +','+stryf+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          strSQL:='select a.门店编号,a.分类编号,b.分类名称,a.商品编号,c.品名规格,a.单价优惠,a.运费优惠 from JG商品优惠 a,JG客户分类 b,JG商品资料 c where (a.门店编号=b.门店编号)and(a.分类编号=b.分类编号)and(a.门店编号=c.门店编号)and(a.商品编号=c.商品编号)';
          RunSQL(DM.ADOQ_SPYH,strSQL,0);
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;
     end;
   end;
   CobYHFL.ItemIndex:=0;
   CobPMGG.ItemIndex:=0;
   EdtDJYH.Text:='';
   EdtYFYH.Text:='';
end;

procedure TFADDSPYH.updateSPYH;
var
  strspbh,strpmgg,strdj,stryf:string;
  strSQL,strTmp:string;
begin
  screen.Cursor:=crhourglass;
  strspbh:=Trim(dm.ADOQ_SPYH.fieldbyname('分类编号').AsString);
  strpmgg:=Trim(dm.ADOQ_SPYH.fieldbyname('商品编号').AsString);
  strTmp:=Trim(dm.ADOQ_SPYH.fieldbyname('门店编号').AsString);
  strdj:=NontoNumber(Trim(EdtDJYH.Text));
  stryf:=NontoNumber(Trim(EdtYFYH.Text));
  strSQL:='update JG商品优惠 Set 单价优惠='
  +strdj
  +',运费优惠='+stryf
  +' where (门店编号='+''''+strTmp+''''+')and(分类编号='+''''+strspbh+''''+')and(商品编号='+''''+strpmgg+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

procedure TFADDSPYH.FormShow(Sender: TObject);
var
  strSQL:STRING;
begin
  strSQL:='select 分类编号 DaiMa,分类名称 MingCheng from JG客户分类';
  TStrkhfl:=SetCmbxItem(CobYHFL,DM.m_clADOQry_Temp,strSQL,True);
  strSQL:='select 商品编号 DaiMa,品名规格 MingCheng from JG商品资料 where 回瓶=1';
  TStrSp:=SetCmbxItem(CobPMGG,DM.m_clADOQry_Temp,strSQL,True);
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改用户商品优惠';
    CobYHFL.ItemIndex:=TStrkhfl.IndexOf(Trim(dm.ADOQ_SPYH.fieldbyname('分类编号').AsString));
    CobPMGG.ItemIndex:=TStrSp.IndexOf(Trim(dm.ADOQ_SPYH.fieldbyname('商品编号').AsString));
    EdtDJYH.Text:=Floattostr(dm.ADOQ_SPYH.fieldbyname('单价优惠').AsFloat);
    EdtYFYH.Text:=Floattostr(dm.ADOQ_SPYH.fieldbyname('运费优惠').AsFloat);
    CobYHFL.Color:=clBtnFace;
    CobPMGG.Color:=clBtnFace;
    CobYHFL.Enabled:=False;
    CobPMGG.Enabled:=False;
    BitBtn1.Visible:=False;
  END
  else
  begin

  end;
end;

procedure TFADDSPYH.EdtDJYHKeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in['0'..'9',#8,#9,#14,#23,#24,#25,#26,#27,#28,#30,#13,'.'])) then
    key:=#0;
end;

procedure TFADDSPYH.EdtYFYHKeyPress(Sender: TObject; var Key: Char);
begin
  if (not (key in['0'..'9',#8,#9,#14,#23,#24,#25,#26,#27,#28,#30,#13,'.'])) then
    key:=#0;
end;

procedure TFADDSPYH.EdtDJYHExit(Sender: TObject);
begin
  if Trim(EdtDJYH.Text)='' then
  begin
    EdtDJYH.Text:='0';
    abort;
  end;
  if TryIsFloat(Trim(EdtDJYH.Text))=False then
  begin
    Application.MessageBox('非法数值！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    EdtDJYH.SetFocus;
  end;
end;

procedure TFADDSPYH.EdtYFYHExit(Sender: TObject);
begin
  if Trim(EdtYFYH.Text)='' then
  begin
    EdtYFYH.Text:='0';
    abort;
  end;  
  if TryIsFloat(Trim(EdtYFYH.Text))=False then
  begin
    Application.MessageBox('非法数值！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    EdtYFYH.SetFocus;
  end;
end;

procedure TFADDSPYH.BitBtn2Click(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
     updateSPYH
  else
    addSPYH;
  self.Close;
end;

procedure TFADDSPYH.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    EnterToChangeFocus(self,key);
end;

procedure TFADDSPYH.BitBtn1Click(Sender: TObject);
begin
  addSPYH;
end;

procedure TFADDSPYH.BitBtn3Click(Sender: TObject);
begin
  self.Close;
end;

end.