ss_txpkccsh.pas

省级集邮品管理ERP

          end;
          {符合条件，输入数据库}
          Update_Record; {更新库存记录} {}
        end;

        pgb_State.Position := i;
        i := i + 1;
        Next;
      end;

      Delete_Record; {删除库存为0的记录} {}
      Database.Commit;
    except
      if Database.InTransaction then
        Database.Rollback;
      ds_init.DataSet := qry_init;
      FreeBookmark(cur_pos);
      pgb_State.Visible := False;
      lbl_State.Visible := False;
      lbl_Search.Visible := True;
      ds_init.DataSet := qry_init;
      EnableControls;

      CHQMsgBox('数据初始化错误！可能是因为相同票品不同进价设置引起的，请重新设置相同票品不同进价，详细内容请查看帮助。');
      Result := False;
      Exit;
    end;

    Call_StoreProc; {调用存储过程，更新其他表，本步骤不加在事务内，同时出错不显式提示} {}

    GotoBookmark(cur_pos);
    FreeBookmark(cur_pos);
    pgb_State.Visible := False;
    lbl_State.Visible := False;
    lbl_Search.Visible := True;
    ds_init.DataSet := qry_init;
    EnableControls;
    Set_State(0);
  end;

  Show_Data;

  if Have_Find = True then
  begin
    qry_Init.Locate('TDM', l_PPDM, [loCaseInsensitive]);
    qry_Init.Locate('TDM;JJ', VarArrayOf([l_PPDM, l_JJ]), [loCaseInsensitive]);
  end;
  Result := True;
end;

{判断进价是否存在相同的}
function Tfrm_TXPKCCSH.Test_JJ: Boolean;
var
  test_pos: Pointer;
  l_PPDM: string;
  l_JJ: Double;
begin
  with qry_init do
  begin
    test_pos := GetBookmark;
    try
      l_PPDM := FieldByName('TDM').AsString;
      l_JJ := FieldByName('JJ').AsFloat;

      while not Eof do
      begin
        Next;
        if Eof then
          Break;
        if l_PPDM <> FieldByName('TDM').AsString then
          break;
        if l_JJ = FieldByName('JJ').AsFloat then
        begin
          {查找新增项目}
          if FieldByName('JJ').OldValue <> NULL then
            GotoBookmark(test_pos);

          {设置处于编辑状态}
          rxdb_Init.SelectedIndex := 4;
          Result := False;
          Exit;
        end;
      end;
      GotoBookmark(test_pos);

      while not Bof do
      begin
        Prior;
        if Bof then
          Break;
        if l_PPDM <> FieldByName('TDM').AsString then
          break;
        if l_JJ = FieldByName('JJ').AsFloat then
        begin
          {查找新增项目}
          if FieldByName('JJ').OldValue <> NULL then
            GotoBookmark(test_pos);

          {设置处于编辑状态}
          rxdb_Init.SelectedIndex := 4;
          Result := False;
          Exit;
        end;

      end;
      GotoBookmark(test_pos);
    finally
      FreeBookmark(test_pos);
    end;
  end;

  Result := True;
end;

function Tfrm_TXPKCCSH.Test_XJ: Boolean;
var
  l_KFDM: string;
