khzlbj.pas

服务信息管理系统

        end;
    end;
end;

procedure Tfrmkhzlbj.KhlxComboBoxEnter(Sender: TObject);
begin
  KhlxEdit.color := clGradientActiveCaption;
  KhlxComboBox.DroppedDown := True;
end;

procedure Tfrmkhzlbj.KhlxComboBoxExit(Sender: TObject);
begin
  KhlxEdit.color := clWindow;
  KhlxComboBox.DroppedDown := False;
end;

procedure Tfrmkhzlbj.ZjmEditExit(Sender: TObject);
begin
  (Sender as TEdit).color := clWindow;
end;

function Tfrmkhzlbj.dataverify(Verify_lx: string): Boolean; //数据校验事件
var
  lsbl_message: string;
begin
  if (copy(Verify_lx, 1, 1) = '1') then
    begin
      if KhbhEdit.Text = '' then
        begin
          MessageDlg('请输入客户的编号', mtError, [mbOk], 0);
          KhbhEdit.SetFocus;
          Result := False;
          Exit;
        end
      else
        begin
          if (khxx_ybh <> KhbhEdit.Text) and (khzlbj_bjzt = 'khzledit') then
            begin
              with khbjquery do
                begin
                  Close;
                  SQL.Clear;
                  SQL.Add('select kh_bh,kh_mc from khxxk ');
                  SQL.Add('where kh_bh=''' + KhbhEdit.Text + '''');
                  open;
                  First;
                  if FieldByName('kh_bh').AsString <> '' then
                    begin
                      lsbl_message := '已存在客户【' + Trim(FieldByName('kh_bh').AsString);
                      lsbl_message := lsbl_message + ' ' + Trim(FieldByName('kh_mc').AsString);
                      lsbl_message := lsbl_message + '】,请重新输入客户编号';
                      MessageDlg(lsbl_message, mtError, [mbOk], 0);
                      KhbhEdit.SetFocus;
                      Result := False;
                      Exit;
                    end;
                end;
            end;
        end;
    end;
  if (copy(Verify_lx, 2, 1) = '1') and (KhmcEdit.Text = '') then
    begin
      MessageDlg('请输入客户的名称', mtError, [mbOk], 0);
      KhmcEdit.SetFocus;
      Result := False;
      Exit;
    end;
  if (copy(Verify_lx, 3, 1) = '1') and (Khxx_dqbh = '') then
    begin
      MessageDlg('请选择一个地区', mtError, [mbOk], 0);
      Button2.SetFocus;
      Result := False;
      Exit;
    end;
  Result := True;
end;

function Tfrmkhzlbj.datasave: Boolean; //数据校验事件
var
  lsbl_datasave: Boolean;
begin
  Result := True;
  lsbl_datasave := dataverify('11');
  if lsbl_datasave = True then
    begin
      khxx_bh := KhbhEdit.Text;
      khxx_ybh := KhbhEdit.Text;
      khxx_mc := KhmcEdit.Text;
      khxx_zjm := zjmEdit.Text;
      khxx_lx := Copy(KhlxComboBox.Text, 1, 3);
      khxx_lxr := lxrEdit.Text;
      khxx_dh := dhEdit.Text;
      khxx_zh := zhEdit.Text;
      khxx_sh := shEdit.Text;
      khxx_email := emailEdit.Text;
      khxx_dz := dzEdit.Text;
      khxx_yzbm := yzbmEdit.Text;
      khxx_xysj1 := xysjdtp1.Date;
      khxx_xysj2 := xysjdtp2.Date;
      khxx_bz := bzMemo.Lines.Text;

      if khzlbj_bjzt = 'khzladd' then
        begin
          with frmkhzl.khxxQuery do
            begin
              try
                Append;
                FieldByName('kh_dqbh').AsString := khxx_dqbh;
                FieldByName('kh_bh').AsString := khxx_bh;
                FieldByName('kh_mc').AsString := khxx_mc;
                FieldByName('kh_zjm').AsString := khxx_zjm;
                FieldByName('kh_lx').AsString := khxx_lx;
                FieldByName('kh_lxr').AsString := khxx_lxr;
                FieldByName('kh_dh').AsString := khxx_dh;
                FieldByName('kh_zh').AsString := khxx_zh;
                FieldByName('kh_sh').AsString := khxx_sh;
                FieldByName('kh_yzbm').AsString := khxx_yzbm;
                FieldByName('kh_dz').AsString := khxx_dz;
                FieldByName('kh_email').AsString := khxx_email;
                FieldByName('kh_bz').AsString := khxx_bz;
                FieldByName('kh_xysj1').AsDateTime := khxx_xysj1;
                FieldByName('kh_xysj2').AsDateTime := khxx_xysj2;
                Post;
                with khgjtable do
                  begin
                    First;
                    if not eof then
                      begin
                        while not eof do
                          begin
                            khgjsjktable.Open;
                            with khgjsjktable do
                              begin
                                Append;
                                FieldByName('gj_khbh').AsString := khxx_bh;
                                FieldByName('gj_gjrq').AsString := khgjtable.FieldByName('gj_gjrq').AsString;
                                FieldByName('gj_jqxh').AsString := khgjtable.FieldByName('gj_jqxh').AsString;
                                FieldByName('gj_jxlh').AsString := khgjtable.FieldByName('gj_jxlh').AsString;
                                FieldByName('gj_jqdj').AsFloat := khgjtable.FieldByName('gj_jqdj').AsFloat;
                                FieldByName('gj_jqsl').AsFloat := khgjtable.FieldByName('gj_jqsl').AsFloat;
                                FieldByName('gj_lr').AsFloat := khgjtable.FieldByName('gj_lr').AsFloat;
                                FieldByName('gj_zbsj').AsFloat := khgjtable.FieldByName('gj_zbsj').AsFloat;
                                FieldByName('gj_bz').AsString := khgjtable.FieldByName('gj_bz').AsString;
                              end;
                            Next;
                          end;
                        try
                          khgjsjktable.ApplyUpdates;
                          khgjsjktable.CommitUpdates;
                          khgjsjktable.Close;
                        except
                          Cancel;
                          MessageDlg('【客户业务明细】数据保存失败', mtError, [mbOk], 0);
                        end;
                      end;
                  end;
                Result := True;
              except
                Cancel;
                MessageDlg('【客户资料】数据保存失败', mtError, [mbOk], 0);
                Result := False;
                Exit;
              end;
            end;
        end;
      if khzlbj_bjzt = 'khzledit' then
        begin
          with frmkhzl.KhxxQuery do
            begin
              try
                Edit;
                FieldByName('kh_dqbh').AsString := khxx_dqbh;
                FieldByName('kh_bh').AsString := khxx_bh;
                FieldByName('kh_mc').AsString := khxx_mc;
                FieldByName('kh_zjm').AsString := khxx_zjm;
                FieldByName('kh_lx').AsString := khxx_lx;
                FieldByName('kh_lxr').AsString := khxx_lxr;
                FieldByName('kh_dh').AsString := khxx_dh;
                FieldByName('kh_zh').AsString := khxx_zh;
                FieldByName('kh_sh').AsString := khxx_sh;
                FieldByName('kh_yzbm').AsString := khxx_yzbm;
                FieldByName('kh_dz').AsString := khxx_dz;
                FieldByName('kh_email').AsString := khxx_email;
                FieldByName('kh_bz').AsString := khxx_bz;
                FieldByName('kh_xysj1').AsDateTime := khxx_xysj1;
                FieldByName('kh_xysj2').AsDateTime := khxx_xysj2;
                Post;

                Result := True;
              except
                Cancel;
                MessageDlg('【客户资料】数据保存失败', mtError, [mbOk], 0);
                Result := False;
                Exit;
              end;
            end;
        end;
    end
  else
    Result := False;
end;

procedure Tfrmkhzlbj.KhbhEditExit(Sender: TObject);
begin
  (Sender as TEdit).color := clWindow;
  if KhbhEdit.Text = '' then
    begin
      MessageDlg('请输入客户的编号', mtError, [mbOk], 0);
      KhbhEdit.SetFocus;
    end;
end;

procedure Tfrmkhzlbj.BitBtnsaveClick(Sender: TObject);
var
  lsbl_save: Boolean;
begin
  lsbl_save := dataverify('111');
  if lsbl_save = True then
    begin
      lsbl_save := datasave();
      if lsbl_save = True then
        begin
          BitBtnsave.Enabled := False;
          if khzlbj_bjzt = 'khzladd' then
            begin
              dataassign(khzlbj_bjzt);
              khbhedit.Text := GetKhmaxbh();
              Khgjtable.Close;
              Khgjtable.Open;
              Khbhedit.SetFocus;
            end;
        end;
    end;
end;

procedure Tfrmkhzlbj.xysjdtp1Enter(Sender: TObject);
begin
  (Sender as TDateTimePicker).color := clGradientActiveCaption;
end;

procedure Tfrmkhzlbj.xysjdtp1Exit(Sender: TObject);
begin
  (Sender as TDateTimePicker).color := clWindow;
end;

procedure Tfrmkhzlbj.KhlxEditEnter(Sender: TObject);
begin
  KhlxComboBox.SetFocus;
end;

procedure Tfrmkhzlbj.Khgjdataassign(Sender: TObject);
begin
  with KhgjQuery do
    begin
      SQL.Clear;
      SQL.Add('select * from khgjsjk where gj_khbh=:lsbl_querycs');
      ParamByName('lsbl_querycs').AsString := Khxx_bh;
      Prepare;
      Open;
      First;
      khgjtable.Close;
      khgjtable.Open;
      while not eof do
        begin
          with khgjtable do
            begin
              Append;
              FieldByName('gj_khbh').AsString := KhgjQuery.FieldByName('gj_khbh').AsString;
              FieldByName('gj_gjrq').AsString := KhgjQuery.FieldByName('gj_gjrq').AsString;
              FieldByName('gj_jqxh').AsString := KhgjQuery.FieldByName('gj_jqxh').AsString;
              FieldByName('gj_jxlh').AsString := KhgjQuery.FieldByName('gj_jxlh').AsString;
              FieldByName('gj_jqdj').AsFloat := KhgjQuery.FieldByName('gj_jqdj').AsFloat;
              FieldByName('gj_jqsl').AsFloat := KhgjQuery.FieldByName('gj_jqsl').AsFloat;
              FieldByName('gj_lr').AsFloat := KhgjQuery.FieldByName('gj_lr').AsFloat;
              FieldByName('gj_zbsj').AsFloat := KhgjQuery.FieldByName('gj_zbsj').AsFloat;
              FieldByName('gj_bz').AsString := KhgjQuery.FieldByName('gj_bz').AsString;
            end;
          Next;
        end;
      KhgjQuery.Close;
    end;
end;

procedure Tfrmkhzlbj.SpeedButton1Click(Sender: TObject);
begin
  frmkhgjxxbj := Tfrmkhgjxxbj.Create(Self);
  with frmkhgjxxbj do
    begin
      khgjxxbj_zt := 'khbjxxAdd';
      ShowModal;
    end;
end;

procedure Tfrmkhzlbj.SpeedButton2Click(Sender: TObject);
begin
  if khgjtable.FieldByName('gj_jqxh').AsString <> '' then
    begin
      frmkhgjxxbj := Tfrmkhgjxxbj.Create(Self);
      with frmkhgjxxbj do
        begin
          khgjxxbj_zt := 'khbjxxEdit';
          ShowModal;
        end;
    end;
end;

procedure Tfrmkhzlbj.SpeedButton3Click(Sender: TObject);
begin
  if khgjtable.FieldByName('gj_jqxh').AsString <> '' then
    begin
      if MessageBox(handle, '确定要删除当前记录吗？', pchar('提示信息'), mb_IconQuestion + mb_YesNo) = mrYes then
        begin
          Khgjtable.Delete;
        end;
    end;
end;

procedure Tfrmkhzlbj.KhzlDBNavigatorClick(Sender: TObject;
  Button: TNavigateBtn);
begin
  dataassign(khzlbj_bjzt); //根据不同的编辑类型进行数据赋值
  Khgjdataassign(sender); //客户业务资料的赋值
  Bitbtnsave.Enabled := False;
end;

procedure Tfrmkhzlbj.Button2Click(Sender: TObject);
begin
  frmdqcx := Tfrmdqcx.Create(Self);
  with frmdqcx do
    begin
      ShowModal;
    end;
end;

end.