?? ss_txpkccsh.pas

?? 省級集郵品管理ERP
?? PAS
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
          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.
上一頁 1 23
?? 文件大小 4913 K
?? 上傳用戶 ljw128
?? 所屬分類企業管理
??? 相關標簽

#ERP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ss_txpkccsh.pas

?? 快捷鍵說明
