uaddkhfl.pas

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

unit UADDKHFL;

interface

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

type
  TFADDKHFL = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edtbh: TEdit;
    Edtmc: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    procedure addKHFL;
    procedure updateKHFL;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDKHFL: TFADDKHFL;

implementation
    uses U_dm,UsysPub,UsysConst;
{$R *.dfm}

procedure TFADDKHFL.addKHFL;
var
  strspbh,strpmgg:string;
  strSQL:string;
begin
  screen.Cursor:=crhourglass;
  strspbh:=Trim(Edtbh.Text);
  strpmgg:=Trim(Edtmc.Text);
  IF strspbh='' THEN
  begin
    Application.MessageBox('分类编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    Edtbh.SetFocus;
    abort;
  end;
  IF strpmgg='' THEN
  begin
    Application.MessageBox('分类名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    Edtmc.SetFocus;
    abort;
  end;
  strSQL:='select * from JG客户分类 where 分类编号='+''''+strspbh+'''';
  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;
       Edtbh.SetFocus;
       abort;
    end
    else
    begin
      strSQL:='Insert Into JG客户分类 Values('
             +''''+strCZMD+''''
             +','+''''+strspbh+''''
             +','+''''+strpmgg+''''+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          strSQL:='SELECT * FROM JG客户分类';
          RunSQL(DM.ADOQ_KHFL,strSQL,0);
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;
     end;
   end;
   Edtbh.Text:=BuildTable(dm.m_clADOQry_Temp,'JG客户分类','分类编号','0',4);
   Edtmc.SetFocus;
end;

procedure TFADDKHFL.updateKHFL;
var
  strspbh,strpmgg:string;
  strSQL,strTmp:string;
begin
  strspbh:=Trim(Edtbh.Text);
  strpmgg:=Trim(Edtmc.Text);
  strTmp:=Trim(dm.ADOQ_KHFL.fieldbyname('门店编号').AsString);
  IF strspbh='' THEN
  begin
    Application.MessageBox('分类编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    Edtbh.SetFocus;
    abort;
  end;
  IF strpmgg='' THEN
  begin
    Application.MessageBox('分类名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    Edtmc.SetFocus;
    abort;
  end;
  strSQL:='update JG客户分类 Set 分类名称='
             +''''+strpmgg+''''
             +' where (门店编号='+''''+strTmp+''''+') and (分类编号='+''''+strspbh+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
    strSQL:='SELECT * FROM JG客户分类';
    RunSQL(DM.ADOQ_KHFL,strSQL,0);
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

procedure TFADDKHFL.FormShow(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改客户分类';
    Edtbh.Text:=Trim(dm.ADOQ_KHFL.fieldbyname('分类编号').AsString);
    Edtmc.Text:=Trim(dm.ADOQ_KHFL.fieldbyname('分类名称').AsString);
    Edtbh.Color:=clBtnFace;
    Edtbh.ReadOnly:=True;
    Edtmc.SetFocus;
  END
  else
  begin
    Edtbh.Text:=BuildTable(dm.m_clADOQry_Temp,'JG客户分类','分类编号','0',4);
    Edtmc.SetFocus;
  end;
end;

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

procedure TFADDKHFL.BitBtn1Click(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
     updateKHFL
  else
    addKHFL;
  self.Close;
end;

procedure TFADDKHFL.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

end.