begin
  l_KFDM := fcb_KF.FieldString;
  with qry_Tmp do
  begin
    Close;
    SQL.Text := 'Select XJ from TYS_TXPPKC where PPDM=''' + qry_init.FieldByName('TDM').AsString + '''and KFDM<>''' + l_KFDM + ''' and XJ<>' + FloatToStr(qry_init.FieldByName('XJ').AsFloat);
    Open;
  end;
  if qry_Tmp.IsEmpty = False then
  begin
    {设置处于编辑状态}
    rxdb_Init.SelectedIndex := 5;
    if not (dgAlwaysShowEditor in rxdb_Init.Options) then
    begin
      rxdb_Init.Options := rxdb_Init.Options + [dgAlwaysShowEditor];
      rxdb_Init.Options := rxdb_Init.Options - [dgAlwaysShowEditor];
    end;
    rxdb_Init.SetFocus;
    Result := False;
    exit;
  end;
  Result := True;
end;

{-------------------------------------------------------------------------------}
{向数据库中插入不为0的数据}
function Tfrm_TXPKCCSH.Update_Record: Boolean;
const
  Insert_SQL = 'Insert into TYS_TXPPKC (KFDM,PPDM,JJ,XJ,KWH,JSJ,ZK,TS) values(''%s'',''%s'',%f,%f,''%s'',%f,%f,%d)';
  Update_SQL = 'update TYS_TXPPKC set KWH=''%s'',JJ=%f,XJ=%f,JSJ=%f,ZK=%f,TS=%d where KFDM=''%s'' and PPDM=''%s'' and JJ=%f ';
var
  l_oldJJ, l_JJ, l_XJ, l_JSJ, l_ZK: Double;
  l_TS: Integer;
  l_PPDM, l_KFDM, l_KWH: string;
  SQLString: string;
begin
  l_KFDM := fcb_KF.FieldString;
  l_KWH := qry_init.FieldByName('KWH').AsString;
  l_PPDM := qry_init.FieldByName('TDM').AsString;
  l_JJ := qry_init.FieldByName('JJ').AsFloat;
  l_XJ := qry_init.FieldByName('XJ').AsFloat;
  l_JSJ := qry_init.FieldByName('JSJ').AsFloat;
  l_ZK := qry_init.FieldByName('ZK').AsFloat;
  l_TS := qry_init.FieldByName('TS').AsInteger;

  {决定是插入还是修改}
  if qry_init.FieldByName('PPDM').AsString = '' then {插入}
    SQLString := Format(Insert_SQL, [l_KFDM, l_PPDM, l_JJ, l_XJ, l_KWH, l_JSJ, l_ZK, l_TS])
  else
  begin
    try
      l_oldJJ := qry_init.FieldByName('JJ').OldValue;
    except
      l_oldJJ := 0;
    end;
    SQLString := Format(Update_SQL, [l_KWH, l_JJ, l_XJ, l_JSJ, l_ZK, l_TS,
      l_KFDM, l_PPDM, l_oldJJ]);
  end;

  with qry_Tmp do
  begin
    Close;
    SQL.Text := SQLString;
    ExecSQL;
  end;
  Result := True;
end;

{-------------------------------------------------------------------------------}
{从数据库中删除为0的记录}
function Tfrm_TXPKCCSH.Delete_Record: Boolean;
begin
  with qry_Tmp do
  begin
    Close;
    SQL.Text := 'Delete TYS_TXPPKC where TS=0';
    ExecSQL;
  end;
  Result := True;
end;

{调用存储过程，更新其他表，本步骤不加在事务内，同时出错不显式提示}
function Tfrm_TXPKCCSH.Call_StoreProc: Boolean;
begin
  try
    with sp_Init do
    begin
      Close;
      ParamByName('PC_DWDM').AsString := VG_UNITID;
      ParamByName('PC_USERID').AsString := VG_UserID;
      ParamByName('PN_FLG').AsFloat := 0;
      ExecProc;
    end;
  except
    CHQMsgBox('数据库内部处理出错！请与程序供应商联系。错误为：存储过程JYP_CSH_WC');
    Result := False;
    Exit;
  end;
  Result := True;
end;

{-------------------------------------------------------------------------------}
{启动时显示默认的所有数据}
procedure Tfrm_TXPKCCSH.FormShow(Sender: TObject);
begin
  {初始化所有参数}
  Init_Search_CSH;

  DWMC.Caption := '使用单位：' + VG_UnitName;
  Find_SQL := ' and ( b.TYPE=''jtlm'' or b.TYPE=''ptyp'' or b.TYPE=''fpj'') ';
  lbl_Search.Caption := '显示条件——所有数据';
  qry_initSL.DisplayFormat := '#,##';
  Show_Data;

  {设置界面状态，如果已经初始化或者初始化完成，则不能修改}
  if Judge_Modify = False then
    Set_State(2)
  else
    Set_State(0);

end;

{如果处于修改状态，则退出时给出提示，询问是否退出}
procedure Tfrm_TXPKCCSH.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if Edit_State = 1 then
    if CHQMsgBox('正处于修改状态，真的要退出吗？', 2) = mrNo then
      CanClose := False;
end;

{-------------------------------------------------------------------------------}
procedure Tfrm_TXPKCCSH.edt_LocateKeyPress(Sender: TObject; var Key: Char);
begin
  if qry_init.Active = True then
  begin
    if Key in ['a'..'z'] then Key := Chr(Ord(key) + Ord('A') - Ord('a'));
    qry_init.Locate('ZH', edt_Locate.Text + Key, [loCaseInsensitive, loPartialKey]);
  end
  else
    Key := Chr(0);
end;

{---------------------------------功能按钮--------------------------------------}
{保存初始化数据}
procedure Tfrm_TXPKCCSH.bbtn_SaveClick(Sender: TObject);
begin
  Save_Init_Data;
end;

{取消保存初始化数据}
procedure Tfrm_TXPKCCSH.bbtn_CancelClick(Sender: TObject);
begin
  Cancel_Init_Data;
end;

{修改}
procedure Tfrm_TXPKCCSH.bbtn_EditClick(Sender: TObject);
begin
  qry_init.Edit;
  Set_State(1);

  rxdb_Init.SetFocus;
  if rxdb_Init.SelectedIndex < 4 then
    rxdb_Init.SelectedIndex := 4;

end;


{批处理修改数据}
procedure Tfrm_TXPKCCSH.bbtn_ReplaceClick(Sender: TObject);
begin
  Set_Data;
end;

{打印初始化数据}
procedure Tfrm_TXPKCCSH.bbtn_PrintClick(Sender: TObject);
begin
  try
    qry_init.Filter := 'TS<>0 and TS<>NULL';
    qry_init.Filtered := True;
    PrintDBGridEh(rxdb_Init, RxLbl_Title.Caption);
  finally
    qry_init.Filtered := False;
  end;
end;


procedure Tfrm_TXPKCCSH.rxdb_InitDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
  if qry_initSL.AsInteger > 0 then
    if (gdSelected in State) and (rxdb_Init.Focused = True) then
      rxdb_Init.Canvas.Font.Color := clWhite
    else
      rxdb_Init.Canvas.Font.Color := $00A56E3A;

  rxdb_Init.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

procedure Tfrm_TXPKCCSH.rxdb_InitGetFooterParams(Sender: TObject; DataCol,
  Row: Integer; Column: TColumnEh; AFont: TFont; var Background: TColor;
  var Alignment: TAlignment; State: TGridDrawState; var Text: string);
begin
  try
    if (UpperCase(Column.Field.FieldName) = 'JJJE') or
      (UpperCase(Column.Field.FieldName) = 'XJJE') then
      if Text = '' then
        Text := '0'
      else
        Text := FormatFloat('#,##0.00##', StrToFloat(Text) / 100)
  except
  end;

  if (Column.FieldName = 'TMC') then
    Text := '记录数:  ' + Text;

  if (Column.FieldName = 'ZH') then
    Text := '合 计';
end;

procedure Tfrm_TXPKCCSH.qry_initXJChange(Sender: TField);
var
  Old_Value: Double;
  cur_pos: Pointer;
  l_TDM: string;
  l_XJ: double;
begin
  {判断销价是否合法}
  if qry_initXJ.AsFloat < 0 then
  begin
    CHQMsgBox('销价不能为负！');
    Old_Value := 0;
    if qry_init.FieldByName('PPDM').AsString <> '' then
    try
      Old_Value := qry_initXJ.OldValue;
    except
    end;
    qry_initXJ.OnChange := nil;
    qry_initXJ.AsFloat := Old_Value;
    qry_initXJ.OnChange := qry_initXJChange;
    Abort;
  end;

  qry_init.FieldByName('TEMP').AsInteger := 1;
  DisJE(1);
//  rxdb_Init1.DisableScroll;

  {统一销价}
  with qry_init do
  begin
    qry_initXJ.OnChange := nil;
    cur_pos := GetBookmark;
    try
      l_XJ := FieldByName('XJ').AsFloat;
      l_TDM := FieldByName('TDM').AsString;

      DisableControls;
      while not Eof do
      begin
        if FieldByName('TDM').AsString = l_TDM then
        begin
          Edit;
          FieldByName('XJ').AsFloat := l_XJ;
          FieldByName('TEMP').AsInteger := 1;
          Next;
        end
        else
          Break;
      end;
      GotoBookmark(cur_pos);

      Prior;
      while not Bof do
      begin
        if FieldByName('TDM').AsString = l_TDM then
        begin
          Edit;
          FieldByName('XJ').AsFloat := l_XJ;
          FieldByName('TEMP').AsInteger := 1;
          Prior;
        end
        else
          Break;
      end;
    finally
      GotoBookmark(cur_pos);
      FreeBookmark(cur_pos);

      qry_initXJ.OnChange := qry_initXJChange;
      EnableControls;
    end;
  end;
end;

procedure Tfrm_TXPKCCSH.DisJE(AType: Integer); {设置金额显示，0－进价金额；1－销价金额；2－面值金额}
begin
  case AType of
    0: //进价金额；
      Qry_init.FieldByName('JJJE').AsFloat := Qry_init.FieldByName('JJ').AsFloat * Qry_init.FieldByName('TS').AsFloat;
    1: //销价金额；
      Qry_init.FieldByName('XJJE').AsFloat := Qry_init.FieldByName('XJ').AsFloat * Qry_init.FieldByName('TS').AsFloat;
    2: //面值金额
      Qry_init.FieldByName('MZJE').AsFloat := Qry_init.FieldByName('TPMZ').AsFloat * Qry_init.FieldByName('TS').AsFloat;
  end;
end;

procedure Tfrm_TXPKCCSH.bbtn_AddClick(Sender: TObject);
begin
  Add_Init_Data;
end;

procedure Tfrm_TXPKCCSH.qry_initJJChange(Sender: TField);
var
  Old_Value: Double;
begin
  {判断进价是否合法}
  if qry_initJJ.AsFloat < 0 then
  begin
    CHQMsgBox('进价不能为负！');
    Old_Value := 0;
    if qry_init.FieldByName('PPDM').AsString <> '' then
    try
      Old_Value := qry_initJJ.OldValue;
    except
    end;
    qry_initJJ.OnChange := nil;
    qry_initJJ.AsFloat := Old_Value;
    qry_initJJ.OnChange := qry_initJJChange;
    Abort;
  end;

  qry_init.FieldByName('TEMP').AsInteger := 1;
  DisJE(0);
end;
end.